+function wp_doc_link_parse( $content ) {
+ if ( !is_string( $content ) || empty( $content ) )
+ return array();
+
+ if ( !function_exists('token_get_all') )
+ return array();
+
+ $tokens = token_get_all( $content );
+ $functions = array();
+ $ignore_functions = array();
+ for ( $t = 0, $count = count( $tokens ); $t < $count; $t++ ) {
+ if ( !is_array( $tokens[$t] ) ) continue;
+ if ( T_STRING == $tokens[$t][0] && ( '(' == $tokens[ $t + 1 ] || '(' == $tokens[ $t + 2 ] ) ) {
+ // If it's a function or class defined locally, there's not going to be any docs available
+ if ( ( isset( $tokens[ $t - 2 ][1] ) && in_array( $tokens[ $t - 2 ][1], array( 'function', 'class' ) ) ) || ( isset( $tokens[ $t - 2 ][0] ) && T_OBJECT_OPERATOR == $tokens[ $t - 1 ][0] ) ) {
+ $ignore_functions[] = $tokens[$t][1];
+ }
+ // Add this to our stack of unique references
+ $functions[] = $tokens[$t][1];
+ }
+ }
+
+ $functions = array_unique( $functions );
+ sort( $functions );
+ $ignore_functions = apply_filters( 'documentation_ignore_functions', $ignore_functions );
+ $ignore_functions = array_unique( $ignore_functions );
+
+ $out = array();
+ foreach ( $functions as $function ) {
+ if ( in_array( $function, $ignore_functions ) )
+ continue;
+ $out[] = $function;
+ }
+
+ return $out;
+}
+
+/**
+ * Determines the language to use for CodePress syntax highlighting,
+ * based only on a filename.
+ *
+ * @since 2.8
+ *
+ * @param string $filename The name of the file to be highlighting
+**/
+function codepress_get_lang( $filename ) {
+ $codepress_supported_langs = apply_filters( 'codepress_supported_langs',
+ array( '.css' => 'css',
+ '.js' => 'javascript',
+ '.php' => 'php',
+ '.html' => 'html',
+ '.htm' => 'html',
+ '.txt' => 'text'
+ ) );
+ $extension = substr( $filename, strrpos( $filename, '.' ) );
+ if ( $extension && array_key_exists( $extension, $codepress_supported_langs ) )
+ return $codepress_supported_langs[$extension];
+
+ return 'generic';
+}
+
+/**
+ * Adds Javascript required to make CodePress work on the theme/plugin editors.
+ *
+ * This code is attached to the action admin_print_footer_scripts.
+ *
+ * @since 2.8
+**/
+function codepress_footer_js() {
+ // Script-loader breaks CP's automatic path-detection, thus CodePress.path
+ // CP edits in an iframe, so we need to grab content back into normal form
+ ?><script type="text/javascript">
+/* <![CDATA[ */
+var codepress_path = '<?php echo includes_url('js/codepress/'); ?>';
+jQuery('#template').submit(function(){
+ if (jQuery('#newcontent_cp').length)
+ jQuery('#newcontent_cp').val(newcontent.getCode()).removeAttr('disabled');
+});
+jQuery('#codepress-on').hide();
+jQuery('#codepress-off').show();
+/* ]]> */
+</script>
+<?php
+}
+
+/**
+ * Determine whether to use CodePress or not.
+ *
+ * @since 2.8
+**/
+function use_codepress() {
+
+ if ( isset($_GET['codepress']) ) {
+ $on = 'on' == $_GET['codepress'] ? 'on' : 'off';
+ set_user_setting( 'codepress', $on );
+ } else {
+ $on = get_user_setting('codepress', 'on');
+ }
+
+ if ( 'on' == $on ) {
+ add_action( 'admin_print_footer_scripts', 'codepress_footer_js' );
+ return true;
+ }
+
+ return false;
+}
+
+/**
+ * Saves option for number of rows when listing posts, pages, comments, etc.
+ *
+ * @since 2.8
+**/
+function set_screen_options() {
+
+ if ( isset($_POST['wp_screen_options']) && is_array($_POST['wp_screen_options']) ) {
+ check_admin_referer( 'screen-options-nonce', 'screenoptionnonce' );
+
+ if ( !$user = wp_get_current_user() )
+ return;
+ $option = $_POST['wp_screen_options']['option'];
+ $value = $_POST['wp_screen_options']['value'];
+
+ if ( !preg_match( '/^[a-z_-]+$/', $option ) )
+ return;
+
+ $option = str_replace('-', '_', $option);
+
+ switch ( $option ) {
+ case 'edit_per_page':
+ case 'edit_pages_per_page':
+ case 'edit_comments_per_page':
+ case 'upload_per_page':
+ case 'categories_per_page':
+ case 'edit_tags_per_page':
+ case 'plugins_per_page':
+ $value = (int) $value;
+ if ( $value < 1 || $value > 999 )
+ return;
+ break;
+ default:
+ $value = apply_filters('set-screen-option', false, $option, $value);
+ if ( false === $value )
+ return;
+ break;
+ }
+
+ update_usermeta($user->ID, $option, $value);
+ wp_redirect( remove_query_arg( array('pagenum', 'apage', 'paged'), wp_get_referer() ) );
+ exit;
+ }
+}
+
+function wp_menu_unfold() {
+ if ( isset($_GET['unfoldmenu']) ) {
+ delete_user_setting('mfold');
+ wp_redirect( remove_query_arg( 'unfoldmenu', stripslashes($_SERVER['REQUEST_URI']) ) );
+ exit;
+ }
+}
+
+/**
+ * Check if IIS 7 supports pretty permalinks
+ *
+ * @since 2.8.0
+ *
+ * @return bool
+ */
+function iis7_supports_permalinks() {
+ global $is_iis7;
+
+ $supports_permalinks = false;
+ if ( $is_iis7 ) {
+ /* First we check if the DOMDocument class exists. If it does not exist,
+ * which is the case for PHP 4.X, then we cannot easily update the xml configuration file,
+ * hence we just bail out and tell user that pretty permalinks cannot be used.
+ * This is not a big issue because PHP 4.X is going to be depricated and for IIS it
+ * is recommended to use PHP 5.X NTS.
+ * Next we check if the URL Rewrite Module 1.1 is loaded and enabled for the web site. When
+ * URL Rewrite 1.1 is loaded it always sets a server variable called 'IIS_UrlRewriteModule'.
+ * Lastly we make sure that PHP is running via FastCGI. This is important because if it runs
+ * via ISAPI then pretty permalinks will not work.
+ */
+ $supports_permalinks = class_exists('DOMDocument') && isset($_SERVER['IIS_UrlRewriteModule']) && ( php_sapi_name() == 'cgi-fcgi' );
+ }
+
+ return apply_filters('iis7_supports_permalinks', $supports_permalinks);
+}
+
+/**
+ * Check if rewrite rule for WordPress already exists in the IIS 7 configuration file
+ *
+ * @since 2.8.0
+ *
+ * @return bool
+ * @param string $filename The file path to the configuration file
+ */
+function iis7_rewrite_rule_exists($filename) {
+ if ( ! file_exists($filename) )
+ return false;
+ if ( ! class_exists('DOMDocument') )
+ return false;
+
+ $doc = new DOMDocument();
+ if ( $doc->load($filename) === false )
+ return false;
+ $xpath = new DOMXPath($doc);
+ $rules = $xpath->query('/configuration/system.webServer/rewrite/rules/rule[@name=\'wordpress\']');
+ if ( $rules->length == 0 )
+ return false;
+ else
+ return true;
+}
+
+/**
+ * Delete WordPress rewrite rule from web.config file if it exists there
+ *
+ * @since 2.8.0
+ *
+ * @param string $filename Name of the configuration file
+ * @return bool
+ */
+function iis7_delete_rewrite_rule($filename) {
+ // If configuration file does not exist then rules also do not exist so there is nothing to delete
+ if ( ! file_exists($filename) )
+ return true;
+
+ if ( ! class_exists('DOMDocument') )
+ return false;
+
+ $doc = new DOMDocument();
+ $doc->preserveWhiteSpace = false;
+
+ if ( $doc -> load($filename) === false )
+ return false;
+ $xpath = new DOMXPath($doc);
+ $rules = $xpath->query('/configuration/system.webServer/rewrite/rules/rule[@name=\'wordpress\']');
+ if ( $rules->length > 0 ) {
+ $child = $rules->item(0);
+ $parent = $child->parentNode;
+ $parent->removeChild($child);
+ $doc->formatOutput = true;
+ saveDomDocument($doc, $filename);
+ }
+ return true;
+}
+
+/**
+ * Add WordPress rewrite rule to the IIS 7 configuration file.
+ *
+ * @since 2.8.0
+ *
+ * @param string $filename The file path to the configuration file
+ * @param string $rewrite_rule The XML fragment with URL Rewrite rule
+ * @return bool
+ */
+function iis7_add_rewrite_rule($filename, $rewrite_rule) {
+ if ( ! class_exists('DOMDocument') )
+ return false;
+
+ // If configuration file does not exist then we create one.
+ if ( ! file_exists($filename) ) {
+ $fp = fopen( $filename, 'w');
+ fwrite($fp, '<configuration/>');
+ fclose($fp);
+ }
+
+ $doc = new DOMDocument();
+ $doc->preserveWhiteSpace = false;
+
+ if ( $doc->load($filename) === false )
+ return false;
+
+ $xpath = new DOMXPath($doc);
+
+ // First check if the rule already exists as in that case there is no need to re-add it
+ $wordpress_rules = $xpath->query('/configuration/system.webServer/rewrite/rules/rule[@name=\'wordpress\']');
+ if ( $wordpress_rules->length > 0 )
+ return true;
+
+ // Check the XPath to the rewrite rule and create XML nodes if they do not exist
+ $xmlnodes = $xpath->query('/configuration/system.webServer/rewrite/rules');
+ if ( $xmlnodes->length > 0 ) {
+ $rules_node = $xmlnodes->item(0);
+ } else {
+ $rules_node = $doc->createElement('rules');
+
+ $xmlnodes = $xpath->query('/configuration/system.webServer/rewrite');
+ if ( $xmlnodes->length > 0 ) {
+ $rewrite_node = $xmlnodes->item(0);
+ $rewrite_node->appendChild($rules_node);
+ } else {
+ $rewrite_node = $doc->createElement('rewrite');
+ $rewrite_node->appendChild($rules_node);
+
+ $xmlnodes = $xpath->query('/configuration/system.webServer');
+ if ( $xmlnodes->length > 0 ) {
+ $system_webServer_node = $xmlnodes->item(0);
+ $system_webServer_node->appendChild($rewrite_node);
+ } else {
+ $system_webServer_node = $doc->createElement('system.webServer');
+ $system_webServer_node->appendChild($rewrite_node);
+
+ $xmlnodes = $xpath->query('/configuration');
+ if ( $xmlnodes->length > 0 ) {
+ $config_node = $xmlnodes->item(0);
+ $config_node->appendChild($system_webServer_node);
+ } else {
+ $config_node = $doc->createElement('configuration');
+ $doc->appendChild($config_node);
+ $config_node->appendChild($system_webServer_node);
+ }
+ }
+ }
+ }
+
+ $rule_fragment = $doc->createDocumentFragment();
+ $rule_fragment->appendXML($rewrite_rule);
+ $rules_node->appendChild($rule_fragment);
+
+ $doc->formatOutput = true;
+ saveDomDocument($doc, $filename);
+
+ return true;
+}
+
+/**
+ * Saves the XML document into a file
+ *
+ * @since 2.8.0
+ *
+ * @param DOMDocument $doc
+ * @param string $filename
+ */
+function saveDomDocument($doc, $filename) {
+ $config = $doc->saveXML();
+ $config = preg_replace("/([^\r])\n/", "$1\r\n", $config);
+ $fp = fopen($filename, 'w');
+ fwrite($fp, $config);
+ fclose($fp);
+}
+
+/**
+ * Workaround for Windows bug in is_writable() function
+ *
+ * @since 2.8.0
+ *
+ * @param object $path
+ * @return bool
+ */
+function win_is_writable($path) {
+ /* will work in despite of Windows ACLs bug
+ * NOTE: use a trailing slash for folders!!!
+ * see http://bugs.php.net/bug.php?id=27609
+ * see http://bugs.php.net/bug.php?id=30931
+ */
+
+ if ( $path{strlen($path)-1} == '/' ) // recursively return a temporary file path
+ return win_is_writable($path . uniqid(mt_rand()) . '.tmp');
+ else if ( is_dir($path) )
+ return win_is_writable($path . '/' . uniqid(mt_rand()) . '.tmp');
+ // check tmp file for read/write capabilities
+ $rm = file_exists($path);
+ $f = @fopen($path, 'a');
+ if ($f===false)
+ return false;
+ fclose($f);
+ if ( ! $rm )
+ unlink($path);
+ return true;
+}