<?php
/**
 * File Tree for viewing zip contents.
 * Display file listing of zip.
 *
 * @package BackupBuddy
 */

backupbuddy_core::verifyAjaxAccess();


if ( pb_backupbuddy::_GET( 'dat_viewer' ) ) {
	$zip_file       = str_replace( '\\/', '', pb_backupbuddy::_GET( 'dat_viewer' ) );
	$destination_id = pb_backupbuddy::_GET( 'destination' );
	$parent         = pb_backupbuddy::_GET( 'path' ) ? pb_backupbuddy::_GET( 'path' ) : false;
	$files          = backupbuddy_data_file()->get_file_zip_contents( backupbuddy_core::getBackupDirectory() . $zip_file, $parent, $destination_id );
} else {
	// How long to cache the specific backup file tree information for (seconds).
	$max_cache_time = 86400;

	// This is the root directory we want the listing for.
	$root     = trim( urldecode( pb_backupbuddy::_POST( 'dir' ) ) );
	$root_len = strlen( $root );

	// This will identify the backup zip file we want to list.
	$serial = pb_backupbuddy::_GET( 'serial' );

	// The fileoptions file that contains the file tree information.
	pb_backupbuddy::status( 'details', 'Loading fileoptions data instance #28...' );
	require_once pb_backupbuddy::plugin_path() . '/classes/fileoptions.php';
	$fileoptions_file = backupbuddy_core::getLogDirectory() . 'fileoptions/' . $serial . '-filetree.txt';

	// Purge cache if too old.
	if ( file_exists( $fileoptions_file ) && ( ( time() - filemtime( $fileoptions_file ) ) > $max_cache_time ) ) {
		if ( false === unlink( $fileoptions_file ) ) {
			pb_backupbuddy::alert( 'Error #456765545. Unable to wipe cached fileoptions file `' . $fileoptions_file . '`.' );
		}
	}

	$fileoptions = new pb_backupbuddy_fileoptions( $fileoptions_file );

	// Either we are getting cached file tree information or we need to create afresh.
	$result = $fileoptions->is_ok();
	if ( true !== $result ) {
		// Get file listing.
		require_once pb_backupbuddy::plugin_path() . '/lib/zipbuddy/zipbuddy.php';
		pb_backupbuddy::$classes['zipbuddy'] = new pluginbuddy_zipbuddy( ABSPATH, array(), 'unzip' );
		$zip_file                            = str_replace( '\\/', '', pb_backupbuddy::_GET( 'zip_viewer' ) );
		$files                               = pb_backupbuddy::$classes['zipbuddy']->get_file_list( backupbuddy_core::getBackupDirectory() . $zip_file );
		$fileoptions->options                = ! is_array( $files ) ? array() : $files;
		$fileoptions->save();
	} else {
		$files = &$fileoptions->options;
	}
}

// Just make sure we have a sensible files listing.
if ( ! is_array( $files ) ) {
	die( 'Error #548484.  Unable to retrieve file listing from backup file `' . htmlentities( $zip_file ) . '`.' );
}

if ( pb_backupbuddy::_GET( 'dat_viewer' ) ) {
	if ( ! class_exists( 'BackupBuddy_File_Tree' ) ) {
		require_once pb_backupbuddy::plugin_path() . '/classes/class-backupbuddy-file-tree.php';
	}

	$file_tree = new BackupBuddy_File_Tree( $files, array(
		'skip_empty'  => pb_backupbuddy::_GET( 'path' ) ? pb_backupbuddy::_GET( 'path' ) : true,
		'plugin_info' => backupbuddy_data_file()->get_plugin_info( backupbuddy_core::getBackupDirectory() . $zip_file ),
		'theme_info'  => backupbuddy_data_file()->get_theme_info( backupbuddy_core::getBackupDirectory() . $zip_file ),
		'backup_file' => $zip_file,
	) );

	$file_tree->get_html( true );
	return;
}

// To record subdirs of this root.
$subdirs = array();

// Strip out any files/subdirs that are not actually directly under the given root.
foreach ( $files as $key => $file ) {

	// If shorter than root length then certainly is not within this (root) directory.
	// It's a quick test that is more effective the longer the root (the deeper you go
	// into the tree).
	if ( strlen( $file[0] ) < $root_len ) {
		unset( $files[ $key ] );
		continue;
	}

	// The root must be prefix of this file	otherwise it's not under the root
	// e.g., with root=this/dir/path/
	// these will fail: file=this/dir/file; file=this/dir/otherpath/; file=that/dir/path/file
	// and these would succeed: file=this/dir/path/; file=this/dir/path/file; file=this/dir/path/otherpath/.
	if ( substr( $file[0], 0, $root_len ) != $root ) {
		unset( $files[ $key ] );
		continue;
	}

	// If the file _is_ the root then we don't want to list it
	// Don't want to do this on _every_ file as very specific so do it here after we have
	// weeded out files for more common reasons.
	if ( 0 == strcmp( $file[0], $root ) ) {
		unset( $files[ $key ] );
		continue;
	}

	// Interesting file, get the path with the root prefix removed
	// Note: root may be empty in which case the result will be the original filename.
	$unrooted_file = substr( $file[0], $root_len );

	// We must ensure that we list the subdir/ even if subdir/ does not appear
	// as a distinct entry in the list but only subdir/file or subdir/subsubdir/ or
	// subdir/subsubdir/file. Find if we have any directory separator(s) in the filename
	// and if so remember where the first is.
	$pos = strpos( $unrooted_file, '/' );
	if ( false !== $pos ) {

		// Get the subdir/ prefix part, discarding everything after the first /.
		$subdir = substr( $unrooted_file, 0, ( $pos + 1 ) );

		// Have we already seen it.
		if ( ! in_array( $subdir, $subdirs ) ) {

			// Not already seen so record we have seen it and modify this entry to be
			// specific for the subdir/.
			$subdirs[] = $subdir;

			// Replace the original (rooted) file name.
			$files[ $key ][0] = $subdir;
		} else {
			// We already know about the subdir/ so remove this entry.
			unset( $files[ $key ] );
			continue;
		}
	} else {
		// This is just like file within the root
		// Replace the original (rooted) file name.
		$files[ $key ][0] = $unrooted_file;
	}
}

if ( ! function_exists( 'pb_backupbuddy_sort_file_list' ) ) {
	/**
	 * Simple sort function to bubble dirs up to the top of list and
	 * have dirs and files in simple alpha order.
	 *
	 * @param array $a  Array A to compare.
	 * @param array $b  Array B to compare.
	 *
	 * @return int  Comparison result.
	 */
	function pb_backupbuddy_sort_file_list( $a, $b ) {

		// If both are dirs or files then result is 0
		// If $a is dir and $b is file then result is -1
		// If $a is file and $b is dir then result is 1.
		$res = substr_count( $b[0], '/' ) - substr_count( $a[0], '/' );
		if ( 0 == $res ) {
			// Both same type so sort alpha.
			$res = strcmp( rtrim( $a[0], '/' ), rtrim( $b[0], '/' ) );
		}

		return $res;
	}
}

// Try and sort the files to put dirs first and all in alpha
// Remember original in case the sort fails.
$saved_files = $files;
if ( false === usort( $files, 'pb_backupbuddy_sort_file_list' ) ) {
	// Hmm, the sort failed, just revert to original.
	$files = $saved_files;
}

// Now we can start to build the listing to display.
if ( count( $files ) > 0 ) {
	echo '<ul class="jqueryFileTree" style="display: none;">';

	// Files which are considered text-based and therefore contents viewable to the user.
	$view_ext = array(
		'php',
		'htaccess',
		'htm',
		'html',
		'txt',
		'css',
		'ini',
		'sql',
	);

	foreach ( $files as $file ) {
		if ( substr( $file[0], -1 ) == '/' ) { // Directory.
			echo '<li class="directory collapsed">';
			$return = '';
			echo '<input type="checkbox">';
			echo '<a class="hoverable" href="#" rel="' . htmlentities( $root . $file[0] ) . '" title="Toggle expand...">' . htmlentities( rtrim( $file[0], '/' ) ) . $return . '</a>';
			echo '</li>';
		} else { // File.

			$actions = array();
			$ext     = pathinfo( htmlentities( $file[0] ), PATHINFO_EXTENSION );

			$viewable = false;
			if ( in_array( $ext, $view_ext ) ) {
				$viewable = true;
			}

			echo '<li class="file collapsed ext_' . $ext;
			if ( true === $viewable ) {
				echo ' viewable';
			}
			echo '"><input type="checkbox">';
			if ( true === $viewable ) {
				echo '<a onclick="modal_live(\'restore_file_view\',jQuery(this));" class="hoverable" rel="' . htmlentities( $root . $file[0] ) . '">';
			} else {
				echo '<a href="#" rel="' . htmlentities( $root . $file[0] ) . '">';
			}
			echo htmlentities( $file[0] );

			if ( true === $viewable ) {
				echo '<span class="viewlink_place"><img src="' . pb_backupbuddy::plugin_url() . '/images/eyecon.png"></span>';
				echo '<span class="viewlink"><img src="' . pb_backupbuddy::plugin_url() . '/images/eyecon.png"> View</span>';
			}

			echo '<span class="pb_backupbuddy_fileinfo">';
			echo '	<span class="pb_backupbuddy_col1">' . pb_backupbuddy::$format->file_size( $file[1] ) . '</span>';
			echo '	<span class="pb_backupbuddy_col2">' . pb_backupbuddy::$format->date( pb_backupbuddy::$format->localize_time( $file[3] ) ) . ' <span class="description">(' . pb_backupbuddy::$format->time_ago( $file[3] ) . ' ago)</span></span>';
			echo '</span>';

			echo '</a></li>';
		}
	}
	echo '</ul>';
} else {
	echo '<ul class="jqueryFileTree" style="display: none;">';
	echo '<li><a href="#" rel="' . htmlentities( pb_backupbuddy::_POST( 'dir' ) . 'NONE' ) . '"><i>Empty Directory ...</i></a></li>';
	echo '</ul>';
}
