<?php

/**

 * Misc WordPress Administration API.

 *

 * @package WordPress

 * @subpackage Administration

 */

/**

 * Returns whether the server is running Apache with the mod_rewrite module loaded.

 *

 * @since 2.0.0

 *

 */

function got_mod_rewrite() {

	$got_rewrite = apache_mod_loaded( 'mod_rewrite', true );

	/**

	 * Filters whether Apache and mod_rewrite are present.

	 *

	 * This filter was previously used to force URL rewriting for other servers,

	 * like nginx. Use the {@see 'got_url_rewrite'} filter in got_url_rewrite() instead.

	 *

	 * @since 2.5.0

	 *

	 * @see got_url_rewrite()

	 *

	 * @param bool $got_rewrite Whether Apache and mod_rewrite are present.

	 */

	return apply_filters( 'got_rewrite', $got_rewrite );

}

/**

 * Returns whether the server supports URL rewriting.

 *

 * Detects Apache's mod_rewrite, IIS 7.0+ permalink support, and nginx.

 *

 * @since 3.7.0

 *

 * @global bool $is_nginx

 *

 * @return bool Whether the server supports URL rewriting.

 */

function got_url_rewrite() {

	$got_url_rewrite = ( got_mod_rewrite() || $GLOBALS['is_nginx'] || iis7_supports_permalinks() );

	/**

	 * Filters whether URL rewriting is available.

	 *

	 * @since 3.7.0

	 *

	 * @param bool $got_url_rewrite Whether URL rewriting is available.

	 */

	return apply_filters( 'got_url_rewrite', $got_url_rewrite );

}

/**

 * Extracts strings from between the BEGIN and END markers in the .htaccess file.

 *

 * @since 1.5.0

 *

 */

function extract_from_markers( $filename, $marker ) {

	$result = array();

	if ( ! file_exists( $filename ) ) {

		return $result;

	}

	$markerdata = explode( "\n", implode( '', file( $filename ) ) );

	$state = false;

	foreach ( $markerdata as $markerline ) {

		if ( false !== strpos( $markerline, '# END ' . $marker ) ) {

			$state = false;

		}

		if ( $state ) {

			$result[] = $markerline;

		}

		if ( false !== strpos( $markerline, '# BEGIN ' . $marker ) ) {

			$state = true;

		}

	}

	return $result;

}

/**

 * BEGIN and END markers.

 *

 * Replaces existing marked info. Retains surrounding

 * data. Creates file if none exists.

 *

 * @since 1.5.0

 *

 * @param string       $filename  Filename to alter.

 * @param string       $marker    The marker to alter.

 * @param array|string $insertion The new content to insert.

 * @return bool True on write success, false on failure.

 */

function insert_with_markers( $filename, $marker, $insertion ) {

	if ( ! file_exists( $filename ) ) {

		if ( ! is_writable( dirname( $filename ) ) ) {

			return false;

		}

		if ( ! touch( $filename ) ) {

			return false;

		}

	} elseif ( ! is_writeable( $filename ) ) {

		return false;

	}

	if ( ! is_array( $insertion ) ) {

		$insertion = explode( "\n", $insertion );

	}

	$start_marker = "# BEGIN {$marker}";

	$end_marker   = "# END {$marker}";

	$fp = fopen( $filename, 'r+' );

	if ( ! $fp ) {

		return false;

	}

	// Attempt to get a lock. If the filesystem supports locking, this will block until the lock is acquired.

	flock( $fp, LOCK_EX );

	$lines = array();

	while ( ! feof( $fp ) ) {

		$lines[] = rtrim( fgets( $fp ), "\r\n" );

	}

	foreach ( $lines as $line ) {

		if ( ! $found_marker && false !== strpos( $line, $start_marker ) ) {

			$found_marker = true;

			continue;

		} elseif ( ! $found_end_marker && false !== strpos( $line, $end_marker ) ) {

			$found_end_marker = true;

			continue;

		}

		if ( ! $found_marker ) {

			$pre_lines[] = $line;

		} elseif ( $found_marker && $found_end_marker ) {

			$post_lines[] = $line;

		} else {

			$existing_lines[] = $line;

		}

	}

	if ( $existing_lines === $insertion ) {

		flock( $fp, LOCK_UN );

		fclose( $fp );

		return true;

	}

	$new_file_data = implode(

		"\n",

		array_merge(

			$pre_lines,

			array( $start_marker ),

			$insertion,

			array( $end_marker ),

			$post_lines

		)

	);

	fseek( $fp, 0 );

	$bytes = fwrite( $fp, $new_file_data );

	if ( $bytes ) {

		ftruncate( $fp, ftell( $fp ) );

	}

	fflush( $fp );

	flock( $fp, LOCK_UN );

	fclose( $fp );

	return (bool) $bytes;

}

/**

 * Updates the htaccess file with the current rules if it is writable.

 *

 * Always writes to the file if it exists and is writable to ensure that we

 * blank out old rules.

 *

 * @since 1.5.0

 *

 *

 * @return bool|null True on write success, false on failure. Null in multisite.

 */

function save_mod_rewrite_rules() {

	if ( is_multisite() ) {

		return;

	}

	global $wp_rewrite;

	// Ensure get_home_path() is declared.

	$home_path     = get_home_path();

	$htaccess_file = $home_path . '.htaccess';

	/*

	 * If the file doesn't already exist check for write access to the directory

	 * and whether we have some rules. Else check for write access to the file.

	 */

	if ( ( ! file_exists( $htaccess_file ) && is_writable( $home_path ) && $wp_rewrite->using_mod_rewrite_permalinks() ) || is_writable( $htaccess_file ) ) {

		if ( got_mod_rewrite() ) {

			$rules = explode( "\n", $wp_rewrite->mod_rewrite_rules() );

			return insert_with_markers( $htaccess_file, 'WordPress', $rules );

		}

	}

	return false;

}

/**

 * Updates the IIS web.config file with the current rules if it is writable.

 * If the permalinks do not require rewrite rules then the rules are deleted from the web.config file.

 *

 * @since 2.8.0

 *

 *

 * @return bool|null True on write success, false on failure. Null in multisite.

 */

function iis7_save_url_rewrite_rules() {

	if ( is_multisite() ) {

		return;

	}

	global $wp_rewrite;

	// Ensure get_home_path() is declared.

	$home_path       = get_home_path();

	$web_config_file = $home_path . 'web.config';

	if ( iis7_supports_permalinks() && ( ( ! file_exists( $web_config_file ) && win_is_writable( $home_path ) && $wp_rewrite->using_mod_rewrite_permalinks() ) || win_is_writable( $web_config_file ) ) ) {

		$rule = $wp_rewrite->iis7_url_rewrite_rules( false );

		if ( ! empty( $rule ) ) {

			return iis7_add_rewrite_rule( $web_config_file, $rule );

		} else {

			return iis7_delete_rewrite_rule( $web_config_file );

		}

	}

	return false;

}

/**

 * Update the "recently-edited" file for the plugin or theme editor.

 *

 * @since 1.5.0

 *

 * @param string $file

 */

function update_recently_edited( $file ) {

	$oldfiles = (array) get_option( 'recently_edited' );

	if ( $oldfiles ) {

		$oldfiles   = array_reverse( $oldfiles );

		$oldfiles[] = $file;

		$oldfiles   = array_reverse( $oldfiles );

		$oldfiles   = array_unique( $oldfiles );

		if ( 5 < count( $oldfiles ) ) {

			array_pop( $oldfiles );

		}

	} else {

		$oldfiles[] = $file;

	}

	update_option( 'recently_edited', $oldfiles );

}

/**

 * Makes a tree structure for the theme editor's file list.

 *

 * @since 4.9.0

 * @access private

 *

 * @param array $allowed_files List of theme file paths.

 * @return array Tree structure for listing theme files.

 */

function wp_make_theme_file_tree( $allowed_files ) {

	$tree_list = array();

	foreach ( $allowed_files as $file_name => $absolute_filename ) {

		$list     = explode( '/', $file_name );

		$last_dir = &$tree_list;

		foreach ( $list as $dir ) {

			$last_dir =& $last_dir[ $dir ];

		}

		$last_dir = $file_name;

	}

	return $tree_list;

}

/**

 * Outputs the formatted file list for the theme editor.

 *

 * @since 4.9.0

 * @access private

 *

 * @global string $relative_file Name of the file being edited relative to the

 *                               theme directory.

 * @global string $stylesheet    The stylesheet name of the theme being edited.

 *

 * @param array|string $tree  List of file/folder paths, or filename.

 * @param int          $level The aria-level for the current iteration.

 * @param int          $size  The aria-setsize for the current iteration.

 * @param int          $index The aria-posinset for the current iteration.

 */

function wp_print_theme_file_tree( $tree, $level = 2, $size = 1, $index = 1 ) {

	global $relative_file, $stylesheet;

	if ( is_array( $tree ) ) {

		$index = 0;

		$size  = count( $tree );

		foreach ( $tree as $label => $theme_file ) :

			$index++;

			if ( ! is_array( $theme_file ) ) {

				wp_print_theme_file_tree( $theme_file, $level, $index, $size );

				continue;

			}

			?>

			<li role="treeitem" aria-expanded="true" tabindex="-1"

				aria-level="<?php echo esc_attr( $level ); ?>"

				aria-setsize="<?php echo esc_attr( $size ); ?>"

				aria-posinset="<?php echo esc_attr( $index ); ?>">

				<span class="folder-label"><?php echo esc_html( $label ); ?> <span class="screen-reader-text"><?php _e( 'folder' ); ?></span><span aria-hidden="true" class="icon"></span></span>

				<ul role="group" class="tree-folder"><?php wp_print_theme_file_tree( $theme_file, $level + 1, $index, $size ); ?></ul>

			</li>

			<?php

		endforeach;

	} else {

		$filename = $tree;

		$url      = add_query_arg(

			array(

				'file'  => rawurlencode( $tree ),

				'theme' => rawurlencode( $stylesheet ),

			),

			self_admin_url( 'theme-editor.php' )

		);

		?>

		<li role="none" class="<?php echo esc_attr( $relative_file === $filename ? 'current-file' : '' ); ?>">

			<a role="treeitem" tabindex="<?php echo esc_attr( $relative_file === $filename ? '0' : '-1' ); ?>"

				href="<?php echo esc_url( $url ); ?>"

				aria-level="<?php echo esc_attr( $level ); ?>"

				aria-setsize="<?php echo esc_attr( $size ); ?>"

				aria-posinset="<?php echo esc_attr( $index ); ?>">

				<?php

				$file_description = esc_html( get_file_description( $filename ) );

				if ( $file_description !== $filename && wp_basename( $filename ) !== $file_description ) {

					$file_description .= '<br /><span class="nonessential">(' . esc_html( $filename ) . ')</span>';