<?php

/**

 * Main WordPress API

 *

 * @package WordPress

 */

require( ABSPATH . WPINC . '/option.php' );

/**

 * Converts given date string into a different format.

 *

 * $format should be either a PHP date format string, e.g. 'U' for a Unix

 * timestamp, or 'G' for a Unix timestamp assuming that $date is GMT.

 *

 * If $translate is true then the given date and format string will

 * be passed to date_i18n() for translation.

 *

 * @since 0.71

 *

 * @param string $format Format of the date to return.

 * @param string $date Date string to convert.

 * @param bool $translate Whether the return date should be translated. Default is true.

 * @return string|int Formatted date string, or Unix timestamp.

 */

function mysql2date( $format, $date, $translate = true ) {

	if ( empty( $date ) )

		return false;

	if ( 'G' == $format )

		return strtotime( $date . ' +0000' );

	$i = strtotime( $date );

	if ( 'U' == $format )

		return $i;

	if ( $translate )

		return date_i18n( $format, $i );

	else

		return date( $format, $i );

}

/**

 * Retrieve the current time based on specified type.

 *

 * The 'mysql' type will return the time in the format for MySQL DATETIME field.

 * The 'timestamp' type will return the current timestamp.

 *

 * If $gmt is set to either '1' or 'true', then both types will use GMT time.

 * if $gmt is false, the output is adjusted with the GMT offset in the WordPress option.

 *

 * @since 1.0.0

 *

 * @param string $type Either 'mysql' or 'timestamp'.

 * @param int|bool $gmt Optional. Whether to use GMT timezone. Default is false.

 * @return int|string String if $type is 'gmt', int if $type is 'timestamp'.

 */

function current_time( $type, $gmt = 0 ) {

	switch ( $type ) {

		case 'mysql':

			return ( $gmt ) ? gmdate( 'Y-m-d H:i:s' ) : gmdate( 'Y-m-d H:i:s', ( time() + ( get_option( 'gmt_offset' ) * 3600 ) ) );

			break;

		case 'timestamp':

			return ( $gmt ) ? time() : time() + ( get_option( 'gmt_offset' ) * 3600 );

			break;

	}

}

/**

 * Retrieve the date in localized format, based on timestamp.

 *

 * If the locale specifies the locale month and weekday, then the locale will

 * take over the format for the date. If it isn't, then the date format string

 * will be used instead.

 *

 * @since 0.71

 *

 * @param string $dateformatstring Format to display the date.

 * @param int $unixtimestamp Optional. Unix timestamp.

 * @param bool $gmt Optional, default is false. Whether to convert to GMT for time.

 * @return string The date, translated if locale specifies it.

 */

function date_i18n( $dateformatstring, $unixtimestamp = false, $gmt = false ) {

	global $wp_locale;

	$i = $unixtimestamp;

	if ( false === $i ) {

		if ( ! $gmt )

			$i = current_time( 'timestamp' );

		else

			$i = time();

		// we should not let date() interfere with our

		// specially computed timestamp

		$gmt = true;

	}

	// store original value for language with untypical grammars

	// see http://core.trac.wordpress.org/ticket/9396

	$req_format = $dateformatstring;

	$datefunc = $gmt? 'gmdate' : 'date';

	if ( ( !empty( $wp_locale->month ) ) && ( !empty( $wp_locale->weekday ) ) ) {

		$datemonth = $wp_locale->get_month( $datefunc( 'm', $i ) );

		$datemonth_abbrev = $wp_locale->get_month_abbrev( $datemonth );

		$dateweekday = $wp_locale->get_weekday( $datefunc( 'w', $i ) );

		$dateweekday_abbrev = $wp_locale->get_weekday_abbrev( $dateweekday );

		$datemeridiem = $wp_locale->get_meridiem( $datefunc( 'a', $i ) );

		$datemeridiem_capital = $wp_locale->get_meridiem( $datefunc( 'A', $i ) );

		$dateformatstring = ' '.$dateformatstring;

		$dateformatstring = preg_replace( "/([^\\\])D/", "\\1" . backslashit( $dateweekday_abbrev ), $dateformatstring );

		$dateformatstring = preg_replace( "/([^\\\])F/", "\\1" . backslashit( $datemonth ), $dateformatstring );

		$dateformatstring = preg_replace( "/([^\\\])l/", "\\1" . backslashit( $dateweekday ), $dateformatstring );

		$dateformatstring = preg_replace( "/([^\\\])M/", "\\1" . backslashit( $datemonth_abbrev ), $dateformatstring );

		$dateformatstring = preg_replace( "/([^\\\])a/", "\\1" . backslashit( $datemeridiem ), $dateformatstring );

		$dateformatstring = preg_replace( "/([^\\\])A/", "\\1" . backslashit( $datemeridiem_capital ), $dateformatstring );

		$dateformatstring = substr( $dateformatstring, 1, strlen( $dateformatstring ) -1 );

	}

	$timezone_formats = array( 'P', 'I', 'O', 'T', 'Z', 'e' );

	$timezone_formats_re = implode( '|', $timezone_formats );

	if ( preg_match( "/$timezone_formats_re/", $dateformatstring ) ) {

		$timezone_string = get_option( 'timezone_string' );

		if ( $timezone_string ) {

			$timezone_object = timezone_open( $timezone_string );

			$date_object = date_create( null, $timezone_object );

			foreach( $timezone_formats as $timezone_format ) {

				if ( false !== strpos( $dateformatstring, $timezone_format ) ) {

					$formatted = date_format( $date_object, $timezone_format );

					$dateformatstring = ' '.$dateformatstring;

					$dateformatstring = preg_replace( "/([^\\\])$timezone_format/", "\\1" . backslashit( $formatted ), $dateformatstring );

					$dateformatstring = substr( $dateformatstring, 1, strlen( $dateformatstring ) -1 );

				}

			}

		}

	}

	$j = @$datefunc( $dateformatstring, $i );

	// allow plugins to redo this entirely for languages with untypical grammars

	$j = apply_filters('date_i18n', $j, $req_format, $i, $gmt);

	return $j;

}

/**

 * Convert integer number to format based on the locale.

 *

 * @since 2.3.0

 *

 * @param int $number The number to convert based on locale.

 * @param int $decimals Precision of the number of decimal places.

 * @return string Converted number in string format.

 */

function number_format_i18n( $number, $decimals = 0 ) {

	global $wp_locale;

	$formatted = number_format( $number, absint( $decimals ), $wp_locale->number_format['decimal_point'], $wp_locale->number_format['thousands_sep'] );

	return apply_filters( 'number_format_i18n', $formatted );

}

/**

 * Convert number of bytes largest unit bytes will fit into.

 *

 * It is easier to read 1kB than 1024 bytes and 1MB than 1048576 bytes. Converts

 * number of bytes to human readable number by taking the number of that unit

 * that the bytes will go into it. Supports TB value.

 *

 * Please note that integers in PHP are limited to 32 bits, unless they are on

 * 64 bit architecture, then they have 64 bit size. If you need to place the

 * larger size then what PHP integer type will hold, then use a string. It will

 * be converted to a double, which should always have 64 bit length.

 *

 * Technically the correct unit names for powers of 1024 are KiB, MiB etc.

 * @link http://en.wikipedia.org/wiki/Byte

 *

 * @since 2.3.0

 *

 * @param int|string $bytes Number of bytes. Note max integer size for integers.

 * @param int $decimals Precision of number of decimal places. Deprecated.

 * @return bool|string False on failure. Number string on success.

 */

function size_format( $bytes, $decimals = 0 ) {

	$quant = array(

		// ========================= Origin ====

		'TB' => 1099511627776,  // pow( 1024, 4)

		'GB' => 1073741824,     // pow( 1024, 3)

		'MB' => 1048576,        // pow( 1024, 2)

		'kB' => 1024,           // pow( 1024, 1)

		'B ' => 1,              // pow( 1024, 0)

	);

	foreach ( $quant as $unit => $mag )

		if ( doubleval($bytes) >= $mag )

			return number_format_i18n( $bytes / $mag, $decimals ) . ' ' . $unit;

	return false;

}

/**

 * Get the week start and end from the datetime or date string from mysql.

 *

 * @since 0.71

 *

 * @param string $mysqlstring Date or datetime field type from mysql.

 * @param int $start_of_week Optional. Start of the week as an integer.

 * @return array Keys are 'start' and 'end'.

 */

function get_weekstartend( $mysqlstring, $start_of_week = '' ) {

	$my = substr( $mysqlstring, 0, 4 ); // Mysql string Year

	$mm = substr( $mysqlstring, 8, 2 ); // Mysql string Month

	$md = substr( $mysqlstring, 5, 2 ); // Mysql string day

	$day = mktime( 0, 0, 0, $md, $mm, $my ); // The timestamp for mysqlstring day.

	$weekday = date( 'w', $day ); // The day of the week from the timestamp

	if ( !is_numeric($start_of_week) )

		$start_of_week = get_option( 'start_of_week' );

	if ( $weekday < $start_of_week )

		$weekday += 7;

	$start = $day - 86400 * ( $weekday - $start_of_week ); // The most recent week start day on or before $day

	$end = $start + 604799; // $start + 7 days - 1 second

	return compact( 'start', 'end' );

}

/**

 * Unserialize value only if it was serialized.

 *

 * @since 2.0.0

 *

 * @param string $original Maybe unserialized original, if is needed.

 * @return mixed Unserialized data can be any type.

 */

function maybe_unserialize( $original ) {

	if ( is_serialized( $original ) ) // don't attempt to unserialize data that wasn't serialized going in

		return @unserialize( $original );

	return $original;

}

/**

 * Check value to find if it was serialized.

 *

 * If $data is not an string, then returned value will always be false.

 * Serialized data is always a string.

 *

 * @since 2.0.5

 *

 * @param mixed $data Value to check to see if was serialized.

 * @return bool False if not serialized and true if it was.

 */

function is_serialized( $data ) {

	// if it isn't a string, it isn't serialized

	if ( ! is_string( $data ) )

		return false;

	$data = trim( $data );

 	if ( 'N;' == $data )

		return true;

	$length = strlen( $data );

	if ( $length < 4 )

		return false;

	if ( ':' !== $data[1] )

		return false;

	$lastc = $data[$length-1];

	if ( ';' !== $lastc && '}' !== $lastc )

		return false;

	$token = $data[0];

	switch ( $token ) {

		case 's' :

			if ( '"' !== $data[$length-2] )

				return false;

		case 'a' :

		case 'O' :

			return (bool) preg_match( "/^{$token}:[0-9]+:/s", $data );

		case 'b' :

		case 'i' :

		case 'd' :

			return (bool) preg_match( "/^{$token}:[0-9.E-]+;\$/", $data );

	}

	return false;

}

/**

 * Check whether serialized data is of string type.

 *

 * @since 2.0.5

 *

 * @param mixed $data Serialized data

 * @return bool False if not a serialized string, true if it is.

 */

function is_serialized_string( $data ) {

	// if it isn't a string, it isn't a serialized string

	if ( !is_string( $data ) )

		return false;

	$data = trim( $data );

	$length = strlen( $data );

	if ( $length < 4 )

		return false;

	elseif ( ':' !== $data[1] )

		return false;

	elseif ( ';' !== $data[$length-1] )

		return false;

	elseif ( $data[0] !== 's' )

		return false;

	elseif ( '"' !== $data[$length-2] )

		return false;

	else

		return true;

}

/**

 * Serialize data, if needed.

 *

 * @since 2.0.5

 *

 * @param mixed $data Data that might be serialized.

 * @return mixed A scalar data

 */

function maybe_serialize( $data ) {

	if ( is_array( $data ) || is_object( $data ) )

		return serialize( $data );

	// Double serialization is required for backward compatibility.

	// See http://core.trac.wordpress.org/ticket/12930

	if ( is_serialized( $data ) )

		return serialize( $data );

	return $data;

}

/**

 * Retrieve post title from XMLRPC XML.

 *

 * If the title element is not part of the XML, then the default post title from

 * the $post_default_title will be used instead.

 *

 * @package WordPress

 * @subpackage XMLRPC

 * @since 0.71

 *

 * @global string $post_default_title Default XMLRPC post title.

 *

 * @param string $content XMLRPC XML Request content

 * @return string Post title

 */

function xmlrpc_getposttitle( $content ) {

	global $post_default_title;

	if ( preg_match( '/<title>(.+?)<\/title>/is', $content, $matchtitle ) ) {

		$post_title = $matchtitle[1];

	} else {

		$post_title = $post_default_title;

	}

	return $post_title;

}

/**

 * Retrieve the post category or categories from XMLRPC XML.

 *

 * If the category element is not found, then the default post category will be

 * used. The return type then would be what $post_default_category. If the

 * category is found, then it will always be an array.

 *

 * @package WordPress

 * @subpackage XMLRPC

 * @since 0.71

 *

 * @global string $post_default_category Default XMLRPC post category.

 *

 * @param string $content XMLRPC XML Request content

 * @return string|array List of categories or category name.

 */

function xmlrpc_getpostcategory( $content ) {

	global $post_default_category;

	if ( preg_match( '/<category>(.+?)<\/category>/is', $content, $matchcat ) ) {

		$post_category = trim( $matchcat[1], ',' );

		$post_category = explode( ',', $post_category );

	} else {

		$post_category = $post_default_category;

	}

	return $post_category;

}

/**

 * XMLRPC XML content without title and category elements.

 *

 * @package WordPress

 * @subpackage XMLRPC

 * @since 0.71

 *

 * @param string $content XMLRPC XML Request content

 * @return string XMLRPC XML Request content without title and category elements.

 */

function xmlrpc_removepostdata( $content ) {

	$content = preg_replace( '/<title>(.+?)<\/title>/si', '', $content );

	$content = preg_replace( '/<category>(.+?)<\/category>/si', '', $content );

	$content = trim( $content );

	return $content;

}

/**

 * Check content for video and audio links to add as enclosures.

 *

 * Will not add enclosures that have already been added and will

 * remove enclosures that are no longer in the post. This is called as

 * pingbacks and trackbacks.

 *

 * @package WordPress

 * @since 1.5.0

 *

 * @uses $wpdb

 *

 * @param string $content Post Content

 * @param int $post_ID Post ID

 */

function do_enclose( $content, $post_ID ) {

	global $wpdb;

	//TODO: Tidy this ghetto code up and make the debug code optional

	include_once( ABSPATH . WPINC . '/class-IXR.php' );

	$post_links = array();

	$pung = get_enclosed( $post_ID );

	$ltrs = '\w';

	$gunk = '/#~:.?+=&%@!\-';

	$punc = '.:?\-';

	$any = $ltrs . $gunk . $punc;

	preg_match_all( "{\b http : [$any] +? (?= [$punc] * [^$any] | $)}x", $content, $post_links_temp );

	foreach ( $pung as $link_test ) {

		if ( !in_array( $link_test, $post_links_temp[0] ) ) { // link no longer in post

			$mids = $wpdb->get_col( $wpdb->prepare("SELECT meta_id FROM $wpdb->postmeta WHERE post_id = %d AND meta_key = 'enclosure' AND meta_value LIKE (%s)", $post_ID, like_escape( $link_test ) . '%') );

			foreach ( $mids as $mid )

				delete_metadata_by_mid( 'post', $mid );

		}

	}

	foreach ( (array) $post_links_temp[0] as $link_test ) {

		if ( !in_array( $link_test, $pung ) ) { // If we haven't pung it already

			$test = @parse_url( $link_test );

			if ( false === $test )

				continue;

			if ( isset( $test['query'] ) )

				$post_links[] = $link_test;

			elseif ( isset($test['path']) && ( $test['path'] != '/' ) &&  ($test['path'] != '' ) )

				$post_links[] = $link_test;

		}

	}

	foreach ( (array) $post_links as $url ) {

		if ( $url != '' && !$wpdb->get_var( $wpdb->prepare( "SELECT post_id FROM $wpdb->postmeta WHERE post_id = %d AND meta_key = 'enclosure' AND meta_value LIKE (%s)", $post_ID, like_escape( $url ) . '%' ) ) ) {

			if ( $headers = wp_get_http_headers( $url) ) {

				$len = isset( $headers['content-length'] ) ? (int) $headers['content-length'] : 0;

				$type = isset( $headers['content-type'] ) ? $headers['content-type'] : '';

				$allowed_types = array( 'video', 'audio' );

				// Check to see if we can figure out the mime type from

				// the extension

				$url_parts = @parse_url( $url );

				if ( false !== $url_parts ) {

					$extension = pathinfo( $url_parts['path'], PATHINFO_EXTENSION );

					if ( !empty( $extension ) ) {

						foreach ( get_allowed_mime_types( ) as $exts => $mime ) {

							if ( preg_match( '!^(' . $exts . ')$!i', $extension ) ) {

								$type = $mime;

								break;

							}

						}

					}

				}

				if ( in_array( substr( $type, 0, strpos( $type, "/" ) ), $allowed_types ) ) {

					add_post_meta( $post_ID, 'enclosure', "$url\n$len\n$mime\n" );

				}

			}

		}

	}

}

/**

 * Perform a HTTP HEAD or GET request.

 *

 * If $file_path is a writable filename, this will do a GET request and write

 * the file to that path.

 *

 * @since 2.5.0

 *

 * @param string $url URL to fetch.

 * @param string|bool $file_path Optional. File path to write request to.

 * @param int $red (private) The number of Redirects followed, Upon 5 being hit, returns false.

 * @return bool|string False on failure and string of headers if HEAD request.

 */

function wp_get_http( $url, $file_path = false, $red = 1 ) {

	@set_time_limit( 60 );

	if ( $red > 5 )

		return false;

	$options = array();

	$options['redirection'] = 5;

	if ( false == $file_path )

		$options['method'] = 'HEAD';

	else

		$options['method'] = 'GET';

	$response = wp_remote_request($url, $options);

	if ( is_wp_error( $response ) )

		return false;

	$headers = wp_remote_retrieve_headers( $response );

	$headers['response'] = wp_remote_retrieve_response_code( $response );

	// WP_HTTP no longer follows redirects for HEAD requests.

	if ( 'HEAD' == $options['method'] && in_array($headers['response'], array(301, 302)) && isset( $headers['location'] ) ) {

		return wp_get_http( $headers['location'], $file_path, ++$red );