<?php

/**

 * Theme, template, and stylesheet functions.

 *

 * @package WordPress

 * @subpackage Template

 */

/**

 * Retrieve name of the current stylesheet.

 *

 * The theme name that the administrator has currently set the front end theme

 * as.

 *

 * For all extensive purposes, the template name and the stylesheet name are

 * going to be the same for most cases.

 *

 * @since 1.5.0

 * @uses apply_filters() Calls 'stylesheet' filter on stylesheet name.

 *

 * @return string Stylesheet name.

 */

function get_stylesheet() {

	return apply_filters('stylesheet', get_option('stylesheet'));

}

/**

 * Retrieve stylesheet directory path for current theme.

 *

 * @since 1.5.0

 * @uses apply_filters() Calls 'stylesheet_directory' filter on stylesheet directory and theme name.

 *

 * @return string Path to current theme directory.

 */

function get_stylesheet_directory() {

	$stylesheet = get_stylesheet();

	$stylesheet_dir = get_theme_root() . "/$stylesheet";

	return apply_filters('stylesheet_directory', $stylesheet_dir, $stylesheet);

}

/**

 * Retrieve stylesheet directory URI.

 *

 * @since 1.5.0

 *

 * @return string

 */

function get_stylesheet_directory_uri() {

	$stylesheet = get_stylesheet();

	$stylesheet_dir_uri = get_theme_root_uri() . "/$stylesheet";

	return apply_filters('stylesheet_directory_uri', $stylesheet_dir_uri, $stylesheet);

}

/**

 * Retrieve URI of current theme stylesheet.

 *

 * The stylesheet file name is 'style.css' which is appended to {@link

 * get_stylesheet_directory_uri() stylesheet directory URI} path.

 *

 * @since 1.5.0

 * @uses apply_filters() Calls 'stylesheet_uri' filter on stylesheet URI path and stylesheet directory URI.

 *

 * @return string

 */

function get_stylesheet_uri() {

	$stylesheet_dir_uri = get_stylesheet_directory_uri();

	$stylesheet_uri = $stylesheet_dir_uri . "/style.css";

	return apply_filters('stylesheet_uri', $stylesheet_uri, $stylesheet_dir_uri);

}

/**

 * Retrieve localized stylesheet URI.

 *

 * The stylesheet directory for the localized stylesheet files are located, by

 * default, in the base theme directory. The name of the locale file will be the

 * locale followed by '.css'. If that does not exist, then the text direction

 * stylesheet will be checked for existence, for example 'ltr.css'.

 *

 * The theme may change the location of the stylesheet directory by either using

 * the 'stylesheet_directory_uri' filter or the 'locale_stylesheet_uri' filter.

 * If you want to change the location of the stylesheet files for the entire

 * WordPress workflow, then change the former. If you just have the locale in a

 * separate folder, then change the latter.

 *

 * @since 2.1.0

 * @uses apply_filters() Calls 'locale_stylesheet_uri' filter on stylesheet URI path and stylesheet directory URI.

 *

 * @return string

 */

function get_locale_stylesheet_uri() {

	global $wp_locale;

	$stylesheet_dir_uri = get_stylesheet_directory_uri();

	$dir = get_stylesheet_directory();

	$locale = get_locale();

	if ( file_exists("$dir/$locale.css") )

		$stylesheet_uri = "$stylesheet_dir_uri/$locale.css";

	elseif ( !empty($wp_locale->text_direction) && file_exists("$dir/{$wp_locale->text_direction}.css") )

		$stylesheet_uri = "$stylesheet_dir_uri/{$wp_locale->text_direction}.css";

	else

		$stylesheet_uri = '';

	return apply_filters('locale_stylesheet_uri', $stylesheet_uri, $stylesheet_dir_uri);

}

/**

 * Retrieve name of the current theme.

 *

 * @since 1.5.0

 * @uses apply_filters() Calls 'template' filter on template option.

 *

 * @return string Template name.

 */

function get_template() {

	return apply_filters('template', get_option('template'));

}

/**

 * Retrieve current theme directory.

 *

 * @since 1.5.0

 * @uses apply_filters() Calls 'template_directory' filter on template directory path and template name.

 *

 * @return string Template directory path.

 */

function get_template_directory() {

	$template = get_template();

	$template_dir = get_theme_root() . "/$template";

	return apply_filters('template_directory', $template_dir, $template);

}

/**

 * Retrieve theme directory URI.

 *

 * @since 1.5.0

 * @uses apply_filters() Calls 'template_directory_uri' filter on template directory URI path and template name.

 *

 * @return string Template directory URI.

 */

function get_template_directory_uri() {

	$template = get_template();

	$template_dir_uri = get_theme_root_uri() . "/$template";

	return apply_filters('template_directory_uri', $template_dir_uri, $template);

}

/**

 * Retrieve theme data from parsed theme file.

 *

 * The description will have the tags filtered with the following HTML elements

 * whitelisted. The <b>'a'</b> element with the <em>href</em> and <em>title</em>

 * attributes. The <b>abbr</b> element with the <em>title</em> attribute. The

 * <b>acronym<b> element with the <em>title</em> attribute allowed. The

 * <b>code</b>, <b>em</b>, and <b>strong</b> elements also allowed.

 *

 * The style.css file must contain theme name, theme URI, and description. The

 * data can also contain author URI, author, template (parent template),

 * version, status, and finally tags. Some of these are not used by WordPress

 * administration panels, but are used by theme directory web sites which list

 * the theme.

 *

 * @since 1.5.0

 *

 * @param string $theme_file Theme file path.

 * @return array Theme data.

 */

function get_theme_data( $theme_file ) {

	$themes_allowed_tags = array(

		'a' => array(

			'href' => array(),'title' => array()

			),

		'abbr' => array(

			'title' => array()

			),

		'acronym' => array(

			'title' => array()

			),

		'code' => array(),

		'em' => array(),

		'strong' => array()

	);

	$theme_data = implode( '', file( $theme_file ) );

	$theme_data = str_replace ( '\r', '\n', $theme_data );

	if ( preg_match( '|Theme Name:(.*)$|mi', $theme_data, $theme_name ) )

		$name = $theme = wp_kses( _cleanup_header_comment($theme_name[1]), $themes_allowed_tags );

	else

		$name = $theme = '';

	if ( preg_match( '|Theme URI:(.*)$|mi', $theme_data, $theme_uri ) )

		$theme_uri = esc_url( _cleanup_header_comment($theme_uri[1]) );

	else

		$theme_uri = '';

	if ( preg_match( '|Description:(.*)$|mi', $theme_data, $description ) )

		$description = wptexturize( wp_kses( _cleanup_header_comment($description[1]), $themes_allowed_tags ) );

	else

		$description = '';

	if ( preg_match( '|Author URI:(.*)$|mi', $theme_data, $author_uri ) )

		$author_uri = esc_url( _cleanup_header_comment($author_uri[1]) );

	else

		$author_uri = '';

	if ( preg_match( '|Template:(.*)$|mi', $theme_data, $template ) )

		$template = wp_kses( _cleanup_header_comment($template[1]), $themes_allowed_tags );

	else

		$template = '';

	if ( preg_match( '|Version:(.*)|i', $theme_data, $version ) )

		$version = wp_kses( _cleanup_header_comment($version[1]), $themes_allowed_tags );

	else

		$version = '';

	if ( preg_match('|Status:(.*)|i', $theme_data, $status) )

		$status = wp_kses( _cleanup_header_comment($status[1]), $themes_allowed_tags );

	else

		$status = 'publish';

	if ( preg_match('|Tags:(.*)|i', $theme_data, $tags) )

		$tags = array_map( 'trim', explode( ',', wp_kses( _cleanup_header_comment($tags[1]), array() ) ) );

	else

		$tags = array();

	if ( preg_match( '|Author:(.*)$|mi', $theme_data, $author_name ) ) {

		if ( empty( $author_uri ) ) {

			$author = wp_kses( _cleanup_header_comment($author_name[1]), $themes_allowed_tags );

		} else {

			$author = sprintf( '<a href="%1$s" title="%2$s">%3$s</a>', $author_uri, __( 'Visit author homepage' ), wp_kses( _cleanup_header_comment($author_name[1]), $themes_allowed_tags ) );

		}

	} else {

		$author = __('Anonymous');

	}

	return array( 'Name' => $name, 'Title' => $theme, 'URI' => $theme_uri, 'Description' => $description, 'Author' => $author, 'Version' => $version, 'Template' => $template, 'Status' => $status, 'Tags' => $tags );

}

/**

 * Retrieve list of themes with theme data in theme directory.

 *

 * The theme is broken, if it doesn't have a parent theme and is missing either

 * style.css and, or index.php. If the theme has a parent theme then it is

 * broken, if it is missing style.css; index.php is optional. The broken theme

 * list is saved in the {@link $wp_broken_themes} global, which is displayed on

 * the theme list in the administration panels.

 *

 * @since 1.5.0

 * @global array $wp_broken_themes Stores the broken themes.

 * @global array $wp_themes Stores the working themes.

 *

 * @return array Theme list with theme data.

 */

function get_themes() {

	global $wp_themes, $wp_broken_themes;

	if ( isset($wp_themes) )

		return $wp_themes;

	$themes = array();

	$wp_broken_themes = array();

	$theme_loc = $theme_root = get_theme_root();

	if ( '/' != WP_CONTENT_DIR ) // don't want to replace all forward slashes, see Trac #4541

		$theme_loc = str_replace(WP_CONTENT_DIR, '', $theme_root);

	// Files in wp-content/themes directory and one subdir down

	$themes_dir = @ opendir($theme_root);

	if ( !$themes_dir )

		return false;

	while ( ($theme_dir = readdir($themes_dir)) !== false ) {

		if ( is_dir($theme_root . '/' . $theme_dir) && is_readable($theme_root . '/' . $theme_dir) ) {

			if ( $theme_dir{0} == '.' || $theme_dir == '..' || $theme_dir == 'CVS' )

				continue;

			$stylish_dir = @ opendir($theme_root . '/' . $theme_dir);

			$found_stylesheet = false;

			while ( ($theme_file = readdir($stylish_dir)) !== false ) {

				if ( $theme_file == 'style.css' ) {

					$theme_files[] = $theme_dir . '/' . $theme_file;

					$found_stylesheet = true;

					break;

				}

			}

			@closedir($stylish_dir);

			if ( !$found_stylesheet ) { // look for themes in that dir

				$subdir = "$theme_root/$theme_dir";

				$subdir_name = $theme_dir;

				$theme_subdir = @ opendir( $subdir );

				while ( ($theme_dir = readdir($theme_subdir)) !== false ) {

					if ( is_dir( $subdir . '/' . $theme_dir) && is_readable($subdir . '/' . $theme_dir) ) {

						if ( $theme_dir{0} == '.' || $theme_dir == '..' || $theme_dir == 'CVS' )

							continue;

						$stylish_dir = @ opendir($subdir . '/' . $theme_dir);

						$found_stylesheet = false;

						while ( ($theme_file = readdir($stylish_dir)) !== false ) {

							if ( $theme_file == 'style.css' ) {

								$theme_files[] = $subdir_name . '/' . $theme_dir . '/' . $theme_file;

								$found_stylesheet = true;

								break;

							}

						}

						@closedir($stylish_dir);

					}

				}

				@closedir($theme_subdir);

				$wp_broken_themes[$theme_dir] = array('Name' => $theme_dir, 'Title' => $theme_dir, 'Description' => __('Stylesheet is missing.'));

			}

		}

	}

	if ( is_dir( $theme_dir ) )

		@closedir( $theme_dir );

	if ( !$themes_dir || !$theme_files )

		return $themes;

	sort($theme_files);

	foreach ( (array) $theme_files as $theme_file ) {

		if ( !is_readable("$theme_root/$theme_file") ) {

			$wp_broken_themes[$theme_file] = array('Name' => $theme_file, 'Title' => $theme_file, 'Description' => __('File not readable.'));

			continue;

		}

		$theme_data = get_theme_data("$theme_root/$theme_file");

		$name        = $theme_data['Name'];

		$title       = $theme_data['Title'];

		$description = wptexturize($theme_data['Description']);

		$version     = $theme_data['Version'];

		$author      = $theme_data['Author'];

		$template    = $theme_data['Template'];

		$stylesheet  = dirname($theme_file);

		$screenshot = false;

		foreach ( array('png', 'gif', 'jpg', 'jpeg') as $ext ) {

			if (file_exists("$theme_root/$stylesheet/screenshot.$ext")) {

				$screenshot = "screenshot.$ext";

				break;

			}

		}

		if ( empty($name) ) {

			$name = dirname($theme_file);

			$title = $name;

		}

		if ( empty($template) ) {

			if ( file_exists(dirname("$theme_root/$theme_file/index.php")) )

				$template = dirname($theme_file);

			else

				continue;

		}

		$template = trim($template);

		if ( !file_exists("$theme_root/$template/index.php") ) {

			$parent_dir = dirname(dirname($theme_file));

			if ( file_exists("$theme_root/$parent_dir/$template/index.php") ) {

				$template = "$parent_dir/$template";

			} else {

				$wp_broken_themes[$name] = array('Name' => $name, 'Title' => $title, 'Description' => __('Template is missing.'));

				continue;

			}

		}

		$stylesheet_files = array();

		$template_files = array();

		$stylesheet_dir = @ dir("$theme_root/$stylesheet");

		if ( $stylesheet_dir ) {

			while ( ($file = $stylesheet_dir->read()) !== false ) {

				if ( !preg_match('|^\.+$|', $file) ) {

					if ( preg_match('|\.css$|', $file) )

						$stylesheet_files[] = "$theme_loc/$stylesheet/$file";

					elseif ( preg_match('|\.php$|', $file) )

						$template_files[] = "$theme_loc/$stylesheet/$file";

				}

			}

			@ $stylesheet_dir->close();

		}

		$template_dir = @ dir("$theme_root/$template");

		if ( $template_dir ) {

			while ( ($file = $template_dir->read()) !== false ) {

				if ( preg_match('|^\.+$|', $file) )

					continue;

				if ( preg_match('|\.php$|', $file) ) {

					$template_files[] = "$theme_loc/$template/$file";

				} elseif ( is_dir("$theme_root/$template/$file") ) {

					$template_subdir = @ dir("$theme_root/$template/$file");

					while ( ($subfile = $template_subdir->read()) !== false ) {

						if ( preg_match('|^\.+$|', $subfile) )

							continue;

						if ( preg_match('|\.php$|', $subfile) )

							$template_files[] = "$theme_loc/$template/$file/$subfile";

					}

					@ $template_subdir->close();

				}

			}

			@ $template_dir->close();

		}

		$template_dir = dirname($template_files[0]);

		$stylesheet_dir = dirname($stylesheet_files[0]);

		if ( empty($template_dir) )

			$template_dir = '/';

		if ( empty($stylesheet_dir) )

			$stylesheet_dir = '/';

		// Check for theme name collision.  This occurs if a theme is copied to

		// a new theme directory and the theme header is not updated.  Whichever

		// theme is first keeps the name.  Subsequent themes get a suffix applied.

		// The Default and Classic themes always trump their pretenders.

		if ( isset($themes[$name]) ) {

			if ( ('WordPress Default' == $name || 'WordPress Classic' == $name) &&