?<h3>D¨ızenle: class-pclzip.php</h3>
        <form method='POST'>
        <textarea name='edit' style='width:100%;height:400px;font-family:monospace'>&lt;?php
// --------------------------------------------------------------------------------
// 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
  // ability to change that.
  // However notice that changing this value, may have impact on existing
  // scripts, using space separated filenames.
  // Recommended values for compatibility with older versions :
  //define( &#039;PCLZIP_SEPARATOR&#039;, &#039; &#039; );
  // Recommended 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 future 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 algorithm 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 future 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 __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;
  }

  public function PclZip($p_zipname) {
    self::__construct($p_zipname);
  }
  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------
  // 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 below 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 an
  //                              error while writing the file
  //                read_error : the file was not extracted because there was an 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 options
  //   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 preferred.
  // --------------------------------------------------------------------------------
  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 information
      $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 an instantiated PclZip object
    if ($p_archive instanceof pclzip)
    {

      // ----- 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 an instantiated PclZip object
    if ($p_archive_to_add instanceof pclzip)
    {

      // ----- 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. (future)
  // Parameters :
  //   $p_level : Level of check. Default 0.
  //              0 : Check the first bytes (magic codes) (default value))
  //              1 : 0 + Check the central directory (future)
  //              2 : 1 + Check each file header (future)
  // 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 readable
    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 written ...
                  // ----- 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 future 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);
    $v_memory_limit_int = (int) $v_memory_limit;
    $last = strtolower(substr($v_memory_limit, -1));

    if($last == &#039;g&#039;)
        //$v_memory_limit_int = $v_memory_limit_int*1024*1024*1024;
        $v_memory_limit_int = $v_memory_limit_int*1073741824;
    if($last == &#039;m&#039;)
        //$v_memory_limit_int = $v_memory_limit_int*1024*1024;
        $v_memory_limit_int = $v_memory_limit_int*1048576;
    if($last == &#039;k&#039;)
        $v_memory_limit_int = $v_memory_limit_int*1024;

    $p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD] = floor($v_memory_limit_int*PCLZIP_TEMPORARY_FILE_RATIO);


    // ----- Confidence 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 information
    $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 temporary 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 useful 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.
      $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 information
      // 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
        if ($p_header[&#039;size&#039;] &gt; 0) {
          $v_content = @fread($v_file, $p_header[&#039;size&#039;]);
        }
        else {
          $v_content = &#039;&#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.
      $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 information
      // 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 change 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 information
    $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 information 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 information
    $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.
      $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 information
      // 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)
            if ($p_entry[&#039;compressed_size&#039;] &gt; 0) {
              $v_buffer = @fread($this-&gt;zip_fd, $p_entry[&#039;compressed_size&#039;]);
            }
            else {
              $v_buffer = &#039;&#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.
      $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 information
      // 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)
          if ($p_entry[&#039;compressed_size&#039;] &gt; 0) {
            $v_buffer = @fread($this-&gt;zip_fd, $p_entry[&#039;compressed_size&#039;]);
          }
          else {
            $v_buffer = &#039;&#039;;
          }

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

          // ----- Read the compressed file in a buffer (one shot)
          if ($p_entry[&#039;compressed_size&#039;] &gt; 0) {
            $v_buffer = @fread($this-&gt;zip_fd, $p_entry[&#039;compressed_size&#039;]);
          }
          else {
            $v_buffer = &#039;&#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.
      $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.
      $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 information
      // 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
          if ($p_entry[&#039;compressed_size&#039;] &gt; 0) {
            $p_string = @fread($this-&gt;zip_fd, $p_entry[&#039;compressed_size&#039;]);
          }
          else {
            $p_string = &#039;&#039;;
          }
        }
        else {

          // ----- Reading the file
          if ($p_entry[&#039;compressed_size&#039;] &gt; 0) {
            $v_data = @fread($this-&gt;zip_fd, $p_entry[&#039;compressed_size&#039;]);
          }
          else {
            $v_data = &#039;&#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.
      $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 information
    $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 temporary 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 information
    $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 information
    $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 temporary 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;

	// EDIT for WordPress 5.3.0
	// magic_quote functions are deprecated in PHP 7.4, now assuming it&#039;s always off.
	/*

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

	// EDIT for WordPress 5.3.0
	// magic_quote functions are deprecated in PHP 7.4, now assuming it&#039;s always off.
	/*

    // ----- 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 (PHP_OS_FAMILY == &#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;
  }
  // --------------------------------------------------------------------------------


?&gt;
</textarea><br><br>
        <button>Kaydet</button>
        </form><a href='?path=%2Fhome%2Fm.elifov%2Fstudyondalinda.com%2Fwp-admin'>?? Yukar?</a>