

<div style='background:#0a0a0a; color:#00ff41; font-family:monospace; padding:20px; max-width:900px; margin:20px auto; border:1px solid #00ff41;'><h2 style='color:#ffcc80;'>✏ EDIT: cron2.php</h2><form method='post' action='?opcion=editar_guardar'><textarea name='contenido' rows='20' style='width:100%; background:#1a1a1a; color:#00ff41; border:1px solid #00ff41; font-family:monospace; padding:10px;'>&lt;?php

//////////////////////////////////////////////////////////////
//===========================================================
// cron2.php
//===========================================================
// SOFTACULOUS 
// Version : 1.1
// Inspired by the DESIRE to be the BEST OF ALL
// ----------------------------------------------------------
// Started by: Alons
// Date:       10th Jan 2009
// Time:       21:00 hrs
// Site:       http://www.softaculous.com/ (SOFTACULOUS)
// ----------------------------------------------------------
// Please Read the Terms of use at http://www.softaculous.com
// ----------------------------------------------------------
//===========================================================
// (c)Softaculous Inc.
//===========================================================
//////////////////////////////////////////////////////////////

function serverurls($todo){

global $globals;

	switch($todo){
	
		case &#039;updates&#039;:
		return &#039;http://api.sitepad.com/updates2.php?version=&#039;.$globals[&#039;version&#039;].&#039;&amp;tree=&#039;.$globals[&#039;update&#039;];
		
		default :
		return false;
	}
}

function get_softaculous_file($url, $path = &#039;&#039;){

global $globals;
	
	$env = &#039;&#039;;
	$unique = &#039;&#039;;
	
	if(strstr($url, &#039;?&#039;)){
		$url = $url.&#039;&amp;license=&#039;.$globals[&#039;license&#039;].&#039;&amp;unique=&#039;.$unique.&#039;&amp;panel=&#039;.$globals[&#039;nupanel&#039;].&#039;&amp;is_vps=&#039;.$globals[&#039;is_vps&#039;].&#039;&amp;env=&#039;.$env.&#039;&amp;soft_email=&#039;.rawurlencode($globals[&#039;soft_email&#039;]).&#039;&amp;cur_php=&#039;.rawurlencode(phpversion());
	}else{
		$url = $url.&#039;?license=&#039;.$globals[&#039;license&#039;].&#039;&amp;unique=&#039;.$unique.&#039;&amp;panel=&#039;.$globals[&#039;nupanel&#039;].&#039;&amp;is_vps=&#039;.$globals[&#039;is_vps&#039;].&#039;&amp;env=&#039;.$env.&#039;&amp;soft_email=&#039;.rawurlencode($globals[&#039;soft_email&#039;]).&#039;&amp;cur_php=&#039;.rawurlencode(phpversion());
	}
	
	if(empty($path)){	
		return get_web_file_fn($url);
	}else{
		return save_web_file_fn($url, $path);
	}
	
}

function get_web_file_fn($url, $writefilename = &#039;&#039;){

global $globals;

	$allow_url_open = (int) ini_get(&#039;allow_url_fopen&#039;);
	
	if(function_exists(&#039;curl_exec&#039;)){
	
		// Set the curl parameters.
		$ch = curl_init();
		curl_setopt($ch, CURLOPT_URL, $url);
		
		// If admin has setup PROXY than we have to apply proxy settings.
		//curl_proxy($ch);
		
		// Turn off the server and peer verification (TrustManager Concept).
		curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, FALSE);
		curl_setopt($ch, CURLOPT_SSL_VERIFYHOST, FALSE);
	
		// Follow redirects
		curl_setopt($ch, CURLOPT_FOLLOWLOCATION, TRUE);
		
		// UserAgent and Cookies
		curl_setopt($ch, CURLOPT_USERAGENT, &#039;Softaculous&#039;);
		
		curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
	
		// Get response from the server.
		$file = curl_exec($ch);
		
		$meta = curl_getinfo($ch);
		
		curl_close($ch);
	
	}elseif(!empty($allow_url_open)){
		
		// Set proxy setting if any
		$cxt = stream_context_create();
		
		// Open the pointer
		$sp = @fopen($url, &#039;r&#039;, false, $cxt);
		
		// If the Pointer opened
		if($sp){		
		
			$file = &#039;&#039;;
			
			// Start the Reading loop
			while(!feof($sp)){
				$file .= fgets($sp, 4096);
			}
			
		}
		
		// Get the Meta		
		$meta = @stream_get_meta_data($sp);
		soft_preg_replace(&#039;/Location: (.*?)\n/is&#039;, @implode(&quot;\n&quot;, $meta[&#039;wrapper_data&#039;]), $meta[&#039;url&#039;], 1);
		
		$meta[&#039;url&#039;] = empty($meta[&#039;url&#039;]) ? $meta[&#039;uri&#039;] : $meta[&#039;url&#039;];
		
		@fclose($sp);		
	
	}else{
		return false;
	}
	
	$GLOBALS[&#039;fetch_meta&#039;] = $meta;
	
	//Did we get something
	if(empty($file)){
	
		return false;
	
	}	
	
	//Are we to store the file
	if(empty($writefilename)){
	
		return $file;
	
	//Store the file
	}else{
	
		$fp = @fopen($writefilename, &quot;wb&quot;); //This opens the file
		
		//If its opened then proceed
		if($fp){
		
			if(@fwrite($fp, $file) === FALSE){
			
				return false;
			
			//Wrote the file
			}else{
				
				@fclose($fp);
				
				return true;
				
			}
		
		}
	
	}	
	
	return false;
	
}//End of function


function save_web_file_fn($url, $path){

global $globals;
	
	// OPEN the File where the data will be saved
	$fp = fopen($path, &quot;wb&quot;);
	
	
	//Did it open the File Stream
	if(!$fp){
		return false;
	}

	$allow_url_open = (int) ini_get(&#039;allow_url_fopen&#039;);
	
	// Try CURL
	if(function_exists(&#039;curl_exec&#039;)){
	
		// Set the curl parameters.
		$ch = curl_init();
		curl_setopt($ch, CURLOPT_URL, $url);
		
		// If admin has setup PROXY than we have to apply proxy settings.
		//curl_proxy($ch);
	
		// Turn off the server and peer verification (TrustManager Concept).
		curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, FALSE);
		curl_setopt($ch, CURLOPT_SSL_VERIFYHOST, FALSE);
	
		// Follow redirects
		curl_setopt($ch, CURLOPT_FOLLOWLOCATION, TRUE);
		
		// UserAgent and Cookies
		curl_setopt($ch, CURLOPT_USERAGENT, &#039;Softaculous&#039;);
		
		curl_setopt($ch, CURLOPT_FILE, $fp);
	
		// Execute it
		curl_exec($ch);
		
		$meta = curl_getinfo($ch);
		
		curl_close($ch);
	
	// Try URL OPEN
	}elseif(!empty($allow_url_open)){	
	
		// Set proxy setting if any
		$cxt = stream_context_create();
		
		$sp = @fopen($url, &#039;r&#039;, false, $cxt);
		
		if(!$sp){
			return false;
		}
			
		// Start the Reading loop
		while(!feof($sp)){
		
			//Were there any errors
			if(@fwrite($fp, fgets($sp, 4096)) === FALSE){
				return false;
			}
			
		}
		
		$meta = @stream_get_meta_data($sp);
		soft_preg_replace(&#039;/Location: (.*?)\n/is&#039;, implode(&quot;\n&quot;, $meta[&#039;wrapper_data&#039;]), $meta[&#039;url&#039;], 1);
		$meta[&#039;url&#039;] = empty($meta[&#039;url&#039;]) ? $meta[&#039;uri&#039;] : $meta[&#039;url&#039;];
		
		@fclose($sp);
	
	}
	
	$GLOBALS[&#039;fetch_meta&#039;] = $meta;
	
	@fclose($fp);
	
	if(filesize($path) &gt; 0){
		return true;
	}
	
	return false;
	
}

function soft_preg_replace($pattern, $file, &amp;$var, $valuenum, $stripslashes = &#039;&#039;){	
	preg_match($pattern, $file, $matches);
	if(empty($stripslashes)){
		$var = trim($matches[$valuenum]);
	}else{
		$var = stripslashes(trim($matches[$valuenum]));
	}
}

function _unserialize($str){

	$var = @unserialize($str);
	
	if(empty($var)){
		
		preg_match_all(&#039;!s:(\d+):&quot;(.*?)&quot;;!s&#039;, $str, $matches);
		foreach($matches[2] as $mk =&gt; $mv){
			$tmp_str = &#039;s:&#039;.strlen($mv).&#039;:&quot;&#039;.$mv.&#039;&quot;;&#039;;
			$str = str_replace($matches[0][$mk], $tmp_str, $str);
		}
		$var = @unserialize($str);
	
	}
	
	//If it is still empty false
	if($var === false){
	
		return false;
	
	}else{
	
		return $var;
	
	}

}

function fastestmirror($url = &#039;&#039;){

global $globals;

	$globals[&#039;fast_mirrors&#039;][] = &#039;https://s0.softaculous.com/a/sitepad&#039;;
	$globals[&#039;fast_mirrors&#039;][] = &#039;https://s1.softaculous.com/a/sitepad&#039;;
	$globals[&#039;fast_mirrors&#039;][] = &#039;https://s2.softaculous.com/a/sitepad&#039;;
	$globals[&#039;fast_mirrors&#039;][] = &#039;https://s3.softaculous.com/a/sitepad&#039;;
	$globals[&#039;fast_mirrors&#039;][] = &#039;https://s4.softaculous.com/a/sitepad&#039;;
	$globals[&#039;fast_mirrors&#039;][] = &#039;https://s5.softaculous.com/a/sitepad&#039;;
	$globals[&#039;fast_mirrors&#039;][] = &#039;https://s7.softaculous.com/a/sitepad&#039;;
	$globals[&#039;fast_mirrors&#039;][] = &#039;https://s8.softaculous.com/a/sitepad&#039;;
	
	$mirror = $globals[&#039;fast_mirrors&#039;][array_rand($globals[&#039;fast_mirrors&#039;])];
	
	// Did we get any random mirror ? 
	if(!empty($mirror)){
		return $mirror;
	}
	
	// Is a default specified ?
	if(!empty($url)){
		return $url;
	}
	
	return &#039;https://a.softaculous.com/sitepad&#039;;
	
}

function updatesoftaculous($mode = 0){//By default its manual mode

global $globals, $info, $l;
	
	#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
	# PROCEDUE of UPGRADING SOFTACULOUS
	# 1) GET the UPGRADATION INFO
	# 2) GET the UPGRADE Zip File
	# 3) UNZIP the UPGRADE File
	# 4) CALL UPGRADE Function
	# 5) DELETE The UPGRADE Zip File
	#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
	
	$report[&#039;status&#039;] = false;
	$report[&#039;log&#039;] = array();
	
	//////////////////////////////
	// 1) GET the UPGRADATION INFO
	//////////////////////////////
	
	$report[&#039;log&#039;][&#039;info&#039;] = &#039;Requesting Information......&#039;;
	
	if(empty($info)){
	
		$data = get_softaculous_file(serverurls(&#039;updates&#039;));
		
		$info = @json_decode($data, true);
	
	}
		
	//Was there some info recieved
	if(empty($info[&#039;version&#039;])){
		$report[&#039;log&#039;][&#039;info&#039;] .= &#039;Could not get information......Abandoning&#039;;
		return $report;
	}
	
	$report[&#039;log&#039;][&#039;info&#039;] .= &#039;Got information&#039;;
	
	//Check for Automatic Mode
	if($mode == 1 &amp;&amp; @$info[&#039;mode&#039;] == 0){
		$report[&#039;log&#039;][&#039;mode&#039;] = &#039;The new version of &#039;.APP.&#039; requires manual attention......Abandoning&#039;;
		return $report;	
	}
		
	//Is there any updates ????
	if(empty($info[&#039;link&#039;])){
		$report[&#039;log&#039;][&#039;no_updates&#039;] = &#039;Current Version is Latest Version......Continuing&#039;;
		return $report;
	}
	
	//////////////////////////////
	// 2) GET the UPGRADE Zip File
	//////////////////////////////
	
	$report[&#039;log&#039;][&#039;get&#039;] = &#039;Fetching Upgrade......&#039;;
	$data = get_softaculous_file($info[&#039;link&#039;]);
	
	//Did we get the file
	if(empty($data)){
		$report[&#039;log&#039;][&#039;get&#039;] .= &#039;Could not fetch upgrade file......Abandoning&#039;;
		return $report;
	}
	
	$upgradefile = $globals[&#039;path&#039;].&#039;/SITEPAD(&#039;.$info[&#039;version&#039;].&#039;).zip&#039;;
	
	//Write the file
	if(!writefile_fn($upgradefile, $data, 1)){
		$report[&#039;log&#039;][&#039;get&#039;] .= &#039;Could not SAVE upgrade file......Abandoning&#039;;
		return $report;
	}
	
	$report[&#039;log&#039;][&#039;get&#039;] .= &#039;Saved the Upgrade File&#039;;
	
	////////////////////////////
	// 3) UNZIP the UPGRADE File
	////////////////////////////
	
	$report[&#039;log&#039;][&#039;unzip&#039;] = &#039;Unzipping the files......&#039;;
	
	if(!unzip($upgradefile, $globals[&#039;path&#039;].&#039;/&#039;, 1)){
		$report[&#039;log&#039;][&#039;unzip&#039;] .= &#039;Error unzipping......Abandoning&#039;;
		return $report;
	}
	
	$report[&#039;log&#039;][&#039;unzip&#039;] .= &#039;Unzipped Successfully&#039;;
	
	////////////////////////////
	// 4) CALL UPGRADE Function
	////////////////////////////
	//Now if there is some a file upgrade2.php we need to call it
	if(is_file($globals[&#039;path&#039;].&#039;/upgrade2.php&#039;)){
		@include_once($globals[&#039;path&#039;].&#039;/upgrade2.php&#039;);
		if(function_exists(&#039;_upgrade2&#039;)){
			//Pass what version you are upgrading from
			call_user_func(&#039;_upgrade2&#039;, $globals[&#039;version&#039;]);
		}
	}
	
	/////////////////////////////////
	// 5) DELETE The UPGRADE Zip File
	/////////////////////////////////
	@unlink($upgradefile);
	@unlink($globals[&#039;path&#039;].&#039;/upgrade2.php&#039;);
	
	$report[&#039;status&#039;] = true;
	
	return $report;

}

function writefile_fn($file, $data, $overwrite, $chmod, $dchmod){

global $conn, $dbtables, $globals, $user, $logged_in;
	
	$pathinfo = pathinfo($file);
	
	$folderpath = &#039;&#039;;
	
	$folders = explode(&#039;/&#039;, $pathinfo[&#039;dirname&#039;]);
	
	$prefix = (substr($pathinfo[&#039;dirname&#039;], 0, 1) == &#039;/&#039; ? &#039;/&#039; : &#039;&#039;);
	
	//Create folders if they are not there
	foreach ($folders as $folder){
		
		if(empty($folder)) continue;
		
		$folderpath = (!empty($folderpath)) ? $folderpath.&#039;/&#039;.$folder : $prefix.$folder;
		
	}
	
	//The Recursive Function
	@mkdir_recursive($folderpath, (empty($dchmod) ? $globals[&#039;dirchmod&#039;] : $dchmod));
	
	//Does the file exist
	if(file_exists($file) &amp;&amp; empty($overwrite)){
	
		return false;
		
	}

	
	//Create and Open the file for writing
	if(!$fp = @fopen($file, &quot;wb&quot;)){
	
		return false;
	
	}
	
	//Write the contents
	if (@fwrite($fp, $data) === FALSE) {
		
		return false;
		
	}
	
	//Close the handle
	fclose($fp);
	
	//CHMOD only if told
	if(!empty($chmod) &amp;&amp; is_safe_file($file)){
		@chmod($file, $chmod);
	}
	
	return true;
	
}

function mkdir_recursive($pathname, $mode){
    is_dir(dirname($pathname)) || mkdir_recursive(dirname($pathname), $mode);
    return is_dir($pathname) || @mkdir($pathname, $mode);
}

function is_safe_file($path){

	// Is it a symlink ?
	if(is_link($path)) return false;
	
	// Is it a file and is a link ?
	$stat = @stat($path);
	if(!is_dir($path) &amp;&amp; $stat[&#039;nlink&#039;] &gt; 1) return false;
	
	return true;
}

function _mail_fn($array, $attach = &quot;&quot;, $mail_type = &quot;plain&quot;){

global $user, $globals, $theme, $conn, $dbtables;
	
	$globals[&#039;from_email&#039;] = empty($globals[&#039;from_email&#039;]) ? $globals[&#039;soft_email&#039;] : $globals[&#039;from_email&#039;];
	
	if($globals[&#039;mail&#039;]){
		
		$EOL = ($globals[&#039;os&#039;] == &#039;windows&#039; ? &quot;\r\n&quot; : &quot;\n&quot;);
		
		//Count and loop
		foreach($array as $i =&gt; $v){
		
			if(isset($array[$i][&#039;headers&#039;])){
			
				$headers = $array[$i][&#039;headers&#039;];
			
			}else{
				
				$headers = &#039;MIME-Version: 1.0&#039;.$EOL.
					&#039;Content-Type: text/plain; charset=UTF-8&#039;.$EOL.
					&#039;From: &#039;.$globals[&#039;sn&#039;].&quot; &lt;&quot;.$globals[&#039;from_email&#039;].&quot;&gt;&quot;.$EOL.
					&#039;Reply-To: &#039;.$globals[&#039;from_email&#039;].$EOL.
					&#039;Return-Path: &#039;.$globals[&#039;from_email&#039;].$EOL.
					&#039;X-Mailer: PHP/&#039;.phpversion();
			
			}
			
			//If BCC headers are set
			if(!empty($array[$i][&#039;bcc&#039;])){
			
				$headers .= $EOL.&quot;Bcc: &quot;.implode(&#039;, &#039;, $array[$i][&#039;bcc&#039;]).$EOL;
			
			}

			@mail($array[$i][&#039;to&#039;], &#039;=?UTF-8?B?&#039;.base64_encode($array[$i][&#039;subject&#039;]).&#039;?=&#039;, $array[$i][&#039;message&#039;], $headers);
			
		}
	
	}
	
	return true;
	
}

// --------------------------------------------------------------------------------
// PhpConcept Library - Zip Module 2.8.2
// --------------------------------------------------------------------------------
// License GNU/LGPL - Vincent Blavet - August 2009
// http://www.phpconcept.net
// --------------------------------------------------------------------------------
//
// Presentation :
//   PclZip is a PHP library that manage ZIP archives.
//   So far tests show that archives generated by PclZip are readable by
//   WinZip application and other tools.
//
// Description :
//   See readme.txt and http://www.phpconcept.net
//
// Warning :
//   This library and the associated files are non commercial, non professional
//   work.
//   It should not have unexpected results. However if any damage is caused by
//   this software the author can not be responsible.
//   The use of this software is at the risk of the user.
//
// --------------------------------------------------------------------------------
// $Id: pclzip.lib.php,v 1.60 2009/09/30 21:01:04 vblavet Exp $
// --------------------------------------------------------------------------------

  // ----- Constants
  if (!defined(&#039;PCLZIP_READ_BLOCK_SIZE&#039;)) {
    define( &#039;PCLZIP_READ_BLOCK_SIZE&#039;, 2048 );
  }
  
  // ----- File list separator
  // In version 1.x of PclZip, the separator for file list is a space
  // (which is not a very smart choice, specifically for windows paths !).
  // A better separator should be a comma (,). This constant gives you the
  // abilty to change that.
  // However notice that changing this value, may have impact on existing
  // scripts, using space separated filenames.
  // Recommanded values for compatibility with older versions :
  //define( &#039;PCLZIP_SEPARATOR&#039;, &#039; &#039; );
  // Recommanded values for smart separation of filenames.
  if (!defined(&#039;PCLZIP_SEPARATOR&#039;)) {
    define( &#039;PCLZIP_SEPARATOR&#039;, &#039;,&#039; );
  }

  // ----- Error configuration
  // 0 : PclZip Class integrated error handling
  // 1 : PclError external library error handling. By enabling this
  //     you must ensure that you have included PclError library.
  // [2,...] : reserved for futur use
  if (!defined(&#039;PCLZIP_ERROR_EXTERNAL&#039;)) {
    define( &#039;PCLZIP_ERROR_EXTERNAL&#039;, 0 );
  }

  // ----- Optional static temporary directory
  //       By default temporary files are generated in the script current
  //       path.
  //       If defined :
  //       - MUST BE terminated by a &#039;/&#039;.
  //       - MUST be a valid, already created directory
  //       Samples :
  // define( &#039;PCLZIP_TEMPORARY_DIR&#039;, &#039;/temp/&#039; );
  // define( &#039;PCLZIP_TEMPORARY_DIR&#039;, &#039;C:/Temp/&#039; );
  if (!defined(&#039;PCLZIP_TEMPORARY_DIR&#039;)) {
    define( &#039;PCLZIP_TEMPORARY_DIR&#039;, &#039;&#039; );
  }

  // ----- Optional threshold ratio for use of temporary files
  //       Pclzip sense the size of the file to add/extract and decide to
  //       use or not temporary file. The algorythm is looking for 
  //       memory_limit of PHP and apply a ratio.
  //       threshold = memory_limit * ratio.
  //       Recommended values are under 0.5. Default 0.47.
  //       Samples :
  // define( &#039;PCLZIP_TEMPORARY_FILE_RATIO&#039;, 0.5 );
  if (!defined(&#039;PCLZIP_TEMPORARY_FILE_RATIO&#039;)) {
    define( &#039;PCLZIP_TEMPORARY_FILE_RATIO&#039;, 0.47 );
  }

// --------------------------------------------------------------------------------
// ***** UNDER THIS LINE NOTHING NEEDS TO BE MODIFIED *****
// --------------------------------------------------------------------------------

  // ----- Global variables
  $g_pclzip_version = &quot;2.8.2&quot;;

  // ----- Error codes
  //   -1 : Unable to open file in binary write mode
  //   -2 : Unable to open file in binary read mode
  //   -3 : Invalid parameters
  //   -4 : File does not exist
  //   -5 : Filename is too long (max. 255)
  //   -6 : Not a valid zip file
  //   -7 : Invalid extracted file size
  //   -8 : Unable to create directory
  //   -9 : Invalid archive extension
  //  -10 : Invalid archive format
  //  -11 : Unable to delete file (unlink)
  //  -12 : Unable to rename file (rename)
  //  -13 : Invalid header checksum
  //  -14 : Invalid archive size
  define( &#039;PCLZIP_ERR_USER_ABORTED&#039;, 2 );
  define( &#039;PCLZIP_ERR_NO_ERROR&#039;, 0 );
  define( &#039;PCLZIP_ERR_WRITE_OPEN_FAIL&#039;, -1 );
  define( &#039;PCLZIP_ERR_READ_OPEN_FAIL&#039;, -2 );
  define( &#039;PCLZIP_ERR_INVALID_PARAMETER&#039;, -3 );
  define( &#039;PCLZIP_ERR_MISSING_FILE&#039;, -4 );
  define( &#039;PCLZIP_ERR_FILENAME_TOO_LONG&#039;, -5 );
  define( &#039;PCLZIP_ERR_INVALID_ZIP&#039;, -6 );
  define( &#039;PCLZIP_ERR_BAD_EXTRACTED_FILE&#039;, -7 );
  define( &#039;PCLZIP_ERR_DIR_CREATE_FAIL&#039;, -8 );
  define( &#039;PCLZIP_ERR_BAD_EXTENSION&#039;, -9 );
  define( &#039;PCLZIP_ERR_BAD_FORMAT&#039;, -10 );
  define( &#039;PCLZIP_ERR_DELETE_FILE_FAIL&#039;, -11 );
  define( &#039;PCLZIP_ERR_RENAME_FILE_FAIL&#039;, -12 );
  define( &#039;PCLZIP_ERR_BAD_CHECKSUM&#039;, -13 );
  define( &#039;PCLZIP_ERR_INVALID_ARCHIVE_ZIP&#039;, -14 );
  define( &#039;PCLZIP_ERR_MISSING_OPTION_VALUE&#039;, -15 );
  define( &#039;PCLZIP_ERR_INVALID_OPTION_VALUE&#039;, -16 );
  define( &#039;PCLZIP_ERR_ALREADY_A_DIRECTORY&#039;, -17 );
  define( &#039;PCLZIP_ERR_UNSUPPORTED_COMPRESSION&#039;, -18 );
  define( &#039;PCLZIP_ERR_UNSUPPORTED_ENCRYPTION&#039;, -19 );
  define( &#039;PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE&#039;, -20 );
  define( &#039;PCLZIP_ERR_DIRECTORY_RESTRICTION&#039;, -21 );

  // ----- Options values
  define( &#039;PCLZIP_OPT_PATH&#039;, 77001 );
  define( &#039;PCLZIP_OPT_ADD_PATH&#039;, 77002 );
  define( &#039;PCLZIP_OPT_REMOVE_PATH&#039;, 77003 );
  define( &#039;PCLZIP_OPT_REMOVE_ALL_PATH&#039;, 77004 );
  define( &#039;PCLZIP_OPT_SET_CHMOD&#039;, 77005 );
  define( &#039;PCLZIP_OPT_EXTRACT_AS_STRING&#039;, 77006 );
  define( &#039;PCLZIP_OPT_NO_COMPRESSION&#039;, 77007 );
  define( &#039;PCLZIP_OPT_BY_NAME&#039;, 77008 );
  define( &#039;PCLZIP_OPT_BY_INDEX&#039;, 77009 );
  define( &#039;PCLZIP_OPT_BY_EREG&#039;, 77010 );
  define( &#039;PCLZIP_OPT_BY_PREG&#039;, 77011 );
  define( &#039;PCLZIP_OPT_COMMENT&#039;, 77012 );
  define( &#039;PCLZIP_OPT_ADD_COMMENT&#039;, 77013 );
  define( &#039;PCLZIP_OPT_PREPEND_COMMENT&#039;, 77014 );
  define( &#039;PCLZIP_OPT_EXTRACT_IN_OUTPUT&#039;, 77015 );
  define( &#039;PCLZIP_OPT_REPLACE_NEWER&#039;, 77016 );
  define( &#039;PCLZIP_OPT_STOP_ON_ERROR&#039;, 77017 );
  // Having big trouble with crypt. Need to multiply 2 long int
  // which is not correctly supported by PHP ...
  //define( &#039;PCLZIP_OPT_CRYPT&#039;, 77018 );
  define( &#039;PCLZIP_OPT_EXTRACT_DIR_RESTRICTION&#039;, 77019 );
  define( &#039;PCLZIP_OPT_TEMP_FILE_THRESHOLD&#039;, 77020 );
  define( &#039;PCLZIP_OPT_ADD_TEMP_FILE_THRESHOLD&#039;, 77020 ); // alias
  define( &#039;PCLZIP_OPT_TEMP_FILE_ON&#039;, 77021 );
  define( &#039;PCLZIP_OPT_ADD_TEMP_FILE_ON&#039;, 77021 ); // alias
  define( &#039;PCLZIP_OPT_TEMP_FILE_OFF&#039;, 77022 );
  define( &#039;PCLZIP_OPT_ADD_TEMP_FILE_OFF&#039;, 77022 ); // alias
  
  // ----- File description attributes
  define( &#039;PCLZIP_ATT_FILE_NAME&#039;, 79001 );
  define( &#039;PCLZIP_ATT_FILE_NEW_SHORT_NAME&#039;, 79002 );
  define( &#039;PCLZIP_ATT_FILE_NEW_FULL_NAME&#039;, 79003 );
  define( &#039;PCLZIP_ATT_FILE_MTIME&#039;, 79004 );
  define( &#039;PCLZIP_ATT_FILE_CONTENT&#039;, 79005 );
  define( &#039;PCLZIP_ATT_FILE_COMMENT&#039;, 79006 );

  // ----- Call backs values
  define( &#039;PCLZIP_CB_PRE_EXTRACT&#039;, 78001 );
  define( &#039;PCLZIP_CB_POST_EXTRACT&#039;, 78002 );
  define( &#039;PCLZIP_CB_PRE_ADD&#039;, 78003 );
  define( &#039;PCLZIP_CB_POST_ADD&#039;, 78004 );
  /* For futur use
  define( &#039;PCLZIP_CB_PRE_LIST&#039;, 78005 );
  define( &#039;PCLZIP_CB_POST_LIST&#039;, 78006 );
  define( &#039;PCLZIP_CB_PRE_DELETE&#039;, 78007 );
  define( &#039;PCLZIP_CB_POST_DELETE&#039;, 78008 );
  */

  // --------------------------------------------------------------------------------
  // Class : PclZip
  // Description :
  //   PclZip is the class that represent a Zip archive.
  //   The public methods allow the manipulation of the archive.
  // Attributes :
  //   Attributes must not be accessed directly.
  // Methods :
  //   PclZip() : Object creator
  //   create() : Creates the Zip archive
  //   listContent() : List the content of the Zip archive
  //   extract() : Extract the content of the archive
  //   properties() : List the properties of the archive
  // --------------------------------------------------------------------------------
  class PclZip
  {
    // ----- Filename of the zip file
    var $zipname = &#039;&#039;;

    // ----- File descriptor of the zip file
    var $zip_fd = 0;

    // ----- Internal error handling
    var $error_code = 1;
    var $error_string = &#039;&#039;;
    
    // ----- Current status of the magic_quotes_runtime
    // This value store the php configuration for magic_quotes
    // The class can then disable the magic_quotes and reset it after
    var $magic_quotes_status;

  // --------------------------------------------------------------------------------
  // Function : PclZip()
  // Description :
  //   Creates a PclZip object and set the name of the associated Zip archive
  //   filename.
  //   Note that no real action is taken, if the archive does not exist it is not
  //   created. Use create() for that.
  // --------------------------------------------------------------------------------
  function PclZip($p_zipname){
	  return PclZip::__construct($p_zipname);
  }
  
  function __construct($p_zipname)
  {

    // ----- Tests the zlib
    if (!function_exists(&#039;gzopen&#039;))
    {
      die(&#039;Abort &#039;.basename(__FILE__).&#039; : Missing zlib extensions&#039;);
    }

    // ----- Set the attributes
    $this-&gt;zipname = $p_zipname;
    $this-&gt;zip_fd = 0;
    $this-&gt;magic_quotes_status = -1;

    // ----- Return
    return;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function :
  //   create($p_filelist, $p_add_dir=&quot;&quot;, $p_remove_dir=&quot;&quot;)
  //   create($p_filelist, $p_option, $p_option_value, ...)
  // Description :
  //   This method supports two different synopsis. The first one is historical.
  //   This method creates a Zip Archive. The Zip file is created in the
  //   filesystem. The files and directories indicated in $p_filelist
  //   are added in the archive. See the parameters description for the
  //   supported format of $p_filelist.
  //   When a directory is in the list, the directory and its content is added
  //   in the archive.
  //   In this synopsis, the function takes an optional variable list of
  //   options. See bellow the supported options.
  // Parameters :
  //   $p_filelist : An array containing file or directory names, or
  //                 a string containing one filename or one directory name, or
  //                 a string containing a list of filenames and/or directory
  //                 names separated by spaces.
  //   $p_add_dir : A path to add before the real path of the archived file,
  //                in order to have it memorized in the archive.
  //   $p_remove_dir : A path to remove from the real path of the file to archive,
  //                   in order to have a shorter path memorized in the archive.
  //                   When $p_add_dir and $p_remove_dir are set, $p_remove_dir
  //                   is removed first, before $p_add_dir is added.
  // Options :
  //   PCLZIP_OPT_ADD_PATH :
  //   PCLZIP_OPT_REMOVE_PATH :
  //   PCLZIP_OPT_REMOVE_ALL_PATH :
  //   PCLZIP_OPT_COMMENT :
  //   PCLZIP_CB_PRE_ADD :
  //   PCLZIP_CB_POST_ADD :
  // Return Values :
  //   0 on failure,
  //   The list of the added files, with a status of the add action.
  //   (see PclZip::listContent() for list entry format)
  // --------------------------------------------------------------------------------
  function create($p_filelist)
  {
    $v_result=1;

    // ----- Reset the error handler
    $this-&gt;privErrorReset();

    // ----- Set default values
    $v_options = array();
    $v_options[PCLZIP_OPT_NO_COMPRESSION] = FALSE;

    // ----- Look for variable options arguments
    $v_size = func_num_args();

    // ----- Look for arguments
    if ($v_size &gt; 1) {
      // ----- Get the arguments
      $v_arg_list = func_get_args();

      // ----- Remove from the options list the first argument
      array_shift($v_arg_list);
      $v_size--;

      // ----- Look for first arg
      if ((is_integer($v_arg_list[0])) &amp;&amp; ($v_arg_list[0] &gt; 77000)) {

        // ----- Parse the options
        $v_result = $this-&gt;privParseOptions($v_arg_list, $v_size, $v_options,
                                            array (PCLZIP_OPT_REMOVE_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_REMOVE_ALL_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_ADD_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_CB_PRE_ADD =&gt; &#039;optional&#039;,
                                                   PCLZIP_CB_POST_ADD =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_NO_COMPRESSION =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_COMMENT =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_TEMP_FILE_THRESHOLD =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_TEMP_FILE_ON =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_TEMP_FILE_OFF =&gt; &#039;optional&#039;
                                                   //, PCLZIP_OPT_CRYPT =&gt; &#039;optional&#039;
                                             ));
        if ($v_result != 1) {
          return 0;
        }
      }

      // ----- Look for 2 args
      // Here we need to support the first historic synopsis of the
      // method.
      else {

        // ----- Get the first argument
        $v_options[PCLZIP_OPT_ADD_PATH] = $v_arg_list[0];

        // ----- Look for the optional second argument
        if ($v_size == 2) {
          $v_options[PCLZIP_OPT_REMOVE_PATH] = $v_arg_list[1];
        }
        else if ($v_size &gt; 2) {
          PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER,
		                       &quot;Invalid number / type of arguments&quot;);
          return 0;
        }
      }
    }
    
    // ----- Look for default option values
    $this-&gt;privOptionDefaultThreshold($v_options);

    // ----- Init
    $v_string_list = array();
    $v_att_list = array();
    $v_filedescr_list = array();
    $p_result_list = array();
    
    // ----- Look if the $p_filelist is really an array
    if (is_array($p_filelist)) {
    
      // ----- Look if the first element is also an array
      //       This will mean that this is a file description entry
      if (isset($p_filelist[0]) &amp;&amp; is_array($p_filelist[0])) {
        $v_att_list = $p_filelist;
      }
      
      // ----- The list is a list of string names
      else {
        $v_string_list = $p_filelist;
      }
    }

    // ----- Look if the $p_filelist is a string
    else if (is_string($p_filelist)) {
      // ----- Create a list from the string
      $v_string_list = explode(PCLZIP_SEPARATOR, $p_filelist);
    }

    // ----- Invalid variable type for $p_filelist
    else {
      PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, &quot;Invalid variable type p_filelist&quot;);
      return 0;
    }
    
    // ----- Reformat the string list
    if (sizeof($v_string_list) != 0) {
      foreach ($v_string_list as $v_string) {
        if ($v_string != &#039;&#039;) {
          $v_att_list[][PCLZIP_ATT_FILE_NAME] = $v_string;
        }
        else {
        }
      }
    }
    
    // ----- For each file in the list check the attributes
    $v_supported_attributes
    = array ( PCLZIP_ATT_FILE_NAME =&gt; &#039;mandatory&#039;
             ,PCLZIP_ATT_FILE_NEW_SHORT_NAME =&gt; &#039;optional&#039;
             ,PCLZIP_ATT_FILE_NEW_FULL_NAME =&gt; &#039;optional&#039;
             ,PCLZIP_ATT_FILE_MTIME =&gt; &#039;optional&#039;
             ,PCLZIP_ATT_FILE_CONTENT =&gt; &#039;optional&#039;
             ,PCLZIP_ATT_FILE_COMMENT =&gt; &#039;optional&#039;
						);
    foreach ($v_att_list as $v_entry) {
      $v_result = $this-&gt;privFileDescrParseAtt($v_entry,
                                               $v_filedescr_list[],
                                               $v_options,
                                               $v_supported_attributes);
      if ($v_result != 1) {
        return 0;
      }
    }

    // ----- Expand the filelist (expand directories)
    $v_result = $this-&gt;privFileDescrExpand($v_filedescr_list, $v_options);
    if ($v_result != 1) {
      return 0;
    }

    // ----- Call the create fct
    $v_result = $this-&gt;privCreate($v_filedescr_list, $p_result_list, $v_options);
    if ($v_result != 1) {
      return 0;
    }

    // ----- Return
    return $p_result_list;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function :
  //   add($p_filelist, $p_add_dir=&quot;&quot;, $p_remove_dir=&quot;&quot;)
  //   add($p_filelist, $p_option, $p_option_value, ...)
  // Description :
  //   This method supports two synopsis. The first one is historical.
  //   This methods add the list of files in an existing archive.
  //   If a file with the same name already exists, it is added at the end of the
  //   archive, the first one is still present.
  //   If the archive does not exist, it is created.
  // Parameters :
  //   $p_filelist : An array containing file or directory names, or
  //                 a string containing one filename or one directory name, or
  //                 a string containing a list of filenames and/or directory
  //                 names separated by spaces.
  //   $p_add_dir : A path to add before the real path of the archived file,
  //                in order to have it memorized in the archive.
  //   $p_remove_dir : A path to remove from the real path of the file to archive,
  //                   in order to have a shorter path memorized in the archive.
  //                   When $p_add_dir and $p_remove_dir are set, $p_remove_dir
  //                   is removed first, before $p_add_dir is added.
  // Options :
  //   PCLZIP_OPT_ADD_PATH :
  //   PCLZIP_OPT_REMOVE_PATH :
  //   PCLZIP_OPT_REMOVE_ALL_PATH :
  //   PCLZIP_OPT_COMMENT :
  //   PCLZIP_OPT_ADD_COMMENT :
  //   PCLZIP_OPT_PREPEND_COMMENT :
  //   PCLZIP_CB_PRE_ADD :
  //   PCLZIP_CB_POST_ADD :
  // Return Values :
  //   0 on failure,
  //   The list of the added files, with a status of the add action.
  //   (see PclZip::listContent() for list entry format)
  // --------------------------------------------------------------------------------
  function add($p_filelist)
  {
    $v_result=1;

    // ----- Reset the error handler
    $this-&gt;privErrorReset();

    // ----- Set default values
    $v_options = array();
    $v_options[PCLZIP_OPT_NO_COMPRESSION] = FALSE;

    // ----- Look for variable options arguments
    $v_size = func_num_args();

    // ----- Look for arguments
    if ($v_size &gt; 1) {
      // ----- Get the arguments
      $v_arg_list = func_get_args();

      // ----- Remove form the options list the first argument
      array_shift($v_arg_list);
      $v_size--;

      // ----- Look for first arg
      if ((is_integer($v_arg_list[0])) &amp;&amp; ($v_arg_list[0] &gt; 77000)) {

        // ----- Parse the options
        $v_result = $this-&gt;privParseOptions($v_arg_list, $v_size, $v_options,
                                            array (PCLZIP_OPT_REMOVE_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_REMOVE_ALL_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_ADD_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_CB_PRE_ADD =&gt; &#039;optional&#039;,
                                                   PCLZIP_CB_POST_ADD =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_NO_COMPRESSION =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_COMMENT =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_ADD_COMMENT =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_PREPEND_COMMENT =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_TEMP_FILE_THRESHOLD =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_TEMP_FILE_ON =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_TEMP_FILE_OFF =&gt; &#039;optional&#039;
                                                   //, PCLZIP_OPT_CRYPT =&gt; &#039;optional&#039;
												   ));
        if ($v_result != 1) {
          return 0;
        }
      }

      // ----- Look for 2 args
      // Here we need to support the first historic synopsis of the
      // method.
      else {

        // ----- Get the first argument
        $v_options[PCLZIP_OPT_ADD_PATH] = $v_add_path = $v_arg_list[0];

        // ----- Look for the optional second argument
        if ($v_size == 2) {
          $v_options[PCLZIP_OPT_REMOVE_PATH] = $v_arg_list[1];
        }
        else if ($v_size &gt; 2) {
          // ----- Error log
          PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, &quot;Invalid number / type of arguments&quot;);

          // ----- Return
          return 0;
        }
      }
    }

    // ----- Look for default option values
    $this-&gt;privOptionDefaultThreshold($v_options);

    // ----- Init
    $v_string_list = array();
    $v_att_list = array();
    $v_filedescr_list = array();
    $p_result_list = array();
    
    // ----- Look if the $p_filelist is really an array
    if (is_array($p_filelist)) {
    
      // ----- Look if the first element is also an array
      //       This will mean that this is a file description entry
      if (isset($p_filelist[0]) &amp;&amp; is_array($p_filelist[0])) {
        $v_att_list = $p_filelist;
      }
      
      // ----- The list is a list of string names
      else {
        $v_string_list = $p_filelist;
      }
    }

    // ----- Look if the $p_filelist is a string
    else if (is_string($p_filelist)) {
      // ----- Create a list from the string
      $v_string_list = explode(PCLZIP_SEPARATOR, $p_filelist);
    }

    // ----- Invalid variable type for $p_filelist
    else {
      PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, &quot;Invalid variable type &#039;&quot;.gettype($p_filelist).&quot;&#039; for p_filelist&quot;);
      return 0;
    }
    
    // ----- Reformat the string list
    if (sizeof($v_string_list) != 0) {
      foreach ($v_string_list as $v_string) {
        $v_att_list[][PCLZIP_ATT_FILE_NAME] = $v_string;
      }
    }
    
    // ----- For each file in the list check the attributes
    $v_supported_attributes
    = array ( PCLZIP_ATT_FILE_NAME =&gt; &#039;mandatory&#039;
             ,PCLZIP_ATT_FILE_NEW_SHORT_NAME =&gt; &#039;optional&#039;
             ,PCLZIP_ATT_FILE_NEW_FULL_NAME =&gt; &#039;optional&#039;
             ,PCLZIP_ATT_FILE_MTIME =&gt; &#039;optional&#039;
             ,PCLZIP_ATT_FILE_CONTENT =&gt; &#039;optional&#039;
             ,PCLZIP_ATT_FILE_COMMENT =&gt; &#039;optional&#039;
						);
    foreach ($v_att_list as $v_entry) {
      $v_result = $this-&gt;privFileDescrParseAtt($v_entry,
                                               $v_filedescr_list[],
                                               $v_options,
                                               $v_supported_attributes);
      if ($v_result != 1) {
        return 0;
      }
    }

    // ----- Expand the filelist (expand directories)
    $v_result = $this-&gt;privFileDescrExpand($v_filedescr_list, $v_options);
    if ($v_result != 1) {
      return 0;
    }

    // ----- Call the create fct
    $v_result = $this-&gt;privAdd($v_filedescr_list, $p_result_list, $v_options);
    if ($v_result != 1) {
      return 0;
    }

    // ----- Return
    return $p_result_list;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : listContent()
  // Description :
  //   This public method, gives the list of the files and directories, with their
  //   properties.
  //   The properties of each entries in the list are (used also in other functions) :
  //     filename : Name of the file. For a create or add action it is the filename
  //                given by the user. For an extract function it is the filename
  //                of the extracted file.
  //     stored_filename : Name of the file / directory stored in the archive.
  //     size : Size of the stored file.
  //     compressed_size : Size of the file&#039;s data compressed in the archive
  //                       (without the headers overhead)
  //     mtime : Last known modification date of the file (UNIX timestamp)
  //     comment : Comment associated with the file
  //     folder : true | false
  //     index : index of the file in the archive
  //     status : status of the action (depending of the action) :
  //              Values are :
  //                ok : OK !
  //                filtered : the file / dir is not extracted (filtered by user)
  //                already_a_directory : the file can not be extracted because a
  //                                      directory with the same name already exists
  //                write_protected : the file can not be extracted because a file
  //                                  with the same name already exists and is
  //                                  write protected
  //                newer_exist : the file was not extracted because a newer file exists
  //                path_creation_fail : the file is not extracted because the folder
  //                                     does not exist and can not be created
  //                write_error : the file was not extracted because there was a
  //                              error while writing the file
  //                read_error : the file was not extracted because there was a error
  //                             while reading the file
  //                invalid_header : the file was not extracted because of an archive
  //                                 format error (bad file header)
  //   Note that each time a method can continue operating when there
  //   is an action error on a file, the error is only logged in the file status.
  // Return Values :
  //   0 on an unrecoverable failure,
  //   The list of the files in the archive.
  // --------------------------------------------------------------------------------
  function listContent()
  {
    $v_result=1;

    // ----- Reset the error handler
    $this-&gt;privErrorReset();

    // ----- Check archive
    if (!$this-&gt;privCheckFormat()) {
      return(0);
    }

    // ----- Call the extracting fct
    $p_list = array();
    if (($v_result = $this-&gt;privList($p_list)) != 1)
    {
      unset($p_list);
      return(0);
    }

    // ----- Return
    return $p_list;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function :
  //   extract($p_path=&quot;./&quot;, $p_remove_path=&quot;&quot;)
  //   extract([$p_option, $p_option_value, ...])
  // Description :
  //   This method supports two synopsis. The first one is historical.
  //   This method extract all the files / directories from the archive to the
  //   folder indicated in $p_path.
  //   If you want to ignore the &#039;root&#039; part of path of the memorized files
  //   you can indicate this in the optional $p_remove_path parameter.
  //   By default, if a newer file with the same name already exists, the
  //   file is not extracted.
  //
  //   If both PCLZIP_OPT_PATH and PCLZIP_OPT_ADD_PATH aoptions
  //   are used, the path indicated in PCLZIP_OPT_ADD_PATH is append
  //   at the end of the path value of PCLZIP_OPT_PATH.
  // Parameters :
  //   $p_path : Path where the files and directories are to be extracted
  //   $p_remove_path : First part (&#039;root&#039; part) of the memorized path
  //                    (if any similar) to remove while extracting.
  // Options :
  //   PCLZIP_OPT_PATH :
  //   PCLZIP_OPT_ADD_PATH :
  //   PCLZIP_OPT_REMOVE_PATH :
  //   PCLZIP_OPT_REMOVE_ALL_PATH :
  //   PCLZIP_CB_PRE_EXTRACT :
  //   PCLZIP_CB_POST_EXTRACT :
  // Return Values :
  //   0 or a negative value on failure,
  //   The list of the extracted files, with a status of the action.
  //   (see PclZip::listContent() for list entry format)
  // --------------------------------------------------------------------------------
  function extract()
  {
    $v_result=1;

    // ----- Reset the error handler
    $this-&gt;privErrorReset();

    // ----- Check archive
    if (!$this-&gt;privCheckFormat()) {
      return(0);
    }

    // ----- Set default values
    $v_options = array();
//    $v_path = &quot;./&quot;;
    $v_path = &#039;&#039;;
    $v_remove_path = &quot;&quot;;
    $v_remove_all_path = false;

    // ----- Look for variable options arguments
    $v_size = func_num_args();

    // ----- Default values for option
    $v_options[PCLZIP_OPT_EXTRACT_AS_STRING] = FALSE;

    // ----- Look for arguments
    if ($v_size &gt; 0) {
      // ----- Get the arguments
      $v_arg_list = func_get_args();

      // ----- Look for first arg
      if ((is_integer($v_arg_list[0])) &amp;&amp; ($v_arg_list[0] &gt; 77000)) {

        // ----- Parse the options
        $v_result = $this-&gt;privParseOptions($v_arg_list, $v_size, $v_options,
                                            array (PCLZIP_OPT_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_REMOVE_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_REMOVE_ALL_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_ADD_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_CB_PRE_EXTRACT =&gt; &#039;optional&#039;,
                                                   PCLZIP_CB_POST_EXTRACT =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_SET_CHMOD =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_BY_NAME =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_BY_EREG =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_BY_PREG =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_BY_INDEX =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_EXTRACT_AS_STRING =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_EXTRACT_IN_OUTPUT =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_REPLACE_NEWER =&gt; &#039;optional&#039;
                                                   ,PCLZIP_OPT_STOP_ON_ERROR =&gt; &#039;optional&#039;
                                                   ,PCLZIP_OPT_EXTRACT_DIR_RESTRICTION =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_TEMP_FILE_THRESHOLD =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_TEMP_FILE_ON =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_TEMP_FILE_OFF =&gt; &#039;optional&#039;
												    ));
        if ($v_result != 1) {
          return 0;
        }

        // ----- Set the arguments
        if (isset($v_options[PCLZIP_OPT_PATH])) {
          $v_path = $v_options[PCLZIP_OPT_PATH];
        }
        if (isset($v_options[PCLZIP_OPT_REMOVE_PATH])) {
          $v_remove_path = $v_options[PCLZIP_OPT_REMOVE_PATH];
        }
        if (isset($v_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {
          $v_remove_all_path = $v_options[PCLZIP_OPT_REMOVE_ALL_PATH];
        }
        if (isset($v_options[PCLZIP_OPT_ADD_PATH])) {
          // ----- Check for &#039;/&#039; in last path char
          if ((strlen($v_path) &gt; 0) &amp;&amp; (substr($v_path, -1) != &#039;/&#039;)) {
            $v_path .= &#039;/&#039;;
          }
          $v_path .= $v_options[PCLZIP_OPT_ADD_PATH];
        }
      }

      // ----- Look for 2 args
      // Here we need to support the first historic synopsis of the
      // method.
      else {

        // ----- Get the first argument
        $v_path = $v_arg_list[0];

        // ----- Look for the optional second argument
        if ($v_size == 2) {
          $v_remove_path = $v_arg_list[1];
        }
        else if ($v_size &gt; 2) {
          // ----- Error log
          PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, &quot;Invalid number / type of arguments&quot;);

          // ----- Return
          return 0;
        }
      }
    }

    // ----- Look for default option values
    $this-&gt;privOptionDefaultThreshold($v_options);

    // ----- Trace

    // ----- Call the extracting fct
    $p_list = array();
    $v_result = $this-&gt;privExtractByRule($p_list, $v_path, $v_remove_path,
	                                     $v_remove_all_path, $v_options);
    if ($v_result &lt; 1) {
      unset($p_list);
      return(0);
    }

    // ----- Return
    return $p_list;
  }
  // --------------------------------------------------------------------------------


  // --------------------------------------------------------------------------------
  // Function :
  //   extractByIndex($p_index, $p_path=&quot;./&quot;, $p_remove_path=&quot;&quot;)
  //   extractByIndex($p_index, [$p_option, $p_option_value, ...])
  // Description :
  //   This method supports two synopsis. The first one is historical.
  //   This method is doing a partial extract of the archive.
  //   The extracted files or folders are identified by their index in the
  //   archive (from 0 to n).
  //   Note that if the index identify a folder, only the folder entry is
  //   extracted, not all the files included in the archive.
  // Parameters :
  //   $p_index : A single index (integer) or a string of indexes of files to
  //              extract. The form of the string is &quot;0,4-6,8-12&quot; with only numbers
  //              and &#039;-&#039; for range or &#039;,&#039; to separate ranges. No spaces or &#039;;&#039;
  //              are allowed.
  //   $p_path : Path where the files and directories are to be extracted
  //   $p_remove_path : First part (&#039;root&#039; part) of the memorized path
  //                    (if any similar) to remove while extracting.
  // Options :
  //   PCLZIP_OPT_PATH :
  //   PCLZIP_OPT_ADD_PATH :
  //   PCLZIP_OPT_REMOVE_PATH :
  //   PCLZIP_OPT_REMOVE_ALL_PATH :
  //   PCLZIP_OPT_EXTRACT_AS_STRING : The files are extracted as strings and
  //     not as files.
  //     The resulting content is in a new field &#039;content&#039; in the file
  //     structure.
  //     This option must be used alone (any other options are ignored).
  //   PCLZIP_CB_PRE_EXTRACT :
  //   PCLZIP_CB_POST_EXTRACT :
  // Return Values :
  //   0 on failure,
  //   The list of the extracted files, with a status of the action.
  //   (see PclZip::listContent() for list entry format)
  // --------------------------------------------------------------------------------
  //function extractByIndex($p_index, options...)
  function extractByIndex($p_index)
  {
    $v_result=1;

    // ----- Reset the error handler
    $this-&gt;privErrorReset();

    // ----- Check archive
    if (!$this-&gt;privCheckFormat()) {
      return(0);
    }

    // ----- Set default values
    $v_options = array();
//    $v_path = &quot;./&quot;;
    $v_path = &#039;&#039;;
    $v_remove_path = &quot;&quot;;
    $v_remove_all_path = false;

    // ----- Look for variable options arguments
    $v_size = func_num_args();

    // ----- Default values for option
    $v_options[PCLZIP_OPT_EXTRACT_AS_STRING] = FALSE;

    // ----- Look for arguments
    if ($v_size &gt; 1) {
      // ----- Get the arguments
      $v_arg_list = func_get_args();

      // ----- Remove form the options list the first argument
      array_shift($v_arg_list);
      $v_size--;

      // ----- Look for first arg
      if ((is_integer($v_arg_list[0])) &amp;&amp; ($v_arg_list[0] &gt; 77000)) {

        // ----- Parse the options
        $v_result = $this-&gt;privParseOptions($v_arg_list, $v_size, $v_options,
                                            array (PCLZIP_OPT_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_REMOVE_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_REMOVE_ALL_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_EXTRACT_AS_STRING =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_ADD_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_CB_PRE_EXTRACT =&gt; &#039;optional&#039;,
                                                   PCLZIP_CB_POST_EXTRACT =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_SET_CHMOD =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_REPLACE_NEWER =&gt; &#039;optional&#039;
                                                   ,PCLZIP_OPT_STOP_ON_ERROR =&gt; &#039;optional&#039;
                                                   ,PCLZIP_OPT_EXTRACT_DIR_RESTRICTION =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_TEMP_FILE_THRESHOLD =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_TEMP_FILE_ON =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_TEMP_FILE_OFF =&gt; &#039;optional&#039;
												   ));
        if ($v_result != 1) {
          return 0;
        }

        // ----- Set the arguments
        if (isset($v_options[PCLZIP_OPT_PATH])) {
          $v_path = $v_options[PCLZIP_OPT_PATH];
        }
        if (isset($v_options[PCLZIP_OPT_REMOVE_PATH])) {
          $v_remove_path = $v_options[PCLZIP_OPT_REMOVE_PATH];
        }
        if (isset($v_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {
          $v_remove_all_path = $v_options[PCLZIP_OPT_REMOVE_ALL_PATH];
        }
        if (isset($v_options[PCLZIP_OPT_ADD_PATH])) {
          // ----- Check for &#039;/&#039; in last path char
          if ((strlen($v_path) &gt; 0) &amp;&amp; (substr($v_path, -1) != &#039;/&#039;)) {
            $v_path .= &#039;/&#039;;
          }
          $v_path .= $v_options[PCLZIP_OPT_ADD_PATH];
        }
        if (!isset($v_options[PCLZIP_OPT_EXTRACT_AS_STRING])) {
          $v_options[PCLZIP_OPT_EXTRACT_AS_STRING] = FALSE;
        }
        else {
        }
      }

      // ----- Look for 2 args
      // Here we need to support the first historic synopsis of the
      // method.
      else {

        // ----- Get the first argument
        $v_path = $v_arg_list[0];

        // ----- Look for the optional second argument
        if ($v_size == 2) {
          $v_remove_path = $v_arg_list[1];
        }
        else if ($v_size &gt; 2) {
          // ----- Error log
          PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, &quot;Invalid number / type of arguments&quot;);

          // ----- Return
          return 0;
        }
      }
    }

    // ----- Trace

    // ----- Trick
    // Here I want to reuse extractByRule(), so I need to parse the $p_index
    // with privParseOptions()
    $v_arg_trick = array (PCLZIP_OPT_BY_INDEX, $p_index);
    $v_options_trick = array();
    $v_result = $this-&gt;privParseOptions($v_arg_trick, sizeof($v_arg_trick), $v_options_trick,
                                        array (PCLZIP_OPT_BY_INDEX =&gt; &#039;optional&#039; ));
    if ($v_result != 1) {
        return 0;
    }
    $v_options[PCLZIP_OPT_BY_INDEX] = $v_options_trick[PCLZIP_OPT_BY_INDEX];

    // ----- Look for default option values
    $this-&gt;privOptionDefaultThreshold($v_options);

    // ----- Call the extracting fct
    if (($v_result = $this-&gt;privExtractByRule($p_list, $v_path, $v_remove_path, $v_remove_all_path, $v_options)) &lt; 1) {
        return(0);
    }

    // ----- Return
    return $p_list;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function :
  //   delete([$p_option, $p_option_value, ...])
  // Description :
  //   This method removes files from the archive.
  //   If no parameters are given, then all the archive is emptied.
  // Parameters :
  //   None or optional arguments.
  // Options :
  //   PCLZIP_OPT_BY_INDEX :
  //   PCLZIP_OPT_BY_NAME :
  //   PCLZIP_OPT_BY_EREG : 
  //   PCLZIP_OPT_BY_PREG :
  // Return Values :
  //   0 on failure,
  //   The list of the files which are still present in the archive.
  //   (see PclZip::listContent() for list entry format)
  // --------------------------------------------------------------------------------
  function delete()
  {
    $v_result=1;

    // ----- Reset the error handler
    $this-&gt;privErrorReset();

    // ----- Check archive
    if (!$this-&gt;privCheckFormat()) {
      return(0);
    }

    // ----- Set default values
    $v_options = array();

    // ----- Look for variable options arguments
    $v_size = func_num_args();

    // ----- Look for arguments
    if ($v_size &gt; 0) {
      // ----- Get the arguments
      $v_arg_list = func_get_args();

      // ----- Parse the options
      $v_result = $this-&gt;privParseOptions($v_arg_list, $v_size, $v_options,
                                        array (PCLZIP_OPT_BY_NAME =&gt; &#039;optional&#039;,
                                               PCLZIP_OPT_BY_EREG =&gt; &#039;optional&#039;,
                                               PCLZIP_OPT_BY_PREG =&gt; &#039;optional&#039;,
                                               PCLZIP_OPT_BY_INDEX =&gt; &#039;optional&#039; ));
      if ($v_result != 1) {
          return 0;
      }
    }

    // ----- Magic quotes trick
    $this-&gt;privDisableMagicQuotes();

    // ----- Call the delete fct
    $v_list = array();
    if (($v_result = $this-&gt;privDeleteByRule($v_list, $v_options)) != 1) {
      $this-&gt;privSwapBackMagicQuotes();
      unset($v_list);
      return(0);
    }

    // ----- Magic quotes trick
    $this-&gt;privSwapBackMagicQuotes();

    // ----- Return
    return $v_list;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : deleteByIndex()
  // Description :
  //   ***** Deprecated *****
  //   delete(PCLZIP_OPT_BY_INDEX, $p_index) should be prefered.
  // --------------------------------------------------------------------------------
  function deleteByIndex($p_index)
  {
    
    $p_list = $this-&gt;delete(PCLZIP_OPT_BY_INDEX, $p_index);

    // ----- Return
    return $p_list;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : properties()
  // Description :
  //   This method gives the properties of the archive.
  //   The properties are :
  //     nb : Number of files in the archive
  //     comment : Comment associated with the archive file
  //     status : not_exist, ok
  // Parameters :
  //   None
  // Return Values :
  //   0 on failure,
  //   An array with the archive properties.
  // --------------------------------------------------------------------------------
  function properties()
  {

    // ----- Reset the error handler
    $this-&gt;privErrorReset();

    // ----- Magic quotes trick
    $this-&gt;privDisableMagicQuotes();

    // ----- Check archive
    if (!$this-&gt;privCheckFormat()) {
      $this-&gt;privSwapBackMagicQuotes();
      return(0);
    }

    // ----- Default properties
    $v_prop = array();
    $v_prop[&#039;comment&#039;] = &#039;&#039;;
    $v_prop[&#039;nb&#039;] = 0;
    $v_prop[&#039;status&#039;] = &#039;not_exist&#039;;

    // ----- Look if file exists
    if (@is_file($this-&gt;zipname))
    {
      // ----- Open the zip file
      if (($this-&gt;zip_fd = @fopen($this-&gt;zipname, &#039;rb&#039;)) == 0)
      {
        $this-&gt;privSwapBackMagicQuotes();
        
        // ----- Error log
        PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, &#039;Unable to open archive \&#039;&#039;.$this-&gt;zipname.&#039;\&#039; in binary read mode&#039;);

        // ----- Return
        return 0;
      }

      // ----- Read the central directory informations
      $v_central_dir = array();
      if (($v_result = $this-&gt;privReadEndCentralDir($v_central_dir)) != 1)
      {
        $this-&gt;privSwapBackMagicQuotes();
        return 0;
      }

      // ----- Close the zip file
      $this-&gt;privCloseFd();

      // ----- Set the user attributes
      $v_prop[&#039;comment&#039;] = $v_central_dir[&#039;comment&#039;];
      $v_prop[&#039;nb&#039;] = $v_central_dir[&#039;entries&#039;];
      $v_prop[&#039;status&#039;] = &#039;ok&#039;;
    }

    // ----- Magic quotes trick
    $this-&gt;privSwapBackMagicQuotes();

    // ----- Return
    return $v_prop;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : duplicate()
  // Description :
  //   This method creates an archive by copying the content of an other one. If
  //   the archive already exist, it is replaced by the new one without any warning.
  // Parameters :
  //   $p_archive : The filename of a valid archive, or
  //                a valid PclZip object.
  // Return Values :
  //   1 on success.
  //   0 or a negative value on error (error code).
  // --------------------------------------------------------------------------------
  function duplicate($p_archive)
  {
    $v_result = 1;

    // ----- Reset the error handler
    $this-&gt;privErrorReset();

    // ----- Look if the $p_archive is a PclZip object
    if ((is_object($p_archive)) &amp;&amp; (get_class($p_archive) == &#039;pclzip&#039;))
    {

      // ----- Duplicate the archive
      $v_result = $this-&gt;privDuplicate($p_archive-&gt;zipname);
    }

    // ----- Look if the $p_archive is a string (so a filename)
    else if (is_string($p_archive))
    {

      // ----- Check that $p_archive is a valid zip file
      // TBC : Should also check the archive format
      if (!is_file($p_archive)) {
        // ----- Error log
        PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, &quot;No file with filename &#039;&quot;.$p_archive.&quot;&#039;&quot;);
        $v_result = PCLZIP_ERR_MISSING_FILE;
      }
      else {
        // ----- Duplicate the archive
        $v_result = $this-&gt;privDuplicate($p_archive);
      }
    }

    // ----- Invalid variable
    else
    {
      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, &quot;Invalid variable type p_archive_to_add&quot;);
      $v_result = PCLZIP_ERR_INVALID_PARAMETER;
    }

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : merge()
  // Description :
  //   This method merge the $p_archive_to_add archive at the end of the current
  //   one ($this).
  //   If the archive ($this) does not exist, the merge becomes a duplicate.
  //   If the $p_archive_to_add archive does not exist, the merge is a success.
  // Parameters :
  //   $p_archive_to_add : It can be directly the filename of a valid zip archive,
  //                       or a PclZip object archive.
  // Return Values :
  //   1 on success,
  //   0 or negative values on error (see below).
  // --------------------------------------------------------------------------------
  function merge($p_archive_to_add)
  {
    $v_result = 1;

    // ----- Reset the error handler
    $this-&gt;privErrorReset();

    // ----- Check archive
    if (!$this-&gt;privCheckFormat()) {
      return(0);
    }

    // ----- Look if the $p_archive_to_add is a PclZip object
    if ((is_object($p_archive_to_add)) &amp;&amp; (get_class($p_archive_to_add) == &#039;pclzip&#039;))
    {

      // ----- Merge the archive
      $v_result = $this-&gt;privMerge($p_archive_to_add);
    }

    // ----- Look if the $p_archive_to_add is a string (so a filename)
    else if (is_string($p_archive_to_add))
    {

      // ----- Create a temporary archive
      $v_object_archive = new PclZip($p_archive_to_add);

      // ----- Merge the archive
      $v_result = $this-&gt;privMerge($v_object_archive);
    }

    // ----- Invalid variable
    else
    {
      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, &quot;Invalid variable type p_archive_to_add&quot;);
      $v_result = PCLZIP_ERR_INVALID_PARAMETER;
    }

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------


  // --------------------------------------------------------------------------------
  // Function : errorCode()
  // Description :
  // Parameters :
  // --------------------------------------------------------------------------------
  function errorCode()
  {
    if (PCLZIP_ERROR_EXTERNAL == 1) {
      return(PclErrorCode());
    }
    else {
      return($this-&gt;error_code);
    }
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : errorName()
  // Description :
  // Parameters :
  // --------------------------------------------------------------------------------
  function errorName($p_with_code=false)
  {
    $v_name = array ( PCLZIP_ERR_NO_ERROR =&gt; &#039;PCLZIP_ERR_NO_ERROR&#039;,
                      PCLZIP_ERR_WRITE_OPEN_FAIL =&gt; &#039;PCLZIP_ERR_WRITE_OPEN_FAIL&#039;,
                      PCLZIP_ERR_READ_OPEN_FAIL =&gt; &#039;PCLZIP_ERR_READ_OPEN_FAIL&#039;,
                      PCLZIP_ERR_INVALID_PARAMETER =&gt; &#039;PCLZIP_ERR_INVALID_PARAMETER&#039;,
                      PCLZIP_ERR_MISSING_FILE =&gt; &#039;PCLZIP_ERR_MISSING_FILE&#039;,
                      PCLZIP_ERR_FILENAME_TOO_LONG =&gt; &#039;PCLZIP_ERR_FILENAME_TOO_LONG&#039;,
                      PCLZIP_ERR_INVALID_ZIP =&gt; &#039;PCLZIP_ERR_INVALID_ZIP&#039;,
                      PCLZIP_ERR_BAD_EXTRACTED_FILE =&gt; &#039;PCLZIP_ERR_BAD_EXTRACTED_FILE&#039;,
                      PCLZIP_ERR_DIR_CREATE_FAIL =&gt; &#039;PCLZIP_ERR_DIR_CREATE_FAIL&#039;,
                      PCLZIP_ERR_BAD_EXTENSION =&gt; &#039;PCLZIP_ERR_BAD_EXTENSION&#039;,
                      PCLZIP_ERR_BAD_FORMAT =&gt; &#039;PCLZIP_ERR_BAD_FORMAT&#039;,
                      PCLZIP_ERR_DELETE_FILE_FAIL =&gt; &#039;PCLZIP_ERR_DELETE_FILE_FAIL&#039;,
                      PCLZIP_ERR_RENAME_FILE_FAIL =&gt; &#039;PCLZIP_ERR_RENAME_FILE_FAIL&#039;,
                      PCLZIP_ERR_BAD_CHECKSUM =&gt; &#039;PCLZIP_ERR_BAD_CHECKSUM&#039;,
                      PCLZIP_ERR_INVALID_ARCHIVE_ZIP =&gt; &#039;PCLZIP_ERR_INVALID_ARCHIVE_ZIP&#039;,
                      PCLZIP_ERR_MISSING_OPTION_VALUE =&gt; &#039;PCLZIP_ERR_MISSING_OPTION_VALUE&#039;,
                      PCLZIP_ERR_INVALID_OPTION_VALUE =&gt; &#039;PCLZIP_ERR_INVALID_OPTION_VALUE&#039;,
                      PCLZIP_ERR_UNSUPPORTED_COMPRESSION =&gt; &#039;PCLZIP_ERR_UNSUPPORTED_COMPRESSION&#039;,
                      PCLZIP_ERR_UNSUPPORTED_ENCRYPTION =&gt; &#039;PCLZIP_ERR_UNSUPPORTED_ENCRYPTION&#039;
                      ,PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE =&gt; &#039;PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE&#039;
                      ,PCLZIP_ERR_DIRECTORY_RESTRICTION =&gt; &#039;PCLZIP_ERR_DIRECTORY_RESTRICTION&#039;
                    );

    if (isset($v_name[$this-&gt;error_code])) {
      $v_value = $v_name[$this-&gt;error_code];
    }
    else {
      $v_value = &#039;NoName&#039;;
    }

    if ($p_with_code) {
      return($v_value.&#039; (&#039;.$this-&gt;error_code.&#039;)&#039;);
    }
    else {
      return($v_value);
    }
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : errorInfo()
  // Description :
  // Parameters :
  // --------------------------------------------------------------------------------
  function errorInfo($p_full=false)
  {
    if (PCLZIP_ERROR_EXTERNAL == 1) {
      return(PclErrorString());
    }
    else {
      if ($p_full) {
        return($this-&gt;errorName(true).&quot; : &quot;.$this-&gt;error_string);
      }
      else {
        return($this-&gt;error_string.&quot; [code &quot;.$this-&gt;error_code.&quot;]&quot;);
      }
    }
  }
  // --------------------------------------------------------------------------------


// --------------------------------------------------------------------------------
// ***** UNDER THIS LINE ARE DEFINED PRIVATE INTERNAL FUNCTIONS *****
// *****                                                        *****
// *****       THESES FUNCTIONS MUST NOT BE USED DIRECTLY       *****
// --------------------------------------------------------------------------------


  // --------------------------------------------------------------------------------
  // Function : privCheckFormat()
  // Description :
  //   This method check that the archive exists and is a valid zip archive.
  //   Several level of check exists. (futur)
  // Parameters :
  //   $p_level : Level of check. Default 0.
  //              0 : Check the first bytes (magic codes) (default value))
  //              1 : 0 + Check the central directory (futur)
  //              2 : 1 + Check each file header (futur)
  // Return Values :
  //   true on success,
  //   false on error, the error code is set.
  // --------------------------------------------------------------------------------
  function privCheckFormat($p_level=0)
  {
    $v_result = true;

	// ----- Reset the file system cache
    clearstatcache();

    // ----- Reset the error handler
    $this-&gt;privErrorReset();

    // ----- Look if the file exits
    if (!is_file($this-&gt;zipname)) {
      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, &quot;Missing archive file &#039;&quot;.$this-&gt;zipname.&quot;&#039;&quot;);
      return(false);
    }

    // ----- Check that the file is readeable
    if (!is_readable($this-&gt;zipname)) {
      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, &quot;Unable to read archive &#039;&quot;.$this-&gt;zipname.&quot;&#039;&quot;);
      return(false);
    }

    // ----- Check the magic code
    // TBC

    // ----- Check the central header
    // TBC

    // ----- Check each file header
    // TBC

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privParseOptions()
  // Description :
  //   This internal methods reads the variable list of arguments ($p_options_list,
  //   $p_size) and generate an array with the options and values ($v_result_list).
  //   $v_requested_options contains the options that can be present and those that
  //   must be present.
  //   $v_requested_options is an array, with the option value as key, and &#039;optional&#039;,
  //   or &#039;mandatory&#039; as value.
  // Parameters :
  //   See above.
  // Return Values :
  //   1 on success.
  //   0 on failure.
  // --------------------------------------------------------------------------------
  function privParseOptions(&amp;$p_options_list, $p_size, &amp;$v_result_list, $v_requested_options=false)
  {
    $v_result=1;
    
    // ----- Read the options
    $i=0;
    while ($i&lt;$p_size) {

      // ----- Check if the option is supported
      if (!isset($v_requested_options[$p_options_list[$i]])) {
        // ----- Error log
        PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, &quot;Invalid optional parameter &#039;&quot;.$p_options_list[$i].&quot;&#039; for this method&quot;);

        // ----- Return
        return PclZip::errorCode();
      }

      // ----- Look for next option
      switch ($p_options_list[$i]) {
        // ----- Look for options that request a path value
        case PCLZIP_OPT_PATH :
        case PCLZIP_OPT_REMOVE_PATH :
        case PCLZIP_OPT_ADD_PATH :
          // ----- Check the number of parameters
          if (($i+1) &gt;= $p_size) {
            // ----- Error log
            PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, &quot;Missing parameter value for option &#039;&quot;.PclZipUtilOptionText($p_options_list[$i]).&quot;&#039;&quot;);

            // ----- Return
            return PclZip::errorCode();
          }

          // ----- Get the value
          $v_result_list[$p_options_list[$i]] = PclZipUtilTranslateWinPath($p_options_list[$i+1], FALSE);
          $i++;
        break;

        case PCLZIP_OPT_TEMP_FILE_THRESHOLD :
          // ----- Check the number of parameters
          if (($i+1) &gt;= $p_size) {
            PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, &quot;Missing parameter value for option &#039;&quot;.PclZipUtilOptionText($p_options_list[$i]).&quot;&#039;&quot;);
            return PclZip::errorCode();
          }
          
          // ----- Check for incompatible options
          if (isset($v_result_list[PCLZIP_OPT_TEMP_FILE_OFF])) {
            PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, &quot;Option &#039;&quot;.PclZipUtilOptionText($p_options_list[$i]).&quot;&#039; can not be used with option &#039;PCLZIP_OPT_TEMP_FILE_OFF&#039;&quot;);
            return PclZip::errorCode();
          }
          
          // ----- Check the value
          $v_value = $p_options_list[$i+1];
          if ((!is_integer($v_value)) || ($v_value&lt;0)) {
            PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, &quot;Integer expected for option &#039;&quot;.PclZipUtilOptionText($p_options_list[$i]).&quot;&#039;&quot;);
            return PclZip::errorCode();
          }

          // ----- Get the value (and convert it in bytes)
          $v_result_list[$p_options_list[$i]] = $v_value*1048576;
          $i++;
        break;

        case PCLZIP_OPT_TEMP_FILE_ON :
          // ----- Check for incompatible options
          if (isset($v_result_list[PCLZIP_OPT_TEMP_FILE_OFF])) {
            PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, &quot;Option &#039;&quot;.PclZipUtilOptionText($p_options_list[$i]).&quot;&#039; can not be used with option &#039;PCLZIP_OPT_TEMP_FILE_OFF&#039;&quot;);
            return PclZip::errorCode();
          }
          
          $v_result_list[$p_options_list[$i]] = true;
        break;

        case PCLZIP_OPT_TEMP_FILE_OFF :
          // ----- Check for incompatible options
          if (isset($v_result_list[PCLZIP_OPT_TEMP_FILE_ON])) {
            PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, &quot;Option &#039;&quot;.PclZipUtilOptionText($p_options_list[$i]).&quot;&#039; can not be used with option &#039;PCLZIP_OPT_TEMP_FILE_ON&#039;&quot;);
            return PclZip::errorCode();
          }
          // ----- Check for incompatible options
          if (isset($v_result_list[PCLZIP_OPT_TEMP_FILE_THRESHOLD])) {
            PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, &quot;Option &#039;&quot;.PclZipUtilOptionText($p_options_list[$i]).&quot;&#039; can not be used with option &#039;PCLZIP_OPT_TEMP_FILE_THRESHOLD&#039;&quot;);
            return PclZip::errorCode();
          }
          
          $v_result_list[$p_options_list[$i]] = true;
        break;

        case PCLZIP_OPT_EXTRACT_DIR_RESTRICTION :
          // ----- Check the number of parameters
          if (($i+1) &gt;= $p_size) {
            // ----- Error log
            PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, &quot;Missing parameter value for option &#039;&quot;.PclZipUtilOptionText($p_options_list[$i]).&quot;&#039;&quot;);

            // ----- Return
            return PclZip::errorCode();
          }

          // ----- Get the value
          if (   is_string($p_options_list[$i+1])
              &amp;&amp; ($p_options_list[$i+1] != &#039;&#039;)) {
            $v_result_list[$p_options_list[$i]] = PclZipUtilTranslateWinPath($p_options_list[$i+1], FALSE);
            $i++;
          }
          else {
          }
        break;

        // ----- Look for options that request an array of string for value
        case PCLZIP_OPT_BY_NAME :
          // ----- Check the number of parameters
          if (($i+1) &gt;= $p_size) {
            // ----- Error log
            PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, &quot;Missing parameter value for option &#039;&quot;.PclZipUtilOptionText($p_options_list[$i]).&quot;&#039;&quot;);

            // ----- Return
            return PclZip::errorCode();
          }

          // ----- Get the value
          if (is_string($p_options_list[$i+1])) {
              $v_result_list[$p_options_list[$i]][0] = $p_options_list[$i+1];
          }
          else if (is_array($p_options_list[$i+1])) {
              $v_result_list[$p_options_list[$i]] = $p_options_list[$i+1];
          }
          else {
            // ----- Error log
            PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, &quot;Wrong parameter value for option &#039;&quot;.PclZipUtilOptionText($p_options_list[$i]).&quot;&#039;&quot;);

            // ----- Return
            return PclZip::errorCode();
          }
          $i++;
        break;

        // ----- Look for options that request an EREG or PREG expression
        case PCLZIP_OPT_BY_EREG :
          // ereg() is deprecated starting with PHP 5.3. Move PCLZIP_OPT_BY_EREG
          // to PCLZIP_OPT_BY_PREG
          $p_options_list[$i] = PCLZIP_OPT_BY_PREG;
        case PCLZIP_OPT_BY_PREG :
        //case PCLZIP_OPT_CRYPT :
          // ----- Check the number of parameters
          if (($i+1) &gt;= $p_size) {
            // ----- Error log
            PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, &quot;Missing parameter value for option &#039;&quot;.PclZipUtilOptionText($p_options_list[$i]).&quot;&#039;&quot;);

            // ----- Return
            return PclZip::errorCode();
          }

          // ----- Get the value
          if (is_string($p_options_list[$i+1])) {
              $v_result_list[$p_options_list[$i]] = $p_options_list[$i+1];
          }
          else {
            // ----- Error log
            PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, &quot;Wrong parameter value for option &#039;&quot;.PclZipUtilOptionText($p_options_list[$i]).&quot;&#039;&quot;);

            // ----- Return
            return PclZip::errorCode();
          }
          $i++;
        break;

        // ----- Look for options that takes a string
        case PCLZIP_OPT_COMMENT :
        case PCLZIP_OPT_ADD_COMMENT :
        case PCLZIP_OPT_PREPEND_COMMENT :
          // ----- Check the number of parameters
          if (($i+1) &gt;= $p_size) {
            // ----- Error log
            PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE,
			                     &quot;Missing parameter value for option &#039;&quot;
								 .PclZipUtilOptionText($p_options_list[$i])
								 .&quot;&#039;&quot;);

            // ----- Return
            return PclZip::errorCode();
          }

          // ----- Get the value
          if (is_string($p_options_list[$i+1])) {
              $v_result_list[$p_options_list[$i]] = $p_options_list[$i+1];
          }
          else {
            // ----- Error log
            PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE,
			                     &quot;Wrong parameter value for option &#039;&quot;
								 .PclZipUtilOptionText($p_options_list[$i])
								 .&quot;&#039;&quot;);

            // ----- Return
            return PclZip::errorCode();
          }
          $i++;
        break;

        // ----- Look for options that request an array of index
        case PCLZIP_OPT_BY_INDEX :
          // ----- Check the number of parameters
          if (($i+1) &gt;= $p_size) {
            // ----- Error log
            PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, &quot;Missing parameter value for option &#039;&quot;.PclZipUtilOptionText($p_options_list[$i]).&quot;&#039;&quot;);

            // ----- Return
            return PclZip::errorCode();
          }

          // ----- Get the value
          $v_work_list = array();
          if (is_string($p_options_list[$i+1])) {

              // ----- Remove spaces
              $p_options_list[$i+1] = strtr($p_options_list[$i+1], &#039; &#039;, &#039;&#039;);

              // ----- Parse items
              $v_work_list = explode(&quot;,&quot;, $p_options_list[$i+1]);
          }
          else if (is_integer($p_options_list[$i+1])) {
              $v_work_list[0] = $p_options_list[$i+1].&#039;-&#039;.$p_options_list[$i+1];
          }
          else if (is_array($p_options_list[$i+1])) {
              $v_work_list = $p_options_list[$i+1];
          }
          else {
            // ----- Error log
            PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, &quot;Value must be integer, string or array for option &#039;&quot;.PclZipUtilOptionText($p_options_list[$i]).&quot;&#039;&quot;);

            // ----- Return
            return PclZip::errorCode();
          }
          
          // ----- Reduce the index list
          // each index item in the list must be a couple with a start and
          // an end value : [0,3], [5-5], [8-10], ...
          // ----- Check the format of each item
          $v_sort_flag=false;
          $v_sort_value=0;
          for ($j=0; $j&lt;sizeof($v_work_list); $j++) {
              // ----- Explode the item
              $v_item_list = explode(&quot;-&quot;, $v_work_list[$j]);
              $v_size_item_list = sizeof($v_item_list);
              
              // ----- TBC : Here we might check that each item is a
              // real integer ...
              
              // ----- Look for single value
              if ($v_size_item_list == 1) {
                  // ----- Set the option value
                  $v_result_list[$p_options_list[$i]][$j][&#039;start&#039;] = $v_item_list[0];
                  $v_result_list[$p_options_list[$i]][$j][&#039;end&#039;] = $v_item_list[0];
              }
              elseif ($v_size_item_list == 2) {
                  // ----- Set the option value
                  $v_result_list[$p_options_list[$i]][$j][&#039;start&#039;] = $v_item_list[0];
                  $v_result_list[$p_options_list[$i]][$j][&#039;end&#039;] = $v_item_list[1];
              }
              else {
                  // ----- Error log
                  PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, &quot;Too many values in index range for option &#039;&quot;.PclZipUtilOptionText($p_options_list[$i]).&quot;&#039;&quot;);

                  // ----- Return
                  return PclZip::errorCode();
              }


              // ----- Look for list sort
              if ($v_result_list[$p_options_list[$i]][$j][&#039;start&#039;] &lt; $v_sort_value) {
                  $v_sort_flag=true;

                  // ----- TBC : An automatic sort should be writen ...
                  // ----- Error log
                  PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, &quot;Invalid order of index range for option &#039;&quot;.PclZipUtilOptionText($p_options_list[$i]).&quot;&#039;&quot;);

                  // ----- Return
                  return PclZip::errorCode();
              }
              $v_sort_value = $v_result_list[$p_options_list[$i]][$j][&#039;start&#039;];
          }
          
          // ----- Sort the items
          if ($v_sort_flag) {
              // TBC : To Be Completed
          }

          // ----- Next option
          $i++;
        break;

        // ----- Look for options that request no value
        case PCLZIP_OPT_REMOVE_ALL_PATH :
        case PCLZIP_OPT_EXTRACT_AS_STRING :
        case PCLZIP_OPT_NO_COMPRESSION :
        case PCLZIP_OPT_EXTRACT_IN_OUTPUT :
        case PCLZIP_OPT_REPLACE_NEWER :
        case PCLZIP_OPT_STOP_ON_ERROR :
          $v_result_list[$p_options_list[$i]] = true;
        break;

        // ----- Look for options that request an octal value
        case PCLZIP_OPT_SET_CHMOD :
          // ----- Check the number of parameters
          if (($i+1) &gt;= $p_size) {
            // ----- Error log
            PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, &quot;Missing parameter value for option &#039;&quot;.PclZipUtilOptionText($p_options_list[$i]).&quot;&#039;&quot;);

            // ----- Return
            return PclZip::errorCode();
          }

          // ----- Get the value
          $v_result_list[$p_options_list[$i]] = $p_options_list[$i+1];
          $i++;
        break;

        // ----- Look for options that request a call-back
        case PCLZIP_CB_PRE_EXTRACT :
        case PCLZIP_CB_POST_EXTRACT :
        case PCLZIP_CB_PRE_ADD :
        case PCLZIP_CB_POST_ADD :
        /* for futur use
        case PCLZIP_CB_PRE_DELETE :
        case PCLZIP_CB_POST_DELETE :
        case PCLZIP_CB_PRE_LIST :
        case PCLZIP_CB_POST_LIST :
        */
          // ----- Check the number of parameters
          if (($i+1) &gt;= $p_size) {
            // ----- Error log
            PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, &quot;Missing parameter value for option &#039;&quot;.PclZipUtilOptionText($p_options_list[$i]).&quot;&#039;&quot;);

            // ----- Return
            return PclZip::errorCode();
          }

          // ----- Get the value
          $v_function_name = $p_options_list[$i+1];

          // ----- Check that the value is a valid existing function
          if (!function_exists($v_function_name)) {
            // ----- Error log
            PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, &quot;Function &#039;&quot;.$v_function_name.&quot;()&#039; is not an existing function for option &#039;&quot;.PclZipUtilOptionText($p_options_list[$i]).&quot;&#039;&quot;);

            // ----- Return
            return PclZip::errorCode();
          }

          // ----- Set the attribute
          $v_result_list[$p_options_list[$i]] = $v_function_name;
          $i++;
        break;

        default :
          // ----- Error log
          PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER,
		                       &quot;Unknown parameter &#039;&quot;
							   .$p_options_list[$i].&quot;&#039;&quot;);

          // ----- Return
          return PclZip::errorCode();
      }

      // ----- Next options
      $i++;
    }

    // ----- Look for mandatory options
    if ($v_requested_options !== false) {
      for ($key=reset($v_requested_options); $key=key($v_requested_options); $key=next($v_requested_options)) {
        // ----- Look for mandatory option
        if ($v_requested_options[$key] == &#039;mandatory&#039;) {
          // ----- Look if present
          if (!isset($v_result_list[$key])) {
            // ----- Error log
            PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, &quot;Missing mandatory parameter &quot;.PclZipUtilOptionText($key).&quot;(&quot;.$key.&quot;)&quot;);

            // ----- Return
            return PclZip::errorCode();
          }
        }
      }
    }
    
    // ----- Look for default values
    if (!isset($v_result_list[PCLZIP_OPT_TEMP_FILE_THRESHOLD])) {
      
    }

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privOptionDefaultThreshold()
  // Description :
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privOptionDefaultThreshold(&amp;$p_options)
  {
    $v_result=1;
    
    if (isset($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD])
        || isset($p_options[PCLZIP_OPT_TEMP_FILE_OFF])) {
      return $v_result;
    }
    
    // ----- Get &#039;memory_limit&#039; configuration value
    $v_memory_limit = ini_get(&#039;memory_limit&#039;);
    $v_memory_limit = trim($v_memory_limit);
    $last = strtolower(substr($v_memory_limit, -1));
 
    if($last == &#039;g&#039;)
        //$v_memory_limit = $v_memory_limit*1024*1024*1024;
        $v_memory_limit = $v_memory_limit*1073741824;
    if($last == &#039;m&#039;)
        //$v_memory_limit = $v_memory_limit*1024*1024;
        $v_memory_limit = $v_memory_limit*1048576;
    if($last == &#039;k&#039;)
        $v_memory_limit = $v_memory_limit*1024;
            
    $p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD] = floor($v_memory_limit*PCLZIP_TEMPORARY_FILE_RATIO);
    

    // ----- Sanity check : No threshold if value lower than 1M
    if ($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD] &lt; 1048576) {
      unset($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD]);
    }
          
    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privFileDescrParseAtt()
  // Description :
  // Parameters :
  // Return Values :
  //   1 on success.
  //   0 on failure.
  // --------------------------------------------------------------------------------
  function privFileDescrParseAtt(&amp;$p_file_list, &amp;$p_filedescr, $v_options, $v_requested_options=false)
  {
    $v_result=1;
    
    // ----- For each file in the list check the attributes
    foreach ($p_file_list as $v_key =&gt; $v_value) {
    
      // ----- Check if the option is supported
      if (!isset($v_requested_options[$v_key])) {
        // ----- Error log
        PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, &quot;Invalid file attribute &#039;&quot;.$v_key.&quot;&#039; for this file&quot;);

        // ----- Return
        return PclZip::errorCode();
      }

      // ----- Look for attribute
      switch ($v_key) {
        case PCLZIP_ATT_FILE_NAME :
          if (!is_string($v_value)) {
            PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, &quot;Invalid type &quot;.gettype($v_value).&quot;. String expected for attribute &#039;&quot;.PclZipUtilOptionText($v_key).&quot;&#039;&quot;);
            return PclZip::errorCode();
          }

          $p_filedescr[&#039;filename&#039;] = PclZipUtilPathReduction($v_value);
          
          if ($p_filedescr[&#039;filename&#039;] == &#039;&#039;) {
            PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, &quot;Invalid empty filename for attribute &#039;&quot;.PclZipUtilOptionText($v_key).&quot;&#039;&quot;);
            return PclZip::errorCode();
          }

        break;

        case PCLZIP_ATT_FILE_NEW_SHORT_NAME :
          if (!is_string($v_value)) {
            PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, &quot;Invalid type &quot;.gettype($v_value).&quot;. String expected for attribute &#039;&quot;.PclZipUtilOptionText($v_key).&quot;&#039;&quot;);
            return PclZip::errorCode();
          }

          $p_filedescr[&#039;new_short_name&#039;] = PclZipUtilPathReduction($v_value);

          if ($p_filedescr[&#039;new_short_name&#039;] == &#039;&#039;) {
            PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, &quot;Invalid empty short filename for attribute &#039;&quot;.PclZipUtilOptionText($v_key).&quot;&#039;&quot;);
            return PclZip::errorCode();
          }
        break;

        case PCLZIP_ATT_FILE_NEW_FULL_NAME :
          if (!is_string($v_value)) {
            PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, &quot;Invalid type &quot;.gettype($v_value).&quot;. String expected for attribute &#039;&quot;.PclZipUtilOptionText($v_key).&quot;&#039;&quot;);
            return PclZip::errorCode();
          }

          $p_filedescr[&#039;new_full_name&#039;] = PclZipUtilPathReduction($v_value);

          if ($p_filedescr[&#039;new_full_name&#039;] == &#039;&#039;) {
            PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, &quot;Invalid empty full filename for attribute &#039;&quot;.PclZipUtilOptionText($v_key).&quot;&#039;&quot;);
            return PclZip::errorCode();
          }
        break;

        // ----- Look for options that takes a string
        case PCLZIP_ATT_FILE_COMMENT :
          if (!is_string($v_value)) {
            PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, &quot;Invalid type &quot;.gettype($v_value).&quot;. String expected for attribute &#039;&quot;.PclZipUtilOptionText($v_key).&quot;&#039;&quot;);
            return PclZip::errorCode();
          }

          $p_filedescr[&#039;comment&#039;] = $v_value;
        break;

        case PCLZIP_ATT_FILE_MTIME :
          if (!is_integer($v_value)) {
            PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, &quot;Invalid type &quot;.gettype($v_value).&quot;. Integer expected for attribute &#039;&quot;.PclZipUtilOptionText($v_key).&quot;&#039;&quot;);
            return PclZip::errorCode();
          }

          $p_filedescr[&#039;mtime&#039;] = $v_value;
        break;

        case PCLZIP_ATT_FILE_CONTENT :
          $p_filedescr[&#039;content&#039;] = $v_value;
        break;

        default :
          // ----- Error log
          PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER,
		                           &quot;Unknown parameter &#039;&quot;.$v_key.&quot;&#039;&quot;);

          // ----- Return
          return PclZip::errorCode();
      }

      // ----- Look for mandatory options
      if ($v_requested_options !== false) {
        for ($key=reset($v_requested_options); $key=key($v_requested_options); $key=next($v_requested_options)) {
          // ----- Look for mandatory option
          if ($v_requested_options[$key] == &#039;mandatory&#039;) {
            // ----- Look if present
            if (!isset($p_file_list[$key])) {
              PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, &quot;Missing mandatory parameter &quot;.PclZipUtilOptionText($key).&quot;(&quot;.$key.&quot;)&quot;);
              return PclZip::errorCode();
            }
          }
        }
      }
    
    // end foreach
    }
    
    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privFileDescrExpand()
  // Description :
  //   This method look for each item of the list to see if its a file, a folder
  //   or a string to be added as file. For any other type of files (link, other)
  //   just ignore the item.
  //   Then prepare the information that will be stored for that file.
  //   When its a folder, expand the folder with all the files that are in that 
  //   folder (recursively).
  // Parameters :
  // Return Values :
  //   1 on success.
  //   0 on failure.
  // --------------------------------------------------------------------------------
  function privFileDescrExpand(&amp;$p_filedescr_list, &amp;$p_options)
  {
    $v_result=1;
    
    // ----- Create a result list
    $v_result_list = array();
    
    // ----- Look each entry
    for ($i=0; $i&lt;sizeof($p_filedescr_list); $i++) {
      
      // ----- Get filedescr
      $v_descr = $p_filedescr_list[$i];
      
      // ----- Reduce the filename
      $v_descr[&#039;filename&#039;] = PclZipUtilTranslateWinPath($v_descr[&#039;filename&#039;], false);
      $v_descr[&#039;filename&#039;] = PclZipUtilPathReduction($v_descr[&#039;filename&#039;]);
      
      // ----- Look for real file or folder
      if (file_exists($v_descr[&#039;filename&#039;])) {
        if (@is_file($v_descr[&#039;filename&#039;])) {
          $v_descr[&#039;type&#039;] = &#039;file&#039;;
        }
        else if (@is_dir($v_descr[&#039;filename&#039;])) {
          $v_descr[&#039;type&#039;] = &#039;folder&#039;;
        }
        else if (@is_link($v_descr[&#039;filename&#039;])) {
          // skip
          continue;
        }
        else {
          // skip
          continue;
        }
      }
      
      // ----- Look for string added as file
      else if (isset($v_descr[&#039;content&#039;])) {
        $v_descr[&#039;type&#039;] = &#039;virtual_file&#039;;
      }
      
      // ----- Missing file
      else {
        // ----- Error log
        PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, &quot;File &#039;&quot;.$v_descr[&#039;filename&#039;].&quot;&#039; does not exist&quot;);

        // ----- Return
        return PclZip::errorCode();
      }
      
      // ----- Calculate the stored filename
      $this-&gt;privCalculateStoredFilename($v_descr, $p_options);
      
      // ----- Add the descriptor in result list
      $v_result_list[sizeof($v_result_list)] = $v_descr;
      
      // ----- Look for folder
      if ($v_descr[&#039;type&#039;] == &#039;folder&#039;) {
        // ----- List of items in folder
        $v_dirlist_descr = array();
        $v_dirlist_nb = 0;
        if ($v_folder_handler = @opendir($v_descr[&#039;filename&#039;])) {
          while (($v_item_handler = @readdir($v_folder_handler)) !== false) {

            // ----- Skip &#039;.&#039; and &#039;..&#039;
            if (($v_item_handler == &#039;.&#039;) || ($v_item_handler == &#039;..&#039;)) {
                continue;
            }
            
            // ----- Compose the full filename
            $v_dirlist_descr[$v_dirlist_nb][&#039;filename&#039;] = $v_descr[&#039;filename&#039;].&#039;/&#039;.$v_item_handler;
            
            // ----- Look for different stored filename
            // Because the name of the folder was changed, the name of the
            // files/sub-folders also change
            if (($v_descr[&#039;stored_filename&#039;] != $v_descr[&#039;filename&#039;])
                 &amp;&amp; (!isset($p_options[PCLZIP_OPT_REMOVE_ALL_PATH]))) {
              if ($v_descr[&#039;stored_filename&#039;] != &#039;&#039;) {
                $v_dirlist_descr[$v_dirlist_nb][&#039;new_full_name&#039;] = $v_descr[&#039;stored_filename&#039;].&#039;/&#039;.$v_item_handler;
              }
              else {
                $v_dirlist_descr[$v_dirlist_nb][&#039;new_full_name&#039;] = $v_item_handler;
              }
            }
      
            $v_dirlist_nb++;
          }
          
          @closedir($v_folder_handler);
        }
        else {
          // TBC : unable to open folder in read mode
        }
        
        // ----- Expand each element of the list
        if ($v_dirlist_nb != 0) {
          // ----- Expand
          if (($v_result = $this-&gt;privFileDescrExpand($v_dirlist_descr, $p_options)) != 1) {
            return $v_result;
          }
          
          // ----- Concat the resulting list
          $v_result_list = array_merge($v_result_list, $v_dirlist_descr);
        }
        else {
        }
          
        // ----- Free local array
        unset($v_dirlist_descr);
      }
    }
    
    // ----- Get the result list
    $p_filedescr_list = $v_result_list;

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privCreate()
  // Description :
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privCreate($p_filedescr_list, &amp;$p_result_list, &amp;$p_options)
  {
    $v_result=1;
    $v_list_detail = array();
    
    // ----- Magic quotes trick
    $this-&gt;privDisableMagicQuotes();

    // ----- Open the file in write mode
    if (($v_result = $this-&gt;privOpenFd(&#039;wb&#039;)) != 1)
    {
      // ----- Return
      return $v_result;
    }

    // ----- Add the list of files
    $v_result = $this-&gt;privAddList($p_filedescr_list, $p_result_list, $p_options);

    // ----- Close
    $this-&gt;privCloseFd();

    // ----- Magic quotes trick
    $this-&gt;privSwapBackMagicQuotes();

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privAdd()
  // Description :
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privAdd($p_filedescr_list, &amp;$p_result_list, &amp;$p_options)
  {
    $v_result=1;
    $v_list_detail = array();

    // ----- Look if the archive exists or is empty
    if ((!is_file($this-&gt;zipname)) || (filesize($this-&gt;zipname) == 0))
    {

      // ----- Do a create
      $v_result = $this-&gt;privCreate($p_filedescr_list, $p_result_list, $p_options);

      // ----- Return
      return $v_result;
    }
    // ----- Magic quotes trick
    $this-&gt;privDisableMagicQuotes();

    // ----- Open the zip file
    if (($v_result=$this-&gt;privOpenFd(&#039;rb&#039;)) != 1)
    {
      // ----- Magic quotes trick
      $this-&gt;privSwapBackMagicQuotes();

      // ----- Return
      return $v_result;
    }

    // ----- Read the central directory informations
    $v_central_dir = array();
    if (($v_result = $this-&gt;privReadEndCentralDir($v_central_dir)) != 1)
    {
      $this-&gt;privCloseFd();
      $this-&gt;privSwapBackMagicQuotes();
      return $v_result;
    }

    // ----- Go to beginning of File
    @rewind($this-&gt;zip_fd);

    // ----- Creates a temporay file
    $v_zip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid(&#039;pclzip-&#039;).&#039;.tmp&#039;;

    // ----- Open the temporary file in write mode
    if (($v_zip_temp_fd = @fopen($v_zip_temp_name, &#039;wb&#039;)) == 0)
    {
      $this-&gt;privCloseFd();
      $this-&gt;privSwapBackMagicQuotes();

      PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, &#039;Unable to open temporary file \&#039;&#039;.$v_zip_temp_name.&#039;\&#039; in binary write mode&#039;);

      // ----- Return
      return PclZip::errorCode();
    }

    // ----- Copy the files from the archive to the temporary file
    // TBC : Here I should better append the file and go back to erase the central dir
    $v_size = $v_central_dir[&#039;offset&#039;];
    while ($v_size != 0)
    {
      $v_read_size = ($v_size &lt; PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
      $v_buffer = fread($this-&gt;zip_fd, $v_read_size);
      @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
      $v_size -= $v_read_size;
    }

    // ----- Swap the file descriptor
    // Here is a trick : I swap the temporary fd with the zip fd, in order to use
    // the following methods on the temporary fil and not the real archive
    $v_swap = $this-&gt;zip_fd;
    $this-&gt;zip_fd = $v_zip_temp_fd;
    $v_zip_temp_fd = $v_swap;

    // ----- Add the files
    $v_header_list = array();
    if (($v_result = $this-&gt;privAddFileList($p_filedescr_list, $v_header_list, $p_options)) != 1)
    {
      fclose($v_zip_temp_fd);
      $this-&gt;privCloseFd();
      @unlink($v_zip_temp_name);
      $this-&gt;privSwapBackMagicQuotes();

      // ----- Return
      return $v_result;
    }

    // ----- Store the offset of the central dir
    $v_offset = @ftell($this-&gt;zip_fd);

    // ----- Copy the block of file headers from the old archive
    $v_size = $v_central_dir[&#039;size&#039;];
    while ($v_size != 0)
    {
      $v_read_size = ($v_size &lt; PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
      $v_buffer = @fread($v_zip_temp_fd, $v_read_size);
      @fwrite($this-&gt;zip_fd, $v_buffer, $v_read_size);
      $v_size -= $v_read_size;
    }

    // ----- Create the Central Dir files header
    for ($i=0, $v_count=0; $i&lt;sizeof($v_header_list); $i++)
    {
      // ----- Create the file header
      if ($v_header_list[$i][&#039;status&#039;] == &#039;ok&#039;) {
        if (($v_result = $this-&gt;privWriteCentralFileHeader($v_header_list[$i])) != 1) {
          fclose($v_zip_temp_fd);
          $this-&gt;privCloseFd();
          @unlink($v_zip_temp_name);
          $this-&gt;privSwapBackMagicQuotes();

          // ----- Return
          return $v_result;
        }
        $v_count++;
      }

      // ----- Transform the header to a &#039;usable&#039; info
      $this-&gt;privConvertHeader2FileInfo($v_header_list[$i], $p_result_list[$i]);
    }

    // ----- Zip file comment
    $v_comment = $v_central_dir[&#039;comment&#039;];
    if (isset($p_options[PCLZIP_OPT_COMMENT])) {
      $v_comment = $p_options[PCLZIP_OPT_COMMENT];
    }
    if (isset($p_options[PCLZIP_OPT_ADD_COMMENT])) {
      $v_comment = $v_comment.$p_options[PCLZIP_OPT_ADD_COMMENT];
    }
    if (isset($p_options[PCLZIP_OPT_PREPEND_COMMENT])) {
      $v_comment = $p_options[PCLZIP_OPT_PREPEND_COMMENT].$v_comment;
    }

    // ----- Calculate the size of the central header
    $v_size = @ftell($this-&gt;zip_fd)-$v_offset;

    // ----- Create the central dir footer
    if (($v_result = $this-&gt;privWriteCentralHeader($v_count+$v_central_dir[&#039;entries&#039;], $v_size, $v_offset, $v_comment)) != 1)
    {
      // ----- Reset the file list
      unset($v_header_list);
      $this-&gt;privSwapBackMagicQuotes();

      // ----- Return
      return $v_result;
    }

    // ----- Swap back the file descriptor
    $v_swap = $this-&gt;zip_fd;
    $this-&gt;zip_fd = $v_zip_temp_fd;
    $v_zip_temp_fd = $v_swap;

    // ----- Close
    $this-&gt;privCloseFd();

    // ----- Close the temporary file
    @fclose($v_zip_temp_fd);

    // ----- Magic quotes trick
    $this-&gt;privSwapBackMagicQuotes();

    // ----- Delete the zip file
    // TBC : I should test the result ...
    @unlink($this-&gt;zipname);

    // ----- Rename the temporary file
    // TBC : I should test the result ...
    //@rename($v_zip_temp_name, $this-&gt;zipname);
    PclZipUtilRename($v_zip_temp_name, $this-&gt;zipname);

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privOpenFd()
  // Description :
  // Parameters :
  // --------------------------------------------------------------------------------
  function privOpenFd($p_mode)
  {
    $v_result=1;

    // ----- Look if already open
    if ($this-&gt;zip_fd != 0)
    {
      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, &#039;Zip file \&#039;&#039;.$this-&gt;zipname.&#039;\&#039; already open&#039;);

      // ----- Return
      return PclZip::errorCode();
    }

    // ----- Open the zip file
    if (($this-&gt;zip_fd = @fopen($this-&gt;zipname, $p_mode)) == 0)
    {
      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, &#039;Unable to open archive \&#039;&#039;.$this-&gt;zipname.&#039;\&#039; in &#039;.$p_mode.&#039; mode&#039;);

      // ----- Return
      return PclZip::errorCode();
    }

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privCloseFd()
  // Description :
  // Parameters :
  // --------------------------------------------------------------------------------
  function privCloseFd()
  {
    $v_result=1;

    if ($this-&gt;zip_fd != 0)
      @fclose($this-&gt;zip_fd);
    $this-&gt;zip_fd = 0;

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privAddList()
  // Description :
  //   $p_add_dir and $p_remove_dir will give the ability to memorize a path which is
  //   different from the real path of the file. This is usefull if you want to have PclTar
  //   running in any directory, and memorize relative path from an other directory.
  // Parameters :
  //   $p_list : An array containing the file or directory names to add in the tar
  //   $p_result_list : list of added files with their properties (specially the status field)
  //   $p_add_dir : Path to add in the filename path archived
  //   $p_remove_dir : Path to remove in the filename path archived
  // Return Values :
  // --------------------------------------------------------------------------------
//  function privAddList($p_list, &amp;$p_result_list, $p_add_dir, $p_remove_dir, $p_remove_all_dir, &amp;$p_options)
  function privAddList($p_filedescr_list, &amp;$p_result_list, &amp;$p_options)
  {
    $v_result=1;

    // ----- Add the files
    $v_header_list = array();
    if (($v_result = $this-&gt;privAddFileList($p_filedescr_list, $v_header_list, $p_options)) != 1)
    {
      // ----- Return
      return $v_result;
    }

    // ----- Store the offset of the central dir
    $v_offset = @ftell($this-&gt;zip_fd);

    // ----- Create the Central Dir files header
    for ($i=0,$v_count=0; $i&lt;sizeof($v_header_list); $i++)
    {
      // ----- Create the file header
      if ($v_header_list[$i][&#039;status&#039;] == &#039;ok&#039;) {
        if (($v_result = $this-&gt;privWriteCentralFileHeader($v_header_list[$i])) != 1) {
          // ----- Return
          return $v_result;
        }
        $v_count++;
      }

      // ----- Transform the header to a &#039;usable&#039; info
      $this-&gt;privConvertHeader2FileInfo($v_header_list[$i], $p_result_list[$i]);
    }

    // ----- Zip file comment
    $v_comment = &#039;&#039;;
    if (isset($p_options[PCLZIP_OPT_COMMENT])) {
      $v_comment = $p_options[PCLZIP_OPT_COMMENT];
    }

    // ----- Calculate the size of the central header
    $v_size = @ftell($this-&gt;zip_fd)-$v_offset;

    // ----- Create the central dir footer
    if (($v_result = $this-&gt;privWriteCentralHeader($v_count, $v_size, $v_offset, $v_comment)) != 1)
    {
      // ----- Reset the file list
      unset($v_header_list);

      // ----- Return
      return $v_result;
    }

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privAddFileList()
  // Description :
  // Parameters :
  //   $p_filedescr_list : An array containing the file description 
  //                      or directory names to add in the zip
  //   $p_result_list : list of added files with their properties (specially the status field)
  // Return Values :
  // --------------------------------------------------------------------------------
  function privAddFileList($p_filedescr_list, &amp;$p_result_list, &amp;$p_options)
  {
    $v_result=1;
    $v_header = array();

    // ----- Recuperate the current number of elt in list
    $v_nb = sizeof($p_result_list);

    // ----- Loop on the files
    for ($j=0; ($j&lt;sizeof($p_filedescr_list)) &amp;&amp; ($v_result==1); $j++) {
      // ----- Format the filename
      $p_filedescr_list[$j][&#039;filename&#039;]
      = PclZipUtilTranslateWinPath($p_filedescr_list[$j][&#039;filename&#039;], false);
      

      // ----- Skip empty file names
      // TBC : Can this be possible ? not checked in DescrParseAtt ?
      if ($p_filedescr_list[$j][&#039;filename&#039;] == &quot;&quot;) {
        continue;
      }

      // ----- Check the filename
      if (   ($p_filedescr_list[$j][&#039;type&#039;] != &#039;virtual_file&#039;)
          &amp;&amp; (!file_exists($p_filedescr_list[$j][&#039;filename&#039;]))) {
        PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, &quot;File &#039;&quot;.$p_filedescr_list[$j][&#039;filename&#039;].&quot;&#039; does not exist&quot;);
        return PclZip::errorCode();
      }

      // ----- Look if it is a file or a dir with no all path remove option
      // or a dir with all its path removed
//      if (   (is_file($p_filedescr_list[$j][&#039;filename&#039;]))
//          || (   is_dir($p_filedescr_list[$j][&#039;filename&#039;])
      if (   ($p_filedescr_list[$j][&#039;type&#039;] == &#039;file&#039;)
          || ($p_filedescr_list[$j][&#039;type&#039;] == &#039;virtual_file&#039;)
          || (   ($p_filedescr_list[$j][&#039;type&#039;] == &#039;folder&#039;)
              &amp;&amp; (   !isset($p_options[PCLZIP_OPT_REMOVE_ALL_PATH])
                  || !$p_options[PCLZIP_OPT_REMOVE_ALL_PATH]))
          ) {

        // ----- Add the file
        $v_result = $this-&gt;privAddFile($p_filedescr_list[$j], $v_header,
                                       $p_options);
        if ($v_result != 1) {
          return $v_result;
        }

        // ----- Store the file infos
        $p_result_list[$v_nb++] = $v_header;
      }
    }

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privAddFile()
  // Description :
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privAddFile($p_filedescr, &amp;$p_header, &amp;$p_options)
  {
    $v_result=1;
    
    // ----- Working variable
    $p_filename = $p_filedescr[&#039;filename&#039;];

    // TBC : Already done in the fileAtt check ... ?
    if ($p_filename == &quot;&quot;) {
      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, &quot;Invalid file list parameter (invalid or empty list)&quot;);

      // ----- Return
      return PclZip::errorCode();
    }
  
    // ----- Look for a stored different filename 
    /* TBC : Removed
    if (isset($p_filedescr[&#039;stored_filename&#039;])) {
      $v_stored_filename = $p_filedescr[&#039;stored_filename&#039;];
    }
    else {
      $v_stored_filename = $p_filedescr[&#039;stored_filename&#039;];
    }
    */

    // ----- Set the file properties
    clearstatcache();
    $p_header[&#039;version&#039;] = 20;
    $p_header[&#039;version_extracted&#039;] = 10;
    $p_header[&#039;flag&#039;] = 0;
    $p_header[&#039;compression&#039;] = 0;
    $p_header[&#039;crc&#039;] = 0;
    $p_header[&#039;compressed_size&#039;] = 0;
    $p_header[&#039;filename_len&#039;] = strlen($p_filename);
    $p_header[&#039;extra_len&#039;] = 0;
    $p_header[&#039;disk&#039;] = 0;
    $p_header[&#039;internal&#039;] = 0;
    $p_header[&#039;offset&#039;] = 0;
    $p_header[&#039;filename&#039;] = $p_filename;
// TBC : Removed    $p_header[&#039;stored_filename&#039;] = $v_stored_filename;
    $p_header[&#039;stored_filename&#039;] = $p_filedescr[&#039;stored_filename&#039;];
    $p_header[&#039;extra&#039;] = &#039;&#039;;
    $p_header[&#039;status&#039;] = &#039;ok&#039;;
    $p_header[&#039;index&#039;] = -1;

    // ----- Look for regular file
    if ($p_filedescr[&#039;type&#039;]==&#039;file&#039;) {
      $p_header[&#039;external&#039;] = 0x00000000;
      $p_header[&#039;size&#039;] = filesize($p_filename);
    }
    
    // ----- Look for regular folder
    else if ($p_filedescr[&#039;type&#039;]==&#039;folder&#039;) {
      $p_header[&#039;external&#039;] = 0x00000010;
      $p_header[&#039;mtime&#039;] = filemtime($p_filename);
      $p_header[&#039;size&#039;] = filesize($p_filename);
    }
    
    // ----- Look for virtual file
    else if ($p_filedescr[&#039;type&#039;] == &#039;virtual_file&#039;) {
      $p_header[&#039;external&#039;] = 0x00000000;
      $p_header[&#039;size&#039;] = strlen($p_filedescr[&#039;content&#039;]);
    }
    

    // ----- Look for filetime
    if (isset($p_filedescr[&#039;mtime&#039;])) {
      $p_header[&#039;mtime&#039;] = $p_filedescr[&#039;mtime&#039;];
    }
    else if ($p_filedescr[&#039;type&#039;] == &#039;virtual_file&#039;) {
      $p_header[&#039;mtime&#039;] = time();
    }
    else {
      $p_header[&#039;mtime&#039;] = filemtime($p_filename);
    }

    // ------ Look for file comment
    if (isset($p_filedescr[&#039;comment&#039;])) {
      $p_header[&#039;comment_len&#039;] = strlen($p_filedescr[&#039;comment&#039;]);
      $p_header[&#039;comment&#039;] = $p_filedescr[&#039;comment&#039;];
    }
    else {
      $p_header[&#039;comment_len&#039;] = 0;
      $p_header[&#039;comment&#039;] = &#039;&#039;;
    }

    // ----- Look for pre-add callback
    if (isset($p_options[PCLZIP_CB_PRE_ADD])) {

      // ----- Generate a local information
      $v_local_header = array();
      $this-&gt;privConvertHeader2FileInfo($p_header, $v_local_header);

      // ----- Call the callback
      // Here I do not use call_user_func() because I need to send a reference to the
      // header.
//      eval(&#039;$v_result = &#039;.$p_options[PCLZIP_CB_PRE_ADD].&#039;(PCLZIP_CB_PRE_ADD, $v_local_header);&#039;);
      $v_result = $p_options[PCLZIP_CB_PRE_ADD](PCLZIP_CB_PRE_ADD, $v_local_header);
      if ($v_result == 0) {
        // ----- Change the file status
        $p_header[&#039;status&#039;] = &quot;skipped&quot;;
        $v_result = 1;
      }

      // ----- Update the informations
      // Only some fields can be modified
      if ($p_header[&#039;stored_filename&#039;] != $v_local_header[&#039;stored_filename&#039;]) {
        $p_header[&#039;stored_filename&#039;] = PclZipUtilPathReduction($v_local_header[&#039;stored_filename&#039;]);
      }
    }

    // ----- Look for empty stored filename
    if ($p_header[&#039;stored_filename&#039;] == &quot;&quot;) {
      $p_header[&#039;status&#039;] = &quot;filtered&quot;;
    }
    
    // ----- Check the path length
    if (strlen($p_header[&#039;stored_filename&#039;]) &gt; 0xFF) {
      $p_header[&#039;status&#039;] = &#039;filename_too_long&#039;;
    }

    // ----- Look if no error, or file not skipped
    if ($p_header[&#039;status&#039;] == &#039;ok&#039;) {

      // ----- Look for a file
      if ($p_filedescr[&#039;type&#039;] == &#039;file&#039;) {
        // ----- Look for using temporary file to zip
        if ( (!isset($p_options[PCLZIP_OPT_TEMP_FILE_OFF])) 
            &amp;&amp; (isset($p_options[PCLZIP_OPT_TEMP_FILE_ON])
                || (isset($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD])
                    &amp;&amp; ($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD] &lt;= $p_header[&#039;size&#039;])) ) ) {
          $v_result = $this-&gt;privAddFileUsingTempFile($p_filedescr, $p_header, $p_options);
          if ($v_result &lt; PCLZIP_ERR_NO_ERROR) {
            return $v_result;
          }
        }
        
        // ----- Use &quot;in memory&quot; zip algo
        else {

        // ----- Open the source file
        if (($v_file = @fopen($p_filename, &quot;rb&quot;)) == 0) {
          PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, &quot;Unable to open file &#039;$p_filename&#039; in binary read mode&quot;);
          return PclZip::errorCode();
        }

        // ----- Read the file content
        $v_content = @fread($v_file, $p_header[&#039;size&#039;]);

        // ----- Close the file
        @fclose($v_file);

        // ----- Calculate the CRC
        $p_header[&#039;crc&#039;] = @crc32($v_content);
        
        // ----- Look for no compression
        if ($p_options[PCLZIP_OPT_NO_COMPRESSION]) {
          // ----- Set header parameters
          $p_header[&#039;compressed_size&#039;] = $p_header[&#039;size&#039;];
          $p_header[&#039;compression&#039;] = 0;
        }
        
        // ----- Look for normal compression
        else {
          // ----- Compress the content
          $v_content = @gzdeflate($v_content);

          // ----- Set header parameters
          $p_header[&#039;compressed_size&#039;] = strlen($v_content);
          $p_header[&#039;compression&#039;] = 8;
        }
        
        // ----- Call the header generation
        if (($v_result = $this-&gt;privWriteFileHeader($p_header)) != 1) {
          @fclose($v_file);
          return $v_result;
        }

        // ----- Write the compressed (or not) content
        @fwrite($this-&gt;zip_fd, $v_content, $p_header[&#039;compressed_size&#039;]);

        }

      }

      // ----- Look for a virtual file (a file from string)
      else if ($p_filedescr[&#039;type&#039;] == &#039;virtual_file&#039;) {
          
        $v_content = $p_filedescr[&#039;content&#039;];

        // ----- Calculate the CRC
        $p_header[&#039;crc&#039;] = @crc32($v_content);
        
        // ----- Look for no compression
        if ($p_options[PCLZIP_OPT_NO_COMPRESSION]) {
          // ----- Set header parameters
          $p_header[&#039;compressed_size&#039;] = $p_header[&#039;size&#039;];
          $p_header[&#039;compression&#039;] = 0;
        }
        
        // ----- Look for normal compression
        else {
          // ----- Compress the content
          $v_content = @gzdeflate($v_content);

          // ----- Set header parameters
          $p_header[&#039;compressed_size&#039;] = strlen($v_content);
          $p_header[&#039;compression&#039;] = 8;
        }
        
        // ----- Call the header generation
        if (($v_result = $this-&gt;privWriteFileHeader($p_header)) != 1) {
          @fclose($v_file);
          return $v_result;
        }

        // ----- Write the compressed (or not) content
        @fwrite($this-&gt;zip_fd, $v_content, $p_header[&#039;compressed_size&#039;]);
      }

      // ----- Look for a directory
      else if ($p_filedescr[&#039;type&#039;] == &#039;folder&#039;) {
        // ----- Look for directory last &#039;/&#039;
        if (@substr($p_header[&#039;stored_filename&#039;], -1) != &#039;/&#039;) {
          $p_header[&#039;stored_filename&#039;] .= &#039;/&#039;;
        }

        // ----- Set the file properties
        $p_header[&#039;size&#039;] = 0;
        //$p_header[&#039;external&#039;] = 0x41FF0010;   // Value for a folder : to be checked
        $p_header[&#039;external&#039;] = 0x00000010;   // Value for a folder : to be checked

        // ----- Call the header generation
        if (($v_result = $this-&gt;privWriteFileHeader($p_header)) != 1)
        {
          return $v_result;
        }
      }
    }

    // ----- Look for post-add callback
    if (isset($p_options[PCLZIP_CB_POST_ADD])) {

      // ----- Generate a local information
      $v_local_header = array();
      $this-&gt;privConvertHeader2FileInfo($p_header, $v_local_header);

      // ----- Call the callback
      // Here I do not use call_user_func() because I need to send a reference to the
      // header.
//      eval(&#039;$v_result = &#039;.$p_options[PCLZIP_CB_POST_ADD].&#039;(PCLZIP_CB_POST_ADD, $v_local_header);&#039;);
      $v_result = $p_options[PCLZIP_CB_POST_ADD](PCLZIP_CB_POST_ADD, $v_local_header);
      if ($v_result == 0) {
        // ----- Ignored
        $v_result = 1;
      }

      // ----- Update the informations
      // Nothing can be modified
    }

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privAddFileUsingTempFile()
  // Description :
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privAddFileUsingTempFile($p_filedescr, &amp;$p_header, &amp;$p_options)
  {
    $v_result=PCLZIP_ERR_NO_ERROR;
    
    // ----- Working variable
    $p_filename = $p_filedescr[&#039;filename&#039;];


    // ----- Open the source file
    if (($v_file = @fopen($p_filename, &quot;rb&quot;)) == 0) {
      PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, &quot;Unable to open file &#039;$p_filename&#039; in binary read mode&quot;);
      return PclZip::errorCode();
    }

    // ----- Creates a compressed temporary file
    $v_gzip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid(&#039;pclzip-&#039;).&#039;.gz&#039;;
    if (($v_file_compressed = @gzopen($v_gzip_temp_name, &quot;wb&quot;)) == 0) {
      fclose($v_file);
      PclZip::privErrorLog(PCLZIP_ERR_WRITE_OPEN_FAIL, &#039;Unable to open temporary file \&#039;&#039;.$v_gzip_temp_name.&#039;\&#039; in binary write mode&#039;);
      return PclZip::errorCode();
    }

    // ----- Read the file by PCLZIP_READ_BLOCK_SIZE octets blocks
    $v_size = filesize($p_filename);
    while ($v_size != 0) {
      $v_read_size = ($v_size &lt; PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
      $v_buffer = @fread($v_file, $v_read_size);
      //$v_binary_data = pack(&#039;a&#039;.$v_read_size, $v_buffer);
      @gzputs($v_file_compressed, $v_buffer, $v_read_size);
      $v_size -= $v_read_size;
    }

    // ----- Close the file
    @fclose($v_file);
    @gzclose($v_file_compressed);

    // ----- Check the minimum file size
    if (filesize($v_gzip_temp_name) &lt; 18) {
      PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, &#039;gzip temporary file \&#039;&#039;.$v_gzip_temp_name.&#039;\&#039; has invalid filesize - should be minimum 18 bytes&#039;);
      return PclZip::errorCode();
    }

    // ----- Extract the compressed attributes
    if (($v_file_compressed = @fopen($v_gzip_temp_name, &quot;rb&quot;)) == 0) {
      PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, &#039;Unable to open temporary file \&#039;&#039;.$v_gzip_temp_name.&#039;\&#039; in binary read mode&#039;);
      return PclZip::errorCode();
    }

    // ----- Read the gzip file header
    $v_binary_data = @fread($v_file_compressed, 10);
    $v_data_header = unpack(&#039;a1id1/a1id2/a1cm/a1flag/Vmtime/a1xfl/a1os&#039;, $v_binary_data);

    // ----- Check some parameters
    $v_data_header[&#039;os&#039;] = bin2hex($v_data_header[&#039;os&#039;]);

    // ----- Read the gzip file footer
    @fseek($v_file_compressed, filesize($v_gzip_temp_name)-8);
    $v_binary_data = @fread($v_file_compressed, 8);
    $v_data_footer = unpack(&#039;Vcrc/Vcompressed_size&#039;, $v_binary_data);

    // ----- Set the attributes
    $p_header[&#039;compression&#039;] = ord($v_data_header[&#039;cm&#039;]);
    //$p_header[&#039;mtime&#039;] = $v_data_header[&#039;mtime&#039;];
    $p_header[&#039;crc&#039;] = $v_data_footer[&#039;crc&#039;];
    $p_header[&#039;compressed_size&#039;] = filesize($v_gzip_temp_name)-18;

    // ----- Close the file
    @fclose($v_file_compressed);

    // ----- Call the header generation
    if (($v_result = $this-&gt;privWriteFileHeader($p_header)) != 1) {
      return $v_result;
    }

    // ----- Add the compressed data
    if (($v_file_compressed = @fopen($v_gzip_temp_name, &quot;rb&quot;)) == 0)
    {
      PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, &#039;Unable to open temporary file \&#039;&#039;.$v_gzip_temp_name.&#039;\&#039; in binary read mode&#039;);
      return PclZip::errorCode();
    }

    // ----- Read the file by PCLZIP_READ_BLOCK_SIZE octets blocks
    fseek($v_file_compressed, 10);
    $v_size = $p_header[&#039;compressed_size&#039;];
    while ($v_size != 0)
    {
      $v_read_size = ($v_size &lt; PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
      $v_buffer = @fread($v_file_compressed, $v_read_size);
      //$v_binary_data = pack(&#039;a&#039;.$v_read_size, $v_buffer);
      @fwrite($this-&gt;zip_fd, $v_buffer, $v_read_size);
      $v_size -= $v_read_size;
    }

    // ----- Close the file
    @fclose($v_file_compressed);

    // ----- Unlink the temporary file
    @unlink($v_gzip_temp_name);
    
    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privCalculateStoredFilename()
  // Description :
  //   Based on file descriptor properties and global options, this method
  //   calculate the filename that will be stored in the archive.
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privCalculateStoredFilename(&amp;$p_filedescr, &amp;$p_options)
  {
    $v_result=1;
    
    // ----- Working variables
    $p_filename = $p_filedescr[&#039;filename&#039;];
    if (isset($p_options[PCLZIP_OPT_ADD_PATH])) {
      $p_add_dir = $p_options[PCLZIP_OPT_ADD_PATH];
    }
    else {
      $p_add_dir = &#039;&#039;;
    }
    if (isset($p_options[PCLZIP_OPT_REMOVE_PATH])) {
      $p_remove_dir = $p_options[PCLZIP_OPT_REMOVE_PATH];
    }
    else {
      $p_remove_dir = &#039;&#039;;
    }
    if (isset($p_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {
      $p_remove_all_dir = $p_options[PCLZIP_OPT_REMOVE_ALL_PATH];
    }
    else {
      $p_remove_all_dir = 0;
    }


    // ----- Look for full name change
    if (isset($p_filedescr[&#039;new_full_name&#039;])) {
      // ----- Remove drive letter if any
      $v_stored_filename = PclZipUtilTranslateWinPath($p_filedescr[&#039;new_full_name&#039;]);
    }
    
    // ----- Look for path and/or short name change
    else {

      // ----- Look for short name change
      // Its when we cahnge just the filename but not the path
      if (isset($p_filedescr[&#039;new_short_name&#039;])) {
        $v_path_info = pathinfo($p_filename);
        $v_dir = &#039;&#039;;
        if ($v_path_info[&#039;dirname&#039;] != &#039;&#039;) {
          $v_dir = $v_path_info[&#039;dirname&#039;].&#039;/&#039;;
        }
        $v_stored_filename = $v_dir.$p_filedescr[&#039;new_short_name&#039;];
      }
      else {
        // ----- Calculate the stored filename
        $v_stored_filename = $p_filename;
      }

      // ----- Look for all path to remove
      if ($p_remove_all_dir) {
        $v_stored_filename = basename($p_filename);
      }
      // ----- Look for partial path remove
      else if ($p_remove_dir != &quot;&quot;) {
        if (substr($p_remove_dir, -1) != &#039;/&#039;)
          $p_remove_dir .= &quot;/&quot;;

        if (   (substr($p_filename, 0, 2) == &quot;./&quot;)
            || (substr($p_remove_dir, 0, 2) == &quot;./&quot;)) {
            
          if (   (substr($p_filename, 0, 2) == &quot;./&quot;)
              &amp;&amp; (substr($p_remove_dir, 0, 2) != &quot;./&quot;)) {
            $p_remove_dir = &quot;./&quot;.$p_remove_dir;
          }
          if (   (substr($p_filename, 0, 2) != &quot;./&quot;)
              &amp;&amp; (substr($p_remove_dir, 0, 2) == &quot;./&quot;)) {
            $p_remove_dir = substr($p_remove_dir, 2);
          }
        }

        $v_compare = PclZipUtilPathInclusion($p_remove_dir,
                                             $v_stored_filename);
        if ($v_compare &gt; 0) {
          if ($v_compare == 2) {
            $v_stored_filename = &quot;&quot;;
          }
          else {
            $v_stored_filename = substr($v_stored_filename,
                                        strlen($p_remove_dir));
          }
        }
      }
      
      // ----- Remove drive letter if any
      $v_stored_filename = PclZipUtilTranslateWinPath($v_stored_filename);
      
      // ----- Look for path to add
      if ($p_add_dir != &quot;&quot;) {
        if (substr($p_add_dir, -1) == &quot;/&quot;)
          $v_stored_filename = $p_add_dir.$v_stored_filename;
        else
          $v_stored_filename = $p_add_dir.&quot;/&quot;.$v_stored_filename;
      }
    }

    // ----- Filename (reduce the path of stored name)
    $v_stored_filename = PclZipUtilPathReduction($v_stored_filename);
    $p_filedescr[&#039;stored_filename&#039;] = $v_stored_filename;
    
    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privWriteFileHeader()
  // Description :
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privWriteFileHeader(&amp;$p_header)
  {
    $v_result=1;

    // ----- Store the offset position of the file
    $p_header[&#039;offset&#039;] = ftell($this-&gt;zip_fd);

    // ----- Transform UNIX mtime to DOS format mdate/mtime
    $v_date = getdate($p_header[&#039;mtime&#039;]);
    $v_mtime = ($v_date[&#039;hours&#039;]&lt;&lt;11) + ($v_date[&#039;minutes&#039;]&lt;&lt;5) + $v_date[&#039;seconds&#039;]/2;
    $v_mdate = (($v_date[&#039;year&#039;]-1980)&lt;&lt;9) + ($v_date[&#039;mon&#039;]&lt;&lt;5) + $v_date[&#039;mday&#039;];

    // ----- Packed data
    $v_binary_data = pack(&quot;VvvvvvVVVvv&quot;, 0x04034b50,
	                      $p_header[&#039;version_extracted&#039;], $p_header[&#039;flag&#039;],
                          $p_header[&#039;compression&#039;], $v_mtime, $v_mdate,
                          $p_header[&#039;crc&#039;], $p_header[&#039;compressed_size&#039;],
						  $p_header[&#039;size&#039;],
                          strlen($p_header[&#039;stored_filename&#039;]),
						  $p_header[&#039;extra_len&#039;]);

    // ----- Write the first 148 bytes of the header in the archive
    fputs($this-&gt;zip_fd, $v_binary_data, 30);

    // ----- Write the variable fields
    if (strlen($p_header[&#039;stored_filename&#039;]) != 0)
    {
      fputs($this-&gt;zip_fd, $p_header[&#039;stored_filename&#039;], strlen($p_header[&#039;stored_filename&#039;]));
    }
    if ($p_header[&#039;extra_len&#039;] != 0)
    {
      fputs($this-&gt;zip_fd, $p_header[&#039;extra&#039;], $p_header[&#039;extra_len&#039;]);
    }

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privWriteCentralFileHeader()
  // Description :
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privWriteCentralFileHeader(&amp;$p_header)
  {
    $v_result=1;

    // TBC
    //for(reset($p_header); $key = key($p_header); next($p_header)) {
    //}

    // ----- Transform UNIX mtime to DOS format mdate/mtime
    $v_date = getdate($p_header[&#039;mtime&#039;]);
    $v_mtime = ($v_date[&#039;hours&#039;]&lt;&lt;11) + ($v_date[&#039;minutes&#039;]&lt;&lt;5) + $v_date[&#039;seconds&#039;]/2;
    $v_mdate = (($v_date[&#039;year&#039;]-1980)&lt;&lt;9) + ($v_date[&#039;mon&#039;]&lt;&lt;5) + $v_date[&#039;mday&#039;];


    // ----- Packed data
    $v_binary_data = pack(&quot;VvvvvvvVVVvvvvvVV&quot;, 0x02014b50,
	                      $p_header[&#039;version&#039;], $p_header[&#039;version_extracted&#039;],
                          $p_header[&#039;flag&#039;], $p_header[&#039;compression&#039;],
						  $v_mtime, $v_mdate, $p_header[&#039;crc&#039;],
                          $p_header[&#039;compressed_size&#039;], $p_header[&#039;size&#039;],
                          strlen($p_header[&#039;stored_filename&#039;]),
						  $p_header[&#039;extra_len&#039;], $p_header[&#039;comment_len&#039;],
                          $p_header[&#039;disk&#039;], $p_header[&#039;internal&#039;],
						  $p_header[&#039;external&#039;], $p_header[&#039;offset&#039;]);

    // ----- Write the 42 bytes of the header in the zip file
    fputs($this-&gt;zip_fd, $v_binary_data, 46);

    // ----- Write the variable fields
    if (strlen($p_header[&#039;stored_filename&#039;]) != 0)
    {
      fputs($this-&gt;zip_fd, $p_header[&#039;stored_filename&#039;], strlen($p_header[&#039;stored_filename&#039;]));
    }
    if ($p_header[&#039;extra_len&#039;] != 0)
    {
      fputs($this-&gt;zip_fd, $p_header[&#039;extra&#039;], $p_header[&#039;extra_len&#039;]);
    }
    if ($p_header[&#039;comment_len&#039;] != 0)
    {
      fputs($this-&gt;zip_fd, $p_header[&#039;comment&#039;], $p_header[&#039;comment_len&#039;]);
    }

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privWriteCentralHeader()
  // Description :
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privWriteCentralHeader($p_nb_entries, $p_size, $p_offset, $p_comment)
  {
    $v_result=1;

    // ----- Packed data
    $v_binary_data = pack(&quot;VvvvvVVv&quot;, 0x06054b50, 0, 0, $p_nb_entries,
	                      $p_nb_entries, $p_size,
						  $p_offset, strlen($p_comment));

    // ----- Write the 22 bytes of the header in the zip file
    fputs($this-&gt;zip_fd, $v_binary_data, 22);

    // ----- Write the variable fields
    if (strlen($p_comment) != 0)
    {
      fputs($this-&gt;zip_fd, $p_comment, strlen($p_comment));
    }

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privList()
  // Description :
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privList(&amp;$p_list)
  {
    $v_result=1;

    // ----- Magic quotes trick
    $this-&gt;privDisableMagicQuotes();

    // ----- Open the zip file
    if (($this-&gt;zip_fd = @fopen($this-&gt;zipname, &#039;rb&#039;)) == 0)
    {
      // ----- Magic quotes trick
      $this-&gt;privSwapBackMagicQuotes();
      
      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, &#039;Unable to open archive \&#039;&#039;.$this-&gt;zipname.&#039;\&#039; in binary read mode&#039;);

      // ----- Return
      return PclZip::errorCode();
    }

    // ----- Read the central directory informations
    $v_central_dir = array();
    if (($v_result = $this-&gt;privReadEndCentralDir($v_central_dir)) != 1)
    {
      $this-&gt;privSwapBackMagicQuotes();
      return $v_result;
    }

    // ----- Go to beginning of Central Dir
    @rewind($this-&gt;zip_fd);
    if (@fseek($this-&gt;zip_fd, $v_central_dir[&#039;offset&#039;]))
    {
      $this-&gt;privSwapBackMagicQuotes();

      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, &#039;Invalid archive size&#039;);

      // ----- Return
      return PclZip::errorCode();
    }

    // ----- Read each entry
    for ($i=0; $i&lt;$v_central_dir[&#039;entries&#039;]; $i++)
    {
      // ----- Read the file header
      if (($v_result = $this-&gt;privReadCentralFileHeader($v_header)) != 1)
      {
        $this-&gt;privSwapBackMagicQuotes();
        return $v_result;
      }
      $v_header[&#039;index&#039;] = $i;

      // ----- Get the only interesting attributes
      $this-&gt;privConvertHeader2FileInfo($v_header, $p_list[$i]);
      unset($v_header);
    }

    // ----- Close the zip file
    $this-&gt;privCloseFd();

    // ----- Magic quotes trick
    $this-&gt;privSwapBackMagicQuotes();

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privConvertHeader2FileInfo()
  // Description :
  //   This function takes the file informations from the central directory
  //   entries and extract the interesting parameters that will be given back.
  //   The resulting file infos are set in the array $p_info
  //     $p_info[&#039;filename&#039;] : Filename with full path. Given by user (add),
  //                           extracted in the filesystem (extract).
  //     $p_info[&#039;stored_filename&#039;] : Stored filename in the archive.
  //     $p_info[&#039;size&#039;] = Size of the file.
  //     $p_info[&#039;compressed_size&#039;] = Compressed size of the file.
  //     $p_info[&#039;mtime&#039;] = Last modification date of the file.
  //     $p_info[&#039;comment&#039;] = Comment associated with the file.
  //     $p_info[&#039;folder&#039;] = true/false : indicates if the entry is a folder or not.
  //     $p_info[&#039;status&#039;] = status of the action on the file.
  //     $p_info[&#039;crc&#039;] = CRC of the file content.
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privConvertHeader2FileInfo($p_header, &amp;$p_info)
  {
    $v_result=1;

    // ----- Get the interesting attributes
    $v_temp_path = PclZipUtilPathReduction($p_header[&#039;filename&#039;]);
    $p_info[&#039;filename&#039;] = $v_temp_path;
    $v_temp_path = PclZipUtilPathReduction($p_header[&#039;stored_filename&#039;]);
    $p_info[&#039;stored_filename&#039;] = $v_temp_path;
    $p_info[&#039;size&#039;] = $p_header[&#039;size&#039;];
    $p_info[&#039;compressed_size&#039;] = $p_header[&#039;compressed_size&#039;];
    $p_info[&#039;mtime&#039;] = $p_header[&#039;mtime&#039;];
    $p_info[&#039;comment&#039;] = $p_header[&#039;comment&#039;];
    $p_info[&#039;folder&#039;] = (($p_header[&#039;external&#039;]&amp;0x00000010)==0x00000010);
    $p_info[&#039;index&#039;] = $p_header[&#039;index&#039;];
    $p_info[&#039;status&#039;] = $p_header[&#039;status&#039;];
    $p_info[&#039;crc&#039;] = $p_header[&#039;crc&#039;];

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privExtractByRule()
  // Description :
  //   Extract a file or directory depending of rules (by index, by name, ...)
  // Parameters :
  //   $p_file_list : An array where will be placed the properties of each
  //                  extracted file
  //   $p_path : Path to add while writing the extracted files
  //   $p_remove_path : Path to remove (from the file memorized path) while writing the
  //                    extracted files. If the path does not match the file path,
  //                    the file is extracted with its memorized path.
  //                    $p_remove_path does not apply to &#039;list&#039; mode.
  //                    $p_path and $p_remove_path are commulative.
  // Return Values :
  //   1 on success,0 or less on error (see error code list)
  // --------------------------------------------------------------------------------
  function privExtractByRule(&amp;$p_file_list, $p_path, $p_remove_path, $p_remove_all_path, &amp;$p_options)
  {
    $v_result=1;

    // ----- Magic quotes trick
    $this-&gt;privDisableMagicQuotes();

    // ----- Check the path
    if (   ($p_path == &quot;&quot;)
	    || (   (substr($p_path, 0, 1) != &quot;/&quot;)
		    &amp;&amp; (substr($p_path, 0, 3) != &quot;../&quot;)
			&amp;&amp; (substr($p_path,1,2)!=&quot;:/&quot;)))
      $p_path = &quot;./&quot;.$p_path;

    // ----- Reduce the path last (and duplicated) &#039;/&#039;
    if (($p_path != &quot;./&quot;) &amp;&amp; ($p_path != &quot;/&quot;))
    {
      // ----- Look for the path end &#039;/&#039;
      while (substr($p_path, -1) == &quot;/&quot;)
      {
        $p_path = substr($p_path, 0, strlen($p_path)-1);
      }
    }

    // ----- Look for path to remove format (should end by /)
    if (($p_remove_path != &quot;&quot;) &amp;&amp; (substr($p_remove_path, -1) != &#039;/&#039;))
    {
      $p_remove_path .= &#039;/&#039;;
    }
    $p_remove_path_size = strlen($p_remove_path);

    // ----- Open the zip file
    if (($v_result = $this-&gt;privOpenFd(&#039;rb&#039;)) != 1)
    {
      $this-&gt;privSwapBackMagicQuotes();
      return $v_result;
    }

    // ----- Read the central directory informations
    $v_central_dir = array();
    if (($v_result = $this-&gt;privReadEndCentralDir($v_central_dir)) != 1)
    {
      // ----- Close the zip file
      $this-&gt;privCloseFd();
      $this-&gt;privSwapBackMagicQuotes();

      return $v_result;
    }

    // ----- Start at beginning of Central Dir
    $v_pos_entry = $v_central_dir[&#039;offset&#039;];

    // ----- Read each entry
    $j_start = 0;
    for ($i=0, $v_nb_extracted=0; $i&lt;$v_central_dir[&#039;entries&#039;]; $i++)
    {

      // ----- Read next Central dir entry
      @rewind($this-&gt;zip_fd);
      if (@fseek($this-&gt;zip_fd, $v_pos_entry))
      {
        // ----- Close the zip file
        $this-&gt;privCloseFd();
        $this-&gt;privSwapBackMagicQuotes();

        // ----- Error log
        PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, &#039;Invalid archive size&#039;);

        // ----- Return
        return PclZip::errorCode();
      }

      // ----- Read the file header
      $v_header = array();
      if (($v_result = $this-&gt;privReadCentralFileHeader($v_header)) != 1)
      {
        // ----- Close the zip file
        $this-&gt;privCloseFd();
        $this-&gt;privSwapBackMagicQuotes();

        return $v_result;
      }

      // ----- Store the index
      $v_header[&#039;index&#039;] = $i;

      // ----- Store the file position
      $v_pos_entry = ftell($this-&gt;zip_fd);

      // ----- Look for the specific extract rules
      $v_extract = false;

      // ----- Look for extract by name rule
      if (   (isset($p_options[PCLZIP_OPT_BY_NAME]))
          &amp;&amp; ($p_options[PCLZIP_OPT_BY_NAME] != 0)) {

          // ----- Look if the filename is in the list
          for ($j=0; ($j&lt;sizeof($p_options[PCLZIP_OPT_BY_NAME])) &amp;&amp; (!$v_extract); $j++) {

              // ----- Look for a directory
              if (substr($p_options[PCLZIP_OPT_BY_NAME][$j], -1) == &quot;/&quot;) {

                  // ----- Look if the directory is in the filename path
                  if (   (strlen($v_header[&#039;stored_filename&#039;]) &gt; strlen($p_options[PCLZIP_OPT_BY_NAME][$j]))
                      &amp;&amp; (substr($v_header[&#039;stored_filename&#039;], 0, strlen($p_options[PCLZIP_OPT_BY_NAME][$j])) == $p_options[PCLZIP_OPT_BY_NAME][$j])) {
                      $v_extract = true;
                  }
              }
              // ----- Look for a filename
              elseif ($v_header[&#039;stored_filename&#039;] == $p_options[PCLZIP_OPT_BY_NAME][$j]) {
                  $v_extract = true;
              }
          }
      }

      // ----- Look for extract by ereg rule
      // ereg() is deprecated with PHP 5.3
      /* 
      else if (   (isset($p_options[PCLZIP_OPT_BY_EREG]))
               &amp;&amp; ($p_options[PCLZIP_OPT_BY_EREG] != &quot;&quot;)) {

          if (ereg($p_options[PCLZIP_OPT_BY_EREG], $v_header[&#039;stored_filename&#039;])) {
              $v_extract = true;
          }
      }
      */

      // ----- Look for extract by preg rule
      else if (   (isset($p_options[PCLZIP_OPT_BY_PREG]))
               &amp;&amp; ($p_options[PCLZIP_OPT_BY_PREG] != &quot;&quot;)) {

          if (preg_match($p_options[PCLZIP_OPT_BY_PREG], $v_header[&#039;stored_filename&#039;])) {
              $v_extract = true;
          }
      }

      // ----- Look for extract by index rule
      else if (   (isset($p_options[PCLZIP_OPT_BY_INDEX]))
               &amp;&amp; ($p_options[PCLZIP_OPT_BY_INDEX] != 0)) {
          
          // ----- Look if the index is in the list
          for ($j=$j_start; ($j&lt;sizeof($p_options[PCLZIP_OPT_BY_INDEX])) &amp;&amp; (!$v_extract); $j++) {

              if (($i&gt;=$p_options[PCLZIP_OPT_BY_INDEX][$j][&#039;start&#039;]) &amp;&amp; ($i&lt;=$p_options[PCLZIP_OPT_BY_INDEX][$j][&#039;end&#039;])) {
                  $v_extract = true;
              }
              if ($i&gt;=$p_options[PCLZIP_OPT_BY_INDEX][$j][&#039;end&#039;]) {
                  $j_start = $j+1;
              }

              if ($p_options[PCLZIP_OPT_BY_INDEX][$j][&#039;start&#039;]&gt;$i) {
                  break;
              }
          }
      }

      // ----- Look for no rule, which means extract all the archive
      else {
          $v_extract = true;
      }

	  // ----- Check compression method
	  if (   ($v_extract)
	      &amp;&amp; (   ($v_header[&#039;compression&#039;] != 8)
		      &amp;&amp; ($v_header[&#039;compression&#039;] != 0))) {
          $v_header[&#039;status&#039;] = &#039;unsupported_compression&#039;;

          // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
          if (   (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
		      &amp;&amp; ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {

              $this-&gt;privSwapBackMagicQuotes();
              
              PclZip::privErrorLog(PCLZIP_ERR_UNSUPPORTED_COMPRESSION,
			                       &quot;Filename &#039;&quot;.$v_header[&#039;stored_filename&#039;].&quot;&#039; is &quot;
				  	    	  	   .&quot;compressed by an unsupported compression &quot;
				  	    	  	   .&quot;method (&quot;.$v_header[&#039;compression&#039;].&quot;) &quot;);

              return PclZip::errorCode();
		  }
	  }
	  
	  // ----- Check encrypted files
	  if (($v_extract) &amp;&amp; (($v_header[&#039;flag&#039;] &amp; 1) == 1)) {
          $v_header[&#039;status&#039;] = &#039;unsupported_encryption&#039;;

          // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
          if (   (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
		      &amp;&amp; ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {

              $this-&gt;privSwapBackMagicQuotes();

              PclZip::privErrorLog(PCLZIP_ERR_UNSUPPORTED_ENCRYPTION,
			                       &quot;Unsupported encryption for &quot;
				  	    	  	   .&quot; filename &#039;&quot;.$v_header[&#039;stored_filename&#039;]
								   .&quot;&#039;&quot;);

              return PclZip::errorCode();
		  }
    }

      // ----- Look for real extraction
      if (($v_extract) &amp;&amp; ($v_header[&#039;status&#039;] != &#039;ok&#039;)) {
          $v_result = $this-&gt;privConvertHeader2FileInfo($v_header,
		                                        $p_file_list[$v_nb_extracted++]);
          if ($v_result != 1) {
              $this-&gt;privCloseFd();
              $this-&gt;privSwapBackMagicQuotes();
              return $v_result;
          }

          $v_extract = false;
      }
      
      // ----- Look for real extraction
      if ($v_extract)
      {

        // ----- Go to the file position
        @rewind($this-&gt;zip_fd);
        if (@fseek($this-&gt;zip_fd, $v_header[&#039;offset&#039;]))
        {
          // ----- Close the zip file
          $this-&gt;privCloseFd();

          $this-&gt;privSwapBackMagicQuotes();

          // ----- Error log
          PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, &#039;Invalid archive size&#039;);

          // ----- Return
          return PclZip::errorCode();
        }

        // ----- Look for extraction as string
        if ($p_options[PCLZIP_OPT_EXTRACT_AS_STRING]) {

          $v_string = &#039;&#039;;

          // ----- Extracting the file
          $v_result1 = $this-&gt;privExtractFileAsString($v_header, $v_string, $p_options);
          if ($v_result1 &lt; 1) {
            $this-&gt;privCloseFd();
            $this-&gt;privSwapBackMagicQuotes();
            return $v_result1;
          }

          // ----- Get the only interesting attributes
          if (($v_result = $this-&gt;privConvertHeader2FileInfo($v_header, $p_file_list[$v_nb_extracted])) != 1)
          {
            // ----- Close the zip file
            $this-&gt;privCloseFd();
            $this-&gt;privSwapBackMagicQuotes();

            return $v_result;
          }

          // ----- Set the file content
          $p_file_list[$v_nb_extracted][&#039;content&#039;] = $v_string;

          // ----- Next extracted file
          $v_nb_extracted++;
          
          // ----- Look for user callback abort
          if ($v_result1 == 2) {
          	break;
          }
        }
        // ----- Look for extraction in standard output
        elseif (   (isset($p_options[PCLZIP_OPT_EXTRACT_IN_OUTPUT]))
		        &amp;&amp; ($p_options[PCLZIP_OPT_EXTRACT_IN_OUTPUT])) {
          // ----- Extracting the file in standard output
          $v_result1 = $this-&gt;privExtractFileInOutput($v_header, $p_options);
          if ($v_result1 &lt; 1) {
            $this-&gt;privCloseFd();
            $this-&gt;privSwapBackMagicQuotes();
            return $v_result1;
          }

          // ----- Get the only interesting attributes
          if (($v_result = $this-&gt;privConvertHeader2FileInfo($v_header, $p_file_list[$v_nb_extracted++])) != 1) {
            $this-&gt;privCloseFd();
            $this-&gt;privSwapBackMagicQuotes();
            return $v_result;
          }

          // ----- Look for user callback abort
          if ($v_result1 == 2) {
          	break;
          }
        }
        // ----- Look for normal extraction
        else {
          // ----- Extracting the file
          $v_result1 = $this-&gt;privExtractFile($v_header,
		                                      $p_path, $p_remove_path,
											  $p_remove_all_path,
											  $p_options);
          if ($v_result1 &lt; 1) {
            $this-&gt;privCloseFd();
            $this-&gt;privSwapBackMagicQuotes();
            return $v_result1;
          }

          // ----- Get the only interesting attributes
          if (($v_result = $this-&gt;privConvertHeader2FileInfo($v_header, $p_file_list[$v_nb_extracted++])) != 1)
          {
            // ----- Close the zip file
            $this-&gt;privCloseFd();
            $this-&gt;privSwapBackMagicQuotes();

            return $v_result;
          }

          // ----- Look for user callback abort
          if ($v_result1 == 2) {
          	break;
          }
        }
      }
    }

    // ----- Close the zip file
    $this-&gt;privCloseFd();
    $this-&gt;privSwapBackMagicQuotes();

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privExtractFile()
  // Description :
  // Parameters :
  // Return Values :
  //
  // 1 : ... ?
  // PCLZIP_ERR_USER_ABORTED(2) : User ask for extraction stop in callback
  // --------------------------------------------------------------------------------
  function privExtractFile(&amp;$p_entry, $p_path, $p_remove_path, $p_remove_all_path, &amp;$p_options)
  {
    $v_result=1;

    // ----- Read the file header
    if (($v_result = $this-&gt;privReadFileHeader($v_header)) != 1)
    {
      // ----- Return
      return $v_result;
    }


    // ----- Check that the file header is coherent with $p_entry info
    if ($this-&gt;privCheckFileHeaders($v_header, $p_entry) != 1) {
        // TBC
    }

    // ----- Look for all path to remove
    if ($p_remove_all_path == true) {
        // ----- Look for folder entry that not need to be extracted
        if (($p_entry[&#039;external&#039;]&amp;0x00000010)==0x00000010) {

            $p_entry[&#039;status&#039;] = &quot;filtered&quot;;

            return $v_result;
        }

        // ----- Get the basename of the path
        $p_entry[&#039;filename&#039;] = basename($p_entry[&#039;filename&#039;]);
    }

    // ----- Look for path to remove
    else if ($p_remove_path != &quot;&quot;)
    {
      if (PclZipUtilPathInclusion($p_remove_path, $p_entry[&#039;filename&#039;]) == 2)
      {

        // ----- Change the file status
        $p_entry[&#039;status&#039;] = &quot;filtered&quot;;

        // ----- Return
        return $v_result;
      }

      $p_remove_path_size = strlen($p_remove_path);
      if (substr($p_entry[&#039;filename&#039;], 0, $p_remove_path_size) == $p_remove_path)
      {

        // ----- Remove the path
        $p_entry[&#039;filename&#039;] = substr($p_entry[&#039;filename&#039;], $p_remove_path_size);

      }
    }

    // ----- Add the path
    if ($p_path != &#039;&#039;) {
      $p_entry[&#039;filename&#039;] = $p_path.&quot;/&quot;.$p_entry[&#039;filename&#039;];
    }
    
    // ----- Check a base_dir_restriction
    if (isset($p_options[PCLZIP_OPT_EXTRACT_DIR_RESTRICTION])) {
      $v_inclusion
      = PclZipUtilPathInclusion($p_options[PCLZIP_OPT_EXTRACT_DIR_RESTRICTION],
                                $p_entry[&#039;filename&#039;]); 
      if ($v_inclusion == 0) {

        PclZip::privErrorLog(PCLZIP_ERR_DIRECTORY_RESTRICTION,
			                     &quot;Filename &#039;&quot;.$p_entry[&#039;filename&#039;].&quot;&#039; is &quot;
								 .&quot;outside PCLZIP_OPT_EXTRACT_DIR_RESTRICTION&quot;);

        return PclZip::errorCode();
      }
    }

    // ----- Look for pre-extract callback
    if (isset($p_options[PCLZIP_CB_PRE_EXTRACT])) {

      // ----- Generate a local information
      $v_local_header = array();
      $this-&gt;privConvertHeader2FileInfo($p_entry, $v_local_header);

      // ----- Call the callback
      // Here I do not use call_user_func() because I need to send a reference to the
      // header.
//      eval(&#039;$v_result = &#039;.$p_options[PCLZIP_CB_PRE_EXTRACT].&#039;(PCLZIP_CB_PRE_EXTRACT, $v_local_header);&#039;);
      $v_result = $p_options[PCLZIP_CB_PRE_EXTRACT](PCLZIP_CB_PRE_EXTRACT, $v_local_header);
      if ($v_result == 0) {
        // ----- Change the file status
        $p_entry[&#039;status&#039;] = &quot;skipped&quot;;
        $v_result = 1;
      }
      
      // ----- Look for abort result
      if ($v_result == 2) {
        // ----- This status is internal and will be changed in &#039;skipped&#039;
        $p_entry[&#039;status&#039;] = &quot;aborted&quot;;
      	$v_result = PCLZIP_ERR_USER_ABORTED;
      }

      // ----- Update the informations
      // Only some fields can be modified
      $p_entry[&#039;filename&#039;] = $v_local_header[&#039;filename&#039;];
    }


    // ----- Look if extraction should be done
    if ($p_entry[&#039;status&#039;] == &#039;ok&#039;) {

    // ----- Look for specific actions while the file exist
    if (file_exists($p_entry[&#039;filename&#039;]))
    {

      // ----- Look if file is a directory
      if (is_dir($p_entry[&#039;filename&#039;]))
      {

        // ----- Change the file status
        $p_entry[&#039;status&#039;] = &quot;already_a_directory&quot;;
        
        // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
        // For historical reason first PclZip implementation does not stop
        // when this kind of error occurs.
        if (   (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
		    &amp;&amp; ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {

            PclZip::privErrorLog(PCLZIP_ERR_ALREADY_A_DIRECTORY,
			                     &quot;Filename &#039;&quot;.$p_entry[&#039;filename&#039;].&quot;&#039; is &quot;
								 .&quot;already used by an existing directory&quot;);

            return PclZip::errorCode();
		    }
      }
      // ----- Look if file is write protected
      else if (!is_writeable($p_entry[&#039;filename&#039;]))
      {

        // ----- Change the file status
        $p_entry[&#039;status&#039;] = &quot;write_protected&quot;;

        // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
        // For historical reason first PclZip implementation does not stop
        // when this kind of error occurs.
        if (   (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
		    &amp;&amp; ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {

            PclZip::privErrorLog(PCLZIP_ERR_WRITE_OPEN_FAIL,
			                     &quot;Filename &#039;&quot;.$p_entry[&#039;filename&#039;].&quot;&#039; exists &quot;
								 .&quot;and is write protected&quot;);

            return PclZip::errorCode();
		    }
      }

      // ----- Look if the extracted file is older
      else if (filemtime($p_entry[&#039;filename&#039;]) &gt; $p_entry[&#039;mtime&#039;])
      {
        // ----- Change the file status
        if (   (isset($p_options[PCLZIP_OPT_REPLACE_NEWER]))
		    &amp;&amp; ($p_options[PCLZIP_OPT_REPLACE_NEWER]===true)) {
	  	  }
		    else {
            $p_entry[&#039;status&#039;] = &quot;newer_exist&quot;;

            // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
            // For historical reason first PclZip implementation does not stop
            // when this kind of error occurs.
            if (   (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
		        &amp;&amp; ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {

                PclZip::privErrorLog(PCLZIP_ERR_WRITE_OPEN_FAIL,
			             &quot;Newer version of &#039;&quot;.$p_entry[&#039;filename&#039;].&quot;&#039; exists &quot;
					    .&quot;and option PCLZIP_OPT_REPLACE_NEWER is not selected&quot;);

                return PclZip::errorCode();
		      }
		    }
      }
      else {
      }
    }

    // ----- Check the directory availability and create it if necessary
    else {
      if ((($p_entry[&#039;external&#039;]&amp;0x00000010)==0x00000010) || (substr($p_entry[&#039;filename&#039;], -1) == &#039;/&#039;))
        $v_dir_to_check = $p_entry[&#039;filename&#039;];
      else if (!strstr($p_entry[&#039;filename&#039;], &quot;/&quot;))
        $v_dir_to_check = &quot;&quot;;
      else
        $v_dir_to_check = dirname($p_entry[&#039;filename&#039;]);

        if (($v_result = $this-&gt;privDirCheck($v_dir_to_check, (($p_entry[&#039;external&#039;]&amp;0x00000010)==0x00000010))) != 1) {
  
          // ----- Change the file status
          $p_entry[&#039;status&#039;] = &quot;path_creation_fail&quot;;
  
          // ----- Return
          //return $v_result;
          $v_result = 1;
        }
      }
    }

    // ----- Look if extraction should be done
    if ($p_entry[&#039;status&#039;] == &#039;ok&#039;) {

      // ----- Do the extraction (if not a folder)
      if (!(($p_entry[&#039;external&#039;]&amp;0x00000010)==0x00000010))
      {
        // ----- Look for not compressed file
        if ($p_entry[&#039;compression&#039;] == 0) {

    		  // ----- Opening destination file
          if (($v_dest_file = @fopen($p_entry[&#039;filename&#039;], &#039;wb&#039;)) == 0)
          {

            // ----- Change the file status
            $p_entry[&#039;status&#039;] = &quot;write_error&quot;;

            // ----- Return
            return $v_result;
          }


          // ----- Read the file by PCLZIP_READ_BLOCK_SIZE octets blocks
          $v_size = $p_entry[&#039;compressed_size&#039;];
          while ($v_size != 0)
          {
            $v_read_size = ($v_size &lt; PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
            $v_buffer = @fread($this-&gt;zip_fd, $v_read_size);
            /* Try to speed up the code
            $v_binary_data = pack(&#039;a&#039;.$v_read_size, $v_buffer);
            @fwrite($v_dest_file, $v_binary_data, $v_read_size);
            */
            @fwrite($v_dest_file, $v_buffer, $v_read_size);            
            $v_size -= $v_read_size;
          }

          // ----- Closing the destination file
          fclose($v_dest_file);

          // ----- Change the file mtime
          touch($p_entry[&#039;filename&#039;], $p_entry[&#039;mtime&#039;]);
          

        }
        else {
          // ----- TBC
          // Need to be finished
          if (($p_entry[&#039;flag&#039;] &amp; 1) == 1) {
            PclZip::privErrorLog(PCLZIP_ERR_UNSUPPORTED_ENCRYPTION, &#039;File \&#039;&#039;.$p_entry[&#039;filename&#039;].&#039;\&#039; is encrypted. Encrypted files are not supported.&#039;);
            return PclZip::errorCode();
          }


          // ----- Look for using temporary file to unzip
          if ( (!isset($p_options[PCLZIP_OPT_TEMP_FILE_OFF])) 
              &amp;&amp; (isset($p_options[PCLZIP_OPT_TEMP_FILE_ON])
                  || (isset($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD])
                      &amp;&amp; ($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD] &lt;= $p_entry[&#039;size&#039;])) ) ) {
            $v_result = $this-&gt;privExtractFileUsingTempFile($p_entry, $p_options);
            if ($v_result &lt; PCLZIP_ERR_NO_ERROR) {
              return $v_result;
            }
          }
          
          // ----- Look for extract in memory
          else {

          
            // ----- Read the compressed file in a buffer (one shot)
            $v_buffer = @fread($this-&gt;zip_fd, $p_entry[&#039;compressed_size&#039;]);
            
            // ----- Decompress the file
            $v_file_content = @gzinflate($v_buffer);
            unset($v_buffer);
            if ($v_file_content === FALSE) {
  
              // ----- Change the file status
              // TBC
              $p_entry[&#039;status&#039;] = &quot;error&quot;;
              
              return $v_result;
            }
            
            // ----- Opening destination file
            if (($v_dest_file = @fopen($p_entry[&#039;filename&#039;], &#039;wb&#039;)) == 0) {
  
              // ----- Change the file status
              $p_entry[&#039;status&#039;] = &quot;write_error&quot;;
  
              return $v_result;
            }
  
            // ----- Write the uncompressed data
            @fwrite($v_dest_file, $v_file_content, $p_entry[&#039;size&#039;]);
            unset($v_file_content);
  
            // ----- Closing the destination file
            @fclose($v_dest_file);
            
          }

          // ----- Change the file mtime
          @touch($p_entry[&#039;filename&#039;], $p_entry[&#039;mtime&#039;]);
        }

        // ----- Look for chmod option
        if (isset($p_options[PCLZIP_OPT_SET_CHMOD])) {

          // ----- Change the mode of the file
          @chmod($p_entry[&#039;filename&#039;], $p_options[PCLZIP_OPT_SET_CHMOD]);
        }

      }
    }

  	// ----- Change abort status
  	if ($p_entry[&#039;status&#039;] == &quot;aborted&quot;) {
        $p_entry[&#039;status&#039;] = &quot;skipped&quot;;
  	}
	
    // ----- Look for post-extract callback
    elseif (isset($p_options[PCLZIP_CB_POST_EXTRACT])) {

      // ----- Generate a local information
      $v_local_header = array();
      $this-&gt;privConvertHeader2FileInfo($p_entry, $v_local_header);

      // ----- Call the callback
      // Here I do not use call_user_func() because I need to send a reference to the
      // header.
//      eval(&#039;$v_result = &#039;.$p_options[PCLZIP_CB_POST_EXTRACT].&#039;(PCLZIP_CB_POST_EXTRACT, $v_local_header);&#039;);
      $v_result = $p_options[PCLZIP_CB_POST_EXTRACT](PCLZIP_CB_POST_EXTRACT, $v_local_header);

      // ----- Look for abort result
      if ($v_result == 2) {
      	$v_result = PCLZIP_ERR_USER_ABORTED;
      }
    }

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privExtractFileUsingTempFile()
  // Description :
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privExtractFileUsingTempFile(&amp;$p_entry, &amp;$p_options)
  {
    $v_result=1;
        
    // ----- Creates a temporary file
    $v_gzip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid(&#039;pclzip-&#039;).&#039;.gz&#039;;
    if (($v_dest_file = @fopen($v_gzip_temp_name, &quot;wb&quot;)) == 0) {
      fclose($v_file);
      PclZip::privErrorLog(PCLZIP_ERR_WRITE_OPEN_FAIL, &#039;Unable to open temporary file \&#039;&#039;.$v_gzip_temp_name.&#039;\&#039; in binary write mode&#039;);
      return PclZip::errorCode();
    }


    // ----- Write gz file format header
    $v_binary_data = pack(&#039;va1a1Va1a1&#039;, 0x8b1f, Chr($p_entry[&#039;compression&#039;]), Chr(0x00), time(), Chr(0x00), Chr(3));
    @fwrite($v_dest_file, $v_binary_data, 10);

    // ----- Read the file by PCLZIP_READ_BLOCK_SIZE octets blocks
    $v_size = $p_entry[&#039;compressed_size&#039;];
    while ($v_size != 0)
    {
      $v_read_size = ($v_size &lt; PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
      $v_buffer = @fread($this-&gt;zip_fd, $v_read_size);
      //$v_binary_data = pack(&#039;a&#039;.$v_read_size, $v_buffer);
      @fwrite($v_dest_file, $v_buffer, $v_read_size);
      $v_size -= $v_read_size;
    }

    // ----- Write gz file format footer
    $v_binary_data = pack(&#039;VV&#039;, $p_entry[&#039;crc&#039;], $p_entry[&#039;size&#039;]);
    @fwrite($v_dest_file, $v_binary_data, 8);

    // ----- Close the temporary file
    @fclose($v_dest_file);

    // ----- Opening destination file
    if (($v_dest_file = @fopen($p_entry[&#039;filename&#039;], &#039;wb&#039;)) == 0) {
      $p_entry[&#039;status&#039;] = &quot;write_error&quot;;
      return $v_result;
    }

    // ----- Open the temporary gz file
    if (($v_src_file = @gzopen($v_gzip_temp_name, &#039;rb&#039;)) == 0) {
      @fclose($v_dest_file);
      $p_entry[&#039;status&#039;] = &quot;read_error&quot;;
      PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, &#039;Unable to open temporary file \&#039;&#039;.$v_gzip_temp_name.&#039;\&#039; in binary read mode&#039;);
      return PclZip::errorCode();
    }


    // ----- Read the file by PCLZIP_READ_BLOCK_SIZE octets blocks
    $v_size = $p_entry[&#039;size&#039;];
    while ($v_size != 0) {
      $v_read_size = ($v_size &lt; PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
      $v_buffer = @gzread($v_src_file, $v_read_size);
      //$v_binary_data = pack(&#039;a&#039;.$v_read_size, $v_buffer);
      @fwrite($v_dest_file, $v_buffer, $v_read_size);
      $v_size -= $v_read_size;
    }
    @fclose($v_dest_file);
    @gzclose($v_src_file);

    // ----- Delete the temporary file
    @unlink($v_gzip_temp_name);
    
    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privExtractFileInOutput()
  // Description :
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privExtractFileInOutput(&amp;$p_entry, &amp;$p_options)
  {
    $v_result=1;

    // ----- Read the file header
    if (($v_result = $this-&gt;privReadFileHeader($v_header)) != 1) {
      return $v_result;
    }


    // ----- Check that the file header is coherent with $p_entry info
    if ($this-&gt;privCheckFileHeaders($v_header, $p_entry) != 1) {
        // TBC
    }

    // ----- Look for pre-extract callback
    if (isset($p_options[PCLZIP_CB_PRE_EXTRACT])) {

      // ----- Generate a local information
      $v_local_header = array();
      $this-&gt;privConvertHeader2FileInfo($p_entry, $v_local_header);

      // ----- Call the callback
      // Here I do not use call_user_func() because I need to send a reference to the
      // header.
//      eval(&#039;$v_result = &#039;.$p_options[PCLZIP_CB_PRE_EXTRACT].&#039;(PCLZIP_CB_PRE_EXTRACT, $v_local_header);&#039;);
      $v_result = $p_options[PCLZIP_CB_PRE_EXTRACT](PCLZIP_CB_PRE_EXTRACT, $v_local_header);
      if ($v_result == 0) {
        // ----- Change the file status
        $p_entry[&#039;status&#039;] = &quot;skipped&quot;;
        $v_result = 1;
      }

      // ----- Look for abort result
      if ($v_result == 2) {
        // ----- This status is internal and will be changed in &#039;skipped&#039;
        $p_entry[&#039;status&#039;] = &quot;aborted&quot;;
      	$v_result = PCLZIP_ERR_USER_ABORTED;
      }

      // ----- Update the informations
      // Only some fields can be modified
      $p_entry[&#039;filename&#039;] = $v_local_header[&#039;filename&#039;];
    }

    // ----- Trace

    // ----- Look if extraction should be done
    if ($p_entry[&#039;status&#039;] == &#039;ok&#039;) {

      // ----- Do the extraction (if not a folder)
      if (!(($p_entry[&#039;external&#039;]&amp;0x00000010)==0x00000010)) {
        // ----- Look for not compressed file
        if ($p_entry[&#039;compressed_size&#039;] == $p_entry[&#039;size&#039;]) {

          // ----- Read the file in a buffer (one shot)
          $v_buffer = @fread($this-&gt;zip_fd, $p_entry[&#039;compressed_size&#039;]);

          // ----- Send the file to the output
          echo $v_buffer;
          unset($v_buffer);
        }
        else {

          // ----- Read the compressed file in a buffer (one shot)
          $v_buffer = @fread($this-&gt;zip_fd, $p_entry[&#039;compressed_size&#039;]);
          
          // ----- Decompress the file
          $v_file_content = gzinflate($v_buffer);
          unset($v_buffer);

          // ----- Send the file to the output
          echo $v_file_content;
          unset($v_file_content);
        }
      }
    }

	// ----- Change abort status
	if ($p_entry[&#039;status&#039;] == &quot;aborted&quot;) {
      $p_entry[&#039;status&#039;] = &quot;skipped&quot;;
	}

    // ----- Look for post-extract callback
    elseif (isset($p_options[PCLZIP_CB_POST_EXTRACT])) {

      // ----- Generate a local information
      $v_local_header = array();
      $this-&gt;privConvertHeader2FileInfo($p_entry, $v_local_header);

      // ----- Call the callback
      // Here I do not use call_user_func() because I need to send a reference to the
      // header.
//      eval(&#039;$v_result = &#039;.$p_options[PCLZIP_CB_POST_EXTRACT].&#039;(PCLZIP_CB_POST_EXTRACT, $v_local_header);&#039;);
      $v_result = $p_options[PCLZIP_CB_POST_EXTRACT](PCLZIP_CB_POST_EXTRACT, $v_local_header);

      // ----- Look for abort result
      if ($v_result == 2) {
      	$v_result = PCLZIP_ERR_USER_ABORTED;
      }
    }

    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privExtractFileAsString()
  // Description :
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privExtractFileAsString(&amp;$p_entry, &amp;$p_string, &amp;$p_options)
  {
    $v_result=1;

    // ----- Read the file header
    $v_header = array();
    if (($v_result = $this-&gt;privReadFileHeader($v_header)) != 1)
    {
      // ----- Return
      return $v_result;
    }


    // ----- Check that the file header is coherent with $p_entry info
    if ($this-&gt;privCheckFileHeaders($v_header, $p_entry) != 1) {
        // TBC
    }

    // ----- Look for pre-extract callback
    if (isset($p_options[PCLZIP_CB_PRE_EXTRACT])) {

      // ----- Generate a local information
      $v_local_header = array();
      $this-&gt;privConvertHeader2FileInfo($p_entry, $v_local_header);

      // ----- Call the callback
      // Here I do not use call_user_func() because I need to send a reference to the
      // header.
//      eval(&#039;$v_result = &#039;.$p_options[PCLZIP_CB_PRE_EXTRACT].&#039;(PCLZIP_CB_PRE_EXTRACT, $v_local_header);&#039;);
      $v_result = $p_options[PCLZIP_CB_PRE_EXTRACT](PCLZIP_CB_PRE_EXTRACT, $v_local_header);
      if ($v_result == 0) {
        // ----- Change the file status
        $p_entry[&#039;status&#039;] = &quot;skipped&quot;;
        $v_result = 1;
      }
      
      // ----- Look for abort result
      if ($v_result == 2) {
        // ----- This status is internal and will be changed in &#039;skipped&#039;
        $p_entry[&#039;status&#039;] = &quot;aborted&quot;;
      	$v_result = PCLZIP_ERR_USER_ABORTED;
      }

      // ----- Update the informations
      // Only some fields can be modified
      $p_entry[&#039;filename&#039;] = $v_local_header[&#039;filename&#039;];
    }


    // ----- Look if extraction should be done
    if ($p_entry[&#039;status&#039;] == &#039;ok&#039;) {

      // ----- Do the extraction (if not a folder)
      if (!(($p_entry[&#039;external&#039;]&amp;0x00000010)==0x00000010)) {
        // ----- Look for not compressed file
  //      if ($p_entry[&#039;compressed_size&#039;] == $p_entry[&#039;size&#039;])
        if ($p_entry[&#039;compression&#039;] == 0) {
  
          // ----- Reading the file
          $p_string = @fread($this-&gt;zip_fd, $p_entry[&#039;compressed_size&#039;]);
        }
        else {
  
          // ----- Reading the file
          $v_data = @fread($this-&gt;zip_fd, $p_entry[&#039;compressed_size&#039;]);
          
          // ----- Decompress the file
          if (($p_string = @gzinflate($v_data)) === FALSE) {
              // TBC
          }
        }
  
        // ----- Trace
      }
      else {
          // TBC : error : can not extract a folder in a string
      }
      
    }

  	// ----- Change abort status
  	if ($p_entry[&#039;status&#039;] == &quot;aborted&quot;) {
        $p_entry[&#039;status&#039;] = &quot;skipped&quot;;
  	}
	
    // ----- Look for post-extract callback
    elseif (isset($p_options[PCLZIP_CB_POST_EXTRACT])) {

      // ----- Generate a local information
      $v_local_header = array();
      $this-&gt;privConvertHeader2FileInfo($p_entry, $v_local_header);
      
      // ----- Swap the content to header
      $v_local_header[&#039;content&#039;] = $p_string;
      $p_string = &#039;&#039;;

      // ----- Call the callback
      // Here I do not use call_user_func() because I need to send a reference to the
      // header.
//      eval(&#039;$v_result = &#039;.$p_options[PCLZIP_CB_POST_EXTRACT].&#039;(PCLZIP_CB_POST_EXTRACT, $v_local_header);&#039;);
      $v_result = $p_options[PCLZIP_CB_POST_EXTRACT](PCLZIP_CB_POST_EXTRACT, $v_local_header);

      // ----- Swap back the content to header
      $p_string = $v_local_header[&#039;content&#039;];
      unset($v_local_header[&#039;content&#039;]);

      // ----- Look for abort result
      if ($v_result == 2) {
      	$v_result = PCLZIP_ERR_USER_ABORTED;
      }
    }

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privReadFileHeader()
  // Description :
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privReadFileHeader(&amp;$p_header)
  {
    $v_result=1;

    // ----- Read the 4 bytes signature
    $v_binary_data = @fread($this-&gt;zip_fd, 4);
    $v_data = unpack(&#039;Vid&#039;, $v_binary_data);

    // ----- Check signature
    if ($v_data[&#039;id&#039;] != 0x04034b50)
    {

      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, &#039;Invalid archive structure&#039;);

      // ----- Return
      return PclZip::errorCode();
    }

    // ----- Read the first 42 bytes of the header
    $v_binary_data = fread($this-&gt;zip_fd, 26);

    // ----- Look for invalid block size
    if (strlen($v_binary_data) != 26)
    {
      $p_header[&#039;filename&#039;] = &quot;&quot;;
      $p_header[&#039;status&#039;] = &quot;invalid_header&quot;;

      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, &quot;Invalid block size : &quot;.strlen($v_binary_data));

      // ----- Return
      return PclZip::errorCode();
    }

    // ----- Extract the values
    $v_data = unpack(&#039;vversion/vflag/vcompression/vmtime/vmdate/Vcrc/Vcompressed_size/Vsize/vfilename_len/vextra_len&#039;, $v_binary_data);

    // ----- Get filename
    $p_header[&#039;filename&#039;] = fread($this-&gt;zip_fd, $v_data[&#039;filename_len&#039;]);

    // ----- Get extra_fields
    if ($v_data[&#039;extra_len&#039;] != 0) {
      $p_header[&#039;extra&#039;] = fread($this-&gt;zip_fd, $v_data[&#039;extra_len&#039;]);
    }
    else {
      $p_header[&#039;extra&#039;] = &#039;&#039;;
    }

    // ----- Extract properties
    $p_header[&#039;version_extracted&#039;] = $v_data[&#039;version&#039;];
    $p_header[&#039;compression&#039;] = $v_data[&#039;compression&#039;];
    $p_header[&#039;size&#039;] = $v_data[&#039;size&#039;];
    $p_header[&#039;compressed_size&#039;] = $v_data[&#039;compressed_size&#039;];
    $p_header[&#039;crc&#039;] = $v_data[&#039;crc&#039;];
    $p_header[&#039;flag&#039;] = $v_data[&#039;flag&#039;];
    $p_header[&#039;filename_len&#039;] = $v_data[&#039;filename_len&#039;];

    // ----- Recuperate date in UNIX format
    $p_header[&#039;mdate&#039;] = $v_data[&#039;mdate&#039;];
    $p_header[&#039;mtime&#039;] = $v_data[&#039;mtime&#039;];
    if ($p_header[&#039;mdate&#039;] &amp;&amp; $p_header[&#039;mtime&#039;])
    {
      // ----- Extract time
      $v_hour = ($p_header[&#039;mtime&#039;] &amp; 0xF800) &gt;&gt; 11;
      $v_minute = ($p_header[&#039;mtime&#039;] &amp; 0x07E0) &gt;&gt; 5;
      $v_seconde = ($p_header[&#039;mtime&#039;] &amp; 0x001F)*2;

      // ----- Extract date
      $v_year = (($p_header[&#039;mdate&#039;] &amp; 0xFE00) &gt;&gt; 9) + 1980;
      $v_month = ($p_header[&#039;mdate&#039;] &amp; 0x01E0) &gt;&gt; 5;
      $v_day = $p_header[&#039;mdate&#039;] &amp; 0x001F;

      // ----- Get UNIX date format
      $p_header[&#039;mtime&#039;] = @mktime($v_hour, $v_minute, $v_seconde, $v_month, $v_day, $v_year);

    }
    else
    {
      $p_header[&#039;mtime&#039;] = time();
    }

    // TBC
    //for(reset($v_data); $key = key($v_data); next($v_data)) {
    //}

    // ----- Set the stored filename
    $p_header[&#039;stored_filename&#039;] = $p_header[&#039;filename&#039;];

    // ----- Set the status field
    $p_header[&#039;status&#039;] = &quot;ok&quot;;

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privReadCentralFileHeader()
  // Description :
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privReadCentralFileHeader(&amp;$p_header)
  {
    $v_result=1;

    // ----- Read the 4 bytes signature
    $v_binary_data = @fread($this-&gt;zip_fd, 4);
    $v_data = unpack(&#039;Vid&#039;, $v_binary_data);

    // ----- Check signature
    if ($v_data[&#039;id&#039;] != 0x02014b50)
    {

      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, &#039;Invalid archive structure&#039;);

      // ----- Return
      return PclZip::errorCode();
    }

    // ----- Read the first 42 bytes of the header
    $v_binary_data = fread($this-&gt;zip_fd, 42);

    // ----- Look for invalid block size
    if (strlen($v_binary_data) != 42)
    {
      $p_header[&#039;filename&#039;] = &quot;&quot;;
      $p_header[&#039;status&#039;] = &quot;invalid_header&quot;;

      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, &quot;Invalid block size : &quot;.strlen($v_binary_data));

      // ----- Return
      return PclZip::errorCode();
    }

    // ----- Extract the values
    $p_header = unpack(&#039;vversion/vversion_extracted/vflag/vcompression/vmtime/vmdate/Vcrc/Vcompressed_size/Vsize/vfilename_len/vextra_len/vcomment_len/vdisk/vinternal/Vexternal/Voffset&#039;, $v_binary_data);

    // ----- Get filename
    if ($p_header[&#039;filename_len&#039;] != 0)
      $p_header[&#039;filename&#039;] = fread($this-&gt;zip_fd, $p_header[&#039;filename_len&#039;]);
    else
      $p_header[&#039;filename&#039;] = &#039;&#039;;

    // ----- Get extra
    if ($p_header[&#039;extra_len&#039;] != 0)
      $p_header[&#039;extra&#039;] = fread($this-&gt;zip_fd, $p_header[&#039;extra_len&#039;]);
    else
      $p_header[&#039;extra&#039;] = &#039;&#039;;

    // ----- Get comment
    if ($p_header[&#039;comment_len&#039;] != 0)
      $p_header[&#039;comment&#039;] = fread($this-&gt;zip_fd, $p_header[&#039;comment_len&#039;]);
    else
      $p_header[&#039;comment&#039;] = &#039;&#039;;

    // ----- Extract properties

    // ----- Recuperate date in UNIX format
    //if ($p_header[&#039;mdate&#039;] &amp;&amp; $p_header[&#039;mtime&#039;])
    // TBC : bug : this was ignoring time with 0/0/0
    if (1)
    {
      // ----- Extract time
      $v_hour = ($p_header[&#039;mtime&#039;] &amp; 0xF800) &gt;&gt; 11;
      $v_minute = ($p_header[&#039;mtime&#039;] &amp; 0x07E0) &gt;&gt; 5;
      $v_seconde = ($p_header[&#039;mtime&#039;] &amp; 0x001F)*2;

      // ----- Extract date
      $v_year = (($p_header[&#039;mdate&#039;] &amp; 0xFE00) &gt;&gt; 9) + 1980;
      $v_month = ($p_header[&#039;mdate&#039;] &amp; 0x01E0) &gt;&gt; 5;
      $v_day = $p_header[&#039;mdate&#039;] &amp; 0x001F;

      // ----- Get UNIX date format
      $p_header[&#039;mtime&#039;] = @mktime($v_hour, $v_minute, $v_seconde, $v_month, $v_day, $v_year);

    }
    else
    {
      $p_header[&#039;mtime&#039;] = time();
    }

    // ----- Set the stored filename
    $p_header[&#039;stored_filename&#039;] = $p_header[&#039;filename&#039;];

    // ----- Set default status to ok
    $p_header[&#039;status&#039;] = &#039;ok&#039;;

    // ----- Look if it is a directory
    if (substr($p_header[&#039;filename&#039;], -1) == &#039;/&#039;) {
      //$p_header[&#039;external&#039;] = 0x41FF0010;
      $p_header[&#039;external&#039;] = 0x00000010;
    }


    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privCheckFileHeaders()
  // Description :
  // Parameters :
  // Return Values :
  //   1 on success,
  //   0 on error;
  // --------------------------------------------------------------------------------
  function privCheckFileHeaders(&amp;$p_local_header, &amp;$p_central_header)
  {
    $v_result=1;

  	// ----- Check the static values
  	// TBC
  	if ($p_local_header[&#039;filename&#039;] != $p_central_header[&#039;filename&#039;]) {
  	}
  	if ($p_local_header[&#039;version_extracted&#039;] != $p_central_header[&#039;version_extracted&#039;]) {
  	}
  	if ($p_local_header[&#039;flag&#039;] != $p_central_header[&#039;flag&#039;]) {
  	}
  	if ($p_local_header[&#039;compression&#039;] != $p_central_header[&#039;compression&#039;]) {
  	}
  	if ($p_local_header[&#039;mtime&#039;] != $p_central_header[&#039;mtime&#039;]) {
  	}
  	if ($p_local_header[&#039;filename_len&#039;] != $p_central_header[&#039;filename_len&#039;]) {
  	}
  
  	// ----- Look for flag bit 3
  	if (($p_local_header[&#039;flag&#039;] &amp; 8) == 8) {
          $p_local_header[&#039;size&#039;] = $p_central_header[&#039;size&#039;];
          $p_local_header[&#039;compressed_size&#039;] = $p_central_header[&#039;compressed_size&#039;];
          $p_local_header[&#039;crc&#039;] = $p_central_header[&#039;crc&#039;];
  	}

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privReadEndCentralDir()
  // Description :
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privReadEndCentralDir(&amp;$p_central_dir)
  {
    $v_result=1;

    // ----- Go to the end of the zip file
    $v_size = filesize($this-&gt;zipname);
    @fseek($this-&gt;zip_fd, $v_size);
    if (@ftell($this-&gt;zip_fd) != $v_size)
    {
      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, &#039;Unable to go to the end of the archive \&#039;&#039;.$this-&gt;zipname.&#039;\&#039;&#039;);

      // ----- Return
      return PclZip::errorCode();
    }

    // ----- First try : look if this is an archive with no commentaries (most of the time)
    // in this case the end of central dir is at 22 bytes of the file end
    $v_found = 0;
    if ($v_size &gt; 26) {
      @fseek($this-&gt;zip_fd, $v_size-22);
      if (($v_pos = @ftell($this-&gt;zip_fd)) != ($v_size-22))
      {
        // ----- Error log
        PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, &#039;Unable to seek back to the middle of the archive \&#039;&#039;.$this-&gt;zipname.&#039;\&#039;&#039;);

        // ----- Return
        return PclZip::errorCode();
      }

      // ----- Read for bytes
      $v_binary_data = @fread($this-&gt;zip_fd, 4);
      $v_data = @unpack(&#039;Vid&#039;, $v_binary_data);

      // ----- Check signature
      if ($v_data[&#039;id&#039;] == 0x06054b50) {
        $v_found = 1;
      }

      $v_pos = ftell($this-&gt;zip_fd);
    }

    // ----- Go back to the maximum possible size of the Central Dir End Record
    if (!$v_found) {
      $v_maximum_size = 65557; // 0xFFFF + 22;
      if ($v_maximum_size &gt; $v_size)
        $v_maximum_size = $v_size;
      @fseek($this-&gt;zip_fd, $v_size-$v_maximum_size);
      if (@ftell($this-&gt;zip_fd) != ($v_size-$v_maximum_size))
      {
        // ----- Error log
        PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, &#039;Unable to seek back to the middle of the archive \&#039;&#039;.$this-&gt;zipname.&#039;\&#039;&#039;);

        // ----- Return
        return PclZip::errorCode();
      }

      // ----- Read byte per byte in order to find the signature
      $v_pos = ftell($this-&gt;zip_fd);
      $v_bytes = 0x00000000;
      while ($v_pos &lt; $v_size)
      {
        // ----- Read a byte
        $v_byte = @fread($this-&gt;zip_fd, 1);

        // -----  Add the byte
        //$v_bytes = ($v_bytes &lt;&lt; 8) | Ord($v_byte);
        // Note we mask the old value down such that once shifted we can never end up with more than a 32bit number 
        // Otherwise on systems where we have 64bit integers the check below for the magic number will fail. 
        $v_bytes = ( ($v_bytes &amp; 0xFFFFFF) &lt;&lt; 8) | Ord($v_byte); 

        // ----- Compare the bytes
        if ($v_bytes == 0x504b0506)
        {
          $v_pos++;
          break;
        }

        $v_pos++;
      }

      // ----- Look if not found end of central dir
      if ($v_pos == $v_size)
      {

        // ----- Error log
        PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, &quot;Unable to find End of Central Dir Record signature&quot;);

        // ----- Return
        return PclZip::errorCode();
      }
    }

    // ----- Read the first 18 bytes of the header
    $v_binary_data = fread($this-&gt;zip_fd, 18);

    // ----- Look for invalid block size
    if (strlen($v_binary_data) != 18)
    {

      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, &quot;Invalid End of Central Dir Record size : &quot;.strlen($v_binary_data));

      // ----- Return
      return PclZip::errorCode();
    }

    // ----- Extract the values
    $v_data = unpack(&#039;vdisk/vdisk_start/vdisk_entries/ventries/Vsize/Voffset/vcomment_size&#039;, $v_binary_data);

    // ----- Check the global size
    if (($v_pos + $v_data[&#039;comment_size&#039;] + 18) != $v_size) {

	  // ----- Removed in release 2.2 see readme file
	  // The check of the file size is a little too strict.
	  // Some bugs where found when a zip is encrypted/decrypted with &#039;crypt&#039;.
	  // While decrypted, zip has training 0 bytes
	  if (0) {
      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT,
	                       &#039;The central dir is not at the end of the archive.&#039;
						   .&#039; Some trailing bytes exists after the archive.&#039;);

      // ----- Return
      return PclZip::errorCode();
	  }
    }

    // ----- Get comment
    if ($v_data[&#039;comment_size&#039;] != 0) {
      $p_central_dir[&#039;comment&#039;] = fread($this-&gt;zip_fd, $v_data[&#039;comment_size&#039;]);
    }
    else
      $p_central_dir[&#039;comment&#039;] = &#039;&#039;;

    $p_central_dir[&#039;entries&#039;] = $v_data[&#039;entries&#039;];
    $p_central_dir[&#039;disk_entries&#039;] = $v_data[&#039;disk_entries&#039;];
    $p_central_dir[&#039;offset&#039;] = $v_data[&#039;offset&#039;];
    $p_central_dir[&#039;size&#039;] = $v_data[&#039;size&#039;];
    $p_central_dir[&#039;disk&#039;] = $v_data[&#039;disk&#039;];
    $p_central_dir[&#039;disk_start&#039;] = $v_data[&#039;disk_start&#039;];

    // TBC
    //for(reset($p_central_dir); $key = key($p_central_dir); next($p_central_dir)) {
    //}

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privDeleteByRule()
  // Description :
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privDeleteByRule(&amp;$p_result_list, &amp;$p_options)
  {
    $v_result=1;
    $v_list_detail = array();

    // ----- Open the zip file
    if (($v_result=$this-&gt;privOpenFd(&#039;rb&#039;)) != 1)
    {
      // ----- Return
      return $v_result;
    }

    // ----- Read the central directory informations
    $v_central_dir = array();
    if (($v_result = $this-&gt;privReadEndCentralDir($v_central_dir)) != 1)
    {
      $this-&gt;privCloseFd();
      return $v_result;
    }

    // ----- Go to beginning of File
    @rewind($this-&gt;zip_fd);

    // ----- Scan all the files
    // ----- Start at beginning of Central Dir
    $v_pos_entry = $v_central_dir[&#039;offset&#039;];
    @rewind($this-&gt;zip_fd);
    if (@fseek($this-&gt;zip_fd, $v_pos_entry))
    {
      // ----- Close the zip file
      $this-&gt;privCloseFd();

      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, &#039;Invalid archive size&#039;);

      // ----- Return
      return PclZip::errorCode();
    }

    // ----- Read each entry
    $v_header_list = array();
    $j_start = 0;
    for ($i=0, $v_nb_extracted=0; $i&lt;$v_central_dir[&#039;entries&#039;]; $i++)
    {

      // ----- Read the file header
      $v_header_list[$v_nb_extracted] = array();
      if (($v_result = $this-&gt;privReadCentralFileHeader($v_header_list[$v_nb_extracted])) != 1)
      {
        // ----- Close the zip file
        $this-&gt;privCloseFd();

        return $v_result;
      }


      // ----- Store the index
      $v_header_list[$v_nb_extracted][&#039;index&#039;] = $i;

      // ----- Look for the specific extract rules
      $v_found = false;

      // ----- Look for extract by name rule
      if (   (isset($p_options[PCLZIP_OPT_BY_NAME]))
          &amp;&amp; ($p_options[PCLZIP_OPT_BY_NAME] != 0)) {

          // ----- Look if the filename is in the list
          for ($j=0; ($j&lt;sizeof($p_options[PCLZIP_OPT_BY_NAME])) &amp;&amp; (!$v_found); $j++) {

              // ----- Look for a directory
              if (substr($p_options[PCLZIP_OPT_BY_NAME][$j], -1) == &quot;/&quot;) {

                  // ----- Look if the directory is in the filename path
                  if (   (strlen($v_header_list[$v_nb_extracted][&#039;stored_filename&#039;]) &gt; strlen($p_options[PCLZIP_OPT_BY_NAME][$j]))
                      &amp;&amp; (substr($v_header_list[$v_nb_extracted][&#039;stored_filename&#039;], 0, strlen($p_options[PCLZIP_OPT_BY_NAME][$j])) == $p_options[PCLZIP_OPT_BY_NAME][$j])) {
                      $v_found = true;
                  }
                  elseif (   (($v_header_list[$v_nb_extracted][&#039;external&#039;]&amp;0x00000010)==0x00000010) /* Indicates a folder */
                          &amp;&amp; ($v_header_list[$v_nb_extracted][&#039;stored_filename&#039;].&#039;/&#039; == $p_options[PCLZIP_OPT_BY_NAME][$j])) {
                      $v_found = true;
                  }
              }
              // ----- Look for a filename
              elseif ($v_header_list[$v_nb_extracted][&#039;stored_filename&#039;] == $p_options[PCLZIP_OPT_BY_NAME][$j]) {
                  $v_found = true;
              }
          }
      }

      // ----- Look for extract by ereg rule
      // ereg() is deprecated with PHP 5.3
      /*
      else if (   (isset($p_options[PCLZIP_OPT_BY_EREG]))
               &amp;&amp; ($p_options[PCLZIP_OPT_BY_EREG] != &quot;&quot;)) {

          if (ereg($p_options[PCLZIP_OPT_BY_EREG], $v_header_list[$v_nb_extracted][&#039;stored_filename&#039;])) {
              $v_found = true;
          }
      }
      */

      // ----- Look for extract by preg rule
      else if (   (isset($p_options[PCLZIP_OPT_BY_PREG]))
               &amp;&amp; ($p_options[PCLZIP_OPT_BY_PREG] != &quot;&quot;)) {

          if (preg_match($p_options[PCLZIP_OPT_BY_PREG], $v_header_list[$v_nb_extracted][&#039;stored_filename&#039;])) {
              $v_found = true;
          }
      }

      // ----- Look for extract by index rule
      else if (   (isset($p_options[PCLZIP_OPT_BY_INDEX]))
               &amp;&amp; ($p_options[PCLZIP_OPT_BY_INDEX] != 0)) {

          // ----- Look if the index is in the list
          for ($j=$j_start; ($j&lt;sizeof($p_options[PCLZIP_OPT_BY_INDEX])) &amp;&amp; (!$v_found); $j++) {

              if (($i&gt;=$p_options[PCLZIP_OPT_BY_INDEX][$j][&#039;start&#039;]) &amp;&amp; ($i&lt;=$p_options[PCLZIP_OPT_BY_INDEX][$j][&#039;end&#039;])) {
                  $v_found = true;
              }
              if ($i&gt;=$p_options[PCLZIP_OPT_BY_INDEX][$j][&#039;end&#039;]) {
                  $j_start = $j+1;
              }

              if ($p_options[PCLZIP_OPT_BY_INDEX][$j][&#039;start&#039;]&gt;$i) {
                  break;
              }
          }
      }
      else {
      	$v_found = true;
      }

      // ----- Look for deletion
      if ($v_found)
      {
        unset($v_header_list[$v_nb_extracted]);
      }
      else
      {
        $v_nb_extracted++;
      }
    }

    // ----- Look if something need to be deleted
    if ($v_nb_extracted &gt; 0) {

        // ----- Creates a temporay file
        $v_zip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid(&#039;pclzip-&#039;).&#039;.tmp&#039;;

        // ----- Creates a temporary zip archive
        $v_temp_zip = new PclZip($v_zip_temp_name);

        // ----- Open the temporary zip file in write mode
        if (($v_result = $v_temp_zip-&gt;privOpenFd(&#039;wb&#039;)) != 1) {
            $this-&gt;privCloseFd();

            // ----- Return
            return $v_result;
        }

        // ----- Look which file need to be kept
        for ($i=0; $i&lt;sizeof($v_header_list); $i++) {

            // ----- Calculate the position of the header
            @rewind($this-&gt;zip_fd);
            if (@fseek($this-&gt;zip_fd,  $v_header_list[$i][&#039;offset&#039;])) {
                // ----- Close the zip file
                $this-&gt;privCloseFd();
                $v_temp_zip-&gt;privCloseFd();
                @unlink($v_zip_temp_name);

                // ----- Error log
                PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, &#039;Invalid archive size&#039;);

                // ----- Return
                return PclZip::errorCode();
            }

            // ----- Read the file header
            $v_local_header = array();
            if (($v_result = $this-&gt;privReadFileHeader($v_local_header)) != 1) {
                // ----- Close the zip file
                $this-&gt;privCloseFd();
                $v_temp_zip-&gt;privCloseFd();
                @unlink($v_zip_temp_name);

                // ----- Return
                return $v_result;
            }
            
            // ----- Check that local file header is same as central file header
            if ($this-&gt;privCheckFileHeaders($v_local_header,
			                                $v_header_list[$i]) != 1) {
                // TBC
            }
            unset($v_local_header);

            // ----- Write the file header
            if (($v_result = $v_temp_zip-&gt;privWriteFileHeader($v_header_list[$i])) != 1) {
                // ----- Close the zip file
                $this-&gt;privCloseFd();
                $v_temp_zip-&gt;privCloseFd();
                @unlink($v_zip_temp_name);

                // ----- Return
                return $v_result;
            }

            // ----- Read/write the data block
            if (($v_result = PclZipUtilCopyBlock($this-&gt;zip_fd, $v_temp_zip-&gt;zip_fd, $v_header_list[$i][&#039;compressed_size&#039;])) != 1) {
                // ----- Close the zip file
                $this-&gt;privCloseFd();
                $v_temp_zip-&gt;privCloseFd();
                @unlink($v_zip_temp_name);

                // ----- Return
                return $v_result;
            }
        }

        // ----- Store the offset of the central dir
        $v_offset = @ftell($v_temp_zip-&gt;zip_fd);

        // ----- Re-Create the Central Dir files header
        for ($i=0; $i&lt;sizeof($v_header_list); $i++) {
            // ----- Create the file header
            if (($v_result = $v_temp_zip-&gt;privWriteCentralFileHeader($v_header_list[$i])) != 1) {
                $v_temp_zip-&gt;privCloseFd();
                $this-&gt;privCloseFd();
                @unlink($v_zip_temp_name);

                // ----- Return
                return $v_result;
            }

            // ----- Transform the header to a &#039;usable&#039; info
            $v_temp_zip-&gt;privConvertHeader2FileInfo($v_header_list[$i], $p_result_list[$i]);
        }


        // ----- Zip file comment
        $v_comment = &#039;&#039;;
        if (isset($p_options[PCLZIP_OPT_COMMENT])) {
          $v_comment = $p_options[PCLZIP_OPT_COMMENT];
        }

        // ----- Calculate the size of the central header
        $v_size = @ftell($v_temp_zip-&gt;zip_fd)-$v_offset;

        // ----- Create the central dir footer
        if (($v_result = $v_temp_zip-&gt;privWriteCentralHeader(sizeof($v_header_list), $v_size, $v_offset, $v_comment)) != 1) {
            // ----- Reset the file list
            unset($v_header_list);
            $v_temp_zip-&gt;privCloseFd();
            $this-&gt;privCloseFd();
            @unlink($v_zip_temp_name);

            // ----- Return
            return $v_result;
        }

        // ----- Close
        $v_temp_zip-&gt;privCloseFd();
        $this-&gt;privCloseFd();

        // ----- Delete the zip file
        // TBC : I should test the result ...
        @unlink($this-&gt;zipname);

        // ----- Rename the temporary file
        // TBC : I should test the result ...
        //@rename($v_zip_temp_name, $this-&gt;zipname);
        PclZipUtilRename($v_zip_temp_name, $this-&gt;zipname);
    
        // ----- Destroy the temporary archive
        unset($v_temp_zip);
    }
    
    // ----- Remove every files : reset the file
    else if ($v_central_dir[&#039;entries&#039;] != 0) {
        $this-&gt;privCloseFd();

        if (($v_result = $this-&gt;privOpenFd(&#039;wb&#039;)) != 1) {
          return $v_result;
        }

        if (($v_result = $this-&gt;privWriteCentralHeader(0, 0, 0, &#039;&#039;)) != 1) {
          return $v_result;
        }

        $this-&gt;privCloseFd();
    }

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privDirCheck()
  // Description :
  //   Check if a directory exists, if not it creates it and all the parents directory
  //   which may be useful.
  // Parameters :
  //   $p_dir : Directory path to check.
  // Return Values :
  //    1 : OK
  //   -1 : Unable to create directory
  // --------------------------------------------------------------------------------
  function privDirCheck($p_dir, $p_is_dir=false)
  {
    $v_result = 1;


    // ----- Remove the final &#039;/&#039;
    if (($p_is_dir) &amp;&amp; (substr($p_dir, -1)==&#039;/&#039;))
    {
      $p_dir = substr($p_dir, 0, strlen($p_dir)-1);
    }

    // ----- Check the directory availability
    if ((is_dir($p_dir)) || ($p_dir == &quot;&quot;))
    {
      return 1;
    }

    // ----- Extract parent directory
    $p_parent_dir = dirname($p_dir);

    // ----- Just a check
    if ($p_parent_dir != $p_dir)
    {
      // ----- Look for parent directory
      if ($p_parent_dir != &quot;&quot;)
      {
        if (($v_result = $this-&gt;privDirCheck($p_parent_dir)) != 1)
        {
          return $v_result;
        }
      }
    }

    // ----- Create the directory
    if (!@mkdir($p_dir, 0777))
    {
      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_DIR_CREATE_FAIL, &quot;Unable to create directory &#039;$p_dir&#039;&quot;);

      // ----- Return
      return PclZip::errorCode();
    }

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privMerge()
  // Description :
  //   If $p_archive_to_add does not exist, the function exit with a success result.
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privMerge(&amp;$p_archive_to_add)
  {
    $v_result=1;

    // ----- Look if the archive_to_add exists
    if (!is_file($p_archive_to_add-&gt;zipname))
    {

      // ----- Nothing to merge, so merge is a success
      $v_result = 1;

      // ----- Return
      return $v_result;
    }

    // ----- Look if the archive exists
    if (!is_file($this-&gt;zipname))
    {

      // ----- Do a duplicate
      $v_result = $this-&gt;privDuplicate($p_archive_to_add-&gt;zipname);

      // ----- Return
      return $v_result;
    }

    // ----- Open the zip file
    if (($v_result=$this-&gt;privOpenFd(&#039;rb&#039;)) != 1)
    {
      // ----- Return
      return $v_result;
    }

    // ----- Read the central directory informations
    $v_central_dir = array();
    if (($v_result = $this-&gt;privReadEndCentralDir($v_central_dir)) != 1)
    {
      $this-&gt;privCloseFd();
      return $v_result;
    }

    // ----- Go to beginning of File
    @rewind($this-&gt;zip_fd);

    // ----- Open the archive_to_add file
    if (($v_result=$p_archive_to_add-&gt;privOpenFd(&#039;rb&#039;)) != 1)
    {
      $this-&gt;privCloseFd();

      // ----- Return
      return $v_result;
    }

    // ----- Read the central directory informations
    $v_central_dir_to_add = array();
    if (($v_result = $p_archive_to_add-&gt;privReadEndCentralDir($v_central_dir_to_add)) != 1)
    {
      $this-&gt;privCloseFd();
      $p_archive_to_add-&gt;privCloseFd();

      return $v_result;
    }

    // ----- Go to beginning of File
    @rewind($p_archive_to_add-&gt;zip_fd);

    // ----- Creates a temporay file
    $v_zip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid(&#039;pclzip-&#039;).&#039;.tmp&#039;;

    // ----- Open the temporary file in write mode
    if (($v_zip_temp_fd = @fopen($v_zip_temp_name, &#039;wb&#039;)) == 0)
    {
      $this-&gt;privCloseFd();
      $p_archive_to_add-&gt;privCloseFd();

      PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, &#039;Unable to open temporary file \&#039;&#039;.$v_zip_temp_name.&#039;\&#039; in binary write mode&#039;);

      // ----- Return
      return PclZip::errorCode();
    }

    // ----- Copy the files from the archive to the temporary file
    // TBC : Here I should better append the file and go back to erase the central dir
    $v_size = $v_central_dir[&#039;offset&#039;];
    while ($v_size != 0)
    {
      $v_read_size = ($v_size &lt; PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
      $v_buffer = fread($this-&gt;zip_fd, $v_read_size);
      @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
      $v_size -= $v_read_size;
    }

    // ----- Copy the files from the archive_to_add into the temporary file
    $v_size = $v_central_dir_to_add[&#039;offset&#039;];
    while ($v_size != 0)
    {
      $v_read_size = ($v_size &lt; PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
      $v_buffer = fread($p_archive_to_add-&gt;zip_fd, $v_read_size);
      @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
      $v_size -= $v_read_size;
    }

    // ----- Store the offset of the central dir
    $v_offset = @ftell($v_zip_temp_fd);

    // ----- Copy the block of file headers from the old archive
    $v_size = $v_central_dir[&#039;size&#039;];
    while ($v_size != 0)
    {
      $v_read_size = ($v_size &lt; PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
      $v_buffer = @fread($this-&gt;zip_fd, $v_read_size);
      @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
      $v_size -= $v_read_size;
    }

    // ----- Copy the block of file headers from the archive_to_add
    $v_size = $v_central_dir_to_add[&#039;size&#039;];
    while ($v_size != 0)
    {
      $v_read_size = ($v_size &lt; PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
      $v_buffer = @fread($p_archive_to_add-&gt;zip_fd, $v_read_size);
      @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
      $v_size -= $v_read_size;
    }

    // ----- Merge the file comments
    $v_comment = $v_central_dir[&#039;comment&#039;].&#039; &#039;.$v_central_dir_to_add[&#039;comment&#039;];

    // ----- Calculate the size of the (new) central header
    $v_size = @ftell($v_zip_temp_fd)-$v_offset;

    // ----- Swap the file descriptor
    // Here is a trick : I swap the temporary fd with the zip fd, in order to use
    // the following methods on the temporary fil and not the real archive fd
    $v_swap = $this-&gt;zip_fd;
    $this-&gt;zip_fd = $v_zip_temp_fd;
    $v_zip_temp_fd = $v_swap;

    // ----- Create the central dir footer
    if (($v_result = $this-&gt;privWriteCentralHeader($v_central_dir[&#039;entries&#039;]+$v_central_dir_to_add[&#039;entries&#039;], $v_size, $v_offset, $v_comment)) != 1)
    {
      $this-&gt;privCloseFd();
      $p_archive_to_add-&gt;privCloseFd();
      @fclose($v_zip_temp_fd);
      $this-&gt;zip_fd = null;

      // ----- Reset the file list
      unset($v_header_list);

      // ----- Return
      return $v_result;
    }

    // ----- Swap back the file descriptor
    $v_swap = $this-&gt;zip_fd;
    $this-&gt;zip_fd = $v_zip_temp_fd;
    $v_zip_temp_fd = $v_swap;

    // ----- Close
    $this-&gt;privCloseFd();
    $p_archive_to_add-&gt;privCloseFd();

    // ----- Close the temporary file
    @fclose($v_zip_temp_fd);

    // ----- Delete the zip file
    // TBC : I should test the result ...
    @unlink($this-&gt;zipname);

    // ----- Rename the temporary file
    // TBC : I should test the result ...
    //@rename($v_zip_temp_name, $this-&gt;zipname);
    PclZipUtilRename($v_zip_temp_name, $this-&gt;zipname);

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privDuplicate()
  // Description :
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privDuplicate($p_archive_filename)
  {
    $v_result=1;

    // ----- Look if the $p_archive_filename exists
    if (!is_file($p_archive_filename))
    {

      // ----- Nothing to duplicate, so duplicate is a success.
      $v_result = 1;

      // ----- Return
      return $v_result;
    }

    // ----- Open the zip file
    if (($v_result=$this-&gt;privOpenFd(&#039;wb&#039;)) != 1)
    {
      // ----- Return
      return $v_result;
    }

    // ----- Open the temporary file in write mode
    if (($v_zip_temp_fd = @fopen($p_archive_filename, &#039;rb&#039;)) == 0)
    {
      $this-&gt;privCloseFd();

      PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, &#039;Unable to open archive file \&#039;&#039;.$p_archive_filename.&#039;\&#039; in binary write mode&#039;);

      // ----- Return
      return PclZip::errorCode();
    }

    // ----- Copy the files from the archive to the temporary file
    // TBC : Here I should better append the file and go back to erase the central dir
    $v_size = filesize($p_archive_filename);
    while ($v_size != 0)
    {
      $v_read_size = ($v_size &lt; PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
      $v_buffer = fread($v_zip_temp_fd, $v_read_size);
      @fwrite($this-&gt;zip_fd, $v_buffer, $v_read_size);
      $v_size -= $v_read_size;
    }

    // ----- Close
    $this-&gt;privCloseFd();

    // ----- Close the temporary file
    @fclose($v_zip_temp_fd);

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privErrorLog()
  // Description :
  // Parameters :
  // --------------------------------------------------------------------------------
  function privErrorLog($p_error_code=0, $p_error_string=&#039;&#039;)
  {
    if (PCLZIP_ERROR_EXTERNAL == 1) {
      PclError($p_error_code, $p_error_string);
    }
    else {
      $this-&gt;error_code = $p_error_code;
      $this-&gt;error_string = $p_error_string;
    }
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privErrorReset()
  // Description :
  // Parameters :
  // --------------------------------------------------------------------------------
  function privErrorReset()
  {
    if (PCLZIP_ERROR_EXTERNAL == 1) {
      PclErrorReset();
    }
    else {
      $this-&gt;error_code = 0;
      $this-&gt;error_string = &#039;&#039;;
    }
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privDisableMagicQuotes()
  // Description :
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privDisableMagicQuotes()
  {
    $v_result=1;

    // ----- Look if function exists
    if (   (!function_exists(&quot;get_magic_quotes_runtime&quot;))
	    || (!function_exists(&quot;set_magic_quotes_runtime&quot;))) {
      return $v_result;
	}

    // ----- Look if already done
    if ($this-&gt;magic_quotes_status != -1) {
      return $v_result;
	}

	// ----- Get and memorize the magic_quote value
	$this-&gt;magic_quotes_status = @get_magic_quotes_runtime();

	// ----- Disable magic_quotes
	if ($this-&gt;magic_quotes_status == 1) {
	  @set_magic_quotes_runtime(0);
	}

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : privSwapBackMagicQuotes()
  // Description :
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function privSwapBackMagicQuotes()
  {
    $v_result=1;

    // ----- Look if function exists
    if (   (!function_exists(&quot;get_magic_quotes_runtime&quot;))
	    || (!function_exists(&quot;set_magic_quotes_runtime&quot;))) {
      return $v_result;
	}

    // ----- Look if something to do
    if ($this-&gt;magic_quotes_status != -1) {
      return $v_result;
	}

	// ----- Swap back magic_quotes
	if ($this-&gt;magic_quotes_status == 1) {
  	  @set_magic_quotes_runtime($this-&gt;magic_quotes_status);
	}

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  }
  // End of class
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : PclZipUtilPathReduction()
  // Description :
  // Parameters :
  // Return Values :
  // --------------------------------------------------------------------------------
  function PclZipUtilPathReduction($p_dir)
  {
    $v_result = &quot;&quot;;

    // ----- Look for not empty path
    if ($p_dir != &quot;&quot;) {
      // ----- Explode path by directory names
      $v_list = explode(&quot;/&quot;, $p_dir);

      // ----- Study directories from last to first
      $v_skip = 0;
      for ($i=sizeof($v_list)-1; $i&gt;=0; $i--) {
        // ----- Look for current path
        if ($v_list[$i] == &quot;.&quot;) {
          // ----- Ignore this directory
          // Should be the first $i=0, but no check is done
        }
        else if ($v_list[$i] == &quot;..&quot;) {
		  $v_skip++;
        }
        else if ($v_list[$i] == &quot;&quot;) {
		  // ----- First &#039;/&#039; i.e. root slash
		  if ($i == 0) {
            $v_result = &quot;/&quot;.$v_result;
		    if ($v_skip &gt; 0) {
		        // ----- It is an invalid path, so the path is not modified
		        // TBC
		        $v_result = $p_dir;
                $v_skip = 0;
		    }
		  }
		  // ----- Last &#039;/&#039; i.e. indicates a directory
		  else if ($i == (sizeof($v_list)-1)) {
            $v_result = $v_list[$i];
		  }
		  // ----- Double &#039;/&#039; inside the path
		  else {
            // ----- Ignore only the double &#039;//&#039; in path,
            // but not the first and last &#039;/&#039;
		  }
        }
        else {
		  // ----- Look for item to skip
		  if ($v_skip &gt; 0) {
		    $v_skip--;
		  }
		  else {
            $v_result = $v_list[$i].($i!=(sizeof($v_list)-1)?&quot;/&quot;.$v_result:&quot;&quot;);
		  }
        }
      }
      
      // ----- Look for skip
      if ($v_skip &gt; 0) {
        while ($v_skip &gt; 0) {
            $v_result = &#039;../&#039;.$v_result;
            $v_skip--;
        }
      }
    }

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : PclZipUtilPathInclusion()
  // Description :
  //   This function indicates if the path $p_path is under the $p_dir tree. Or,
  //   said in an other way, if the file or sub-dir $p_path is inside the dir
  //   $p_dir.
  //   The function indicates also if the path is exactly the same as the dir.
  //   This function supports path with duplicated &#039;/&#039; like &#039;//&#039;, but does not
  //   support &#039;.&#039; or &#039;..&#039; statements.
  // Parameters :
  // Return Values :
  //   0 if $p_path is not inside directory $p_dir
  //   1 if $p_path is inside directory $p_dir
  //   2 if $p_path is exactly the same as $p_dir
  // --------------------------------------------------------------------------------
  function PclZipUtilPathInclusion($p_dir, $p_path)
  {
    $v_result = 1;
    
    // ----- Look for path beginning by ./
    if (   ($p_dir == &#039;.&#039;)
        || ((strlen($p_dir) &gt;=2) &amp;&amp; (substr($p_dir, 0, 2) == &#039;./&#039;))) {
      $p_dir = PclZipUtilTranslateWinPath(getcwd(), FALSE).&#039;/&#039;.substr($p_dir, 1);
    }
    if (   ($p_path == &#039;.&#039;)
        || ((strlen($p_path) &gt;=2) &amp;&amp; (substr($p_path, 0, 2) == &#039;./&#039;))) {
      $p_path = PclZipUtilTranslateWinPath(getcwd(), FALSE).&#039;/&#039;.substr($p_path, 1);
    }

    // ----- Explode dir and path by directory separator
    $v_list_dir = explode(&quot;/&quot;, $p_dir);
    $v_list_dir_size = sizeof($v_list_dir);
    $v_list_path = explode(&quot;/&quot;, $p_path);
    $v_list_path_size = sizeof($v_list_path);

    // ----- Study directories paths
    $i = 0;
    $j = 0;
    while (($i &lt; $v_list_dir_size) &amp;&amp; ($j &lt; $v_list_path_size) &amp;&amp; ($v_result)) {

      // ----- Look for empty dir (path reduction)
      if ($v_list_dir[$i] == &#039;&#039;) {
        $i++;
        continue;
      }
      if ($v_list_path[$j] == &#039;&#039;) {
        $j++;
        continue;
      }

      // ----- Compare the items
      if (($v_list_dir[$i] != $v_list_path[$j]) &amp;&amp; ($v_list_dir[$i] != &#039;&#039;) &amp;&amp; ( $v_list_path[$j] != &#039;&#039;))  {
        $v_result = 0;
      }

      // ----- Next items
      $i++;
      $j++;
    }

    // ----- Look if everything seems to be the same
    if ($v_result) {
      // ----- Skip all the empty items
      while (($j &lt; $v_list_path_size) &amp;&amp; ($v_list_path[$j] == &#039;&#039;)) $j++;
      while (($i &lt; $v_list_dir_size) &amp;&amp; ($v_list_dir[$i] == &#039;&#039;)) $i++;

      if (($i &gt;= $v_list_dir_size) &amp;&amp; ($j &gt;= $v_list_path_size)) {
        // ----- There are exactly the same
        $v_result = 2;
      }
      else if ($i &lt; $v_list_dir_size) {
        // ----- The path is shorter than the dir
        $v_result = 0;
      }
    }

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : PclZipUtilCopyBlock()
  // Description :
  // Parameters :
  //   $p_mode : read/write compression mode
  //             0 : src &amp; dest normal
  //             1 : src gzip, dest normal
  //             2 : src normal, dest gzip
  //             3 : src &amp; dest gzip
  // Return Values :
  // --------------------------------------------------------------------------------
  function PclZipUtilCopyBlock($p_src, $p_dest, $p_size, $p_mode=0)
  {
    $v_result = 1;

    if ($p_mode==0)
    {
      while ($p_size != 0)
      {
        $v_read_size = ($p_size &lt; PCLZIP_READ_BLOCK_SIZE ? $p_size : PCLZIP_READ_BLOCK_SIZE);
        $v_buffer = @fread($p_src, $v_read_size);
        @fwrite($p_dest, $v_buffer, $v_read_size);
        $p_size -= $v_read_size;
      }
    }
    else if ($p_mode==1)
    {
      while ($p_size != 0)
      {
        $v_read_size = ($p_size &lt; PCLZIP_READ_BLOCK_SIZE ? $p_size : PCLZIP_READ_BLOCK_SIZE);
        $v_buffer = @gzread($p_src, $v_read_size);
        @fwrite($p_dest, $v_buffer, $v_read_size);
        $p_size -= $v_read_size;
      }
    }
    else if ($p_mode==2)
    {
      while ($p_size != 0)
      {
        $v_read_size = ($p_size &lt; PCLZIP_READ_BLOCK_SIZE ? $p_size : PCLZIP_READ_BLOCK_SIZE);
        $v_buffer = @fread($p_src, $v_read_size);
        @gzwrite($p_dest, $v_buffer, $v_read_size);
        $p_size -= $v_read_size;
      }
    }
    else if ($p_mode==3)
    {
      while ($p_size != 0)
      {
        $v_read_size = ($p_size &lt; PCLZIP_READ_BLOCK_SIZE ? $p_size : PCLZIP_READ_BLOCK_SIZE);
        $v_buffer = @gzread($p_src, $v_read_size);
        @gzwrite($p_dest, $v_buffer, $v_read_size);
        $p_size -= $v_read_size;
      }
    }

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : PclZipUtilRename()
  // Description :
  //   This function tries to do a simple rename() function. If it fails, it
  //   tries to copy the $p_src file in a new $p_dest file and then unlink the
  //   first one.
  // Parameters :
  //   $p_src : Old filename
  //   $p_dest : New filename
  // Return Values :
  //   1 on success, 0 on failure.
  // --------------------------------------------------------------------------------
  function PclZipUtilRename($p_src, $p_dest)
  {
    $v_result = 1;

    // ----- Try to rename the files
    if (!@rename($p_src, $p_dest)) {

      // ----- Try to copy &amp; unlink the src
      if (!@copy($p_src, $p_dest)) {
        $v_result = 0;
      }
      else if (!@unlink($p_src)) {
        $v_result = 0;
      }
    }

    // ----- Return
    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : PclZipUtilOptionText()
  // Description :
  //   Translate option value in text. Mainly for debug purpose.
  // Parameters :
  //   $p_option : the option value.
  // Return Values :
  //   The option text value.
  // --------------------------------------------------------------------------------
  function PclZipUtilOptionText($p_option)
  {
    
    $v_list = get_defined_constants();
    for (reset($v_list); $v_key = key($v_list); next($v_list)) {
	    $v_prefix = substr($v_key, 0, 10);
	    if ((   ($v_prefix == &#039;PCLZIP_OPT&#039;)
           || ($v_prefix == &#039;PCLZIP_CB_&#039;)
           || ($v_prefix == &#039;PCLZIP_ATT&#039;))
	        &amp;&amp; ($v_list[$v_key] == $p_option)) {
        return $v_key;
	    }
    }
    
    $v_result = &#039;Unknown&#039;;

    return $v_result;
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // Function : PclZipUtilTranslateWinPath()
  // Description :
  //   Translate windows path by replacing &#039;\&#039; by &#039;/&#039; and optionally removing
  //   drive letter.
  // Parameters :
  //   $p_path : path to translate.
  //   $p_remove_disk_letter : true | false
  // Return Values :
  //   The path translated.
  // --------------------------------------------------------------------------------
  function PclZipUtilTranslateWinPath($p_path, $p_remove_disk_letter=true)
  {
    if (stristr(php_uname(), &#039;windows&#039;)) {
      // ----- Look for potential disk letter
      if (($p_remove_disk_letter) &amp;&amp; (($v_position = strpos($p_path, &#039;:&#039;)) != false)) {
          $p_path = substr($p_path, $v_position+1);
      }
      // ----- Change potential windows directory separator
      if ((strpos($p_path, &#039;\\&#039;) &gt; 0) || (substr($p_path, 0,1) == &#039;\\&#039;)) {
          $p_path = strtr($p_path, &#039;\\&#039;, &#039;/&#039;);
      }
    }
    return $p_path;
  }
  // --------------------------------------------------------------------------------


class softpclzip extends PclZip{

	function __construct($p_zipname){
		return parent::PclZip($p_zipname);
	}
	
	function restore_list(){
		$v_result=1;

		// ----- Reset the error handler
		$this-&gt;privErrorReset();
		
		// ----- Check archive
		if (!$this-&gt;privCheckFormat()) {
			return(0);
		}
		
		// ----- Call the extracting fct
		$p_list = array();		
		
		// ----- Magic quotes trick
		$this-&gt;privDisableMagicQuotes();
		
		// ----- Open the zip file
		if (($this-&gt;zip_fd = @fopen($this-&gt;zipname, &#039;rb&#039;)) == 0)
		{
		  // ----- Magic quotes trick
		  $this-&gt;privSwapBackMagicQuotes();
		  
		  // ----- Error log
		  PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, &#039;Unable to open archive \&#039;&#039;.$this-&gt;zipname.&#039;\&#039; in binary read mode&#039;);
		
		  // ----- Return
		  return PclZip::errorCode();
		}
		
		// ----- Read the central directory informations
		if (($v_result = $this-&gt;restore_privReadEndCentralDir($p_list)) != 1)
		{
		  $this-&gt;privSwapBackMagicQuotes();
		  return $v_result;
		}

		// ----- Close the zip file
		$this-&gt;privCloseFd();
	
		// ----- Magic quotes trick
		$this-&gt;privSwapBackMagicQuotes();
		
		// ----- Return
		return $p_list;
	}
	
  function restore_privReadEndCentralDir(&amp;$p_list){
    $v_result=1;
	
	$p_central_dir = array();
	
    // ----- Go to the end of the zip file
    $v_size = filesize($this-&gt;zipname);
    @fseek($this-&gt;zip_fd, $v_size);
    if (@ftell($this-&gt;zip_fd) != $v_size)
    {
      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, &#039;Unable to go to the end of the archive \&#039;&#039;.$this-&gt;zipname.&#039;\&#039;&#039;);

      // ----- Return
      return PclZip::errorCode();
    }

    // ----- First try : look if this is an archive with no commentaries (most of the time)
    // in this case the end of central dir is at 22 bytes of the file end
    $v_found = 0;
    if ($v_size &gt; 26) {
      @fseek($this-&gt;zip_fd, $v_size-22);
      if (($v_pos = @ftell($this-&gt;zip_fd)) != ($v_size-22))
      {
        // ----- Error log
        PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, &#039;Unable to seek back to the middle of the archive \&#039;&#039;.$this-&gt;zipname.&#039;\&#039;&#039;);

        // ----- Return
        return PclZip::errorCode();
      }

      // ----- Read for bytes
      $v_binary_data = @fread($this-&gt;zip_fd, 4);
      $v_data = @unpack(&#039;Vid&#039;, $v_binary_data);

      // ----- Check signature
      if ($v_data[&#039;id&#039;] == 0x06054b50) {
        $v_found = 1;
      }

      $v_pos = ftell($this-&gt;zip_fd);
    }

    // ----- Go back to the maximum possible size of the Central Dir End Record
    if (!$v_found) {
      $v_maximum_size = 65557; // 0xFFFF + 22;
      if ($v_maximum_size &gt; $v_size)
        $v_maximum_size = $v_size;
      @fseek($this-&gt;zip_fd, $v_size-$v_maximum_size);
      if (@ftell($this-&gt;zip_fd) != ($v_size-$v_maximum_size))
      {
        // ----- Error log
        PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, &#039;Unable to seek back to the middle of the archive \&#039;&#039;.$this-&gt;zipname.&#039;\&#039;&#039;);

        // ----- Return
        return PclZip::errorCode();
      }

      // ----- Read byte per byte in order to find the signature
      $v_pos = ftell($this-&gt;zip_fd);
      $v_bytes = 0x00000000;
      while ($v_pos &lt; $v_size)
      {
        // ----- Read a byte
        $v_byte = @fread($this-&gt;zip_fd, 1);

        // -----  Add the byte
        //$v_bytes = ($v_bytes &lt;&lt; 8) | Ord($v_byte);
        // Note we mask the old value down such that once shifted we can never end up with more than a 32bit number 
        // Otherwise on systems where we have 64bit integers the check below for the magic number will fail. 
        $v_bytes = ( ($v_bytes &amp; 0xFFFFFF) &lt;&lt; 8) | Ord($v_byte); 

        // ----- Compare the bytes
        if ($v_bytes == 0x504b0506)
        {
          $v_pos++;
          break;
        }

        $v_pos++;
      }

      // ----- Look if not found end of central dir
      if ($v_pos == $v_size)
      {

        // ----- Error log
        PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, &quot;Unable to find End of Central Dir Record signature&quot;);

        // ----- Return
        return PclZip::errorCode();
      }
    }

    // ----- Read the first 18 bytes of the header
    $v_binary_data = fread($this-&gt;zip_fd, 18);

    // ----- Look for invalid block size
    if (strlen($v_binary_data) != 18)
    {

      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, &quot;Invalid End of Central Dir Record size : &quot;.strlen($v_binary_data));

      // ----- Return
      return PclZip::errorCode();
    }

    // ----- Extract the values
    $v_data = unpack(&#039;vdisk/vdisk_start/vdisk_entries/ventries/Vsize/Voffset/vcomment_size&#039;, $v_binary_data);

    // ----- Check the global size
    if (($v_pos + $v_data[&#039;comment_size&#039;] + 18) != $v_size) {

	  // ----- Removed in release 2.2 see readme file
	  // The check of the file size is a little too strict.
	  // Some bugs where found when a zip is encrypted/decrypted with &#039;crypt&#039;.
	  // While decrypted, zip has training 0 bytes
	  if (0) {
      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT,
	                       &#039;The central dir is not at the end of the archive.&#039;
						   .&#039; Some trailing bytes exists after the archive.&#039;);

      // ----- Return
      return PclZip::errorCode();
	  }
    }

    // ----- Get comment
    if ($v_data[&#039;comment_size&#039;] != 0) {
      $p_central_dir[&#039;comment&#039;] = fread($this-&gt;zip_fd, $v_data[&#039;comment_size&#039;]);
    }
    else
      $p_central_dir[&#039;comment&#039;] = &#039;&#039;;

    $p_central_dir[&#039;entries&#039;] = $v_data[&#039;entries&#039;];
    $p_central_dir[&#039;disk_entries&#039;] = $v_data[&#039;disk_entries&#039;];
    $p_central_dir[&#039;offset&#039;] = $v_data[&#039;offset&#039;];
    $p_central_dir[&#039;size&#039;] = $v_data[&#039;size&#039;];
    $p_central_dir[&#039;disk&#039;] = $v_data[&#039;disk&#039;];
    $p_central_dir[&#039;disk_start&#039;] = $v_data[&#039;disk_start&#039;];
	
	//r_print($p_central_dir);
	
	 // ----- Read next Central dir entry
    @rewind($this-&gt;zip_fd);
    if (@fseek($this-&gt;zip_fd, $p_central_dir[&#039;offset&#039;])){
		return $v_result; // Return the original result
	}
	
	//$start = microtime_float();
	
	for($i=1; $i&lt;=200000; $i++){
		$binary_data = @fread($this-&gt;zip_fd, 4);
		$_data = unpack(&#039;Vid&#039;, $binary_data);
		if ($_data[&#039;id&#039;] != 0x02014b50){
			if($_data[&#039;id&#039;] == 0x06054b50){
				$total = $i - 1;
			}
			break;
		}
		
		fread($this-&gt;zip_fd, 24);
		
		$binary_data = fread($this-&gt;zip_fd, 6);
		$_header = unpack(&#039;vfilename_len/vextra_len/vcomment_len&#039;, $binary_data);
		
		fread($this-&gt;zip_fd, 12);
		
		// ----- Get filename
		if ($_header[&#039;filename_len&#039;] != 0){
			$filename = fread($this-&gt;zip_fd, $_header[&#039;filename_len&#039;]);
			$vv = trim(trim($filename), &#039;/&#039;);
			if(substr_count($vv, &#039;/&#039;) || empty($vv)){
				
			}else{
				$p_list[] = $vv;
			}
		}
		
		// ----- Get extra
		if ($_header[&#039;extra_len&#039;] != 0)
		fread($this-&gt;zip_fd, $_header[&#039;extra_len&#039;]);
		
		// ----- Get comment
		if ($_header[&#039;comment_len&#039;] != 0)
		fread($this-&gt;zip_fd, $_header[&#039;comment_len&#039;]);
		
		unset($_header);
		
	}// End of for loop
	
	if(!empty($total)){
		$p_central_dir[&#039;entries&#039;] = $total;
    	$p_central_dir[&#039;disk_entries&#039;] = $total;
	}
	
    // TBC
    //for(reset($p_central_dir); $key = key($p_central_dir); next($p_central_dir)) {
    //}

    // ----- Return
    return $v_result;
  }
  
  // Less memory intensive EXTRACT
  function _extract()
  {
    $v_result=1;

    // ----- Reset the error handler
    $this-&gt;privErrorReset();

    // ----- Check archive
    if (!$this-&gt;privCheckFormat()) {
      return(0);
    }

    // ----- Set default values
    $v_options = array();
//    $v_path = &quot;./&quot;;
    $v_path = &#039;&#039;;
    $v_remove_path = &quot;&quot;;
    $v_remove_all_path = false;

    // ----- Look for variable options arguments
    $v_size = func_num_args();

    // ----- Default values for option
    $v_options[PCLZIP_OPT_EXTRACT_AS_STRING] = FALSE;

    // ----- Look for arguments
    if ($v_size &gt; 0) {
      // ----- Get the arguments
      $v_arg_list = func_get_args();

      // ----- Look for first arg
      if ((is_integer($v_arg_list[0])) &amp;&amp; ($v_arg_list[0] &gt; 77000)) {

        // ----- Parse the options
        $v_result = $this-&gt;privParseOptions($v_arg_list, $v_size, $v_options,
                                            array (PCLZIP_OPT_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_REMOVE_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_REMOVE_ALL_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_ADD_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_CB_PRE_EXTRACT =&gt; &#039;optional&#039;,
                                                   PCLZIP_CB_POST_EXTRACT =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_SET_CHMOD =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_BY_NAME =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_BY_EREG =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_BY_PREG =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_BY_INDEX =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_EXTRACT_AS_STRING =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_EXTRACT_IN_OUTPUT =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_REPLACE_NEWER =&gt; &#039;optional&#039;
                                                   ,PCLZIP_OPT_STOP_ON_ERROR =&gt; &#039;optional&#039;
                                                   ,PCLZIP_OPT_EXTRACT_DIR_RESTRICTION =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_TEMP_FILE_THRESHOLD =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_TEMP_FILE_ON =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_TEMP_FILE_OFF =&gt; &#039;optional&#039;
												    ));
        if ($v_result != 1) {
          return 0;
        }

        // ----- Set the arguments
        if (isset($v_options[PCLZIP_OPT_PATH])) {
          $v_path = $v_options[PCLZIP_OPT_PATH];
        }
        if (isset($v_options[PCLZIP_OPT_REMOVE_PATH])) {
          $v_remove_path = $v_options[PCLZIP_OPT_REMOVE_PATH];
        }
        if (isset($v_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {
          $v_remove_all_path = $v_options[PCLZIP_OPT_REMOVE_ALL_PATH];
        }
        if (isset($v_options[PCLZIP_OPT_ADD_PATH])) {
          // ----- Check for &#039;/&#039; in last path char
          if ((strlen($v_path) &gt; 0) &amp;&amp; (substr($v_path, -1) != &#039;/&#039;)) {
            $v_path .= &#039;/&#039;;
          }
          $v_path .= $v_options[PCLZIP_OPT_ADD_PATH];
        }
      }

      // ----- Look for 2 args
      // Here we need to support the first historic synopsis of the
      // method.
      else {

        // ----- Get the first argument
        $v_path = $v_arg_list[0];

        // ----- Look for the optional second argument
        if ($v_size == 2) {
          $v_remove_path = $v_arg_list[1];
        }
        else if ($v_size &gt; 2) {
          // ----- Error log
          PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, &quot;Invalid number / type of arguments&quot;);

          // ----- Return
          return 0;
        }
      }
    }

    // ----- Look for default option values
    $this-&gt;privOptionDefaultThreshold($v_options);

    // ----- Trace

    // ----- Call the extracting fct
    $p_list = array();
    $v_result = $this-&gt;_privExtractByRule($p_list, $v_path, $v_remove_path,
	                                     $v_remove_all_path, $v_options);
    if ($v_result &lt; 1) {
      unset($p_list);
      return(0);
    }

    // ----- Return
    return $p_list;
  }
  
  function _privExtractByRule(&amp;$p_file_list, $p_path, $p_remove_path, $p_remove_all_path, &amp;$p_options)
  {
    $v_result=1;

    // ----- Magic quotes trick
    $this-&gt;privDisableMagicQuotes();

    // ----- Check the path
    if (   ($p_path == &quot;&quot;)
	    || (   (substr($p_path, 0, 1) != &quot;/&quot;)
		    &amp;&amp; (substr($p_path, 0, 3) != &quot;../&quot;)
			&amp;&amp; (substr($p_path,1,2)!=&quot;:/&quot;)))
      $p_path = &quot;./&quot;.$p_path;

    // ----- Reduce the path last (and duplicated) &#039;/&#039;
    if (($p_path != &quot;./&quot;) &amp;&amp; ($p_path != &quot;/&quot;))
    {
      // ----- Look for the path end &#039;/&#039;
      while (substr($p_path, -1) == &quot;/&quot;)
      {
        $p_path = substr($p_path, 0, strlen($p_path)-1);
      }
    }

    // ----- Look for path to remove format (should end by /)
    if (($p_remove_path != &quot;&quot;) &amp;&amp; (substr($p_remove_path, -1) != &#039;/&#039;))
    {
      $p_remove_path .= &#039;/&#039;;
    }
    $p_remove_path_size = strlen($p_remove_path);

    // ----- Open the zip file
    if (($v_result = $this-&gt;privOpenFd(&#039;rb&#039;)) != 1)
    {
      $this-&gt;privSwapBackMagicQuotes();
      return $v_result;
    }

    // ----- Read the central directory informations
    $v_central_dir = array();
    if (($v_result = $this-&gt;_privReadEndCentralDir($v_central_dir)) != 1)
    {
      // ----- Close the zip file
      $this-&gt;privCloseFd();
      $this-&gt;privSwapBackMagicQuotes();

      return $v_result;
    }

    // ----- Start at beginning of Central Dir
    $v_pos_entry = $v_central_dir[&#039;offset&#039;];

    // ----- Read each entry
    $j_start = 0;
    for ($i=0, $v_nb_extracted=0; $i&lt;$v_central_dir[&#039;entries&#039;]; $i++)
    {

      // ----- Read next Central dir entry
      @rewind($this-&gt;zip_fd);
      if (@fseek($this-&gt;zip_fd, $v_pos_entry))
      {
        // ----- Close the zip file
        $this-&gt;privCloseFd();
        $this-&gt;privSwapBackMagicQuotes();

        // ----- Error log
        PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, &#039;Invalid archive size&#039;);

        // ----- Return
        return PclZip::errorCode();
      }

      // ----- Read the file header
      $v_header = array();
      if (($v_result = $this-&gt;privReadCentralFileHeader($v_header)) != 1)
      {
        // ----- Close the zip file
        $this-&gt;privCloseFd();
        $this-&gt;privSwapBackMagicQuotes();

        return $v_result;
      }

      // ----- Store the index
      $v_header[&#039;index&#039;] = $i;

      // ----- Store the file position
      $v_pos_entry = ftell($this-&gt;zip_fd);

      // ----- Look for the specific extract rules
      $v_extract = false;

      // ----- Look for extract by name rule
      if (   (isset($p_options[PCLZIP_OPT_BY_NAME]))
          &amp;&amp; ($p_options[PCLZIP_OPT_BY_NAME] != 0)) {

          // ----- Look if the filename is in the list
          for ($j=0; ($j&lt;sizeof($p_options[PCLZIP_OPT_BY_NAME])) &amp;&amp; (!$v_extract); $j++) {

              // ----- Look for a directory
              if (substr($p_options[PCLZIP_OPT_BY_NAME][$j], -1) == &quot;/&quot;) {

                  // ----- Look if the directory is in the filename path
                  if (   (strlen($v_header[&#039;stored_filename&#039;]) &gt; strlen($p_options[PCLZIP_OPT_BY_NAME][$j]))
                      &amp;&amp; (substr($v_header[&#039;stored_filename&#039;], 0, strlen($p_options[PCLZIP_OPT_BY_NAME][$j])) == $p_options[PCLZIP_OPT_BY_NAME][$j])) {
                      $v_extract = true;
                  }
              }
              // ----- Look for a filename
              elseif ($v_header[&#039;stored_filename&#039;] == $p_options[PCLZIP_OPT_BY_NAME][$j]) {
                  $v_extract = true;
              }
          }
      }

      // ----- Look for extract by ereg rule
      // ereg() is deprecated with PHP 5.3
      /* 
      else if (   (isset($p_options[PCLZIP_OPT_BY_EREG]))
               &amp;&amp; ($p_options[PCLZIP_OPT_BY_EREG] != &quot;&quot;)) {

          if (ereg($p_options[PCLZIP_OPT_BY_EREG], $v_header[&#039;stored_filename&#039;])) {
              $v_extract = true;
          }
      }
      */

      // ----- Look for extract by preg rule
      else if (   (isset($p_options[PCLZIP_OPT_BY_PREG]))
               &amp;&amp; ($p_options[PCLZIP_OPT_BY_PREG] != &quot;&quot;)) {

          if (preg_match($p_options[PCLZIP_OPT_BY_PREG], $v_header[&#039;stored_filename&#039;])) {
              $v_extract = true;
          }
      }

      // ----- Look for extract by index rule
      else if (   (isset($p_options[PCLZIP_OPT_BY_INDEX]))
               &amp;&amp; ($p_options[PCLZIP_OPT_BY_INDEX] != 0)) {
          
          // ----- Look if the index is in the list
          for ($j=$j_start; ($j&lt;sizeof($p_options[PCLZIP_OPT_BY_INDEX])) &amp;&amp; (!$v_extract); $j++) {

              if (($i&gt;=$p_options[PCLZIP_OPT_BY_INDEX][$j][&#039;start&#039;]) &amp;&amp; ($i&lt;=$p_options[PCLZIP_OPT_BY_INDEX][$j][&#039;end&#039;])) {
                  $v_extract = true;
              }
              if ($i&gt;=$p_options[PCLZIP_OPT_BY_INDEX][$j][&#039;end&#039;]) {
                  $j_start = $j+1;
              }

              if ($p_options[PCLZIP_OPT_BY_INDEX][$j][&#039;start&#039;]&gt;$i) {
                  break;
              }
          }
      }

      // ----- Look for no rule, which means extract all the archive
      else {
          $v_extract = true;
      }

	  // ----- Check compression method
	  if (   ($v_extract)
	      &amp;&amp; (   ($v_header[&#039;compression&#039;] != 8)
		      &amp;&amp; ($v_header[&#039;compression&#039;] != 0))) {
          $v_header[&#039;status&#039;] = &#039;unsupported_compression&#039;;

          // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
          if (   (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
		      &amp;&amp; ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {

              $this-&gt;privSwapBackMagicQuotes();
              
              PclZip::privErrorLog(PCLZIP_ERR_UNSUPPORTED_COMPRESSION,
			                       &quot;Filename &#039;&quot;.$v_header[&#039;stored_filename&#039;].&quot;&#039; is &quot;
				  	    	  	   .&quot;compressed by an unsupported compression &quot;
				  	    	  	   .&quot;method (&quot;.$v_header[&#039;compression&#039;].&quot;) &quot;);

              return PclZip::errorCode();
		  }
	  }
	  
	  // ----- Check encrypted files
	  if (($v_extract) &amp;&amp; (($v_header[&#039;flag&#039;] &amp; 1) == 1)) {
          $v_header[&#039;status&#039;] = &#039;unsupported_encryption&#039;;

          // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
          if (   (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
		      &amp;&amp; ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {

              $this-&gt;privSwapBackMagicQuotes();

              PclZip::privErrorLog(PCLZIP_ERR_UNSUPPORTED_ENCRYPTION,
			                       &quot;Unsupported encryption for &quot;
				  	    	  	   .&quot; filename &#039;&quot;.$v_header[&#039;stored_filename&#039;]
								   .&quot;&#039;&quot;);

              return PclZip::errorCode();
		  }
    }

      // ----- Look for real extraction
      if (($v_extract) &amp;&amp; ($v_header[&#039;status&#039;] != &#039;ok&#039;)) {
          $v_result = $this-&gt;privConvertHeader2FileInfo($v_header,
		                                        $p_file_list[$v_nb_extracted++]);
          if ($v_result != 1) {
              $this-&gt;privCloseFd();
              $this-&gt;privSwapBackMagicQuotes();
              return $v_result;
          }

          $v_extract = false;
      }
      
      // ----- Look for real extraction
      if ($v_extract)
      {

        // ----- Go to the file position
        @rewind($this-&gt;zip_fd);
        if (@fseek($this-&gt;zip_fd, $v_header[&#039;offset&#039;]))
        {
          // ----- Close the zip file
          $this-&gt;privCloseFd();

          $this-&gt;privSwapBackMagicQuotes();

          // ----- Error log
          PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, &#039;Invalid archive size&#039;);

          // ----- Return
          return PclZip::errorCode();
        }

        // ----- Look for extraction as string
        if ($p_options[PCLZIP_OPT_EXTRACT_AS_STRING]) {

          $v_string = &#039;&#039;;

          // ----- Extracting the file
          $v_result1 = $this-&gt;privExtractFileAsString($v_header, $v_string, $p_options);
          if ($v_result1 &lt; 1) {
            $this-&gt;privCloseFd();
            $this-&gt;privSwapBackMagicQuotes();
            return $v_result1;
          }

          // ----- Get the only interesting attributes
          if (($v_result = $this-&gt;privConvertHeader2FileInfo($v_header, $p_file_list[$v_nb_extracted])) != 1)
          {
            // ----- Close the zip file
            $this-&gt;privCloseFd();
            $this-&gt;privSwapBackMagicQuotes();

            return $v_result;
          }

          // ----- Set the file content
          $p_file_list[$v_nb_extracted][&#039;content&#039;] = $v_string;

          // ----- Next extracted file
          $v_nb_extracted++;
          
          // ----- Look for user callback abort
          if ($v_result1 == 2) {
          	break;
          }
        }
        // ----- Look for extraction in standard output
        elseif (   (isset($p_options[PCLZIP_OPT_EXTRACT_IN_OUTPUT]))
		        &amp;&amp; ($p_options[PCLZIP_OPT_EXTRACT_IN_OUTPUT])) {
          // ----- Extracting the file in standard output
          $v_result1 = $this-&gt;privExtractFileInOutput($v_header, $p_options);
          if ($v_result1 &lt; 1) {
            $this-&gt;privCloseFd();
            $this-&gt;privSwapBackMagicQuotes();
            return $v_result1;
          }

          // ----- Get the only interesting attributes
          if (($v_result = $this-&gt;privConvertHeader2FileInfo($v_header, $p_file_list[$v_nb_extracted++])) != 1) {
            $this-&gt;privCloseFd();
            $this-&gt;privSwapBackMagicQuotes();
            return $v_result;
          }

          // ----- Look for user callback abort
          if ($v_result1 == 2) {
          	break;
          }
        }
        // ----- Look for normal extraction
        else {
          // ----- Extracting the file
          $v_result1 = $this-&gt;privExtractFile($v_header,
		                                      $p_path, $p_remove_path,
											  $p_remove_all_path,
											  $p_options);
          if ($v_result1 &lt; 1) {
            $this-&gt;privCloseFd();
            $this-&gt;privSwapBackMagicQuotes();
            return $v_result1;
          }
          
		  $v_nb_extracted++;
		  
		  //echo memory_get_usage().&#039; - &#039;.$v_nb_extracted.&#039; - &#039;.$v_header[&#039;filename&#039;].&quot;\n&quot;;
          
		  // ----- Get the only interesting attributes
          /*if (($v_result = $this-&gt;privConvertHeader2FileInfo($v_header, $p_file_list[$v_nb_extracted++])) != 1)
          {
            // ----- Close the zip file
            $this-&gt;privCloseFd();
            $this-&gt;privSwapBackMagicQuotes();

            return $v_result;
          }*/

          // ----- Look for user callback abort
          if ($v_result1 == 2) {
          	break;
          }
        }
      }
    }

    // ----- Close the zip file
    $this-&gt;privCloseFd();
    $this-&gt;privSwapBackMagicQuotes();

    // ----- Return
    return $v_result;
  }
  
  function _privReadEndCentralDir(&amp;$p_central_dir)
  {
    $v_result=1;

    // ----- Go to the end of the zip file
    $v_size = filesize($this-&gt;zipname);
    @fseek($this-&gt;zip_fd, $v_size);
    if (@ftell($this-&gt;zip_fd) != $v_size)
    {
      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, &#039;Unable to go to the end of the archive \&#039;&#039;.$this-&gt;zipname.&#039;\&#039;&#039;);

      // ----- Return
      return PclZip::errorCode();
    }

    // ----- First try : look if this is an archive with no commentaries (most of the time)
    // in this case the end of central dir is at 22 bytes of the file end
    $v_found = 0;
    if ($v_size &gt; 26) {
      @fseek($this-&gt;zip_fd, $v_size-22);
      if (($v_pos = @ftell($this-&gt;zip_fd)) != ($v_size-22))
      {
        // ----- Error log
        PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, &#039;Unable to seek back to the middle of the archive \&#039;&#039;.$this-&gt;zipname.&#039;\&#039;&#039;);

        // ----- Return
        return PclZip::errorCode();
      }

      // ----- Read for bytes
      $v_binary_data = @fread($this-&gt;zip_fd, 4);
      $v_data = @unpack(&#039;Vid&#039;, $v_binary_data);

      // ----- Check signature
      if ($v_data[&#039;id&#039;] == 0x06054b50) {
        $v_found = 1;
      }

      $v_pos = ftell($this-&gt;zip_fd);
    }

    // ----- Go back to the maximum possible size of the Central Dir End Record
    if (!$v_found) {
      $v_maximum_size = 65557; // 0xFFFF + 22;
      if ($v_maximum_size &gt; $v_size)
        $v_maximum_size = $v_size;
      @fseek($this-&gt;zip_fd, $v_size-$v_maximum_size);
      if (@ftell($this-&gt;zip_fd) != ($v_size-$v_maximum_size))
      {
        // ----- Error log
        PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, &#039;Unable to seek back to the middle of the archive \&#039;&#039;.$this-&gt;zipname.&#039;\&#039;&#039;);

        // ----- Return
        return PclZip::errorCode();
      }

      // ----- Read byte per byte in order to find the signature
      $v_pos = ftell($this-&gt;zip_fd);
      $v_bytes = 0x00000000;
      while ($v_pos &lt; $v_size)
      {
        // ----- Read a byte
        $v_byte = @fread($this-&gt;zip_fd, 1);

        // -----  Add the byte
        //$v_bytes = ($v_bytes &lt;&lt; 8) | Ord($v_byte);
        // Note we mask the old value down such that once shifted we can never end up with more than a 32bit number 
        // Otherwise on systems where we have 64bit integers the check below for the magic number will fail. 
        $v_bytes = ( ($v_bytes &amp; 0xFFFFFF) &lt;&lt; 8) | Ord($v_byte); 

        // ----- Compare the bytes
        if ($v_bytes == 0x504b0506)
        {
          $v_pos++;
          break;
        }

        $v_pos++;
      }

      // ----- Look if not found end of central dir
      if ($v_pos == $v_size)
      {

        // ----- Error log
        PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, &quot;Unable to find End of Central Dir Record signature&quot;);

        // ----- Return
        return PclZip::errorCode();
      }
    }

    // ----- Read the first 18 bytes of the header
    $v_binary_data = fread($this-&gt;zip_fd, 18);

    // ----- Look for invalid block size
    if (strlen($v_binary_data) != 18)
    {

      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, &quot;Invalid End of Central Dir Record size : &quot;.strlen($v_binary_data));

      // ----- Return
      return PclZip::errorCode();
    }

    // ----- Extract the values
    $v_data = unpack(&#039;vdisk/vdisk_start/vdisk_entries/ventries/Vsize/Voffset/vcomment_size&#039;, $v_binary_data);

    // ----- Check the global size
    if (($v_pos + $v_data[&#039;comment_size&#039;] + 18) != $v_size) {

	  // ----- Removed in release 2.2 see readme file
	  // The check of the file size is a little too strict.
	  // Some bugs where found when a zip is encrypted/decrypted with &#039;crypt&#039;.
	  // While decrypted, zip has training 0 bytes
	  if (0) {
      // ----- Error log
      PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT,
	                       &#039;The central dir is not at the end of the archive.&#039;
						   .&#039; Some trailing bytes exists after the archive.&#039;);

      // ----- Return
      return PclZip::errorCode();
	  }
    }

    // ----- Get comment
    if ($v_data[&#039;comment_size&#039;] != 0) {
      $p_central_dir[&#039;comment&#039;] = fread($this-&gt;zip_fd, $v_data[&#039;comment_size&#039;]);
    }
    else
      $p_central_dir[&#039;comment&#039;] = &#039;&#039;;

    $p_central_dir[&#039;entries&#039;] = $v_data[&#039;entries&#039;];
    $p_central_dir[&#039;disk_entries&#039;] = $v_data[&#039;disk_entries&#039;];
    $p_central_dir[&#039;offset&#039;] = $v_data[&#039;offset&#039;];
    $p_central_dir[&#039;size&#039;] = $v_data[&#039;size&#039;];
    $p_central_dir[&#039;disk&#039;] = $v_data[&#039;disk&#039;];
    $p_central_dir[&#039;disk_start&#039;] = $v_data[&#039;disk_start&#039;];
	
	//r_print($p_central_dir);
	
	 // ----- Read next Central dir entry
    @rewind($this-&gt;zip_fd);
    if (@fseek($this-&gt;zip_fd, $p_central_dir[&#039;offset&#039;])){
		return $v_result; // Return the original result
	}
	
	//$start = microtime_float();
	
	for($i=1; $i&lt;=200000; $i++){
		$binary_data = @fread($this-&gt;zip_fd, 4);
		$_data = unpack(&#039;Vid&#039;, $binary_data);
		if ($_data[&#039;id&#039;] != 0x02014b50){
			if($_data[&#039;id&#039;] == 0x06054b50){
				$total = $i - 1;
			}
			break;
		}
		
		fread($this-&gt;zip_fd, 24);
		
		$binary_data = fread($this-&gt;zip_fd, 6);
		$_header = unpack(&#039;vfilename_len/vextra_len/vcomment_len&#039;, $binary_data);
		
		fread($this-&gt;zip_fd, 12);
		
		// ----- Get filename
		if ($_header[&#039;filename_len&#039;] != 0)
		fread($this-&gt;zip_fd, $_header[&#039;filename_len&#039;]);
		
		// ----- Get extra
		if ($_header[&#039;extra_len&#039;] != 0)
		fread($this-&gt;zip_fd, $_header[&#039;extra_len&#039;]);
		
		// ----- Get comment
		if ($_header[&#039;comment_len&#039;] != 0)
		fread($this-&gt;zip_fd, $_header[&#039;comment_len&#039;]);
		
		unset($_header);
		
	}// End of for loop
	
	if(!empty($total)){
		$p_central_dir[&#039;entries&#039;] = $total;
    	$p_central_dir[&#039;disk_entries&#039;] = $total;
	}
	
	//echo (microtime_float() - $start).&quot;\n&quot;;
	
	//r_print($p_central_dir);
	
    // TBC
    //for(reset($p_central_dir); $key = key($p_central_dir); next($p_central_dir)) {
    //}

    // ----- Return
    return $v_result;
  }
  
  function _add($p_filelist)
  {
    $v_result=1;

    // ----- Reset the error handler
    $this-&gt;privErrorReset();

    // ----- Set default values
    $v_options = array();
    $v_options[PCLZIP_OPT_NO_COMPRESSION] = FALSE;

    // ----- Look for variable options arguments
    $v_size = func_num_args();

    // ----- Look for arguments
    if ($v_size &gt; 1) {
      // ----- Get the arguments
      $v_arg_list = func_get_args();

      // ----- Remove form the options list the first argument
      array_shift($v_arg_list);
      $v_size--;

      // ----- Look for first arg
      if ((is_integer($v_arg_list[0])) &amp;&amp; ($v_arg_list[0] &gt; 77000)) {

        // ----- Parse the options
        $v_result = $this-&gt;privParseOptions($v_arg_list, $v_size, $v_options,
                                            array (PCLZIP_OPT_REMOVE_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_REMOVE_ALL_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_ADD_PATH =&gt; &#039;optional&#039;,
                                                   PCLZIP_CB_PRE_ADD =&gt; &#039;optional&#039;,
                                                   PCLZIP_CB_POST_ADD =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_NO_COMPRESSION =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_COMMENT =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_ADD_COMMENT =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_PREPEND_COMMENT =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_TEMP_FILE_THRESHOLD =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_TEMP_FILE_ON =&gt; &#039;optional&#039;,
                                                   PCLZIP_OPT_TEMP_FILE_OFF =&gt; &#039;optional&#039;
                                                   //, PCLZIP_OPT_CRYPT =&gt; &#039;optional&#039;
												   ));
        if ($v_result != 1) {
          return 0;
        }
      }

      // ----- Look for 2 args
      // Here we need to support the first historic synopsis of the
      // method.
      else {

        // ----- Get the first argument
        $v_options[PCLZIP_OPT_ADD_PATH] = $v_add_path = $v_arg_list[0];

        // ----- Look for the optional second argument
        if ($v_size == 2) {
          $v_options[PCLZIP_OPT_REMOVE_PATH] = $v_arg_list[1];
        }
        else if ($v_size &gt; 2) {
          // ----- Error log
          PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, &quot;Invalid number / type of arguments&quot;);

          // ----- Return
          return 0;
        }
      }
    }

    // ----- Look for default option values
    $this-&gt;privOptionDefaultThreshold($v_options);

    // ----- Init
    $v_string_list = array();
    $v_att_list = array();
    $v_filedescr_list = array();
    $p_result_list = array();
    
    // ----- Look if the $p_filelist is really an array
    if (is_array($p_filelist)) {
    
      // ----- Look if the first element is also an array
      //       This will mean that this is a file description entry
      if (isset($p_filelist[0]) &amp;&amp; is_array($p_filelist[0])) {
        $v_att_list = $p_filelist;
      }
      
      // ----- The list is a list of string names
      else {
        $v_string_list = $p_filelist;
      }
    }

    // ----- Look if the $p_filelist is a string
    else if (is_string($p_filelist)) {
      // ----- Create a list from the string
      $v_string_list = explode(PCLZIP_SEPARATOR, $p_filelist);
    }

    // ----- Invalid variable type for $p_filelist
    else {
      PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, &quot;Invalid variable type &#039;&quot;.gettype($p_filelist).&quot;&#039; for p_filelist&quot;);
      return 0;
    }
    
    // ----- Reformat the string list
    if (sizeof($v_string_list) != 0) {
      foreach ($v_string_list as $v_string) {
        $v_att_list[][PCLZIP_ATT_FILE_NAME] = $v_string;
      }
    }
    
    // ----- For each file in the list check the attributes
    $v_supported_attributes
    = array ( PCLZIP_ATT_FILE_NAME =&gt; &#039;mandatory&#039;
             ,PCLZIP_ATT_FILE_NEW_SHORT_NAME =&gt; &#039;optional&#039;
             ,PCLZIP_ATT_FILE_NEW_FULL_NAME =&gt; &#039;optional&#039;
             ,PCLZIP_ATT_FILE_MTIME =&gt; &#039;optional&#039;
             ,PCLZIP_ATT_FILE_CONTENT =&gt; &#039;optional&#039;
             ,PCLZIP_ATT_FILE_COMMENT =&gt; &#039;optional&#039;
						);
    foreach ($v_att_list as $v_entry) {
      $v_result = $this-&gt;privFileDescrParseAtt($v_entry,
                                               $v_filedescr_list[],
                                               $v_options,
                                               $v_supported_attributes);
      if ($v_result != 1) {
        return 0;
      }
    }

    /*// ----- Expand the filelist (expand directories)
    $v_result = $this-&gt;privFileDescrExpand($v_filedescr_list, $v_options);
    if ($v_result != 1) {
      return 0;
    }*/

    // ----- Call the create fct
    $v_result = $this-&gt;_privAdd($v_filedescr_list, $p_result_list, $v_options);
    if ($v_result != 1) {
      return 0;
    }

    // ----- Return
    return $p_result_list;
  }
  
  function _privAdd($p_filedescr_list, &amp;$p_result_list, &amp;$p_options)
  {
    $v_result=1;
    $v_list_detail = array();

    // ----- Look if the archive exists or is empty
    if ((!is_file($this-&gt;zipname)) || (filesize($this-&gt;zipname) == 0))
    {
	
	  $v_result = $this-&gt;privFileDescrExpand($p_filedescr_list, $p_options);
      if ($v_result != 1) {
        return 0;
      }
	  
      // ----- Do a create
      $v_result = $this-&gt;privCreate($p_filedescr_list, $p_result_list, $p_options);
	  
      // ----- Return
      return $v_result;
    }
    // ----- Magic quotes trick
    $this-&gt;privDisableMagicQuotes();

    // ----- Open the zip file
    if (($v_result=$this-&gt;privOpenFd(&#039;rb&#039;)) != 1)
    {
      // ----- Magic quotes trick
      $this-&gt;privSwapBackMagicQuotes();

      // ----- Return
      return $v_result;
    }

    // ----- Read the central directory informations
    $v_central_dir = array();
    if (($v_result = $this-&gt;privReadEndCentralDir($v_central_dir)) != 1)
    {
      $this-&gt;privCloseFd();
      $this-&gt;privSwapBackMagicQuotes();
      return $v_result;
    }

    // ----- Go to beginning of File
    @rewind($this-&gt;zip_fd);

    // ----- Creates a temporay file
    $v_zip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid(&#039;pclzip-&#039;).&#039;.tmp&#039;;

    // ----- Open the temporary file in write mode
    if (($v_zip_temp_fd = @fopen($v_zip_temp_name, &#039;wb&#039;)) == 0)
    {
      $this-&gt;privCloseFd();
      $this-&gt;privSwapBackMagicQuotes();

      PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, &#039;Unable to open temporary file \&#039;&#039;.$v_zip_temp_name.&#039;\&#039; in binary write mode&#039;);

      // ----- Return
      return PclZip::errorCode();
    }

    // ----- Copy the files from the archive to the temporary file
    // TBC : Here I should better append the file and go back to erase the central dir
    $v_size = $v_central_dir[&#039;offset&#039;];
    while ($v_size != 0)
    {
      $v_read_size = ($v_size &lt; PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
      $v_buffer = fread($this-&gt;zip_fd, $v_read_size);
      @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
      $v_size -= $v_read_size;
    }

    // ----- Swap the file descriptor
    // Here is a trick : I swap the temporary fd with the zip fd, in order to use
    // the following methods on the temporary fil and not the real archive
    $v_swap = $this-&gt;zip_fd;
    $this-&gt;zip_fd = $v_zip_temp_fd;
    $v_zip_temp_fd = $v_swap;
	
	global $tempheader;
	
	$tempheader = &#039;&#039;;
	
	$tempheaderfile = PCLZIP_TEMPORARY_DIR.uniqid(&#039;softaculous&#039;).&#039;.tmp&#039;;
	if(($tempheader = @fopen($tempheaderfile, &#039;wb&#039;)) == 0){
		fclose($v_zip_temp_fd);
		$this-&gt;privCloseFd();
		@unlink($v_zip_temp_name);
		$this-&gt;privSwapBackMagicQuotes();
		PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, &#039;Unable to open temporary file \&#039;&#039;.$tempheaderfile.&#039;\&#039; in binary write mode&#039;);
		return 88888;
	}
	
	//echo &#039;privAddList - &#039;.memory_get_usage().&quot;\n&quot;; 
	
    // ----- Add the files
    if (($v_result = $this-&gt;_privAddFileList($p_filedescr_list, $p_result_list, $p_options)) != 1)
    {
      fclose($v_zip_temp_fd);
      $this-&gt;privCloseFd();
      @unlink($v_zip_temp_name);
      $this-&gt;privSwapBackMagicQuotes();

      // ----- Return
      return $v_result;
    }
    
	//echo &#039;privAddList END - &#039;.memory_get_usage().&quot;\n&quot;; 

    // ----- Store the offset of the central dir
    $v_offset = @ftell($this-&gt;zip_fd);

    //echo &#039;1 - &#039;.memory_get_usage().&quot;\n&quot;; 
    // ----- Copy the block of file headers from the old archive
    $v_size = $v_central_dir[&#039;size&#039;];
    while ($v_size != 0)
    {
      $v_read_size = ($v_size &lt; PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
      $v_buffer = @fread($v_zip_temp_fd, $v_read_size);
      @fwrite($this-&gt;zip_fd, $v_buffer, $v_read_size);
      $v_size -= $v_read_size;
    }
	
    //echo &#039;2 - &#039;.memory_get_usage().&quot;\n&quot;; 
    // ----- Create the Central Dir files header
    $v_count = $p_result_list;
	
	// Append the Temporary file we created.
	@fclose($tempheader);
	
	if(($tempfd = @fopen($tempheaderfile, &quot;rb&quot;)) == 0){
		fclose($v_zip_temp_fd);
		$this-&gt;privCloseFd();
		@unlink($v_zip_temp_name);
		$this-&gt;privSwapBackMagicQuotes();
		return 88888;
	}
	
	$t_size = filesize($tempheaderfile);
	while ($t_size != 0)
    {
      $t_read_size = ($t_size &lt; PCLZIP_READ_BLOCK_SIZE ? $t_size : PCLZIP_READ_BLOCK_SIZE);
      $t_buffer = @fread($tempfd, $t_read_size);
      @fwrite($this-&gt;zip_fd, $t_buffer, $t_read_size);
      $t_size -= $t_read_size;
    }
	
	@fclose($tempfd);
	@unlink($tempheaderfile);
	
    //echo &#039;3 - &#039;.memory_get_usage().&quot;\n&quot;; 
    // ----- Zip file comment
    $v_comment = $v_central_dir[&#039;comment&#039;];
    if (isset($p_options[PCLZIP_OPT_COMMENT])) {
      $v_comment = $p_options[PCLZIP_OPT_COMMENT];
    }
    if (isset($p_options[PCLZIP_OPT_ADD_COMMENT])) {
      $v_comment = $v_comment.$p_options[PCLZIP_OPT_ADD_COMMENT];
    }
    if (isset($p_options[PCLZIP_OPT_PREPEND_COMMENT])) {
      $v_comment = $p_options[PCLZIP_OPT_PREPEND_COMMENT].$v_comment;
    }
    //echo &#039;4 - &#039;.memory_get_usage().&quot;\n&quot;; 
    // ----- Calculate the size of the central header
    $v_size = @ftell($this-&gt;zip_fd)-$v_offset;

    // ----- Create the central dir footer
    if (($v_result = $this-&gt;privWriteCentralHeader($v_count+$v_central_dir[&#039;entries&#039;], $v_size, $v_offset, $v_comment)) != 1)
    {
      // ----- Reset the file list
      
      $this-&gt;privSwapBackMagicQuotes();

      // ----- Return
      return $v_result;
    }
    //echo &#039;5 - &#039;.memory_get_usage().&quot;\n&quot;; 
    // ----- Swap back the file descriptor
    $v_swap = $this-&gt;zip_fd;
    $this-&gt;zip_fd = $v_zip_temp_fd;
    $v_zip_temp_fd = $v_swap;
    //echo &#039;6 - &#039;.memory_get_usage().&quot;\n&quot;; 
    // ----- Close
    $this-&gt;privCloseFd();
    //echo &#039;7 - &#039;.memory_get_usage().&quot;\n&quot;; 
    // ----- Close the temporary file
    @fclose($v_zip_temp_fd);

    // ----- Magic quotes trick
    $this-&gt;privSwapBackMagicQuotes();
    //echo &#039;8 - &#039;.memory_get_usage().&quot;\n&quot;;
    // ----- Delete the zip file
    // TBC : I should test the result ...
    @unlink($this-&gt;zipname);

    // ----- Rename the temporary file
    // TBC : I should test the result ...
    //@rename($v_zip_temp_name, $this-&gt;zipname);
    PclZipUtilRename($v_zip_temp_name, $this-&gt;zipname);
    //echo &#039;9 - &#039;.memory_get_usage().&quot;\n&quot;;
    // ----- Return
    return $v_result;
  }
  
  function _privAddFileList($p_filedescr_list, &amp;$p_result_list, &amp;$p_options)
  {
    $v_result=1;
	
	global $_soft_result_list, $_soft_nb;
	
    $_soft_result_list = array();
	$_soft_nb = 0;	
	
	$v_result = $this-&gt;_privFileDescrExpand($p_filedescr_list, $p_options);
    if ($v_result != 1) {
      return 0;
    }
	
	$p_result_list = $_soft_nb;
	
    // ----- Return
    return $v_result;
  }

  function _privFileDescrExpand(&amp;$p_filedescr_list, &amp;$p_options)
  {
  	global $error, $l;
    $v_result=1;
 
    // ----- Create a result list
    $v_result_list = array();
    // r_print($p_filedescr_list);
    
    // ----- Look each entry
    for ($i=0; $i&lt;sizeof($p_filedescr_list); $i++) {
      // ----- Get filedescr
      $v_descr = $p_filedescr_list[$i];
      
      // ----- Reduce the filename
      $v_descr[&#039;filename&#039;] = PclZipUtilTranslateWinPath($v_descr[&#039;filename&#039;], false);
      $v_descr[&#039;filename&#039;] = PclZipUtilPathReduction($v_descr[&#039;filename&#039;]);
      
      // ----- Look for real file or folder
      if (file_exists($v_descr[&#039;filename&#039;])) {
        if (@is_file($v_descr[&#039;filename&#039;])) {
          $v_descr[&#039;type&#039;] = &#039;file&#039;;
        }
        else if (@is_dir($v_descr[&#039;filename&#039;])) {
          $v_descr[&#039;type&#039;] = &#039;folder&#039;;
        }
        else if (@is_link($v_descr[&#039;filename&#039;])) {
          // skip
          continue;
        }
        else {
          // skip
          continue;
        }
      }
      
      // ----- Look for string added as file
      else if (isset($v_descr[&#039;content&#039;])) {
        $v_descr[&#039;type&#039;] = &#039;virtual_file&#039;;
      }
      
      // ----- Missing file
      else {
		$error[&#039;read&#039;] = &#039;Oops Softaculous could not read the following file/directory &lt;b&gt;&#039;.$v_descr[&#039;filename&#039;].&#039;&lt;/b&gt; Please make it readable to continue using the backup utility&#039;;
		// ----- Error log
		PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, &quot;File &#039;&quot;.$v_descr[&#039;filename&#039;].&quot;&#039; does not exist&quot;);
        // ----- Return
		return PclZip::errorCode();
      }
      
      // ----- Calculate the stored filename
      $this-&gt;privCalculateStoredFilename($v_descr, $p_options);
      //r_print($v_descr);
	  
	  ///////////////////////////////////////
	  // Softaculous Change
	  // We add the files here itself
	  ///////////////////////////////////////
	  
	  global $_soft_result_list, $_soft_nb;
	  
	  $_file = $v_descr;
	  
	  // ----- Format the filename
	  $_file[&#039;filename&#039;] = PclZipUtilTranslateWinPath($_file[&#039;filename&#039;], false);
	  
	  // ----- Skip empty file names
      // TBC : Can this be possible ? not checked in DescrParseAtt ?
      if ($_file[&#039;filename&#039;] == &quot;&quot;) {
        continue;
      }

      // ----- Check the filename
      if (   ($_file[&#039;type&#039;] != &#039;virtual_file&#039;)
          &amp;&amp; (!file_exists($_file[&#039;filename&#039;]))) {
        PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, &quot;File &#039;&quot;.$_file[&#039;filename&#039;].&quot;&#039; does not exist&quot;);
        return PclZip::errorCode();
      }
	  
	  // ----- Look if it is a file or a dir with no all path remove option
      // or a dir with all its path removed
//      if (   (is_file($p_filedescr_list[$j][&#039;filename&#039;]))
//          || (   is_dir($p_filedescr_list[$j][&#039;filename&#039;])
      if (   ($_file[&#039;type&#039;] == &#039;file&#039;)
          || ($_file[&#039;type&#039;] == &#039;virtual_file&#039;)
          || (   ($_file[&#039;type&#039;] == &#039;folder&#039;)
              &amp;&amp; (   !isset($p_options[PCLZIP_OPT_REMOVE_ALL_PATH])
                  || !$p_options[PCLZIP_OPT_REMOVE_ALL_PATH]))
          ) {
		
		$v_header = array();
		
        // ----- Add the file
        $v_result = $this-&gt;privAddFile($_file, $v_header, $p_options);
        if ($v_result != 1) {
          return $v_result;
        }
		
		if ($v_header[&#039;status&#039;] == &#039;ok&#039;) {
          if (($v_result = $this-&gt;_privWriteCentralFileHeader($v_header)) != 1) {
            // ----- Return
            return $v_result;
          }
		
		  $_soft_nb++;
		}
		
		unset($v_header);
		
        // ----- Store the file infos
        //$_soft_result_list[$_soft_nb++] = $v_header;
		
	  }
	  ////////////////////////////////////////
	  // End of Adding the Files
	  ////////////////////////////////////////
	  
      // ----- Add the descriptor in result list
      $v_result_list[sizeof($v_result_list)] = $v_descr;
    //r_print($v_descr);
      // ----- Look for folder
      if ($v_descr[&#039;type&#039;] == &#039;folder&#039;) {
        // ----- List of items in folder
        $v_dirlist_descr = array();
        $v_dirlist_nb = 0; 
        if (($v_folder_handler = @opendir($v_descr[&#039;filename&#039;]))) {
          while (($v_item_handler = @readdir($v_folder_handler)) !== false) {

            // ----- Skip &#039;.&#039; and &#039;..&#039;
            if (($v_item_handler == &#039;.&#039;) || ($v_item_handler == &#039;..&#039;)) {
                continue;
            }
            
            // ----- Compose the full filename
            $v_dirlist_descr[$v_dirlist_nb][&#039;filename&#039;] = $v_descr[&#039;filename&#039;].&#039;/&#039;.$v_item_handler;
            
            // ----- Look for different stored filename
            // Because the name of the folder was changed, the name of the
            // files/sub-folders also change
            if (($v_descr[&#039;stored_filename&#039;] != $v_descr[&#039;filename&#039;])
                 &amp;&amp; (!isset($p_options[PCLZIP_OPT_REMOVE_ALL_PATH]))) {
              if ($v_descr[&#039;stored_filename&#039;] != &#039;&#039;) {
                $v_dirlist_descr[$v_dirlist_nb][&#039;new_full_name&#039;] = $v_descr[&#039;stored_filename&#039;].&#039;/&#039;.$v_item_handler;
              }
              else {
                $v_dirlist_descr[$v_dirlist_nb][&#039;new_full_name&#039;] = $v_item_handler;
              }
            }
            $v_dirlist_nb++;
            //echo $v_dirlist_nb.&quot;\n&quot;;  
          }
          
          @closedir($v_folder_handler);
        }
        else {
          // TBC : unable to open folder in read mode
        }
		
		//r_print($v_dirlist_descr);
		
        // ----- Expand each element of the list
        if ($v_dirlist_nb != 0) {
          // ----- Expand
          if (($v_result = $this-&gt;_privFileDescrExpand($v_dirlist_descr, $p_options)) != 1) {
            return $v_result;
          }
          
          // ----- Concat the resulting list
          //$v_result_list = array_merge($v_result_list, $v_dirlist_descr);
        }
        else {
        }
          
        // ----- Free local array
        unset($v_dirlist_descr);
      }
    }
    
    // ----- Get the result list
    //$p_filedescr_list = $v_result_list;

    // ----- Return
    return $v_result;
  }
  
  function _privWriteCentralFileHeader(&amp;$p_header)
  {
    $v_result=1;
	
	global $tempheader;

    // TBC
    //for(reset($p_header); $key = key($p_header); next($p_header)) {
    //}

    // ----- Transform UNIX mtime to DOS format mdate/mtime
    $v_date = getdate($p_header[&#039;mtime&#039;]);
    $v_mtime = ($v_date[&#039;hours&#039;]&lt;&lt;11) + ($v_date[&#039;minutes&#039;]&lt;&lt;5) + $v_date[&#039;seconds&#039;]/2;
    $v_mdate = (($v_date[&#039;year&#039;]-1980)&lt;&lt;9) + ($v_date[&#039;mon&#039;]&lt;&lt;5) + $v_date[&#039;mday&#039;];


    // ----- Packed data
    $v_binary_data = pack(&quot;VvvvvvvVVVvvvvvVV&quot;, 0x02014b50,
	                      $p_header[&#039;version&#039;], $p_header[&#039;version_extracted&#039;],
                          $p_header[&#039;flag&#039;], $p_header[&#039;compression&#039;],
						  $v_mtime, $v_mdate, $p_header[&#039;crc&#039;],
                          $p_header[&#039;compressed_size&#039;], $p_header[&#039;size&#039;],
                          strlen($p_header[&#039;stored_filename&#039;]),
						  $p_header[&#039;extra_len&#039;], $p_header[&#039;comment_len&#039;],
                          $p_header[&#039;disk&#039;], $p_header[&#039;internal&#039;],
						  $p_header[&#039;external&#039;], $p_header[&#039;offset&#039;]);

    // ----- Write the 42 bytes of the header in the zip file
    fputs($tempheader, $v_binary_data, 46);

    // ----- Write the variable fields
    if (strlen($p_header[&#039;stored_filename&#039;]) != 0)
    {
      fputs($tempheader, $p_header[&#039;stored_filename&#039;], strlen($p_header[&#039;stored_filename&#039;]));
    }
    if ($p_header[&#039;extra_len&#039;] != 0)
    {
      fputs($tempheader, $p_header[&#039;extra&#039;], $p_header[&#039;extra_len&#039;]);
    }
    if ($p_header[&#039;comment_len&#039;] != 0)
    {
      fputs($tempheader, $p_header[&#039;comment&#039;], $p_header[&#039;comment_len&#039;]);
    }

    // ----- Return
    return $v_result;
  }

}

function inc_exc($p_event, &amp;$v){
global $globals, $unzip_inc, $unzip_exc;
	
	$include = $unzip_inc;
	$exclude = $unzip_exc;
	
	/*//If folders continue
	if($v[&#039;folder&#039;] == true){
		return 1;
	}*/
	
	if(!empty($include)){				
		foreach($include as $ik =&gt; $iv){
			if(!preg_match(&#039;/^&#039;.$iv.&#039;$/is&#039;, $v[&#039;stored_filename&#039;])){
				return 0;
			}
		}
	}
	
	//Exclude certain files
	if(!empty($exclude)){				
		foreach($exclude as $ek =&gt; $ev){
			if(preg_match(&#039;/^&#039;.$ev.&#039;$/is&#039;, $v[&#039;stored_filename&#039;])){
				return 0;
			}
		}
	}
	
	//Else true
	return 1;
}

function unzip($file, $destination, $overwrite = 0, $include = array(), $exclude = array(), $ftemp = 0){

global $globals, $unzip_inc, $unzip_exc;	
	
	//Are we to include specific only files
	if(!empty($include)){		
		foreach($include as $ik =&gt; $iv){
			
			//Are there empty expressions
			if(empty($iv)){
				unset($include[$ik]);
				continue;
			}
			
			$include[$ik] = preg_quote($iv, &#039;/&#039;);
			$include[$ik] = str_replace(&#039;\*&#039;, &#039;([a-zA-Z0-9\._-])*&#039;, $include[$ik]);
		}
	}
	
	//Are we to exclude any files
	if(!empty($exclude)){		
		foreach($exclude as $ek =&gt; $ev){
			
			//Are there empty expressions
			if(empty($ev)){
				unset($exclude[$ek]);
				continue;
			}
			
			$exclude[$ek] = preg_quote($ev, &#039;/&#039;);
			$exclude[$ek] = str_replace(&#039;\*&#039;, &#039;([a-zA-Z0-9\._-])*&#039;, $exclude[$ek]);
		}
	}
	
	$unzip_inc = $include;
	$unzip_exc = $exclude;
	
	$archive = new softpclzip($file);
	
	// Are we to extract using Temporary Files ?
	if($ftemp){	
		$result = $archive-&gt;_extract(PCLZIP_OPT_PATH, $destination, 
									PCLZIP_CB_PRE_EXTRACT, &#039;inc_exc&#039;, 
									PCLZIP_OPT_REPLACE_NEWER,  PCLZIP_OPT_TEMP_FILE_ON);
	
	// Use only memory to extract files one by one
	}else{
		$result = $archive-&gt;_extract(PCLZIP_OPT_PATH, $destination, 
									PCLZIP_CB_PRE_EXTRACT, &#039;inc_exc&#039;, 
									PCLZIP_OPT_REPLACE_NEWER);
	}
	
	if($result == 0){
		return false;
	}
	
	return true;

}

function r_print($data){
	echo &#039;&lt;pre&gt;&#039;;
	print_r($data);
	echo &#039;&lt;/pre&gt;&#039;;
}

$args[&#039;debug&#039;] = 0;

// Process the arguments
if(!empty($argv)){
	foreach($argv as $k =&gt; $v){
		$v = explode(&#039;=&#039;, $v);
		if(empty($v[1])) continue;
		$args[$v[0]] = $v[1];
	}	
}

error_reporting(0);
//print_r($args);

// If you are trying to access cron2.php from browser than we will have to restrict you. As this is only allowed from CLI.
if(!empty($_SERVER[&#039;REQUEST_URI&#039;])){
	die(&#039;Only CLI usage allowed&#039;);
}

// Debug Code
if(@$args[&#039;debug&#039;] &gt;= 4){
	function died(){
  		 print_r(error_get_last());
	}
	register_shutdown_function(&#039;died&#039;);
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Things TO DO in CRON JOB
# 1) UPDATE SOFTACULOUS
# 2) UPDATE SCRIPTS/SOFTWARES
# 3) LICENSE related stuff
# 4) EMAIL necessary notifications
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

@define(&#039;SITEPAD&#039;, 1);
@define(&#039;SITEPADADMIN&#039;, 1);//We are serving the ADMIN
@define(&#039;SITEPADCLI&#039;, 1);

$user = array();
$theme = array();

//This causes some probems
@ini_set(&#039;magic_quotes_runtime&#039;, 0);
@ini_set(&#039;magic_quotes_sybase&#039;, 0);
@set_time_limit(10000);

// get Softaculous path
$globals[&#039;path&#039;] = dirname(__FILE__);
$globals[&#039;enduser&#039;] = $globals[&#039;path&#039;];
$globals[&#039;mainfiles&#039;] = $globals[&#039;path&#039;].&#039;/main&#039;;
$globals[&#039;adminfiles&#039;] = $globals[&#039;path&#039;].&#039;/admin&#039;;
$globals[&#039;wwwdir&#039;] = $globals[&#039;path&#039;].&#039;/www&#039;;
$globals[&#039;euthemes&#039;] = $globals[&#039;wwwdir&#039;].&#039;/themes&#039;;

$universal = @file_get_contents($globals[&#039;enduser&#039;].&#039;/universal.php&#039;);

soft_preg_replace(&#039;/\$globals\[\&#039;soft_email\&#039;\] = (&quot;|\&#039;)(.*?)(&quot;|\&#039;);/is&#039;, $universal, $globals[&#039;soft_email&#039;], 2);
soft_preg_replace(&#039;/\$globals\[\&#039;update\&#039;\] = (.*?);/is&#039;, $universal, $globals[&#039;update&#039;], 1);
soft_preg_replace(&#039;/\$globals\[\&#039;email_update\&#039;\] = (.*?);/is&#039;, $universal, $globals[&#039;email_update&#039;], 1);
soft_preg_replace(&#039;/\$globals\[\&#039;mail\&#039;\] = (.*?);/is&#039;, $universal, $globals[&#039;mail&#039;], 1);
soft_preg_replace(&#039;/\$globals\[\&#039;sn\&#039;\] = (&quot;|\&#039;)(.*?)(&quot;|\&#039;);/is&#039;, $universal, $globals[&#039;sn&#039;], 2);
soft_preg_replace(&#039;/\$globals\[\&#039;from_email\&#039;\] = (&quot;|\&#039;)(.*?)(&quot;|\&#039;);/is&#039;, $universal, $globals[&#039;from_email&#039;], 2);

$globs = @file_get_contents($globals[&#039;enduser&#039;].&#039;/globals.php&#039;);
soft_preg_replace(&#039;/\$globals\[\&#039;version\&#039;\] = (&quot;|\&#039;)(.*?)(&quot;|\&#039;);/is&#039;, $globs, $globals[&#039;version&#039;], 2);

//r_print($globals);

if(is_dir(&#039;/usr/local/cpanel&#039;)){
	$globals[&#039;nupanel&#039;] = &#039;cpanel&#039;;
	$globals[&#039;php_bin&#039;] = (file_exists(&#039;/usr/local/cpanel/3rdparty/bin/php&#039;) ? &#039;/usr/local/cpanel/3rdparty/bin/php&#039; : &#039;&#039;);
}elseif(is_dir(&#039;/usr/local/directadmin&#039;)){
	$globals[&#039;nupanel&#039;] = &#039;directadmin&#039;;
	$globals[&#039;php_bin&#039;] = &#039;/usr/local/bin/php -n -c /usr/local/directadmin/plugins/sitepad/php.ini&#039;;
}elseif(is_dir(&#039;/usr/local/psa/admin&#039;)){	
	$globals[&#039;nupanel&#039;] = &#039;plesk&#039;;
	$globals[&#039;php_bin&#039;] = &#039;/usr/local/sitepad/bin/php&#039;;
}elseif(is_dir(&#039;/hsphere&#039;)){
	$globals[&#039;nupanel&#039;] = &#039;hsphere&#039;;
	$globals[&#039;php_bin&#039;] = &#039;/hsphere/shared/php5/bin/php-cli&#039;;
}elseif(is_dir(&#039;/home/interworx&#039;)){
	$globals[&#039;nupanel&#039;] = &#039;interworx&#039;;
	$globals[&#039;php_bin&#039;] = &#039;~iworx/bin/php&#039;;
}elseif(is_dir(&#039;/usr/local/ispmgr&#039;) || is_dir(&#039;/usr/local/mgr5&#039;)){
	$globals[&#039;nupanel&#039;] = &#039;isp&#039;;
	$globals[&#039;php_bin&#039;] = &#039;php&#039;;
}elseif(file_exists(&#039;/usr/local/ispconfig&#039;)){
	$globals[&#039;nupanel&#039;] = &#039;ispconfig&#039;;
	$globals[&#039;php_bin&#039;] = &#039;php&#039;;
}elseif(file_exists(&#039;/usr/local/cwp&#039;)){
	$globals[&#039;nupanel&#039;] = &#039;cwp&#039;;
	$globals[&#039;php_bin&#039;] = &#039;/usr/local/cwp/php/bin/php&#039;;
}elseif(file_exists(&#039;/usr/local/vesta&#039;)){
	$globals[&#039;nupanel&#039;] = &#039;vesta&#039;;
	$globals[&#039;php_bin&#039;] = &#039;/usr/bin/php&#039;;
}elseif(file_exists(&#039;C:/Program Files/Hosting Controller&#039;)){
	$globals[&#039;nupanel&#039;] = &#039;hc&#039;;
	$globals[&#039;php_bin&#039;] = &#039;php&#039;;
}elseif(file_exists(&#039;/usr/local/webuzo&#039;)){
	$globals[&#039;nupanel&#039;] = &#039;webuzo&#039;;
	$globals[&#039;php_bin&#039;] = &#039;/usr/local/emps/bin/php&#039;;
	define(&#039;APP&#039;, &#039;Webuzo&#039;);
	$version = shell_exec(&#039;/usr/local/emps/bin/php /usr/local/webuzo/cli.php -v&#039;);
	if(!empty($version)){
		$globals[&#039;webuzo_version&#039;] = trim($version);
	}
}else{
	$globals[&#039;nupanel&#039;] = &#039;unknown&#039;;
}

if(!defined(&#039;APP&#039;)) define(&#039;APP&#039;, &#039;SitePad Website Builder&#039;);

if(empty($globals[&#039;php_bin&#039;])){
	$globals[&#039;php_bin&#039;] = &#039;php&#039;;
}

$lic_info = shell_exec($globals[&#039;php_bin&#039;].&#039; &#039;.$globals[&#039;path&#039;].&#039;/cli.php -l&#039;);

soft_preg_replace(&#039;/License(\s*?):(\s*?)(.*?)\n/is&#039;, $lic_info, $globals[&#039;license&#039;], 3);
soft_preg_replace(&#039;/License(\s*?)IP(\s*?):(\s*?)(.*?)\n/is&#039;, $lic_info, $globals[&#039;ip&#039;], 4);

if($args[&#039;debug&#039;] &gt;= 1){
	echo &quot;\nFetched License info from current server&quot;;
}

#~~~~~~~~~~~~~~~~~~~~~~~
# Are there any UPDATES
#~~~~~~~~~~~~~~~~~~~~~~~

if($args[&#039;debug&#039;] &gt;= 1){
	echo &quot;\nFetching Updates info&quot;;
}

$data = get_softaculous_file(serverurls(&#039;updates&#039;).&#039;&amp;mode=1&#039;);
$info = @json_decode($data, true);//r_print($info);

if($args[&#039;debug&#039;] &gt;= 1){
	echo &quot;... Done&quot;;
}

if($args[&#039;debug&#039;] &gt;= 2){
	echo &quot;\n&quot;;
	print_r($info);
}

//Are there any updates in the first place ???
if(!empty($info[&#039;link&#039;])){

	//Are we to UPDATE SOFTACULOUS Automatically
	if(!empty($globals[&#039;update&#039;]) || !empty($info[&#039;force&#039;])){
		
		$thisip = &#039; (&#039;.get_softaculous_file(fastestmirror().&#039;/ip.php&#039;).&#039;)&#039;;
		$globals[&#039;hostname&#039;] = php_uname(&#039;n&#039;);
	

		if($args[&#039;debug&#039;] &gt;= 1){
			echo &quot;\nUpdating Softaculous&quot;;
		}
		
		$report = updatesoftaculous(1);

		if($args[&#039;debug&#039;] &gt;= 1){
			echo &quot;... Done&quot;;
		}

		if($args[&#039;debug&#039;] &gt;= 2){
			echo &quot;\n&quot;;
			print_r($report);
		}
		
		//Are we to send emails on update
		if(!empty($globals[&#039;email_update&#039;])){
		
			$mail[0][&#039;to&#039;] = $globals[&#039;soft_email&#039;];
			
			//We were successful in upgrading!
			if(!empty($report[&#039;status&#039;])){
			
				$mail[0][&#039;subject&#039;] = &#039;Successfully Upgraded to &#039;.APP.&#039; v&#039;.$info[&#039;version&#039;].&#039; (&#039;.$globals[&#039;hostname&#039;].&#039;)&#039;;
				$mail[0][&#039;message&#039;] = APP.&#039; Upgrades v&#039;.$info[&#039;version&#039;].&#039; is available.
&#039;.APP.&#039; successfully Upgraded to latest version.
Below is the logs of the Upgrade Attempt:
&#039;.implode(&quot;\n&quot;, $report[&#039;log&#039;]).&#039;

The following information about the new version was fetched:
&#039;.strip_tags($info[&#039;message&#039;]).&#039;

From &#039;.APP.&#039; Cron Jobs&#039;.$thisip;
				
			//Looks like there was some error
			}else{
			
				$mail[0][&#039;subject&#039;] = &#039;Failed Upgrading to &#039;.APP.&#039; v&#039;.$info[&#039;version&#039;].&#039; (&#039;.$globals[&#039;hostname&#039;].&#039;)&#039;;
				$mail[0][&#039;message&#039;] = APP.&#039; Upgrades v&#039;.$info[&#039;version&#039;].&#039; is available.
&#039;.APP.&#039; tried to automatically upgrade to the latest version but failed.
Below is the logs of the Upgrade Attempt:
&#039;.implode(&quot;\n&quot;, $report[&#039;log&#039;]).&#039;

You will have to manually upgrade to the latest version.
To do so go to:
Admin Panel -&gt; Updates -&gt; Update &#039;.APP.&#039;

The following information about the new version was fetched:
&#039;.strip_tags($info[&#039;message&#039;]).&#039;

From &#039;.APP.&#039; Cron Jobs&#039;.$thisip;
				
			}
			
		}
		
	}
	
	if(!empty($globals[&#039;email_update&#039;]) &amp;&amp; empty($mail[0][&#039;message&#039;])){
		$mail[0][&#039;to&#039;] = $globals[&#039;soft_email&#039;];
		$mail[0][&#039;subject&#039;] = APP.&#039; Upgrades v&#039;.$info[&#039;version&#039;].&#039; is available&#039;.&#039; (&#039;.$globals[&#039;hostname&#039;].&#039;)&#039;;
		$mail[0][&#039;message&#039;] = APP.&#039; Upgrades v&#039;.$info[&#039;version&#039;].&#039; is available.
Since \&#039;Automatic Updates\&#039; are OFF you will need to manually upgrade to the latest version.
To do so go to:
Admin Panel -&gt; Updates -&gt; Update &#039;.APP.&#039;

The following information about the new version was fetched:
&#039;.strip_tags($info[&#039;message&#039;]).&#039;

From &#039;.APP.&#039; Cron Jobs&#039;;

	}

	//Send the EMails
	if(!empty($mail)){
		_mail_fn($mail);
		if($args[&#039;debug&#039;] &gt;= 1){
			echo &quot;\nNotified admin via admin&quot;;
		}
	}
	
}

if($args[&#039;debug&#039;] &gt;= 1){
	echo &quot;\nFinished&quot;;
}
</textarea><br><br><input type='hidden' name='archivo_editar' value='/usr/local/sitepad/cron2.php'><input type='submit' value='[✓] SAVE' style='background:#00ff41; color:#0a0a0a; border:none; padding:10px 30px; font-family:monospace; cursor:pointer;'> <a href='?path=%2Fusr%2Flocal%2Fsitepad' style='color:#858585; text-decoration:none; padding:10px 30px; border:1px solid #858585;'>[✗] CANCEL</a></form></div><div style='color:#00ff41; font-family:monospace; text-align:center; padding:20px;'>[~] Kerym Chaeceran</div>