-
+ 10526D3D84BBE766511AF25287F01BBE1125A06D18BABB93E1B7C33488C1F1DF15EA3E706848A67D36C30EDAC25D3A4DD360BC563AC21093F6BFE0183F9C4388
mp-wp/wp-includes/formatting.php

(0 . 0)(1 . 2163)
<?php^M
/**^M
 * Main Wordpress Formatting API.^M
 *^M
 * Handles many functions for formatting output.^M
 *^M
 * @package WordPress^M
 **/^M
^M
/**^M
 * Replaces common plain text characters into formatted entities^M
 *^M
 * As an example,^M
 * <code>^M
 * 'cause today's effort makes it worth tomorrow's "holiday"...^M
 * </code>^M
 * Becomes:^M
 * <code>^M
 * ’cause today’s effort makes it worth tomorrow’s “holiday”…^M
 * </code>^M
 * Code within certain html blocks are skipped.^M
 *^M
 * @since 0.71^M
 * @uses $wp_cockneyreplace Array of formatted entities for certain common phrases^M
 *^M
 * @param string $text The text to be formatted^M
 * @return string The string replaced with html entities^M
 */^M
function wptexturize($text) {^M
/*	global $wp_cockneyreplace;^M
	$next = true;^M
	$has_pre_parent = false;^M
	$output = '';^M
	$curl = '';^M
	$textarr = preg_split('/(<.*>|\[.*\])/Us', $text, -1, PREG_SPLIT_DELIM_CAPTURE);^M
	$stop = count($textarr);^M
^M
	// if a plugin has provided an autocorrect array, use it^M
	if ( isset($wp_cockneyreplace) ) {^M
		$cockney = array_keys($wp_cockneyreplace);^M
		$cockneyreplace = array_values($wp_cockneyreplace);^M
	} else {^M
		$cockney = array("'tain't","'twere","'twas","'tis","'twill","'til","'bout","'nuff","'round","'cause");^M
		$cockneyreplace = array("’tain’t","’twere","’twas","’tis","’twill","’til","’bout","’nuff","’round","’cause");^M
	}^M
^M
	$static_characters = array_merge(array('---', ' -- ', '--', 'xn–', '...', '``', '\'s', '\'\'', ' (tm)'), $cockney);^M
	$static_replacements = array_merge(array('—', ' — ', '–', 'xn--', '…', '“', '’s', '”', ' ™'), $cockneyreplace);^M
^M
	$dynamic_characters = array('/\'(\d\d(?:’|\')?s)/', '/(\s|\A|")\'/', '/(\d+)"/', '/(\d+)\'/', '/(\S)\'([^\'\s])/', '/(\s|\A)"(?!\s)/', '/"(\s|\S|\Z)/', '/\'([\s.]|\Z)/', '/(\d+)x(\d+)/');^M
	$dynamic_replacements = array('’$1','$1‘', '$1″', '$1′', '$1’$2', '$1“$2', '”$1', '’$1', '$1×$2');^M
^M
	for ( $i = 0; $i < $stop; $i++ ) {^M
		$curl = $textarr[$i];^M
^M
		if ( !empty($curl) && '<' != $curl{0} && '[' != $curl{0} && $next && !$has_pre_parent) { // If it's not a tag^M
			// static strings^M
			$curl = str_replace($static_characters, $static_replacements, $curl);^M
			// regular expressions^M
			$curl = preg_replace($dynamic_characters, $dynamic_replacements, $curl);^M
		} elseif (strpos($curl, '<code') !== false || strpos($curl, '<kbd') !== false || strpos($curl, '<style') !== false || strpos($curl, '<script') !== false) {^M
			$next = false;^M
		} elseif (strpos($curl, '<pre') !== false) {^M
			$has_pre_parent = true;^M
		} elseif (strpos($curl, '</pre>') !== false) {^M
			$has_pre_parent = false;^M
		} else {^M
			$next = true;^M
		}^M
^M
		$curl = preg_replace('/&([^#])(?![a-zA-Z1-4]{1,8};)/', '&$1', $curl);^M
		$output .= $curl;^M
	}^M
^M
	return $output;^M
*/^M
return $text;  ^M
}^M
^M
/**^M
 * Accepts matches array from preg_replace_callback in wpautop() or a string.^M
 *^M
 * Ensures that the contents of a <<pre>>...<</pre>> HTML block are not^M
 * converted into paragraphs or line-breaks.^M
 *^M
 * @since 1.2.0^M
 *^M
 * @param array|string $matches The array or string^M
 * @return string The pre block without paragraph/line-break conversion.^M
 */^M
function clean_pre($matches) {^M
	if ( is_array($matches) )^M
		$text = $matches[1] . $matches[2] . "</pre>";^M
	else^M
		$text = $matches;^M
^M
	$text = str_replace('<br />', '', $text);^M
	$text = str_replace('<p>', "\n", $text);^M
	$text = str_replace('</p>', '', $text);^M
^M
	return $text;^M
}^M
^M
/**^M
 * Replaces double line-breaks with paragraph elements.^M
 *^M
 * A group of regex replaces used to identify text formatted with newlines and^M
 * replace double line-breaks with HTML paragraph tags. The remaining^M
 * line-breaks after conversion become <<br />> tags, unless $br is set to '0'^M
 * or 'false'.^M
 *^M
 * @since 0.71^M
 *^M
 * @param string $pee The text which has to be formatted.^M
 * @param int|bool $br Optional. If set, this will convert all remaining line-breaks after paragraphing. Default true.^M
 * @return string Text which has been converted into correct paragraph tags.^M
 */^M
function wpautop($pee, $br = 1) {^M
	$pee = $pee . "\n"; // just to make things a little easier, pad the end^M
	$pee = preg_replace('|<br />\s*<br />|', "\n\n", $pee);^M
	// Space things out a little^M
	$allblocks = '(?:table|thead|tfoot|caption|colgroup|tbody|tr|td|th|div|dl|dd|dt|ul|ol|li|pre|select|form|map|area|blockquote|address|math|style|input|p|h[1-6]|hr)';^M
	$pee = preg_replace('!(<' . $allblocks . '[^>]*>)!', "\n$1", $pee);^M
	$pee = preg_replace('!(</' . $allblocks . '>)!', "$1\n\n", $pee);^M
	$pee = str_replace(array("\r\n", "\r"), "\n", $pee); // cross-platform newlines^M
	if ( strpos($pee, '<object') !== false ) {^M
		$pee = preg_replace('|\s*<param([^>]*)>\s*|', "<param$1>", $pee); // no pee inside object/embed^M
		$pee = preg_replace('|\s*</embed>\s*|', '</embed>', $pee);^M
	}^M
	$pee = preg_replace("/\n\n+/", "\n\n", $pee); // take care of duplicates^M
	// make paragraphs, including one at the end^M
	$pees = preg_split('/\n\s*\n/', $pee, -1, PREG_SPLIT_NO_EMPTY);^M
	$pee = '';^M
	foreach ( $pees as $tinkle )^M
		$pee .= '<p>' . trim($tinkle, "\n") . "</p>\n";^M
	$pee = preg_replace('|<p>\s*?</p>|', '', $pee); // under certain strange conditions it could create a P of entirely whitespace^M
	$pee = preg_replace('!<p>([^<]+)\s*?(</(?:div|address|form)[^>]*>)!', "<p>$1</p>$2", $pee);^M
	$pee = preg_replace( '|<p>|', "$1<p>", $pee );^M
	$pee = preg_replace('!<p>\s*(</?' . $allblocks . '[^>]*>)\s*</p>!', "$1", $pee); // don't pee all over a tag^M
	$pee = preg_replace("|<p>(<li.+?)</p>|", "$1", $pee); // problem with nested lists^M
	$pee = preg_replace('|<p><blockquote([^>]*)>|i', "<blockquote$1><p>", $pee);^M
	$pee = str_replace('</blockquote></p>', '</p></blockquote>', $pee);^M
	$pee = preg_replace('!<p>\s*(</?' . $allblocks . '[^>]*>)!', "$1", $pee);^M
	$pee = preg_replace('!(</?' . $allblocks . '[^>]*>)\s*</p>!', "$1", $pee);^M
	if ($br) {^M
		$pee = preg_replace_callback('/<(script|style).*?<\/\\1>/s', create_function('$matches', 'return str_replace("\n", "<WPPreserveNewline />", $matches[0]);'), $pee);^M
		$pee = preg_replace('|(?<!<br />)\s*\n|', "<br />\n", $pee); // optionally make line breaks^M
		$pee = str_replace('<WPPreserveNewline />', "\n", $pee);^M
	}^M
	$pee = preg_replace('!(</?' . $allblocks . '[^>]*>)\s*<br />!', "$1", $pee);^M
	$pee = preg_replace('!<br />(\s*</?(?:p|li|div|dl|dd|dt|th|pre|td|ul|ol)[^>]*>)!', '$1', $pee);^M
	if (strpos($pee, '<pre') !== false)^M
		$pee = preg_replace_callback('!(<pre.*?>)(.*?)</pre>!is', 'clean_pre', $pee );^M
	$pee = preg_replace( "|\n</p>$|", '</p>', $pee );^M
	$pee = preg_replace('/<p>\s*?(' . get_shortcode_regex() . ')\s*<\/p>/s', '$1', $pee); // don't auto-p wrap shortcodes that stand alone^M
^M
	return $pee;^M
}^M
^M
/**^M
 * Checks to see if a string is utf8 encoded.^M
 *^M
 * @author bmorel at ssi dot fr^M
 *^M
 * @since 1.2.1^M
 *^M
 * @param string $Str The string to be checked^M
 * @return bool True if $Str fits a UTF-8 model, false otherwise.^M
 */^M
function seems_utf8($Str) { # by bmorel at ssi dot fr^M
	$length = strlen($Str);^M
	for ($i=0; $i < $length; $i++) {^M
		if (ord($Str[$i]) < 0x80) continue; # 0bbbbbbb^M
		elseif ((ord($Str[$i]) & 0xE0) == 0xC0) $n=1; # 110bbbbb^M
		elseif ((ord($Str[$i]) & 0xF0) == 0xE0) $n=2; # 1110bbbb^M
		elseif ((ord($Str[$i]) & 0xF8) == 0xF0) $n=3; # 11110bbb^M
		elseif ((ord($Str[$i]) & 0xFC) == 0xF8) $n=4; # 111110bb^M
		elseif ((ord($Str[$i]) & 0xFE) == 0xFC) $n=5; # 1111110b^M
		else return false; # Does not match any model^M
		for ($j=0; $j<$n; $j++) { # n bytes matching 10bbbbbb follow ?^M
			if ((++$i == $length) || ((ord($Str[$i]) & 0xC0) != 0x80))^M
			return false;^M
		}^M
	}^M
	return true;^M
}^M
^M
/**^M
 * Converts a number of special characters into their HTML entities.^M
 *^M
 * Differs from htmlspecialchars as existing HTML entities will not be encoded.^M
 * Specifically changes: & to &, < to < and > to >.^M
 *^M
 * $quotes can be set to 'single' to encode ' to ', 'double' to encode " to^M
 * ", or '1' to do both. Default is 0 where no quotes are encoded.^M
 *^M
 * @since 1.2.2^M
 *^M
 * @param string $text The text which is to be encoded.^M
 * @param mixed $quotes Optional. Converts single quotes if set to 'single', double if set to 'double' or both if otherwise set. Default 0.^M
 * @return string The encoded text with HTML entities.^M
 */^M
function wp_specialchars( $text, $quotes = 0 ) {^M
	// Like htmlspecialchars except don't double-encode HTML entities^M
	$text = str_replace('&&', '&&', $text);^M
	$text = str_replace('&&', '&&', $text);^M
	$text = preg_replace('/&(?:$|([^#])(?![a-z1-4]{1,8};))/', '&$1', $text);^M
	$text = str_replace('<', '<', $text);^M
	$text = str_replace('>', '>', $text);^M
	if ( 'double' === $quotes ) {^M
		$text = str_replace('"', '"', $text);^M
	} elseif ( 'single' === $quotes ) {^M
		$text = str_replace("'", ''', $text);^M
	} elseif ( $quotes ) {^M
		$text = str_replace('"', '"', $text);^M
		$text = str_replace("'", ''', $text);^M
	}^M
	return $text;^M
}^M
^M
/**^M
 * Encode the Unicode values to be used in the URI.^M
 *^M
 * @since 1.5.0^M
 *^M
 * @param string $utf8_string^M
 * @param int $length Max length of the string^M
 * @return string String with Unicode encoded for URI.^M
 */^M
function utf8_uri_encode( $utf8_string, $length = 0 ) {^M
	$unicode = '';^M
	$values = array();^M
	$num_octets = 1;^M
	$unicode_length = 0;^M
^M
	$string_length = strlen( $utf8_string );^M
	for ($i = 0; $i < $string_length; $i++ ) {^M
^M
		$value = ord( $utf8_string[ $i ] );^M
^M
		if ( $value < 128 ) {^M
			if ( $length && ( $unicode_length >= $length ) )^M
				break;^M
			$unicode .= chr($value);^M
			$unicode_length++;^M
		} else {^M
			if ( count( $values ) == 0 ) $num_octets = ( $value < 224 ) ? 2 : 3;^M
^M
			$values[] = $value;^M
^M
			if ( $length && ( $unicode_length + ($num_octets * 3) ) > $length )^M
				break;^M
			if ( count( $values ) == $num_octets ) {^M
				if ($num_octets == 3) {^M
					$unicode .= '%' . dechex($values[0]) . '%' . dechex($values[1]) . '%' . dechex($values[2]);^M
					$unicode_length += 9;^M
				} else {^M
					$unicode .= '%' . dechex($values[0]) . '%' . dechex($values[1]);^M
					$unicode_length += 6;^M
				}^M
^M
				$values = array();^M
				$num_octets = 1;^M
			}^M
		}^M
	}^M
^M
	return $unicode;^M
}^M
^M
/**^M
 * Converts all accent characters to ASCII characters.^M
 *^M
 * If there are no accent characters, then the string given is just returned.^M
 *^M
 * @since 1.2.1^M
 *^M
 * @param string $string Text that might have accent characters^M
 * @return string Filtered string with replaced "nice" characters.^M
 */^M
function remove_accents($string) {^M
	if ( !preg_match('/[\x80-\xff]/', $string) )^M
		return $string;^M
^M
	if (seems_utf8($string)) {^M
		$chars = array(^M
		// Decompositions for Latin-1 Supplement^M
		chr(195).chr(128) => 'A', chr(195).chr(129) => 'A',^M
		chr(195).chr(130) => 'A', chr(195).chr(131) => 'A',^M
		chr(195).chr(132) => 'A', chr(195).chr(133) => 'A',^M
		chr(195).chr(135) => 'C', chr(195).chr(136) => 'E',^M
		chr(195).chr(137) => 'E', chr(195).chr(138) => 'E',^M
		chr(195).chr(139) => 'E', chr(195).chr(140) => 'I',^M
		chr(195).chr(141) => 'I', chr(195).chr(142) => 'I',^M
		chr(195).chr(143) => 'I', chr(195).chr(145) => 'N',^M
		chr(195).chr(146) => 'O', chr(195).chr(147) => 'O',^M
		chr(195).chr(148) => 'O', chr(195).chr(149) => 'O',^M
		chr(195).chr(150) => 'O', chr(195).chr(153) => 'U',^M
		chr(195).chr(154) => 'U', chr(195).chr(155) => 'U',^M
		chr(195).chr(156) => 'U', chr(195).chr(157) => 'Y',^M
		chr(195).chr(159) => 's', chr(195).chr(160) => 'a',^M
		chr(195).chr(161) => 'a', chr(195).chr(162) => 'a',^M
		chr(195).chr(163) => 'a', chr(195).chr(164) => 'a',^M
		chr(195).chr(165) => 'a', chr(195).chr(167) => 'c',^M
		chr(195).chr(168) => 'e', chr(195).chr(169) => 'e',^M
		chr(195).chr(170) => 'e', chr(195).chr(171) => 'e',^M
		chr(195).chr(172) => 'i', chr(195).chr(173) => 'i',^M
		chr(195).chr(174) => 'i', chr(195).chr(175) => 'i',^M
		chr(195).chr(177) => 'n', chr(195).chr(178) => 'o',^M
		chr(195).chr(179) => 'o', chr(195).chr(180) => 'o',^M
		chr(195).chr(181) => 'o', chr(195).chr(182) => 'o',^M
		chr(195).chr(182) => 'o', chr(195).chr(185) => 'u',^M
		chr(195).chr(186) => 'u', chr(195).chr(187) => 'u',^M
		chr(195).chr(188) => 'u', chr(195).chr(189) => 'y',^M
		chr(195).chr(191) => 'y',^M
		// Decompositions for Latin Extended-A^M
		chr(196).chr(128) => 'A', chr(196).chr(129) => 'a',^M
		chr(196).chr(130) => 'A', chr(196).chr(131) => 'a',^M
		chr(196).chr(132) => 'A', chr(196).chr(133) => 'a',^M
		chr(196).chr(134) => 'C', chr(196).chr(135) => 'c',^M
		chr(196).chr(136) => 'C', chr(196).chr(137) => 'c',^M
		chr(196).chr(138) => 'C', chr(196).chr(139) => 'c',^M
		chr(196).chr(140) => 'C', chr(196).chr(141) => 'c',^M
		chr(196).chr(142) => 'D', chr(196).chr(143) => 'd',^M
		chr(196).chr(144) => 'D', chr(196).chr(145) => 'd',^M
		chr(196).chr(146) => 'E', chr(196).chr(147) => 'e',^M
		chr(196).chr(148) => 'E', chr(196).chr(149) => 'e',^M
		chr(196).chr(150) => 'E', chr(196).chr(151) => 'e',^M
		chr(196).chr(152) => 'E', chr(196).chr(153) => 'e',^M
		chr(196).chr(154) => 'E', chr(196).chr(155) => 'e',^M
		chr(196).chr(156) => 'G', chr(196).chr(157) => 'g',^M
		chr(196).chr(158) => 'G', chr(196).chr(159) => 'g',^M
		chr(196).chr(160) => 'G', chr(196).chr(161) => 'g',^M
		chr(196).chr(162) => 'G', chr(196).chr(163) => 'g',^M
		chr(196).chr(164) => 'H', chr(196).chr(165) => 'h',^M
		chr(196).chr(166) => 'H', chr(196).chr(167) => 'h',^M
		chr(196).chr(168) => 'I', chr(196).chr(169) => 'i',^M
		chr(196).chr(170) => 'I', chr(196).chr(171) => 'i',^M
		chr(196).chr(172) => 'I', chr(196).chr(173) => 'i',^M
		chr(196).chr(174) => 'I', chr(196).chr(175) => 'i',^M
		chr(196).chr(176) => 'I', chr(196).chr(177) => 'i',^M
		chr(196).chr(178) => 'IJ',chr(196).chr(179) => 'ij',^M
		chr(196).chr(180) => 'J', chr(196).chr(181) => 'j',^M
		chr(196).chr(182) => 'K', chr(196).chr(183) => 'k',^M
		chr(196).chr(184) => 'k', chr(196).chr(185) => 'L',^M
		chr(196).chr(186) => 'l', chr(196).chr(187) => 'L',^M
		chr(196).chr(188) => 'l', chr(196).chr(189) => 'L',^M
		chr(196).chr(190) => 'l', chr(196).chr(191) => 'L',^M
		chr(197).chr(128) => 'l', chr(197).chr(129) => 'L',^M
		chr(197).chr(130) => 'l', chr(197).chr(131) => 'N',^M
		chr(197).chr(132) => 'n', chr(197).chr(133) => 'N',^M
		chr(197).chr(134) => 'n', chr(197).chr(135) => 'N',^M
		chr(197).chr(136) => 'n', chr(197).chr(137) => 'N',^M
		chr(197).chr(138) => 'n', chr(197).chr(139) => 'N',^M
		chr(197).chr(140) => 'O', chr(197).chr(141) => 'o',^M
		chr(197).chr(142) => 'O', chr(197).chr(143) => 'o',^M
		chr(197).chr(144) => 'O', chr(197).chr(145) => 'o',^M
		chr(197).chr(146) => 'OE',chr(197).chr(147) => 'oe',^M
		chr(197).chr(148) => 'R',chr(197).chr(149) => 'r',^M
		chr(197).chr(150) => 'R',chr(197).chr(151) => 'r',^M
		chr(197).chr(152) => 'R',chr(197).chr(153) => 'r',^M
		chr(197).chr(154) => 'S',chr(197).chr(155) => 's',^M
		chr(197).chr(156) => 'S',chr(197).chr(157) => 's',^M
		chr(197).chr(158) => 'S',chr(197).chr(159) => 's',^M
		chr(197).chr(160) => 'S', chr(197).chr(161) => 's',^M
		chr(197).chr(162) => 'T', chr(197).chr(163) => 't',^M
		chr(197).chr(164) => 'T', chr(197).chr(165) => 't',^M
		chr(197).chr(166) => 'T', chr(197).chr(167) => 't',^M
		chr(197).chr(168) => 'U', chr(197).chr(169) => 'u',^M
		chr(197).chr(170) => 'U', chr(197).chr(171) => 'u',^M
		chr(197).chr(172) => 'U', chr(197).chr(173) => 'u',^M
		chr(197).chr(174) => 'U', chr(197).chr(175) => 'u',^M
		chr(197).chr(176) => 'U', chr(197).chr(177) => 'u',^M
		chr(197).chr(178) => 'U', chr(197).chr(179) => 'u',^M
		chr(197).chr(180) => 'W', chr(197).chr(181) => 'w',^M
		chr(197).chr(182) => 'Y', chr(197).chr(183) => 'y',^M
		chr(197).chr(184) => 'Y', chr(197).chr(185) => 'Z',^M
		chr(197).chr(186) => 'z', chr(197).chr(187) => 'Z',^M
		chr(197).chr(188) => 'z', chr(197).chr(189) => 'Z',^M
		chr(197).chr(190) => 'z', chr(197).chr(191) => 's',^M
		// Euro Sign^M
		chr(226).chr(130).chr(172) => 'E',^M
		// GBP (Pound) Sign^M
		chr(194).chr(163) => '');^M
^M
		$string = strtr($string, $chars);^M
	} else {^M
		// Assume ISO-8859-1 if not UTF-8^M
		$chars['in'] = chr(128).chr(131).chr(138).chr(142).chr(154).chr(158)^M
			.chr(159).chr(162).chr(165).chr(181).chr(192).chr(193).chr(194)^M
			.chr(195).chr(196).chr(197).chr(199).chr(200).chr(201).chr(202)^M
			.chr(203).chr(204).chr(205).chr(206).chr(207).chr(209).chr(210)^M
			.chr(211).chr(212).chr(213).chr(214).chr(216).chr(217).chr(218)^M
			.chr(219).chr(220).chr(221).chr(224).chr(225).chr(226).chr(227)^M
			.chr(228).chr(229).chr(231).chr(232).chr(233).chr(234).chr(235)^M
			.chr(236).chr(237).chr(238).chr(239).chr(241).chr(242).chr(243)^M
			.chr(244).chr(245).chr(246).chr(248).chr(249).chr(250).chr(251)^M
			.chr(252).chr(253).chr(255);^M
^M
		$chars['out'] = "EfSZszYcYuAAAAAACEEEEIIIINOOOOOOUUUUYaaaaaaceeeeiiiinoooooouuuuyy";^M
^M
		$string = strtr($string, $chars['in'], $chars['out']);^M
		$double_chars['in'] = array(chr(140), chr(156), chr(198), chr(208), chr(222), chr(223), chr(230), chr(240), chr(254));^M
		$double_chars['out'] = array('OE', 'oe', 'AE', 'DH', 'TH', 'ss', 'ae', 'dh', 'th');^M
		$string = str_replace($double_chars['in'], $double_chars['out'], $string);^M
	}^M
^M
	return $string;^M
}^M
^M
/**^M
 * Filters certain characters from the file name.^M
 *^M
 * Turns all strings to lowercase removing most characters except alphanumeric^M
 * with spaces, dashes and periods. All spaces and underscores are converted to^M
 * dashes. Multiple dashes are converted to a single dash. Finally, if the file^M
 * name ends with a dash, it is removed.^M
 *^M
 * @since 2.1.0^M
 *^M
 * @param string $name The file name^M
 * @return string Sanitized file name^M
 */^M
function sanitize_file_name( $name ) { // Like sanitize_title, but with periods^M
	$name = strtolower( $name );^M
	$name = preg_replace('/&.+?;/', '', $name); // kill entities^M
	$name = str_replace( '_', '-', $name );^M
	$name = preg_replace('/[^a-z0-9\s-.]/', '', $name);^M
	$name = preg_replace('/\s+/', '-', $name);^M
	$name = preg_replace('|-+|', '-', $name);^M
	$name = trim($name, '-');^M
	return $name;^M
}^M
^M
/**^M
 * Sanitize username stripping out unsafe characters.^M
 *^M
 * If $strict is true, only alphanumeric characters (as well as _, space, ., -,^M
 * @) are returned.^M
 * Removes tags, octets, entities, and if strict is enabled, will remove all^M
 * non-ASCII characters. After sanitizing, it passes the username, raw username^M
 * (the username in the parameter), and the strict parameter as parameters for^M
 * the filter.^M
 *^M
 * @since 2.0.0^M
 * @uses apply_filters() Calls 'sanitize_user' hook on username, raw username,^M
 *		and $strict parameter.^M
 *^M
 * @param string $username The username to be sanitized.^M
 * @param bool $strict If set limits $username to specific characters. Default false.^M
 * @return string The sanitized username, after passing through filters.^M
 */^M
function sanitize_user( $username, $strict = false ) {^M
	$raw_username = $username;^M
	$username = strip_tags($username);^M
	// Kill octets^M
	$username = preg_replace('|%([a-fA-F0-9][a-fA-F0-9])|', '', $username);^M
	$username = preg_replace('/&.+?;/', '', $username); // Kill entities^M
^M
	// If strict, reduce to ASCII for max portability.^M
	if ( $strict )^M
		$username = preg_replace('|[^a-z0-9 _.\-@]|i', '', $username);^M
^M
	// Consolidate contiguous whitespace^M
	$username = preg_replace('|\s+|', ' ', $username);^M
^M
	return apply_filters('sanitize_user', $username, $raw_username, $strict);^M
}^M
^M
/**^M
 * Sanitizes title or use fallback title.^M
 *^M
 * Specifically, HTML and PHP tags are stripped. Further actions can be added^M
 * via the plugin API. If $title is empty and $fallback_title is set, the latter^M
 * will be used.^M
 *^M
 * @since 1.0.0^M
 *^M
 * @param string $title The string to be sanitized.^M
 * @param string $fallback_title Optional. A title to use if $title is empty.^M
 * @return string The sanitized string.^M
 */^M
function sanitize_title($title, $fallback_title = '') {^M
	$title = strip_tags($title);^M
	$title = apply_filters('sanitize_title', $title);^M
^M
	if ( '' === $title || false === $title )^M
		$title = $fallback_title;^M
^M
	return $title;^M
}^M
^M
/**^M
 * Sanitizes title, replacing whitespace with dashes.^M
 *^M
 * Limits the output to alphanumeric characters, underscore (_) and dash (-).^M
 * Whitespace becomes a dash.^M
 *^M
 * @since 1.2.0^M
 *^M
 * @param string $title The title to be sanitized.^M
 * @return string The sanitized title.^M
 */^M
function sanitize_title_with_dashes($title) {^M
	$title = strip_tags($title);^M
	// Preserve escaped octets.^M
	$title = preg_replace('|%([a-fA-F0-9][a-fA-F0-9])|', '---$1---', $title);^M
	// Remove percent signs that are not part of an octet.^M
	$title = str_replace('%', '', $title);^M
	// Restore octets.^M
	$title = preg_replace('|---([a-fA-F0-9][a-fA-F0-9])---|', '%$1', $title);^M
^M
	$title = remove_accents($title);^M
	if (seems_utf8($title)) {^M
		if (function_exists('mb_strtolower')) {^M
			$title = mb_strtolower($title, 'UTF-8');^M
		}^M
		$title = utf8_uri_encode($title, 200);^M
	}^M
^M
	$title = strtolower($title);^M
	$title = preg_replace('/&.+?;/', '', $title); // kill entities^M
	$title = preg_replace('/[^%a-z0-9 _-]/', '', $title);^M
	$title = preg_replace('/\s+/', '-', $title);^M
	$title = preg_replace('|-+|', '-', $title);^M
	$title = trim($title, '-');^M
^M
	return $title;^M
}^M
^M
/**^M
 * Ensures a string is a valid SQL order by clause.^M
 *^M
 * Accepts one or more columns, with or without ASC/DESC, and also accepts^M
 * RAND().^M
 *^M
 * @since 2.5.1^M
 *^M
 * @param string $orderby Order by string to be checked.^M
 * @return string|false Returns the order by clause if it is a match, false otherwise.^M
 */^M
function sanitize_sql_orderby( $orderby ){^M
	preg_match('/^\s*([a-z0-9_]+(\s+(ASC|DESC))?(\s*,\s*|\s*$))+|^\s*RAND\(\s*\)\s*$/i', $orderby, $obmatches);^M
	if ( !$obmatches )^M
		return false;^M
	return $orderby;^M
}^M
^M
/**^M
 * Converts a number of characters from a string.^M
 *^M
 * Metadata tags <<title>> and <<category>> are removed, <<br>> and <<hr>> are^M
 * converted into correct XHTML and Unicode characters are converted to the^M
 * valid range.^M
 *^M
 * @since 0.71^M
 *^M
 * @param string $content String of characters to be converted.^M
 * @param string $deprecated Not used.^M
 * @return string Converted string.^M
 */^M
function convert_chars($content, $deprecated = '') {^M
	// Translation of invalid Unicode references range to valid range^M
	$wp_htmltranswinuni = array(^M
	'€' => '€', // the Euro sign^M
	'' => '',^M
	'‚' => '‚', // these are Windows CP1252 specific characters^M
	'ƒ' => 'ƒ',  // they would look weird on non-Windows browsers^M
	'„' => '„',^M
	'…' => '…',^M
	'†' => '†',^M
	'‡' => '‡',^M
	'ˆ' => 'ˆ',^M
	'‰' => '‰',^M
	'Š' => 'Š',^M
	'‹' => '‹',^M
	'Œ' => 'Œ',^M
	'' => '',^M
	'Ž' => 'ž',^M
	'' => '',^M
	'' => '',^M
	'‘' => '‘',^M
	'’' => '’',^M
	'“' => '“',^M
	'”' => '”',^M
	'•' => '•',^M
	'–' => '–',^M
	'—' => '—',^M
	'˜' => '˜',^M
	'™' => '™',^M
	'š' => 'š',^M
	'›' => '›',^M
	'œ' => 'œ',^M
	'' => '',^M
	'ž' => '',^M
	'Ÿ' => 'Ÿ'^M
	);^M
^M
	// Remove metadata tags^M
	$content = preg_replace('/<title>(.+?)<\/title>/','',$content);^M
	$content = preg_replace('/<category>(.+?)<\/category>/','',$content);^M
^M
	// Converts lone & characters into & (a.k.a. &)^M
	$content = preg_replace('/&([^#])(?![a-z1-4]{1,8};)/i', '&$1', $content);^M
^M
	// Fix Word pasting^M
	$content = strtr($content, $wp_htmltranswinuni);^M
^M
	// Just a little XHTML help^M
	$content = str_replace('<br>', '<br />', $content);^M
	$content = str_replace('<hr>', '<hr />', $content);^M
^M
	return $content;^M
}^M
^M
/**^M
 * Fixes javascript bugs in browsers.^M
 *^M
 * Converts unicode characters to HTML numbered entities.^M
 *^M
 * @since 1.5.0^M
 * @uses $is_macIE^M
 * @uses $is_winIE^M
 *^M
 * @param string $text Text to be made safe.^M
 * @return string Fixed text.^M
 */^M
function funky_javascript_fix($text) {^M
	// Fixes for browsers' javascript bugs^M
	global $is_macIE, $is_winIE;^M
^M
	/** @todo use preg_replace_callback() instead */^M
	if ( $is_winIE || $is_macIE )^M
		$text =  preg_replace("/\%u([0-9A-F]{4,4})/e",  "'&#'.base_convert('\\1',16,10).';'", $text);^M
^M
	return $text;^M
}^M
^M
/**^M
 * Will only balance the tags if forced to and the option is set to balance tags.^M
 *^M
 * The option 'use_balanceTags' is used for whether the tags will be balanced.^M
 * Both the $force parameter and 'use_balanceTags' option will have to be true^M
 * before the tags will be balanced.^M
 *^M
 * @since 0.71^M
 *^M
 * @param string $text Text to be balanced^M
 * @param bool $force Forces balancing, ignoring the value of the option. Default false.^M
 * @return string Balanced text^M
 */^M
function balanceTags( $text, $force = false ) {^M
	if ( !$force && get_option('use_balanceTags') == 0 )^M
		return $text;^M
	return force_balance_tags( $text );^M
}^M
^M
/**^M
 * Balances tags of string using a modified stack.^M
 *^M
 * @since 2.0.4^M
 *^M
 * @author Leonard Lin <leonard@acm.org>^M
 * @license GPL v2.0^M
 * @copyright November 4, 2001^M
 * @version 1.1^M
 * @todo Make better - change loop condition to $text in 1.2^M
 * @internal Modified by Scott Reilly (coffee2code) 02 Aug 2004^M
 *		1.1  Fixed handling of append/stack pop order of end text^M
 *			 Added Cleaning Hooks^M
 *		1.0  First Version^M
 *^M
 * @param string $text Text to be balanced.^M
 * @return string Balanced text.^M
 */^M
function force_balance_tags( $text ) {^M
	$tagstack = array(); $stacksize = 0; $tagqueue = ''; $newtext = '';^M
	$single_tags = array('br', 'hr', 'img', 'input'); //Known single-entity/self-closing tags^M
	$nestable_tags = array('blockquote', 'div', 'span'); //Tags that can be immediately nested within themselves^M
^M
	# WP bug fix for comments - in case you REALLY meant to type '< !--'^M
	$text = str_replace('< !--', '<    !--', $text);^M
	# WP bug fix for LOVE <3 (and other situations with '<' before a number)^M
	$text = preg_replace('#<([0-9]{1})#', '<$1', $text);^M
^M
	while (preg_match("/<(\/?\w*)\s*([^>]*)>/",$text,$regex)) {^M
		$newtext .= $tagqueue;^M
^M
		$i = strpos($text,$regex[0]);^M
		$l = strlen($regex[0]);^M
^M
		// clear the shifter^M
		$tagqueue = '';^M
		// Pop or Push^M
		if ($regex[1][0] == "/") { // End Tag^M
			$tag = strtolower(substr($regex[1],1));^M
			// if too many closing tags^M
			if($stacksize <= 0) {^M
				$tag = '';^M
				//or close to be safe $tag = '/' . $tag;^M
			}^M
			// if stacktop value = tag close value then pop^M
			else if ($tagstack[$stacksize - 1] == $tag) { // found closing tag^M
				$tag = '</' . $tag . '>'; // Close Tag^M
				// Pop^M
				array_pop ($tagstack);^M
				$stacksize--;^M
			} else { // closing tag not at top, search for it^M
				for ($j=$stacksize-1;$j>=0;$j--) {^M
					if ($tagstack[$j] == $tag) {^M
					// add tag to tagqueue^M
						for ($k=$stacksize-1;$k>=$j;$k--){^M
							$tagqueue .= '</' . array_pop ($tagstack) . '>';^M
							$stacksize--;^M
						}^M
						break;^M
					}^M
				}^M
				$tag = '';^M
			}^M
		} else { // Begin Tag^M
			$tag = strtolower($regex[1]);^M
^M
			// Tag Cleaning^M
^M
			// If self-closing or '', don't do anything.^M
			if((substr($regex[2],-1) == '/') || ($tag == '')) {^M
			}^M
			// ElseIf it's a known single-entity tag but it doesn't close itself, do so^M
			elseif ( in_array($tag, $single_tags) ) {^M
				$regex[2] .= '/';^M
			} else {	// Push the tag onto the stack^M
				// If the top of the stack is the same as the tag we want to push, close previous tag^M
				if (($stacksize > 0) && !in_array($tag, $nestable_tags) && ($tagstack[$stacksize - 1] == $tag)) {^M
					$tagqueue = '</' . array_pop ($tagstack) . '>';^M
					$stacksize--;^M
				}^M
				$stacksize = array_push ($tagstack, $tag);^M
			}^M
^M
			// Attributes^M
			$attributes = $regex[2];^M
			if($attributes) {^M
				$attributes = ' '.$attributes;^M
			}^M
			$tag = '<'.$tag.$attributes.'>';^M
			//If already queuing a close tag, then put this tag on, too^M
			if ($tagqueue) {^M
				$tagqueue .= $tag;^M
				$tag = '';^M
			}^M
		}^M
		$newtext .= substr($text,0,$i) . $tag;^M
		$text = substr($text,$i+$l);^M
	}^M
^M
	// Clear Tag Queue^M
	$newtext .= $tagqueue;^M
^M
	// Add Remaining text^M
	$newtext .= $text;^M
^M
	// Empty Stack^M
	while($x = array_pop($tagstack)) {^M
		$newtext .= '</' . $x . '>'; // Add remaining tags to close^M
	}^M
^M
	// WP fix for the bug with HTML comments^M
	$newtext = str_replace("< !--","<!--",$newtext);^M
	$newtext = str_replace("<    !--","< !--",$newtext);^M
^M
	return $newtext;^M
}^M
^M
/**^M
 * Acts on text which is about to be edited.^M
 *^M
 * Unless $richedit is set, it is simply a holder for the 'format_to_edit'^M
 * filter. If $richedit is set true htmlspecialchars() will be run on the^M
 * content, converting special characters to HTMl entities.^M
 *^M
 * @since 0.71^M
 *^M
 * @param string $content The text about to be edited.^M
 * @param bool $richedit Whether or not the $content should pass through htmlspecialchars(). Default false.^M
 * @return string The text after the filter (and possibly htmlspecialchars()) has been run.^M
 */^M
function format_to_edit($content, $richedit = false) {^M
	$content = apply_filters('format_to_edit', $content);^M
	if (! $richedit )^M
		$content = htmlspecialchars($content);^M
	return $content;^M
}^M
^M
/**^M
 * Holder for the 'format_to_post' filter.^M
 *^M
 * @since 0.71^M
 *^M
 * @param string $content The text to pass through the filter.^M
 * @return string Text returned from the 'format_to_post' filter.^M
 */^M
function format_to_post($content) {^M
	$content = apply_filters('format_to_post', $content);^M
	return $content;^M
}^M
^M
/**^M
 * Add leading zeros when necessary.^M
 *^M
 * If you set the threshold to '4' and the number is '10', then you will get^M
 * back '0010'. If you set the number to '4' and the number is '5000', then you^M
 * will get back '5000'.^M
 *^M
 * Uses sprintf to append the amount of zeros based on the $threshold parameter^M
 * and the size of the number. If the number is large enough, then no zeros will^M
 * be appended.^M
 *^M
 * @since 0.71^M
 *^M
 * @param mixed $number Number to append zeros to if not greater than threshold.^M
 * @param int $threshold Digit places number needs to be to not have zeros added.^M
 * @return string Adds leading zeros to number if needed.^M
 */^M
function zeroise($number, $threshold) {^M
	return sprintf('%0'.$threshold.'s', $number);^M
}^M
^M
/**^M
 * Adds backslashes before letters and before a number at the start of a string.^M
 *^M
 * @since 0.71^M
 *^M
 * @param string $string Value to which backslashes will be added.^M
 * @return string String with backslashes inserted.^M
 */^M
function backslashit($string) {^M
	$string = preg_replace('/^([0-9])/', '\\\\\\\\\1', $string);^M
	$string = preg_replace('/([a-z])/i', '\\\\\1', $string);^M
	return $string;^M
}^M
^M
/**^M
 * Appends a trailing slash.^M
 *^M
 * Will remove trailing slash if it exists already before adding a trailing^M
 * slash. This prevents double slashing a string or path.^M
 *^M
 * The primary use of this is for paths and thus should be used for paths. It is^M
 * not restricted to paths and offers no specific path support.^M
 *^M
 * @since 1.2.0^M
 * @uses untrailingslashit() Unslashes string if it was slashed already.^M
 *^M
 * @param string $string What to add the trailing slash to.^M
 * @return string String with trailing slash added.^M
 */^M
function trailingslashit($string) {^M
	return untrailingslashit($string) . '/';^M
}^M
^M
/**^M
 * Removes trailing slash if it exists.^M
 *^M
 * The primary use of this is for paths and thus should be used for paths. It is^M
 * not restricted to paths and offers no specific path support.^M
 *^M
 * @since 2.2.0^M
 *^M
 * @param string $string What to remove the trailing slash from.^M
 * @return string String without the trailing slash.^M
 */^M
function untrailingslashit($string) {^M
	return rtrim($string, '/');^M
}^M
^M
/**^M
 * Adds slashes to escape strings.^M
 *^M
 * Slashes will first be removed if magic_quotes_gpc is set, see {@link^M
 * http://www.php.net/magic_quotes} for more details.^M
 *^M
 * @since 0.71^M
 *^M
 * @param string $gpc The string returned from HTTP request data.^M
 * @return string Returns a string escaped with slashes.^M
 */^M
function addslashes_gpc($gpc) {^M
	global $wpdb;^M
^M
	if (get_magic_quotes_gpc()) {^M
		$gpc = stripslashes($gpc);^M
	}^M
^M
	return $wpdb->escape($gpc);^M
}^M
^M
/**^M
 * Navigates through an array and removes slashes from the values.^M
 *^M
 * If an array is passed, the array_map() function causes a callback to pass the^M
 * value back to the function. The slashes from this value will removed.^M
 *^M
 * @since 2.0.0^M
 *^M
 * @param array|string $value The array or string to be striped.^M
 * @return array|string Stripped array (or string in the callback).^M
 */^M
function stripslashes_deep($value) {^M
	$value = is_array($value) ? array_map('stripslashes_deep', $value) : stripslashes($value);^M
	return $value;^M
}^M
^M
/**^M
 * Navigates through an array and encodes the values to be used in a URL.^M
 *^M
 * Uses a callback to pass the value of the array back to the function as a^M
 * string.^M
 *^M
 * @since 2.2.0^M
 *^M
 * @param array|string $value The array or string to be encoded.^M
 * @return array|string $value The encoded array (or string from the callback).^M
 */^M
function urlencode_deep($value) {^M
	$value = is_array($value) ? array_map('urlencode_deep', $value) : urlencode($value);^M
	return $value;^M
}^M
^M
/**^M
 * Converts email addresses characters to HTML entities to block spam bots.^M
 *^M
 * @since 0.71^M
 *^M
 * @param string $emailaddy Email address.^M
 * @param int $mailto Optional. Range from 0 to 1. Used for encoding.^M
 * @return string Converted email address.^M
 */^M
function antispambot($emailaddy, $mailto=0) {^M
	$emailNOSPAMaddy = '';^M
	srand ((float) microtime() * 1000000);^M
	for ($i = 0; $i < strlen($emailaddy); $i = $i + 1) {^M
		$j = floor(rand(0, 1+$mailto));^M
		if ($j==0) {^M
			$emailNOSPAMaddy .= '&#'.ord(substr($emailaddy,$i,1)).';';^M
		} elseif ($j==1) {^M
			$emailNOSPAMaddy .= substr($emailaddy,$i,1);^M
		} elseif ($j==2) {^M
			$emailNOSPAMaddy .= '%'.zeroise(dechex(ord(substr($emailaddy, $i, 1))), 2);^M
		}^M
	}^M
	$emailNOSPAMaddy = str_replace('@','@',$emailNOSPAMaddy);^M
	return $emailNOSPAMaddy;^M
}^M
^M
/**^M
 * Callback to convert URI match to HTML A element.^M
 *^M
 * This function was backported from 2.5.0 to 2.3.2. Regex callback for {@link^M
 * make_clickable()}.^M
 *^M
 * @since 2.3.2^M
 * @access private^M
 *^M
 * @param array $matches Single Regex Match.^M
 * @return string HTML A element with URI address.^M
 */^M
function _make_url_clickable_cb($matches) {^M
	$ret = '';^M
	$url = $matches[2];^M
	$url = clean_url($url);^M
	if ( empty($url) )^M
		return $matches[0];^M
	// removed trailing [.,;:] from URL^M
	if ( in_array(substr($url, -1), array('.', ',', ';', ':')) === true ) {^M
		$ret = substr($url, -1);^M
		$url = substr($url, 0, strlen($url)-1);^M
	}^M
	return $matches[1] . "<a href=\"$url\" rel=\"nofollow\">$url</a>" . $ret;^M
}^M
^M
/**^M
 * Callback to convert URL match to HTML A element.^M
 *^M
 * This function was backported from 2.5.0 to 2.3.2. Regex callback for {@link^M
 * make_clickable()}.^M
 *^M
 * @since 2.3.2^M
 * @access private^M
 *^M
 * @param array $matches Single Regex Match.^M
 * @return string HTML A element with URL address.^M
 */^M
function _make_web_ftp_clickable_cb($matches) {^M
	$ret = '';^M
	$dest = $matches[2];^M
	$dest = 'http://' . $dest;^M
	$dest = clean_url($dest);^M
	if ( empty($dest) )^M
		return $matches[0];^M
	// removed trailing [,;:] from URL^M
	if ( in_array(substr($dest, -1), array('.', ',', ';', ':')) === true ) {^M
		$ret = substr($dest, -1);^M
		$dest = substr($dest, 0, strlen($dest)-1);^M
	}^M
	return $matches[1] . "<a href=\"$dest\" rel=\"nofollow\">$dest</a>" . $ret;^M
}^M
^M
/**^M
 * Callback to convert email address match to HTML A element.^M
 *^M
 * This function was backported from 2.5.0 to 2.3.2. Regex callback for {@link^M
 * make_clickable()}.^M
 *^M
 * @since 2.3.2^M
 * @access private^M
 *^M
 * @param array $matches Single Regex Match.^M
 * @return string HTML A element with email address.^M
 */^M
function _make_email_clickable_cb($matches) {^M
	$email = $matches[2] . '@' . $matches[3];^M
	return $matches[1] . "<a href=\"mailto:$email\">$email</a>";^M
}^M
^M
/**^M
 * Convert plaintext URI to HTML links.^M
 *^M
 * Converts URI, www and ftp, and email addresses. Finishes by fixing links^M
 * within links.^M
 *^M
 * @since 0.71^M
 *^M
 * @param string $ret Content to convert URIs.^M
 * @return string Content with converted URIs.^M
 */^M
function make_clickable($ret) {^M
	$ret = ' ' . $ret;^M
	// in testing, using arrays here was found to be faster^M
	$ret = preg_replace_callback('#([\s>])([\w]+?://[\w\\x80-\\xff\#$%&~/.\-;:=,?@\[\]+]*)#is', '_make_url_clickable_cb', $ret);^M
	$ret = preg_replace_callback('#([\s>])((www|ftp)\.[\w\\x80-\\xff\#$%&~/.\-;:=,?@\[\]+]*)#is', '_make_web_ftp_clickable_cb', $ret);^M
	$ret = preg_replace_callback('#([\s>])([.0-9a-z_+-]+)@(([0-9a-z-]+\.)+[0-9a-z]{2,})#i', '_make_email_clickable_cb', $ret);^M
	// this one is not in an array because we need it to run last, for cleanup of accidental links within links^M
	$ret = preg_replace("#(<a( [^>]+?>|>))<a [^>]+?>([^>]+?)</a></a>#i", "$1$3</a>", $ret);^M
	$ret = trim($ret);^M
	return $ret;^M
}^M
^M
/**^M
 * Adds rel nofollow string to all HTML A elements in content.^M
 *^M
 * @since 1.5.0^M
 *^M
 * @param string $text Content that may contain HTML A elements.^M
 * @return string Converted content.^M
 */^M
function wp_rel_nofollow( $text ) {^M
	global $wpdb;^M
	// This is a pre save filter, so text is already escaped.^M
	$text = stripslashes($text);^M
	$text = preg_replace_callback('|<a (.+?)>|i', 'wp_rel_nofollow_callback', $text);^M
	$text = $wpdb->escape($text);^M
	return $text;^M
}^M
^M
/**^M
 * Callback to used to add rel=nofollow string to HTML A element.^M
 *^M
 * Will remove already existing rel="nofollow" and rel='nofollow' from the^M
 * string to prevent from invalidating (X)HTML.^M
 *^M
 * @since 2.3.0^M
 *^M
 * @param array $matches Single Match^M
 * @return string HTML A Element with rel nofollow.^M
 */^M
function wp_rel_nofollow_callback( $matches ) {^M
	$text = $matches[1];^M
	$text = str_replace(array(' rel="nofollow"', " rel='nofollow'"), '', $text);^M
	return "<a $text rel=\"nofollow\">";^M
}^M
^M
/**^M
 * Convert text equivalent of smilies to images.^M
 *^M
 * Will only convert smilies if the option 'use_smilies' is true and the globals^M
 * used in the function aren't empty.^M
 *^M
 * @since 0.71^M
 * @uses $wp_smiliessearch, $wp_smiliesreplace Smiley replacement arrays.^M
 *^M
 * @param string $text Content to convert smilies from text.^M
 * @return string Converted content with text smilies replaced with images.^M
 */^M
function convert_smilies($text) {^M
	global $wp_smiliessearch, $wp_smiliesreplace;^M
	$output = '';^M
	if ( get_option('use_smilies') && !empty($wp_smiliessearch) && !empty($wp_smiliesreplace) ) {^M
		// HTML loop taken from texturize function, could possible be consolidated^M
		$textarr = preg_split("/(<.*>)/U", $text, -1, PREG_SPLIT_DELIM_CAPTURE); // capture the tags as well as in between^M
		$stop = count($textarr);// loop stuff^M
		for ($i = 0; $i < $stop; $i++) {^M
			$content = $textarr[$i];^M
			if ((strlen($content) > 0) && ('<' != $content{0})) { // If it's not a tag^M
				$content = preg_replace($wp_smiliessearch, $wp_smiliesreplace, $content);^M
			}^M
			$output .= $content;^M
		}^M
	} else {^M
		// return default text.^M
		$output = $text;^M
	}^M
	return $output;^M
}^M
^M
/**^M
 * Checks to see if the text is a valid email address.^M
 *^M
 * @since 0.71^M
 *^M
 * @param string $user_email The email address to be checked.^M
 * @return bool Returns true if valid, otherwise false.^M
 */^M
function is_email($user_email) {^M
	$chars = "/^([a-z0-9+_]|\\-|\\.)+@(([a-z0-9_]|\\-)+\\.)+[a-z]{2,6}\$/i";^M
	if (strpos($user_email, '@') !== false && strpos($user_email, '.') !== false) {^M
		if (preg_match($chars, $user_email)) {^M
			return true;^M
		} else {^M
			return false;^M
		}^M
	} else {^M
		return false;^M
	}^M
}^M
^M
/**^M
 * Convert to ASCII from email subjects.^M
 *^M
 * @since 1.2.0^M
 * @usedby wp_mail() handles charsets in email subjects^M
 *^M
 * @param string $string Subject line^M
 * @return string Converted string to ASCII^M
 */^M
function wp_iso_descrambler($string) {^M
	/* this may only work with iso-8859-1, I'm afraid */^M
	if (!preg_match('#\=\?(.+)\?Q\?(.+)\?\=#i', $string, $matches)) {^M
		return $string;^M
	} else {^M
		$subject = str_replace('_', ' ', $matches[2]);^M
		/** @todo use preg_replace_callback() */^M
		$subject = preg_replace('#\=([0-9a-f]{2})#ei', "chr(hexdec(strtolower('$1')))", $subject);^M
		return $subject;^M
	}^M
}^M
^M
/**^M
 * Returns a date in the GMT equivalent.^M
 *^M
 * Requires and returns a date in the Y-m-d H:i:s format. Simply subtracts the^M
 * value of gmt_offset.^M
 *^M
 * @since 1.2.0^M
 *^M
 * @param string $string The date to be converted.^M
 * @return string GMT version of the date provided.^M
 */^M
function get_gmt_from_date($string) {^M
	preg_match('#([0-9]{1,4})-([0-9]{1,2})-([0-9]{1,2}) ([0-9]{1,2}):([0-9]{1,2}):([0-9]{1,2})#', $string, $matches);^M
	$string_time = gmmktime($matches[4], $matches[5], $matches[6], $matches[2], $matches[3], $matches[1]);^M
	$string_gmt = gmdate('Y-m-d H:i:s', $string_time - get_option('gmt_offset') * 3600);^M
	return $string_gmt;^M
}^M
^M
/**^M
 * Converts a GMT date into the correct format for the blog.^M
 *^M
 * Requires and returns in the Y-m-d H:i:s format. Simply adds the value of^M
 * gmt_offset.^M
 *^M
 * @since 1.2.0^M
 *^M
 * @param string $string The date to be converted.^M
 * @return string Formatted date relative to the GMT offset.^M
 */^M
function get_date_from_gmt($string) {^M
	preg_match('#([0-9]{1,4})-([0-9]{1,2})-([0-9]{1,2}) ([0-9]{1,2}):([0-9]{1,2}):([0-9]{1,2})#', $string, $matches);^M
	$string_time = gmmktime($matches[4], $matches[5], $matches[6], $matches[2], $matches[3], $matches[1]);^M
	$string_localtime = gmdate('Y-m-d H:i:s', $string_time + get_option('gmt_offset')*3600);^M
	return $string_localtime;^M
}^M
^M
/**^M
 * Computes an offset in seconds from an iso8601 timezone.^M
 *^M
 * @since 1.5.0^M
 *^M
 * @param string $timezone Either 'Z' for 0 offset or 'hhmm'.^M
 * @return int|float The offset in seconds.^M
 */^M
function iso8601_timezone_to_offset($timezone) {^M
	// $timezone is either 'Z' or '[+|-]hhmm'^M
	if ($timezone == 'Z') {^M
		$offset = 0;^M
	} else {^M
		$sign    = (substr($timezone, 0, 1) == '+') ? 1 : -1;^M
		$hours   = intval(substr($timezone, 1, 2));^M
		$minutes = intval(substr($timezone, 3, 4)) / 60;^M
		$offset  = $sign * 3600 * ($hours + $minutes);^M
	}^M
	return $offset;^M
}^M
^M
/**^M
 * Converts an iso8601 date to MySQL DateTime format used by post_date[_gmt].^M
 *^M
 * @since 1.5.0^M
 *^M
 * @param string $date_string Date and time in ISO 8601 format {@link http://en.wikipedia.org/wiki/ISO_8601}.^M
 * @param string $timezone Optional. If set to GMT returns the time minus gmt_offset. Default is 'user'.^M
 * @return string The date and time in MySQL DateTime format - Y-m-d H:i:s.^M
 */^M
function iso8601_to_datetime($date_string, $timezone = 'user') {^M
	$timezone = strtolower($timezone);^M
^M
	if ($timezone == 'gmt') {^M
^M
		preg_match('#([0-9]{4})([0-9]{2})([0-9]{2})T([0-9]{2}):([0-9]{2}):([0-9]{2})(Z|[\+|\-][0-9]{2,4}){0,1}#', $date_string, $date_bits);^M
^M
		if (!empty($date_bits[7])) { // we have a timezone, so let's compute an offset^M
			$offset = iso8601_timezone_to_offset($date_bits[7]);^M
		} else { // we don't have a timezone, so we assume user local timezone (not server's!)^M
			$offset = 3600 * get_option('gmt_offset');^M
		}^M
^M
		$timestamp = gmmktime($date_bits[4], $date_bits[5], $date_bits[6], $date_bits[2], $date_bits[3], $date_bits[1]);^M
		$timestamp -= $offset;^M
^M
		return gmdate('Y-m-d H:i:s', $timestamp);^M
^M
	} else if ($timezone == 'user') {^M
		return preg_replace('#([0-9]{4})([0-9]{2})([0-9]{2})T([0-9]{2}):([0-9]{2}):([0-9]{2})(Z|[\+|\-][0-9]{2,4}){0,1}#', '$1-$2-$3 $4:$5:$6', $date_string);^M
	}^M
}^M
^M
/**^M
 * Adds a element attributes to open links in new windows.^M
 *^M
 * Comment text in popup windows should be filtered through this. Right now it's^M
 * a moderately dumb function, ideally it would detect whether a target or rel^M
 * attribute was already there and adjust its actions accordingly.^M
 *^M
 * @since 0.71^M
 *^M
 * @param string $text Content to replace links to open in a new window.^M
 * @return string Content that has filtered links.^M
 */^M
function popuplinks($text) {^M
	$text = preg_replace('/<a (.+?)>/i', "<a $1 target='_blank' rel='external'>", $text);^M
	return $text;^M
}^M
^M
/**^M
 * Strips out all characters that are not allowable in an email.^M
 *^M
 * @since 1.5.0^M
 *^M
 * @param string $email Email address to filter.^M
 * @return string Filtered email address.^M
 */^M
function sanitize_email($email) {^M
	return preg_replace('/[^a-z0-9+_.@-]/i', '', $email);^M
}^M
^M
/**^M
 * Determines the difference between two timestamps.^M
 *^M
 * The difference is returned in a human readable format such as "1 hour",^M
 * "5 mins", "2 days".^M
 *^M
 * @since 1.5.0^M
 *^M
 * @param int $from Unix timestamp from which the difference begins.^M
 * @param int $to Optional. Unix timestamp to end the time difference. Default becomes time() if not set.^M
 * @return string Human readable time difference.^M
 */^M
function human_time_diff( $from, $to = '' ) {^M
	if ( empty($to) )^M
		$to = time();^M
	$diff = (int) abs($to - $from);^M
	if ($diff <= 3600) {^M
		$mins = round($diff / 60);^M
		if ($mins <= 1) {^M
			$mins = 1;^M
		}^M
		$since = sprintf(__ngettext('%s min', '%s mins', $mins), $mins);^M
	} else if (($diff <= 86400) && ($diff > 3600)) {^M
		$hours = round($diff / 3600);^M
		if ($hours <= 1) {^M
			$hours = 1;^M
		}^M
		$since = sprintf(__ngettext('%s hour', '%s hours', $hours), $hours);^M
	} elseif ($diff >= 86400) {^M
		$days = round($diff / 86400);^M
		if ($days <= 1) {^M
			$days = 1;^M
		}^M
		$since = sprintf(__ngettext('%s day', '%s days', $days), $days);^M
	}^M
	return $since;^M
}^M
^M
/**^M
 * Generates an excerpt from the content, if needed.^M
 *^M
 * The excerpt word amount will be 55 words and if the amount is greater than^M
 * that, then the string '[...]' will be appended to the excerpt. If the string^M
 * is less than 55 words, then the content will be returned as is.^M
 *^M
 * @since 1.5.0^M
 *^M
 * @param string $text The exerpt. If set to empty an excerpt is generated.^M
 * @return string The excerpt.^M
 */^M
function wp_trim_excerpt($text) {^M
	if ( '' == $text ) {^M
		$text = get_the_content('');^M
^M
		$text = strip_shortcodes( $text );^M
^M
		$text = apply_filters('the_content', $text);^M
		$text = str_replace(']]>', ']]>', $text);^M
		$text = strip_tags($text);^M
		$excerpt_length = apply_filters('excerpt_length', 55);^M
		$words = explode(' ', $text, $excerpt_length + 1);^M
		if (count($words) > $excerpt_length) {^M
			array_pop($words);^M
			array_push($words, '[...]');^M
			$text = implode(' ', $words);^M
		}^M
	}^M
	return $text;^M
}^M
^M
/**^M
 * Converts named entities into numbered entities.^M
 *^M
 * @since 1.5.1^M
 *^M
 * @param string $text The text within which entities will be converted.^M
 * @return string Text with converted entities.^M
 */^M
function ent2ncr($text) {^M
	$to_ncr = array(^M
		'"' => '"',^M
		'&' => '&',^M
		'⁄' => '/',^M
		'<' => '<',^M
		'>' => '>',^M
		'|' => '|',^M
		' ' => ' ',^M
		'¡' => '¡',^M
		'¢' => '¢',^M
		'£' => '£',^M
		'¤' => '¤',^M
		'¥' => '¥',^M
		'¦' => '¦',^M
		'&brkbar;' => '¦',^M
		'§' => '§',^M
		'¨' => '¨',^M
		'¨' => '¨',^M
		'©' => '©',^M
		'ª' => 'ª',^M
		'«' => '«',^M
		'¬' => '¬',^M
		'­' => '­',^M
		'®' => '®',^M
		'¯' => '¯',^M
		'&hibar;' => '¯',^M
		'°' => '°',^M
		'±' => '±',^M
		'²' => '²',^M
		'³' => '³',^M
		'´' => '´',^M
		'µ' => 'µ',^M
		'¶' => '¶',^M
		'·' => '·',^M
		'¸' => '¸',^M
		'¹' => '¹',^M
		'º' => 'º',^M
		'»' => '»',^M
		'¼' => '¼',^M
		'½' => '½',^M
		'¾' => '¾',^M
		'¿' => '¿',^M
		'À' => 'À',^M
		'Á' => 'Á',^M
		'Â' => 'Â',^M
		'Ã' => 'Ã',^M
		'Ä' => 'Ä',^M
		'Å' => 'Å',^M
		'Æ' => 'Æ',^M
		'Ç' => 'Ç',^M
		'È' => 'È',^M
		'É' => 'É',^M
		'Ê' => 'Ê',^M
		'Ë' => 'Ë',^M
		'Ì' => 'Ì',^M
		'Í' => 'Í',^M
		'Î' => 'Î',^M
		'Ï' => 'Ï',^M
		'Ð' => 'Ð',^M
		'Ñ' => 'Ñ',^M
		'Ò' => 'Ò',^M
		'Ó' => 'Ó',^M
		'Ô' => 'Ô',^M
		'Õ' => 'Õ',^M
		'Ö' => 'Ö',^M
		'×' => '×',^M
		'Ø' => 'Ø',^M
		'Ù' => 'Ù',^M
		'Ú' => 'Ú',^M
		'Û' => 'Û',^M
		'Ü' => 'Ü',^M
		'Ý' => 'Ý',^M
		'Þ' => 'Þ',^M
		'ß' => 'ß',^M
		'à' => 'à',^M
		'á' => 'á',^M
		'â' => 'â',^M
		'ã' => 'ã',^M
		'ä' => 'ä',^M
		'å' => 'å',^M
		'æ' => 'æ',^M
		'ç' => 'ç',^M
		'è' => 'è',^M
		'é' => 'é',^M
		'ê' => 'ê',^M
		'ë' => 'ë',^M
		'ì' => 'ì',^M
		'í' => 'í',^M
		'î' => 'î',^M
		'ï' => 'ï',^M
		'ð' => 'ð',^M
		'ñ' => 'ñ',^M
		'ò' => 'ò',^M
		'ó' => 'ó',^M
		'ô' => 'ô',^M
		'õ' => 'õ',^M
		'ö' => 'ö',^M
		'÷' => '÷',^M
		'ø' => 'ø',^M
		'ù' => 'ù',^M
		'ú' => 'ú',^M
		'û' => 'û',^M
		'ü' => 'ü',^M
		'ý' => 'ý',^M
		'þ' => 'þ',^M
		'ÿ' => 'ÿ',^M
		'Œ' => 'Œ',^M
		'œ' => 'œ',^M
		'Š' => 'Š',^M
		'š' => 'š',^M
		'Ÿ' => 'Ÿ',^M
		'ƒ' => 'ƒ',^M
		'ˆ' => 'ˆ',^M
		'˜' => '˜',^M
		'Α' => 'Α',^M
		'Β' => 'Β',^M
		'Γ' => 'Γ',^M
		'Δ' => 'Δ',^M
		'Ε' => 'Ε',^M
		'Ζ' => 'Ζ',^M
		'Η' => 'Η',^M
		'Θ' => 'Θ',^M
		'Ι' => 'Ι',^M
		'Κ' => 'Κ',^M
		'Λ' => 'Λ',^M
		'Μ' => 'Μ',^M
		'Ν' => 'Ν',^M
		'Ξ' => 'Ξ',^M
		'Ο' => 'Ο',^M
		'Π' => 'Π',^M
		'Ρ' => 'Ρ',^M
		'Σ' => 'Σ',^M
		'Τ' => 'Τ',^M
		'Υ' => 'Υ',^M
		'Φ' => 'Φ',^M
		'Χ' => 'Χ',^M
		'Ψ' => 'Ψ',^M
		'Ω' => 'Ω',^M
		'α' => 'α',^M
		'β' => 'β',^M
		'γ' => 'γ',^M
		'δ' => 'δ',^M
		'ε' => 'ε',^M
		'ζ' => 'ζ',^M
		'η' => 'η',^M
		'θ' => 'θ',^M
		'ι' => 'ι',^M
		'κ' => 'κ',^M
		'λ' => 'λ',^M
		'μ' => 'μ',^M
		'ν' => 'ν',^M
		'ξ' => 'ξ',^M
		'ο' => 'ο',^M
		'π' => 'π',^M
		'ρ' => 'ρ',^M
		'ς' => 'ς',^M
		'σ' => 'σ',^M
		'τ' => 'τ',^M
		'υ' => 'υ',^M
		'φ' => 'φ',^M
		'χ' => 'χ',^M
		'ψ' => 'ψ',^M
		'ω' => 'ω',^M
		'ϑ' => 'ϑ',^M
		'ϒ' => 'ϒ',^M
		'ϖ' => 'ϖ',^M
		' ' => ' ',^M
		' ' => ' ',^M
		' ' => ' ',^M
		'‌' => '‌',^M
		'‍' => '‍',^M
		'‎' => '‎',^M
		'‏' => '‏',^M
		'–' => '–',^M
		'—' => '—',^M
		'‘' => '‘',^M
		'’' => '’',^M
		'‚' => '‚',^M
		'“' => '“',^M
		'”' => '”',^M
		'„' => '„',^M
		'†' => '†',^M
		'‡' => '‡',^M
		'•' => '•',^M
		'…' => '…',^M
		'‰' => '‰',^M
		'′' => '′',^M
		'″' => '″',^M
		'‹' => '‹',^M
		'›' => '›',^M
		'‾' => '‾',^M
		'⁄' => '⁄',^M
		'€' => '€',^M
		'ℑ' => 'ℑ',^M
		'℘' => '℘',^M
		'ℜ' => 'ℜ',^M
		'™' => '™',^M
		'ℵ' => 'ℵ',^M
		'↵' => '↵',^M
		'⇐' => '⇐',^M
		'⇑' => '⇑',^M
		'⇒' => '⇒',^M
		'⇓' => '⇓',^M
		'⇔' => '⇔',^M
		'∀' => '∀',^M
		'∂' => '∂',^M
		'∃' => '∃',^M
		'∅' => '∅',^M
		'∇' => '∇',^M
		'∈' => '∈',^M
		'∉' => '∉',^M
		'∋' => '∋',^M
		'∏' => '∏',^M
		'∑' => '∑',^M
		'−' => '−',^M
		'∗' => '∗',^M
		'√' => '√',^M
		'∝' => '∝',^M
		'∞' => '∞',^M
		'∠' => '∠',^M
		'∧' => '∧',^M
		'∨' => '∨',^M
		'∩' => '∩',^M
		'∪' => '∪',^M
		'∫' => '∫',^M
		'∴' => '∴',^M
		'∼' => '∼',^M
		'≅' => '≅',^M
		'≈' => '≈',^M
		'≠' => '≠',^M
		'≡' => '≡',^M
		'≤' => '≤',^M
		'≥' => '≥',^M
		'⊂' => '⊂',^M
		'⊃' => '⊃',^M
		'⊄' => '⊄',^M
		'⊆' => '⊆',^M
		'⊇' => '⊇',^M
		'⊕' => '⊕',^M
		'⊗' => '⊗',^M
		'⊥' => '⊥',^M
		'⋅' => '⋅',^M
		'⌈' => '⌈',^M
		'⌉' => '⌉',^M
		'⌊' => '⌊',^M
		'⌋' => '⌋',^M
		'⟨' => '〈',^M
		'⟩' => '〉',^M
		'←' => '←',^M
		'↑' => '↑',^M
		'→' => '→',^M
		'↓' => '↓',^M
		'↔' => '↔',^M
		'◊' => '◊',^M
		'♠' => '♠',^M
		'♣' => '♣',^M
		'♥' => '♥',^M
		'♦' => '♦'^M
	);^M
^M
	return str_replace( array_keys($to_ncr), array_values($to_ncr), $text );^M
}^M
^M
/**^M
 * Formats text for the rich text editor.^M
 *^M
 * The filter 'richedit_pre' is applied here. If $text is empty the filter will^M
 * be applied to an empty string.^M
 *^M
 * @since 2.0.0^M
 *^M
 * @param string $text The text to be formatted.^M
 * @return string The formatted text after filter is applied.^M
 */^M
function wp_richedit_pre($text) {^M
	// Filtering a blank results in an annoying <br />\n^M
	if ( empty($text) ) return apply_filters('richedit_pre', '');^M
^M
	$output = convert_chars($text);^M
	$output = wpautop($output);^M
	$output = htmlspecialchars($output, ENT_NOQUOTES);^M
^M
	return apply_filters('richedit_pre', $output);^M
}^M
^M
/**^M
 * Formats text for the HTML editor.^M
 *^M
 * Unless $output is empty it will pass through htmlspecialchars before the^M
 * 'htmledit_pre' filter is applied.^M
 *^M
 * @since 2.5.0^M
 *^M
 * @param string $output The text to be formatted.^M
 * @return string Formatted text after filter applied.^M
 */^M
function wp_htmledit_pre($output) {^M
	if ( !empty($output) )^M
		$output = htmlspecialchars($output, ENT_NOQUOTES); // convert only < > &^M
^M
	return apply_filters('htmledit_pre', $output);^M
}^M
^M
/**^M
 * Checks and cleans a URL.^M
 *^M
 * A number of characters are removed from the URL. If the URL is for displaying^M
 * (the default behaviour) amperstands are also replaced. The 'clean_url' filter^M
 * is applied to the returned cleaned URL.^M
 *^M
 * @since 1.2.0^M
 * @uses wp_kses_bad_protocol() To only permit protocols in the URL set^M
 *		via $protocols or the common ones set in the function.^M
 *^M
 * @param string $url The URL to be cleaned.^M
 * @param array $protocols Optional. An array of acceptable protocols.^M
 *		Defaults to 'http', 'https', 'ftp', 'ftps', 'mailto', 'news', 'irc', 'gopher', 'nntp', 'feed', 'telnet' if not set.^M
 * @param string $context Optional. How the URL will be used. Default is 'display'.^M
 * @return string The cleaned $url after the 'cleaned_url' filter is applied.^M
 */^M
function clean_url( $url, $protocols = null, $context = 'display' ) {^M
	$original_url = $url;^M
^M
	if ('' == $url) return $url;^M
	$url = preg_replace('|[^a-z0-9-~+_.?#=!&;,/:%@$*\'()\\x80-\\xff]|i', '', $url);^M
	$strip = array('%0d', '%0a');^M
	$url = str_replace($strip, '', $url);^M
	$url = str_replace(';//', '://', $url);^M
	/* If the URL doesn't appear to contain a scheme, we^M
	 * presume it needs http:// appended (unless a relative^M
	 * link starting with / or a php file).^M
	 */^M
	if ( strpos($url, ':') === false &&^M
		substr( $url, 0, 1 ) != '/' && !preg_match('/^[a-z0-9-]+?\.php/i', $url) )^M
		$url = 'http://' . $url;^M
^M
	// Replace ampersands and single quotes only when displaying.^M
	if ( 'display' == $context ) {^M
		$url = preg_replace('/&([^#])(?![a-z]{2,8};)/', '&$1', $url);^M
		$url = str_replace( "'", ''', $url );^M
	}^M
^M
	if ( !is_array($protocols) )^M
		$protocols = array('http', 'https', 'ftp', 'ftps', 'mailto', 'news', 'irc', 'gopher', 'nntp', 'feed', 'telnet');^M
	if ( wp_kses_bad_protocol( $url, $protocols ) != $url )^M
		return '';^M
^M
	return apply_filters('clean_url', $url, $original_url, $context);^M
}^M
^M
/**^M
 * Performs clean_url() for database usage.^M
 *^M
 * @see clean_url()^M
 *^M
 * @since 2.3.1^M
 *^M
 * @param string $url The URL to be cleaned.^M
 * @param array $protocols An array of acceptable protocols.^M
 * @return string The cleaned URL.^M
 */^M
function sanitize_url( $url, $protocols = null ) {^M
	return clean_url( $url, $protocols, 'db' );^M
}^M
^M
/**^M
 * Convert entities, while preserving already-encoded entities.^M
 *^M
 * @link http://www.php.net/htmlentities Borrowed from the PHP Manual user notes.^M
 *^M
 * @since 1.2.2^M
 *^M
 * @param string $myHTML The text to be converted.^M
 * @return string Converted text.^M
 */^M
function htmlentities2($myHTML) {^M
	$translation_table = get_html_translation_table( HTML_ENTITIES, ENT_QUOTES );^M
	$translation_table[chr(38)] = '&';^M
	return preg_replace( "/&(?![A-Za-z]{0,4}\w{2,3};|#[0-9]{2,3};)/", "&", strtr($myHTML, $translation_table) );^M
}^M
^M
/**^M
 * Escape single quotes, specialchar double quotes, and fix line endings.^M
 *^M
 * The filter 'js_escape' is also applied here.^M
 *^M
 * @since 2.0.4^M
 *^M
 * @param string $text The text to be escaped.^M
 * @return string Escaped text.^M
 */^M
function js_escape($text) {^M
	$safe_text = wp_specialchars($text, 'double');^M
	$safe_text = preg_replace('/&#(x)?0*(?(1)27|39);?/i', "'", stripslashes($safe_text));^M
	$safe_text = preg_replace("/\r?\n/", "\\n", addslashes($safe_text));^M
	return apply_filters('js_escape', $safe_text, $text);^M
}^M
^M
/**^M
 * Escaping for HTML attributes.^M
 *^M
 * @since 2.0.6^M
 *^M
 * @param string $text^M
 * @return string^M
 */^M
function attribute_escape($text) {^M
	$safe_text = wp_specialchars($text, true);^M
	return apply_filters('attribute_escape', $safe_text, $text);^M
}^M
^M
/**^M
 * Escape a HTML tag name.^M
 *^M
 * @since 2.5.0^M
 *^M
 * @param string $tag_name^M
 * @return string^M
 */^M
function tag_escape($tag_name) {^M
	$safe_tag = strtolower( preg_replace('[^a-zA-Z_:]', '', $tag_name) );^M
	return apply_filters('tag_escape', $safe_tag, $tag_name);^M
}^M
^M
/**^M
 * Escapes text for SQL LIKE special characters % and _.^M
 *^M
 * @since 2.5.0^M
 *^M
 * @param string $text The text to be escaped.^M
 * @return string text, safe for inclusion in LIKE query.^M
 */^M
function like_escape($text) {^M
	return str_replace(array("%", "_"), array("\\%", "\\_"), $text);^M
}^M
^M
/**^M
 * Convert full URL paths to absolute paths.^M
 *^M
 * Removes the http or https protocols and the domain. Keeps the path '/' at the^M
 * beginning, so it isn't a true relative link, but from the web root base.^M
 *^M
 * @since 2.1.0^M
 *^M
 * @param string $link Full URL path.^M
 * @return string Absolute path.^M
 */^M
function wp_make_link_relative( $link ) {^M
	return preg_replace( '|https?://[^/]+(/.*)|i', '$1', $link );^M
}^M
^M
/**^M
 * Sanitises various option values based on the nature of the option.^M
 *^M
 * This is basically a switch statement which will pass $value through a number^M
 * of functions depending on the $option.^M
 *^M
 * @since 2.0.5^M
 *^M
 * @param string $option The name of the option.^M
 * @param string $value The unsanitised value.^M
 * @return string Sanitized value.^M
 */^M
function sanitize_option($option, $value) {^M
^M
	switch ($option) {^M
		case 'admin_email':^M
			$value = sanitize_email($value);^M
			break;^M
^M
		case 'thumbnail_size_w':^M
		case 'thumbnail_size_h':^M
		case 'medium_size_w':^M
		case 'medium_size_h':^M
		case 'large_size_w':^M
		case 'large_size_h':^M
		case 'default_post_edit_rows':^M
		case 'mailserver_port':^M
		case 'comment_max_links':^M
		case 'page_on_front':^M
		case 'rss_excerpt_length':^M
		case 'default_category':^M
		case 'default_email_category':^M
		case 'default_link_category':^M
		case 'close_comments_days_old':^M
		case 'comments_per_page':^M
		case 'thread_comments_depth':^M
			$value = abs((int) $value);^M
			break;^M
^M
		case 'posts_per_page':^M
		case 'posts_per_rss':^M
			$value = (int) $value;^M
			if ( empty($value) ) $value = 1;^M
			if ( $value < -1 ) $value = abs($value);^M
			break;^M
^M
		case 'default_ping_status':^M
		case 'default_comment_status':^M
			// Options that if not there have 0 value but need to be something like "closed"^M
			if ( $value == '0' || $value == '')^M
				$value = 'closed';^M
			break;^M
^M
		case 'blogdescription':^M
		case 'blogname':^M
			$value = addslashes($value);^M
			$value = wp_filter_post_kses( $value ); // calls stripslashes then addslashes^M
			$value = stripslashes($value);^M
			$value = wp_specialchars( $value );^M
			break;^M
^M
		case 'blog_charset':^M
			$value = preg_replace('/[^a-zA-Z0-9_-]/', '', $value); // strips slashes^M
			break;^M
^M
		case 'date_format':^M
		case 'time_format':^M
		case 'mailserver_url':^M
		case 'mailserver_login':^M
		case 'mailserver_pass':^M
		case 'ping_sites':^M
		case 'upload_path':^M
			$value = strip_tags($value);^M
			$value = addslashes($value);^M
			$value = wp_filter_kses($value); // calls stripslashes then addslashes^M
			$value = stripslashes($value);^M
			break;^M
^M
		case 'gmt_offset':^M
			$value = preg_replace('/[^0-9:.-]/', '', $value); // strips slashes^M
			break;^M
^M
		case 'siteurl':^M
		case 'home':^M
			$value = stripslashes($value);^M
			$value = clean_url($value);^M
			break;^M
		default :^M
			$value = apply_filters("sanitize_option_{$option}", $value, $option);^M
			break;^M
	}^M
^M
	return $value;^M
}^M
^M
/**^M
 * Parses a string into variables to be stored in an array.^M
 *^M
 * Uses {@link http://www.php.net/parse_str parse_str()} and stripslashes if^M
 * {@link http://www.php.net/magic_quotes magic_quotes_gpc} is on.^M
 *^M
 * @since 2.2.1^M
 * @uses apply_filters() for the 'wp_parse_str' filter.^M
 *^M
 * @param string $string The string to be parsed.^M
 * @param array $array Variables will be stored in this array.^M
 */^M
function wp_parse_str( $string, &$array ) {^M
	parse_str( $string, $array );^M
	if ( get_magic_quotes_gpc() )^M
		$array = stripslashes_deep( $array );^M
	$array = apply_filters( 'wp_parse_str', $array );^M
}^M
^M
/**^M
 * Convert lone less than signs.^M
 *^M
 * KSES already converts lone greater than signs.^M
 *^M
 * @uses wp_pre_kses_less_than_callback in the callback function.^M
 * @since 2.3.0^M
 *^M
 * @param string $text Text to be converted.^M
 * @return string Converted text.^M
 */^M
function wp_pre_kses_less_than( $text ) {^M
	return preg_replace_callback('%<[^>]*?((?=<)|>|$)%', 'wp_pre_kses_less_than_callback', $text);^M
}^M
^M
/**^M
 * Callback function used by preg_replace.^M
 *^M
 * @uses wp_specialchars to format the $matches text.^M
 * @since 2.3.0^M
 *^M
 * @param array $matches Populated by matches to preg_replace.^M
 * @return string The text returned after wp_specialchars if needed.^M
 */^M
function wp_pre_kses_less_than_callback( $matches ) {^M
	if ( false === strpos($matches[0], '>') )^M
		return wp_specialchars($matches[0]);^M
	return $matches[0];^M
}^M
^M
/**^M
 * WordPress implementation of PHP sprintf() with filters.^M
 *^M
 * @since 2.5.0^M
 * @link http://www.php.net/sprintf^M
 *^M
 * @param string $pattern The string which formatted args are inserted.^M
 * @param mixed $args,... Arguments to be formatted into the $pattern string.^M
 * @return string The formatted string.^M
 */^M
function wp_sprintf( $pattern ) {^M
	$args = func_get_args( );^M
	$len = strlen($pattern);^M
	$start = 0;^M
	$result = '';^M
	$arg_index = 0;^M
	while ( $len > $start ) {^M
		// Last character: append and break^M
		if ( strlen($pattern) - 1 == $start ) {^M
			$result .= substr($pattern, -1);^M
			break;^M
		}^M
^M
		// Literal %: append and continue^M
		if ( substr($pattern, $start, 2) == '%%' ) {^M
			$start += 2;^M
			$result .= '%';^M
			continue;^M
		}^M
^M
		// Get fragment before next %^M
		$end = strpos($pattern, '%', $start + 1);^M
		if ( false === $end )^M
			$end = $len;^M
		$fragment = substr($pattern, $start, $end - $start);^M
^M
		// Fragment has a specifier^M
		if ( $pattern{$start} == '%' ) {^M
			// Find numbered arguments or take the next one in order^M
			if ( preg_match('/^%(\d+)\$/', $fragment, $matches) ) {^M
				$arg = isset($args[$matches[1]]) ? $args[$matches[1]] : '';^M
				$fragment = str_replace("%{$matches[1]}$", '%', $fragment);^M
			} else {^M
				++$arg_index;^M
				$arg = isset($args[$arg_index]) ? $args[$arg_index] : '';^M
			}^M
^M
			// Apply filters OR sprintf^M
			$_fragment = apply_filters( 'wp_sprintf', $fragment, $arg );^M
			if ( $_fragment != $fragment )^M
				$fragment = $_fragment;^M
			else^M
				$fragment = sprintf($fragment, strval($arg) );^M
		}^M
^M
		// Append to result and move to next fragment^M
		$result .= $fragment;^M
		$start = $end;^M
	}^M
	return $result;^M
}^M
^M
/**^M
 * Localize list items before the rest of the content.^M
 *^M
 * The '%l' must be at the first characters can then contain the rest of the^M
 * content. The list items will have ', ', ', and', and ' and ' added depending^M
 * on the amount of list items in the $args parameter.^M
 *^M
 * @since 2.5.0^M
 *^M
 * @param string $pattern Content containing '%l' at the beginning.^M
 * @param array $args List items to prepend to the content and replace '%l'.^M
 * @return string Localized list items and rest of the content.^M
 */^M
function wp_sprintf_l($pattern, $args) {^M
	// Not a match^M
	if ( substr($pattern, 0, 2) != '%l' )^M
		return $pattern;^M
^M
	// Nothing to work with^M
	if ( empty($args) )^M
		return '';^M
^M
	// Translate and filter the delimiter set (avoid ampersands and entities here)^M
	$l = apply_filters('wp_sprintf_l', array(^M
		'between'          => _c(', |between list items'),^M
		'between_last_two' => _c(', and |between last two list items'),^M
		'between_only_two' => _c(' and |between only two list items'),^M
		));^M
^M
	$args = (array) $args;^M
	$result = array_shift($args);^M
	if ( count($args) == 1 )^M
		$result .= $l['between_only_two'] . array_shift($args);^M
	// Loop when more than two args^M
	$i = count($args);^M
	while ( $i ) {^M
		$arg = array_shift($args);^M
		$i--;^M
		if ( $i == 1 )^M
			$result .= $l['between_last_two'] . $arg;^M
		else^M
			$result .= $l['between'] . $arg;^M
	}^M
	return $result . substr($pattern, 2);^M
}^M
^M
/**^M
 * Safely extracts not more than the first $count characters from html string.^M
 *^M
 * UTF-8, tags and entities safe prefix extraction. Entities inside will *NOT*^M
 * be counted as one character. For example & will be counted as 4, < as^M
 * 3, etc.^M
 *^M
 * @since 2.5.0^M
 *^M
 * @param integer $str String to get the excerpt from.^M
 * @param integer $count Maximum number of characters to take.^M
 * @return string The excerpt.^M
 */^M
function wp_html_excerpt( $str, $count ) {^M
	$str = strip_tags( $str );^M
	$str = mb_strcut( $str, 0, $count );^M
	// remove part of an entity at the end^M
	$str = preg_replace( '/&[^;\s]{0,6}$/', '', $str );^M
	return $str;^M
}^M
^M
/**^M
 * Add a Base url to relative links in passed content.^M
 *^M
 * By default it supports the 'src' and 'href' attributes. However this can be^M
 * changed via the 3rd param.^M
 *^M
 * @since 2.7.0^M
 *^M
 * @param string $content String to search for links in.^M
 * @param string $base The base URL to prefix to links.^M
 * @param array $attrs The attributes which should be processed.^M
 * @return string The processed content.^M
 */^M
function links_add_base_url( $content, $base, $attrs = array('src', 'href') ) {^M
	$attrs = implode('|', (array)$attrs);^M
	return preg_replace_callback("!($attrs)=(['\"])(.+?)\\2!i",^M
			create_function('$m', 'return _links_add_base($m, "' . $base . '");'),^M
			$content);^M
}^M
^M
/**^M
 * Callback to add a base url to relative links in passed content.^M
 *^M
 * @since 2.7.0^M
 * @access private^M
 *^M
 * @param string $m The matched link.^M
 * @param string $base The base URL to prefix to links.^M
 * @return string The processed link.^M
 */^M
function _links_add_base($m, $base) {^M
	//1 = attribute name  2 = quotation mark  3 = URL^M
	return $m[1] . '=' . $m[2] .^M
		(strpos($m[3], 'http://') === false ?^M
			path_join($base, $m[3]) :^M
			$m[3])^M
		. $m[2];^M
}^M
^M
/**^M
 * Adds a Target attribute to all links in passed content.^M
 *^M
 * This function by default only applies to <a> tags, however this can be^M
 * modified by the 3rd param.^M
 *^M
 * <b>NOTE:</b> Any current target attributed will be striped and replaced.^M
 *^M
 * @since 2.7.0^M
 *^M
 * @param string $content String to search for links in.^M
 * @param string $target The Target to add to the links.^M
 * @param array $tags An array of tags to apply to.^M
 * @return string The processed content.^M
 */^M
function links_add_target( $content, $target = '_blank', $tags = array('a') ) {^M
	$tags = implode('|', (array)$tags);^M
	return preg_replace_callback("!<($tags)(.+?)>!i",^M
			create_function('$m', 'return _links_add_target($m, "' . $target . '");'),^M
			$content);^M
}^M
/**^M
 * Callback to add a target attribute to all links in passed content.^M
 *^M
 * @since 2.7.0^M
 * @access private^M
 *^M
 * @param string $m The matched link.^M
 * @param string $target The Target to add to the links.^M
 * @return string The processed link.^M
 */^M
function _links_add_target( $m, $target ) {^M
	$tag = $m[1];^M
	$link = preg_replace('|(target=[\'"](.*?)[\'"])|i', '', $m[2]);^M
	return '<' . $tag . $link . ' target="' . $target . '">';^M
}^M
^M
// normalize EOL characters and strip duplicate whitespace^M
function normalize_whitespace( $str ) {^M
	$str  = trim($str);^M
	$str  = str_replace("\r", "\n", $str);^M
	$str  = preg_replace( array( '/\n+/', '/[ \t]+/' ), array( "\n", ' ' ), $str );^M
	return $str;^M
}^M
^M
?>^M