<?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

 *

 * @return bool Whether the server is running Apache with the mod_rewrite module loaded.

 */

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

 * @global bool $is_caddy

 *

 * @return bool Whether the server supports URL rewriting.

 */

function got_url_rewrite() {

	$got_url_rewrite = ( got_mod_rewrite() || $GLOBALS['is_nginx'] || $GLOBALS['is_caddy'] || 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

 *

 * @param string $filename Filename to extract the strings from.

 * @param string $marker   The marker to extract the strings from.

 * @return string[] An array of strings from a file (.htaccess) from between BEGIN and END markers.

 */

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 ( str_contains( $markerline, '# END ' . $marker ) ) {

			$state = false;

		}

		if ( $state ) {

			if ( str_starts_with( $markerline, '#' ) ) {

				continue;

			}

			$result[] = $markerline;

		}

		if ( str_contains( $markerline, '# BEGIN ' . $marker ) ) {

			$state = true;

		}

	}

	return $result;

}

/**

 * Inserts an array of strings into a file (.htaccess), placing it between

 * 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;

		}

		// Make sure the file is created with a minimum set of permissions.

		$perms = fileperms( $filename );

		if ( $perms ) {

			chmod( $filename, $perms | 0644 );

		}

	} elseif ( ! is_writable( $filename ) ) {

		return false;

	}

	if ( ! is_array( $insertion ) ) {

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

	}

	$switched_locale = switch_to_locale( get_locale() );

	$instructions = sprintf(

		/* translators: 1: Marker. */

		__(

			'The directives (lines) between "BEGIN %1$s" and "END %1$s" are

dynamically generated, and should only be modified via WordPress filters.

Any changes to the directives between these markers will be overwritten.'

		),

		$marker

	);

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

	foreach ( $instructions as $line => $text ) {

		$instructions[ $line ] = '# ' . $text;

	}

	/**

	 * Filters the inline instructions inserted before the dynamically generated content.

	 *

	 * @since 5.3.0

	 *

	 * @param string[] $instructions Array of lines with inline instructions.

	 * @param string   $marker       The marker being inserted.

	 */

	$instructions = apply_filters( 'insert_with_markers_inline_instructions', $instructions, $marker );

	if ( $switched_locale ) {

		restore_previous_locale();

	}

	$insertion = array_merge( $instructions, $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" );

	}

	// Split out the existing file into the preceding lines, and those that appear after the marker.

	$pre_lines        = array();

	$post_lines       = array();

	$existing_lines   = array();

	$found_marker     = false;

	$found_end_marker = false;

	foreach ( $lines as $line ) {

		if ( ! $found_marker && str_contains( $line, $start_marker ) ) {

			$found_marker = true;

			continue;

		} elseif ( ! $found_end_marker && str_contains( $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;

		}

	}

	// Check to see if there was a change.

	if ( $existing_lines === $insertion ) {

		flock( $fp, LOCK_UN );

		fclose( $fp );

		return true;

	}

	// Generate the new file data.

	$new_file_data = implode(

		"\n",

		array_merge(

			$pre_lines,

			array( $start_marker ),

			$insertion,

			array( $end_marker ),

			$post_lines

		)

	);

	// Write to the start of the file, and truncate it to that length.

	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

 *

 * @global WP_Rewrite $wp_rewrite WordPress rewrite component.

 *

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

 */

function save_mod_rewrite_rules() {

	global $wp_rewrite;

	if ( is_multisite() ) {

		return;

	}

	// Ensure get_home_path() is declared.

	require_once ABSPATH . 'wp-admin/includes/file.php';

	$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

 *

 * @global WP_Rewrite $wp_rewrite WordPress rewrite component.

 *

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

 */

function iis7_save_url_rewrite_rules() {

	global $wp_rewrite;

	if ( is_multisite() ) {

		return;

	}

	// Ensure get_home_path() is declared.

	require_once ABSPATH . 'wp-admin/includes/file.php';

	$home_path       = get_home_path();

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

	// Using win_is_writable() instead of is_writable() because of a bug in Windows PHP.

	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;

}

/**

 * Updates the "recently-edited" file for the plugin or theme file 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 file 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 file 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