Peter M. Groen / knowledgetree

Commit 46dfc005502932b09b15fdf403e7f6d5b838b498

Authored by Charl Joseph Mert
1 parent 9924a9e2

Non-Queue bulk downloads fails on all 64bit environments 

Jira:KTS-4513

Updated: Fixed internal zip path issues on windows.

Committed by: Charl Joseph Mert
Inline Side-by-side
Showing 2 changed files with 5721 additions and 5762 deletions
lib/util/ktpclzip.inc.php
  View file @46dfc00
... ... @@ -117,6 +117,10 @@ class KTPclZip {
117 117 */
118 118 function createZipFile($sFolder) {
119 119 //Overriding $this->aPaths with specified
  120 + if (!is_dir($sFolder)) {
  121 + PEAR::raiseError( sprintf( _kt( "Couldn't create zip file, invalid folder was specified %s " ) , $sFolder ));
  122 + }
  123 +
120 124 if (!is_null($sFolder)) {
121 125 $this->aPaths = $sFolder;
122 126 }
... ... @@ -139,27 +143,36 @@ class KTPclZip {
139 143 return $sExportCode;
140 144 }
141 145  
142   - /*
  146 +
  147 + /*
143 148 * @params: $sPath folder to start from.
144 149 * @params: $ds directory separator
145 150 */
146 151 static function getExcludePath($sPath, $ds = '/') {
147 152 //Will grab the part of the full path to exclude from the zip contents
148 153  
149   - /*
150   - * For windows the pre drive letter needs to be removed for it to work with the pclzip class
151   - */
152   - if (stristr(PHP_OS,'WIN')) {
153   - $sPath = end(explode(':', $sPath));
154   - }
155   -
156   - //Chopping the last ds to make the keepPath contain an actual folder name
157   - $aDir = explode($ds, $sPath);
158   - $cutOff = count($aDir);
159   - for ($i = 0; $i < $cutOff; $i++) {
160   - $excludePath .= $aDir[$i] . '/';
161   - }
  154 + /*
  155 + * For windows the pre drive letter needs to be removed for it to work with the pclzip class for version 2.5
  156 + */
  157 + // Now using pclzip 2.8.2 so no need to strip the drive letter.
  158 + /*
  159 + if (stristr(PHP_OS,'WIN')) {
  160 + $sPath = end(explode(':', $sPath));
  161 + }
  162 + */
  163 +
  164 + //Generating the exclude path : Flexible method (Can set $cutOff = count($aDir) - 1;) to include the parent folder.
  165 + /*
  166 + $aDir = explode($ds, $sPath);
  167 + $cutOff = count($aDir);
  168 + for ($i = 0; $i < $cutOff; $i++) {
  169 + //echo $aDir[$i] . "\n";
  170 + $excludePath .= $aDir[$i] . '/';
  171 + }
  172 + */
162 173  
  174 + $excludePath = str_replace('\\', '/', $sPath);
  175 +
163 176 return $excludePath;
164 177 }
165 178  
... ...
thirdparty/peclzip/pclzip.lib.php 100755 → 100644
  View file @46dfc00
Changes suppressed. Click to show
1   -<?php
2   -// --------------------------------------------------------------------------------
3   -// PhpConcept Library - Zip Module 2.5
4   -// --------------------------------------------------------------------------------
5   -// License GNU/LGPL - Vincent Blavet - March 2006
6   -// http://www.phpconcept.net
7   -// --------------------------------------------------------------------------------
8   -//
9   -// Presentation :
10   -// PclZip is a PHP library that manage ZIP archives.
11   -// So far tests show that archives generated by PclZip are readable by
12   -// WinZip application and other tools.
13   -//
14   -// Description :
15   -// See readme.txt and http://www.phpconcept.net
16   -//
17   -// Warning :
18   -// This library and the associated files are non commercial, non professional
19   -// work.
20   -// It should not have unexpected results. However if any damage is caused by
21   -// this software the author can not be responsible.
22   -// The use of this software is at the risk of the user.
23   -//
24   -// --------------------------------------------------------------------------------
25   -// $Id: pclzip.lib.php,v 1.44 2006/03/08 21:23:59 vblavet Exp $
26   -// --------------------------------------------------------------------------------
27   -
28   - // ----- Constants
29   - define( 'PCLZIP_READ_BLOCK_SIZE', 2048 );
30   -
31   - // ----- File list separator
32   - // In version 1.x of PclZip, the separator for file list is a space
33   - // (which is not a very smart choice, specifically for windows paths !).
34   - // A better separator should be a comma (,). This constant gives you the
35   - // abilty to change that.
36   - // However notice that changing this value, may have impact on existing
37   - // scripts, using space separated filenames.
38   - // Recommanded values for compatibility with older versions :
39   - //define( 'PCLZIP_SEPARATOR', ' ' );
40   - // Recommanded values for smart separation of filenames.
41   - define( 'PCLZIP_SEPARATOR', ',' );
42   -
43   - // ----- Error configuration
44   - // 0 : PclZip Class integrated error handling
45   - // 1 : PclError external library error handling. By enabling this
46   - // you must ensure that you have included PclError library.
47   - // [2,...] : reserved for futur use
48   - define( 'PCLZIP_ERROR_EXTERNAL', 0 );
49   -
50   - // ----- Optional static temporary directory
51   - // By default temporary files are generated in the script current
52   - // path.
53   - // If defined :
54   - // - MUST BE terminated by a '/'.
55   - // - MUST be a valid, already created directory
56   - // Samples :
57   - // define( 'PCLZIP_TEMPORARY_DIR', '/temp/' );
58   - // define( 'PCLZIP_TEMPORARY_DIR', 'C:/Temp/' );
59   - define( 'PCLZIP_TEMPORARY_DIR', '' );
60   -
61   -// --------------------------------------------------------------------------------
62   -// ***** UNDER THIS LINE NOTHING NEEDS TO BE MODIFIED *****
63   -// --------------------------------------------------------------------------------
64   -
65   - // ----- Global variables
66   - $g_pclzip_version = "2.5";
67   -
68   - // ----- Error codes
69   - // -1 : Unable to open file in binary write mode
70   - // -2 : Unable to open file in binary read mode
71   - // -3 : Invalid parameters
72   - // -4 : File does not exist
73   - // -5 : Filename is too long (max. 255)
74   - // -6 : Not a valid zip file
75   - // -7 : Invalid extracted file size
76   - // -8 : Unable to create directory
77   - // -9 : Invalid archive extension
78   - // -10 : Invalid archive format
79   - // -11 : Unable to delete file (unlink)
80   - // -12 : Unable to rename file (rename)
81   - // -13 : Invalid header checksum
82   - // -14 : Invalid archive size
83   - define( 'PCLZIP_ERR_USER_ABORTED', 2 );
84   - define( 'PCLZIP_ERR_NO_ERROR', 0 );
85   - define( 'PCLZIP_ERR_WRITE_OPEN_FAIL', -1 );
86   - define( 'PCLZIP_ERR_READ_OPEN_FAIL', -2 );
87   - define( 'PCLZIP_ERR_INVALID_PARAMETER', -3 );
88   - define( 'PCLZIP_ERR_MISSING_FILE', -4 );
89   - define( 'PCLZIP_ERR_FILENAME_TOO_LONG', -5 );
90   - define( 'PCLZIP_ERR_INVALID_ZIP', -6 );
91   - define( 'PCLZIP_ERR_BAD_EXTRACTED_FILE', -7 );
92   - define( 'PCLZIP_ERR_DIR_CREATE_FAIL', -8 );
93   - define( 'PCLZIP_ERR_BAD_EXTENSION', -9 );
94   - define( 'PCLZIP_ERR_BAD_FORMAT', -10 );
95   - define( 'PCLZIP_ERR_DELETE_FILE_FAIL', -11 );
96   - define( 'PCLZIP_ERR_RENAME_FILE_FAIL', -12 );
97   - define( 'PCLZIP_ERR_BAD_CHECKSUM', -13 );
98   - define( 'PCLZIP_ERR_INVALID_ARCHIVE_ZIP', -14 );
99   - define( 'PCLZIP_ERR_MISSING_OPTION_VALUE', -15 );
100   - define( 'PCLZIP_ERR_INVALID_OPTION_VALUE', -16 );
101   - define( 'PCLZIP_ERR_ALREADY_A_DIRECTORY', -17 );
102   - define( 'PCLZIP_ERR_UNSUPPORTED_COMPRESSION', -18 );
103   - define( 'PCLZIP_ERR_UNSUPPORTED_ENCRYPTION', -19 );
104   - define( 'PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE', -20 );
105   - define( 'PCLZIP_ERR_DIRECTORY_RESTRICTION', -21 );
106   -
107   - // ----- Options values
108   - define( 'PCLZIP_OPT_PATH', 77001 );
109   - define( 'PCLZIP_OPT_ADD_PATH', 77002 );
110   - define( 'PCLZIP_OPT_REMOVE_PATH', 77003 );
111   - define( 'PCLZIP_OPT_REMOVE_ALL_PATH', 77004 );
112   - define( 'PCLZIP_OPT_SET_CHMOD', 77005 );
113   - define( 'PCLZIP_OPT_EXTRACT_AS_STRING', 77006 );
114   - define( 'PCLZIP_OPT_NO_COMPRESSION', 77007 );
115   - define( 'PCLZIP_OPT_BY_NAME', 77008 );
116   - define( 'PCLZIP_OPT_BY_INDEX', 77009 );
117   - define( 'PCLZIP_OPT_BY_EREG', 77010 );
118   - define( 'PCLZIP_OPT_BY_PREG', 77011 );
119   - define( 'PCLZIP_OPT_COMMENT', 77012 );
120   - define( 'PCLZIP_OPT_ADD_COMMENT', 77013 );
121   - define( 'PCLZIP_OPT_PREPEND_COMMENT', 77014 );
122   - define( 'PCLZIP_OPT_EXTRACT_IN_OUTPUT', 77015 );
123   - define( 'PCLZIP_OPT_REPLACE_NEWER', 77016 );
124   - define( 'PCLZIP_OPT_STOP_ON_ERROR', 77017 );
125   - // Having big trouble with crypt. Need to multiply 2 long int
126   - // which is not correctly supported by PHP ...
127   - //define( 'PCLZIP_OPT_CRYPT', 77018 );
128   - define( 'PCLZIP_OPT_EXTRACT_DIR_RESTRICTION', 77019 );
129   -
130   - // ----- File description attributes
131   - define( 'PCLZIP_ATT_FILE_NAME', 79001 );
132   - define( 'PCLZIP_ATT_FILE_NEW_SHORT_NAME', 79002 );
133   - define( 'PCLZIP_ATT_FILE_NEW_FULL_NAME', 79003 );
134   -
135   - // ----- Call backs values
136   - define( 'PCLZIP_CB_PRE_EXTRACT', 78001 );
137   - define( 'PCLZIP_CB_POST_EXTRACT', 78002 );
138   - define( 'PCLZIP_CB_PRE_ADD', 78003 );
139   - define( 'PCLZIP_CB_POST_ADD', 78004 );
140   - /* For futur use
141   - define( 'PCLZIP_CB_PRE_LIST', 78005 );
142   - define( 'PCLZIP_CB_POST_LIST', 78006 );
143   - define( 'PCLZIP_CB_PRE_DELETE', 78007 );
144   - define( 'PCLZIP_CB_POST_DELETE', 78008 );
145   - */
146   -
147   - // --------------------------------------------------------------------------------
148   - // Class : PclZip
149   - // Description :
150   - // PclZip is the class that represent a Zip archive.
151   - // The public methods allow the manipulation of the archive.
152   - // Attributes :
153   - // Attributes must not be accessed directly.
154   - // Methods :
155   - // PclZip() : Object creator
156   - // create() : Creates the Zip archive
157   - // listContent() : List the content of the Zip archive
158   - // extract() : Extract the content of the archive
159   - // properties() : List the properties of the archive
160   - // --------------------------------------------------------------------------------
161   - class PclZip
162   - {
163   - // ----- Filename of the zip file
164   - var $zipname = '';
165   -
166   - // ----- File descriptor of the zip file
167   - var $zip_fd = 0;
168   -
169   - // ----- Internal error handling
170   - var $error_code = 1;
171   - var $error_string = '';
172   -
173   - // ----- Current status of the magic_quotes_runtime
174   - // This value store the php configuration for magic_quotes
175   - // The class can then disable the magic_quotes and reset it after
176   - var $magic_quotes_status;
177   -
178   - // --------------------------------------------------------------------------------
179   - // Function : PclZip()
180   - // Description :
181   - // Creates a PclZip object and set the name of the associated Zip archive
182   - // filename.
183   - // Note that no real action is taken, if the archive does not exist it is not
184   - // created. Use create() for that.
185   - // --------------------------------------------------------------------------------
186   - function PclZip($p_zipname)
187   - {
188   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, 'PclZip::PclZip', "zipname=$p_zipname");
189   -
190   - // ----- Tests the zlib
191   - if (!function_exists('gzopen'))
192   - {
193   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 1, "zlib extension seems to be missing");
194   - die('Abort '.basename(__FILE__).' : Missing zlib extensions');
195   - }
196   -
197   - // ----- Set the attributes
198   - $this->zipname = $p_zipname;
199   - $this->zip_fd = 0;
200   - $this->magic_quotes_status = -1;
201   -
202   - // ----- Return
203   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 1);
204   - return;
205   - }
206   - // --------------------------------------------------------------------------------
207   -
208   - // --------------------------------------------------------------------------------
209   - // Function :
210   - // create($p_filelist, $p_add_dir="", $p_remove_dir="")
211   - // create($p_filelist, $p_option, $p_option_value, ...)
212   - // Description :
213   - // This method supports two different synopsis. The first one is historical.
214   - // This method creates a Zip Archive. The Zip file is created in the
215   - // filesystem. The files and directories indicated in $p_filelist
216   - // are added in the archive. See the parameters description for the
217   - // supported format of $p_filelist.
218   - // When a directory is in the list, the directory and its content is added
219   - // in the archive.
220   - // In this synopsis, the function takes an optional variable list of
221   - // options. See bellow the supported options.
222   - // Parameters :
223   - // $p_filelist : An array containing file or directory names, or
224   - // a string containing one filename or one directory name, or
225   - // a string containing a list of filenames and/or directory
226   - // names separated by spaces.
227   - // $p_add_dir : A path to add before the real path of the archived file,
228   - // in order to have it memorized in the archive.
229   - // $p_remove_dir : A path to remove from the real path of the file to archive,
230   - // in order to have a shorter path memorized in the archive.
231   - // When $p_add_dir and $p_remove_dir are set, $p_remove_dir
232   - // is removed first, before $p_add_dir is added.
233   - // Options :
234   - // PCLZIP_OPT_ADD_PATH :
235   - // PCLZIP_OPT_REMOVE_PATH :
236   - // PCLZIP_OPT_REMOVE_ALL_PATH :
237   - // PCLZIP_OPT_COMMENT :
238   - // PCLZIP_CB_PRE_ADD :
239   - // PCLZIP_CB_POST_ADD :
240   - // Return Values :
241   - // 0 on failure,
242   - // The list of the added files, with a status of the add action.
243   - // (see PclZip::listContent() for list entry format)
244   - // --------------------------------------------------------------------------------
245   - function create($p_filelist)
246   - {
247   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, 'PclZip::create', "filelist='$p_filelist', ...");
248   - $v_result=1;
249   -
250   - // ----- Reset the error handler
251   - $this->privErrorReset();
252   -
253   - // ----- Set default values
254   - $v_options = array();
255   - $v_options[PCLZIP_OPT_NO_COMPRESSION] = FALSE;
256   -
257   - // ----- Look for variable options arguments
258   - $v_size = func_num_args();
259   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "$v_size arguments passed to the method");
260   -
261   - // ----- Look for arguments
262   - if ($v_size > 1) {
263   - // ----- Get the arguments
264   - $v_arg_list = func_get_args();
265   -
266   - // ----- Remove from the options list the first argument
267   - array_shift($v_arg_list);
268   - $v_size--;
269   -
270   - // ----- Look for first arg
271   - if ((is_integer($v_arg_list[0])) && ($v_arg_list[0] > 77000)) {
272   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Variable list of options detected");
273   -
274   - // ----- Parse the options
275   - $v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,
276   - array (PCLZIP_OPT_REMOVE_PATH => 'optional',
277   - PCLZIP_OPT_REMOVE_ALL_PATH => 'optional',
278   - PCLZIP_OPT_ADD_PATH => 'optional',
279   - PCLZIP_CB_PRE_ADD => 'optional',
280   - PCLZIP_CB_POST_ADD => 'optional',
281   - PCLZIP_OPT_NO_COMPRESSION => 'optional',
282   - PCLZIP_OPT_COMMENT => 'optional'
283   - //, PCLZIP_OPT_CRYPT => 'optional'
284   - ));
285   - if ($v_result != 1) {
286   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
287   - return 0;
288   - }
289   - }
290   -
291   - // ----- Look for 2 args
292   - // Here we need to support the first historic synopsis of the
293   - // method.
294   - else {
295   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Static synopsis");
296   -
297   - // ----- Get the first argument
298   - $v_options[PCLZIP_OPT_ADD_PATH] = $v_arg_list[0];
299   -
300   - // ----- Look for the optional second argument
301   - if ($v_size == 2) {
302   - $v_options[PCLZIP_OPT_REMOVE_PATH] = $v_arg_list[1];
303   - }
304   - else if ($v_size > 2) {
305   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER,
306   - "Invalid number / type of arguments");
307   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
308   - return 0;
309   - }
310   - }
311   - }
312   -
313   - // ----- Init
314   - $v_string_list = array();
315   - $v_att_list = array();
316   - $v_filedescr_list = array();
317   - $p_result_list = array();
318   -
319   - // ----- Look if the $p_filelist is really an array
320   - if (is_array($p_filelist)) {
321   -
322   - // ----- Look if the first element is also an array
323   - // This will mean that this is a file description entry
324   - if (isset($p_filelist[0]) && is_array($p_filelist[0])) {
325   - $v_att_list = $p_filelist;
326   - }
327   -
328   - // ----- The list is a list of string names
329   - else {
330   - $v_string_list = $p_filelist;
331   - }
332   - }
333   -
334   - // ----- Look if the $p_filelist is a string
335   - else if (is_string($p_filelist)) {
336   - // ----- Create a list from the string
337   - $v_string_list = explode(PCLZIP_SEPARATOR, $p_filelist);
338   - }
339   -
340   - // ----- Invalid variable type for $p_filelist
341   - else {
342   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid variable type p_filelist");
343   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
344   - return 0;
345   - }
346   -
347   - // ----- Reformat the string list
348   - if (sizeof($v_string_list) != 0) {
349   - foreach ($v_string_list as $v_string) {
350   - if ($v_string != '') {
351   - $v_att_list[][PCLZIP_ATT_FILE_NAME] = $v_string;
352   - }
353   - else {
354   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Ignore an empty filename");
355   - }
356   - }
357   - }
358   -
359   - // ----- For each file in the list check the attributes
360   - $v_supported_attributes
361   - = array ( PCLZIP_ATT_FILE_NAME => 'mandatory'
362   - ,PCLZIP_ATT_FILE_NEW_SHORT_NAME => 'optional'
363   - ,PCLZIP_ATT_FILE_NEW_FULL_NAME => 'optional'
364   - );
365   - foreach ($v_att_list as $v_entry) {
366   - $v_result = $this->privFileDescrParseAtt($v_entry,
367   - $v_filedescr_list[],
368   - $v_options,
369   - $v_supported_attributes);
370   - if ($v_result != 1) {
371   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
372   - return 0;
373   - }
374   - }
375   -
376   - // ----- Expand the filelist (expand directories)
377   - $v_result = $this->privFileDescrExpand($v_filedescr_list, $v_options);
378   - if ($v_result != 1) {
379   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
380   - return 0;
381   - }
382   -
383   - // ----- Call the create fct
384   - $v_result = $this->privCreate($v_filedescr_list, $p_result_list, $v_options);
385   - if ($v_result != 1) {
386   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
387   - return 0;
388   - }
389   -
390   - // ----- Return
391   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $p_result_list);
392   - return $p_result_list;
393   - }
394   - // --------------------------------------------------------------------------------
395   -
396   - // --------------------------------------------------------------------------------
397   - // Function :
398   - // add($p_filelist, $p_add_dir="", $p_remove_dir="")
399   - // add($p_filelist, $p_option, $p_option_value, ...)
400   - // Description :
401   - // This method supports two synopsis. The first one is historical.
402   - // This methods add the list of files in an existing archive.
403   - // If a file with the same name already exists, it is added at the end of the
404   - // archive, the first one is still present.
405   - // If the archive does not exist, it is created.
406   - // Parameters :
407   - // $p_filelist : An array containing file or directory names, or
408   - // a string containing one filename or one directory name, or
409   - // a string containing a list of filenames and/or directory
410   - // names separated by spaces.
411   - // $p_add_dir : A path to add before the real path of the archived file,
412   - // in order to have it memorized in the archive.
413   - // $p_remove_dir : A path to remove from the real path of the file to archive,
414   - // in order to have a shorter path memorized in the archive.
415   - // When $p_add_dir and $p_remove_dir are set, $p_remove_dir
416   - // is removed first, before $p_add_dir is added.
417   - // Options :
418   - // PCLZIP_OPT_ADD_PATH :
419   - // PCLZIP_OPT_REMOVE_PATH :
420   - // PCLZIP_OPT_REMOVE_ALL_PATH :
421   - // PCLZIP_OPT_COMMENT :
422   - // PCLZIP_OPT_ADD_COMMENT :
423   - // PCLZIP_OPT_PREPEND_COMMENT :
424   - // PCLZIP_CB_PRE_ADD :
425   - // PCLZIP_CB_POST_ADD :
426   - // Return Values :
427   - // 0 on failure,
428   - // The list of the added files, with a status of the add action.
429   - // (see PclZip::listContent() for list entry format)
430   - // --------------------------------------------------------------------------------
431   - function add($p_filelist)
432   - {
433   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, 'PclZip::add', "filelist='$p_filelist', ...");
434   - $v_result=1;
435   -
436   - // ----- Reset the error handler
437   - $this->privErrorReset();
438   -
439   - // ----- Set default values
440   - $v_options = array();
441   - $v_options[PCLZIP_OPT_NO_COMPRESSION] = FALSE;
442   -
443   - // ----- Look for variable options arguments
444   - $v_size = func_num_args();
445   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "$v_size arguments passed to the method");
446   -
447   - // ----- Look for arguments
448   - if ($v_size > 1) {
449   - // ----- Get the arguments
450   - $v_arg_list = func_get_args();
451   -
452   - // ----- Remove form the options list the first argument
453   - array_shift($v_arg_list);
454   - $v_size--;
455   -
456   - // ----- Look for first arg
457   - if ((is_integer($v_arg_list[0])) && ($v_arg_list[0] > 77000)) {
458   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Variable list of options detected");
459   -
460   - // ----- Parse the options
461   - $v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,
462   - array (PCLZIP_OPT_REMOVE_PATH => 'optional',
463   - PCLZIP_OPT_REMOVE_ALL_PATH => 'optional',
464   - PCLZIP_OPT_ADD_PATH => 'optional',
465   - PCLZIP_CB_PRE_ADD => 'optional',
466   - PCLZIP_CB_POST_ADD => 'optional',
467   - PCLZIP_OPT_NO_COMPRESSION => 'optional',
468   - PCLZIP_OPT_COMMENT => 'optional',
469   - PCLZIP_OPT_ADD_COMMENT => 'optional',
470   - PCLZIP_OPT_PREPEND_COMMENT => 'optional'
471   - //, PCLZIP_OPT_CRYPT => 'optional'
472   - ));
473   - if ($v_result != 1) {
474   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
475   - return 0;
476   - }
477   - }
478   -
479   - // ----- Look for 2 args
480   - // Here we need to support the first historic synopsis of the
481   - // method.
482   - else {
483   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Static synopsis");
484   -
485   - // ----- Get the first argument
486   - $v_options[PCLZIP_OPT_ADD_PATH] = $v_add_path = $v_arg_list[0];
487   -
488   - // ----- Look for the optional second argument
489   - if ($v_size == 2) {
490   - $v_options[PCLZIP_OPT_REMOVE_PATH] = $v_arg_list[1];
491   - }
492   - else if ($v_size > 2) {
493   - // ----- Error log
494   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid number / type of arguments");
495   -
496   - // ----- Return
497   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
498   - return 0;
499   - }
500   - }
501   - }
502   -
503   - // ----- Init
504   - $v_string_list = array();
505   - $v_att_list = array();
506   - $v_filedescr_list = array();
507   - $p_result_list = array();
508   -
509   - // ----- Look if the $p_filelist is really an array
510   - if (is_array($p_filelist)) {
511   -
512   - // ----- Look if the first element is also an array
513   - // This will mean that this is a file description entry
514   - if (isset($p_filelist[0]) && is_array($p_filelist[0])) {
515   - $v_att_list = $p_filelist;
516   - }
517   -
518   - // ----- The list is a list of string names
519   - else {
520   - $v_string_list = $p_filelist;
521   - }
522   - }
523   -
524   - // ----- Look if the $p_filelist is a string
525   - else if (is_string($p_filelist)) {
526   - // ----- Create a list from the string
527   - $v_string_list = explode(PCLZIP_SEPARATOR, $p_filelist);
528   - }
529   -
530   - // ----- Invalid variable type for $p_filelist
531   - else {
532   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid variable type '".gettype($p_filelist)."' for p_filelist");
533   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
534   - return 0;
535   - }
536   -
537   - // ----- Reformat the string list
538   - if (sizeof($v_string_list) != 0) {
539   - foreach ($v_string_list as $v_string) {
540   - $v_att_list[][PCLZIP_ATT_FILE_NAME] = $v_string;
541   - }
542   - }
543   -
544   - // ----- For each file in the list check the attributes
545   - $v_supported_attributes
546   - = array ( PCLZIP_ATT_FILE_NAME => 'mandatory'
547   - ,PCLZIP_ATT_FILE_NEW_SHORT_NAME => 'optional'
548   - ,PCLZIP_ATT_FILE_NEW_FULL_NAME => 'optional'
549   - );
550   - foreach ($v_att_list as $v_entry) {
551   - $v_result = $this->privFileDescrParseAtt($v_entry,
552   - $v_filedescr_list[],
553   - $v_options,
554   - $v_supported_attributes);
555   - if ($v_result != 1) {
556   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
557   - return 0;
558   - }
559   - }
560   -
561   - // ----- Expand the filelist (expand directories)
562   - $v_result = $this->privFileDescrExpand($v_filedescr_list, $v_options);
563   - if ($v_result != 1) {
564   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
565   - return 0;
566   - }
567   -
568   - // ----- Call the create fct
569   - $v_result = $this->privAdd($v_filedescr_list, $p_result_list, $v_options);
570   - if ($v_result != 1) {
571   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
572   - return 0;
573   - }
574   -
575   - // ----- Return
576   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $p_result_list);
577   - return $p_result_list;
578   - }
579   - // --------------------------------------------------------------------------------
580   -
581   - // --------------------------------------------------------------------------------
582   - // Function : listContent()
583   - // Description :
584   - // This public method, gives the list of the files and directories, with their
585   - // properties.
586   - // The properties of each entries in the list are (used also in other functions) :
587   - // filename : Name of the file. For a create or add action it is the filename
588   - // given by the user. For an extract function it is the filename
589   - // of the extracted file.
590   - // stored_filename : Name of the file / directory stored in the archive.
591   - // size : Size of the stored file.
592   - // compressed_size : Size of the file's data compressed in the archive
593   - // (without the headers overhead)
594   - // mtime : Last known modification date of the file (UNIX timestamp)
595   - // comment : Comment associated with the file
596   - // folder : true | false
597   - // index : index of the file in the archive
598   - // status : status of the action (depending of the action) :
599   - // Values are :
600   - // ok : OK !
601   - // filtered : the file / dir is not extracted (filtered by user)
602   - // already_a_directory : the file can not be extracted because a
603   - // directory with the same name already exists
604   - // write_protected : the file can not be extracted because a file
605   - // with the same name already exists and is
606   - // write protected
607   - // newer_exist : the file was not extracted because a newer file exists
608   - // path_creation_fail : the file is not extracted because the folder
609   - // does not exists and can not be created
610   - // write_error : the file was not extracted because there was a
611   - // error while writing the file
612   - // read_error : the file was not extracted because there was a error
613   - // while reading the file
614   - // invalid_header : the file was not extracted because of an archive
615   - // format error (bad file header)
616   - // Note that each time a method can continue operating when there
617   - // is an action error on a file, the error is only logged in the file status.
618   - // Return Values :
619   - // 0 on an unrecoverable failure,
620   - // The list of the files in the archive.
621   - // --------------------------------------------------------------------------------
622   - function listContent()
623   - {
624   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, 'PclZip::listContent', "");
625   - $v_result=1;
626   -
627   - // ----- Reset the error handler
628   - $this->privErrorReset();
629   -
630   - // ----- Check archive
631   - if (!$this->privCheckFormat()) {
632   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
633   - return(0);
634   - }
635   -
636   - // ----- Call the extracting fct
637   - $p_list = array();
638   - if (($v_result = $this->privList($p_list)) != 1)
639   - {
640   - unset($p_list);
641   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0, PclZip::errorInfo());
642   - return(0);
643   - }
644   -
645   - // ----- Return
646   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $p_list);
647   - return $p_list;
648   - }
649   - // --------------------------------------------------------------------------------
650   -
651   - // --------------------------------------------------------------------------------
652   - // Function :
653   - // extract($p_path="./", $p_remove_path="")
654   - // extract([$p_option, $p_option_value, ...])
655   - // Description :
656   - // This method supports two synopsis. The first one is historical.
657   - // This method extract all the files / directories from the archive to the
658   - // folder indicated in $p_path.
659   - // If you want to ignore the 'root' part of path of the memorized files
660   - // you can indicate this in the optional $p_remove_path parameter.
661   - // By default, if a newer file with the same name already exists, the
662   - // file is not extracted.
663   - //
664   - // If both PCLZIP_OPT_PATH and PCLZIP_OPT_ADD_PATH aoptions
665   - // are used, the path indicated in PCLZIP_OPT_ADD_PATH is append
666   - // at the end of the path value of PCLZIP_OPT_PATH.
667   - // Parameters :
668   - // $p_path : Path where the files and directories are to be extracted
669   - // $p_remove_path : First part ('root' part) of the memorized path
670   - // (if any similar) to remove while extracting.
671   - // Options :
672   - // PCLZIP_OPT_PATH :
673   - // PCLZIP_OPT_ADD_PATH :
674   - // PCLZIP_OPT_REMOVE_PATH :
675   - // PCLZIP_OPT_REMOVE_ALL_PATH :
676   - // PCLZIP_CB_PRE_EXTRACT :
677   - // PCLZIP_CB_POST_EXTRACT :
678   - // Return Values :
679   - // 0 or a negative value on failure,
680   - // The list of the extracted files, with a status of the action.
681   - // (see PclZip::listContent() for list entry format)
682   - // --------------------------------------------------------------------------------
683   - function extract()
684   - {
685   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::extract", "");
686   - $v_result=1;
687   -
688   - // ----- Reset the error handler
689   - $this->privErrorReset();
690   -
691   - // ----- Check archive
692   - if (!$this->privCheckFormat()) {
693   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
694   - return(0);
695   - }
696   -
697   - // ----- Set default values
698   - $v_options = array();
699   -// $v_path = "./";
700   - $v_path = '';
701   - $v_remove_path = "";
702   - $v_remove_all_path = false;
703   -
704   - // ----- Look for variable options arguments
705   - $v_size = func_num_args();
706   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "$v_size arguments passed to the method");
707   -
708   - // ----- Default values for option
709   - $v_options[PCLZIP_OPT_EXTRACT_AS_STRING] = FALSE;
710   -
711   - // ----- Look for arguments
712   - if ($v_size > 0) {
713   - // ----- Get the arguments
714   - $v_arg_list = func_get_args();
715   -
716   - // ----- Look for first arg
717   - if ((is_integer($v_arg_list[0])) && ($v_arg_list[0] > 77000)) {
718   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Variable list of options");
719   -
720   - // ----- Parse the options
721   - $v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,
722   - array (PCLZIP_OPT_PATH => 'optional',
723   - PCLZIP_OPT_REMOVE_PATH => 'optional',
724   - PCLZIP_OPT_REMOVE_ALL_PATH => 'optional',
725   - PCLZIP_OPT_ADD_PATH => 'optional',
726   - PCLZIP_CB_PRE_EXTRACT => 'optional',
727   - PCLZIP_CB_POST_EXTRACT => 'optional',
728   - PCLZIP_OPT_SET_CHMOD => 'optional',
729   - PCLZIP_OPT_BY_NAME => 'optional',
730   - PCLZIP_OPT_BY_EREG => 'optional',
731   - PCLZIP_OPT_BY_PREG => 'optional',
732   - PCLZIP_OPT_BY_INDEX => 'optional',
733   - PCLZIP_OPT_EXTRACT_AS_STRING => 'optional',
734   - PCLZIP_OPT_EXTRACT_IN_OUTPUT => 'optional',
735   - PCLZIP_OPT_REPLACE_NEWER => 'optional'
736   - ,PCLZIP_OPT_STOP_ON_ERROR => 'optional'
737   - ,PCLZIP_OPT_EXTRACT_DIR_RESTRICTION => 'optional'
738   - ));
739   - if ($v_result != 1) {
740   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
741   - return 0;
742   - }
743   -
744   - // ----- Set the arguments
745   - if (isset($v_options[PCLZIP_OPT_PATH])) {
746   - $v_path = $v_options[PCLZIP_OPT_PATH];
747   - }
748   - if (isset($v_options[PCLZIP_OPT_REMOVE_PATH])) {
749   - $v_remove_path = $v_options[PCLZIP_OPT_REMOVE_PATH];
750   - }
751   - if (isset($v_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {
752   - $v_remove_all_path = $v_options[PCLZIP_OPT_REMOVE_ALL_PATH];
753   - }
754   - if (isset($v_options[PCLZIP_OPT_ADD_PATH])) {
755   - // ----- Check for '/' in last path char
756   - if ((strlen($v_path) > 0) && (substr($v_path, -1) != '/')) {
757   - $v_path .= '/';
758   - }
759   - $v_path .= $v_options[PCLZIP_OPT_ADD_PATH];
760   - }
761   - }
762   -
763   - // ----- Look for 2 args
764   - // Here we need to support the first historic synopsis of the
765   - // method.
766   - else {
767   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Static synopsis");
768   -
769   - // ----- Get the first argument
770   - $v_path = $v_arg_list[0];
771   -
772   - // ----- Look for the optional second argument
773   - if ($v_size == 2) {
774   - $v_remove_path = $v_arg_list[1];
775   - }
776   - else if ($v_size > 2) {
777   - // ----- Error log
778   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid number / type of arguments");
779   -
780   - // ----- Return
781   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0, PclZip::errorInfo());
782   - return 0;
783   - }
784   - }
785   - }
786   -
787   - // ----- Trace
788   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "path='$v_path', remove_path='$v_remove_path', remove_all_path='".($v_remove_path?'true':'false')."'");
789   -
790   - // ----- Call the extracting fct
791   - $p_list = array();
792   - $v_result = $this->privExtractByRule($p_list, $v_path, $v_remove_path,
793   - $v_remove_all_path, $v_options);
794   - if ($v_result < 1) {
795   - unset($p_list);
796   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0, PclZip::errorInfo());
797   - return(0);
798   - }
799   -
800   - // ----- Return
801   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $p_list);
802   - return $p_list;
803   - }
804   - // --------------------------------------------------------------------------------
805   -
806   -
807   - // --------------------------------------------------------------------------------
808   - // Function :
809   - // extractByIndex($p_index, $p_path="./", $p_remove_path="")
810   - // extractByIndex($p_index, [$p_option, $p_option_value, ...])
811   - // Description :
812   - // This method supports two synopsis. The first one is historical.
813   - // This method is doing a partial extract of the archive.
814   - // The extracted files or folders are identified by their index in the
815   - // archive (from 0 to n).
816   - // Note that if the index identify a folder, only the folder entry is
817   - // extracted, not all the files included in the archive.
818   - // Parameters :
819   - // $p_index : A single index (integer) or a string of indexes of files to
820   - // extract. The form of the string is "0,4-6,8-12" with only numbers
821   - // and '-' for range or ',' to separate ranges. No spaces or ';'
822   - // are allowed.
823   - // $p_path : Path where the files and directories are to be extracted
824   - // $p_remove_path : First part ('root' part) of the memorized path
825   - // (if any similar) to remove while extracting.
826   - // Options :
827   - // PCLZIP_OPT_PATH :
828   - // PCLZIP_OPT_ADD_PATH :
829   - // PCLZIP_OPT_REMOVE_PATH :
830   - // PCLZIP_OPT_REMOVE_ALL_PATH :
831   - // PCLZIP_OPT_EXTRACT_AS_STRING : The files are extracted as strings and
832   - // not as files.
833   - // The resulting content is in a new field 'content' in the file
834   - // structure.
835   - // This option must be used alone (any other options are ignored).
836   - // PCLZIP_CB_PRE_EXTRACT :
837   - // PCLZIP_CB_POST_EXTRACT :
838   - // Return Values :
839   - // 0 on failure,
840   - // The list of the extracted files, with a status of the action.
841   - // (see PclZip::listContent() for list entry format)
842   - // --------------------------------------------------------------------------------
843   - //function extractByIndex($p_index, options...)
844   - function extractByIndex($p_index)
845   - {
846   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::extractByIndex", "index='$p_index', ...");
847   - $v_result=1;
848   -
849   - // ----- Reset the error handler
850   - $this->privErrorReset();
851   -
852   - // ----- Check archive
853   - if (!$this->privCheckFormat()) {
854   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
855   - return(0);
856   - }
857   -
858   - // ----- Set default values
859   - $v_options = array();
860   -// $v_path = "./";
861   - $v_path = '';
862   - $v_remove_path = "";
863   - $v_remove_all_path = false;
864   -
865   - // ----- Look for variable options arguments
866   - $v_size = func_num_args();
867   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "$v_size arguments passed to the method");
868   -
869   - // ----- Default values for option
870   - $v_options[PCLZIP_OPT_EXTRACT_AS_STRING] = FALSE;
871   -
872   - // ----- Look for arguments
873   - if ($v_size > 1) {
874   - // ----- Get the arguments
875   - $v_arg_list = func_get_args();
876   -
877   - // ----- Remove form the options list the first argument
878   - array_shift($v_arg_list);
879   - $v_size--;
880   -
881   - // ----- Look for first arg
882   - if ((is_integer($v_arg_list[0])) && ($v_arg_list[0] > 77000)) {
883   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Variable list of options");
884   -
885   - // ----- Parse the options
886   - $v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,
887   - array (PCLZIP_OPT_PATH => 'optional',
888   - PCLZIP_OPT_REMOVE_PATH => 'optional',
889   - PCLZIP_OPT_REMOVE_ALL_PATH => 'optional',
890   - PCLZIP_OPT_EXTRACT_AS_STRING => 'optional',
891   - PCLZIP_OPT_ADD_PATH => 'optional',
892   - PCLZIP_CB_PRE_EXTRACT => 'optional',
893   - PCLZIP_CB_POST_EXTRACT => 'optional',
894   - PCLZIP_OPT_SET_CHMOD => 'optional',
895   - PCLZIP_OPT_REPLACE_NEWER => 'optional'
896   - ,PCLZIP_OPT_STOP_ON_ERROR => 'optional'
897   - ,PCLZIP_OPT_EXTRACT_DIR_RESTRICTION => 'optional'
898   - ));
899   - if ($v_result != 1) {
900   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
901   - return 0;
902   - }
903   -
904   - // ----- Set the arguments
905   - if (isset($v_options[PCLZIP_OPT_PATH])) {
906   - $v_path = $v_options[PCLZIP_OPT_PATH];
907   - }
908   - if (isset($v_options[PCLZIP_OPT_REMOVE_PATH])) {
909   - $v_remove_path = $v_options[PCLZIP_OPT_REMOVE_PATH];
910   - }
911   - if (isset($v_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {
912   - $v_remove_all_path = $v_options[PCLZIP_OPT_REMOVE_ALL_PATH];
913   - }
914   - if (isset($v_options[PCLZIP_OPT_ADD_PATH])) {
915   - // ----- Check for '/' in last path char
916   - if ((strlen($v_path) > 0) && (substr($v_path, -1) != '/')) {
917   - $v_path .= '/';
918   - }
919   - $v_path .= $v_options[PCLZIP_OPT_ADD_PATH];
920   - }
921   - if (!isset($v_options[PCLZIP_OPT_EXTRACT_AS_STRING])) {
922   - $v_options[PCLZIP_OPT_EXTRACT_AS_STRING] = FALSE;
923   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Option PCLZIP_OPT_EXTRACT_AS_STRING not set.");
924   - }
925   - else {
926   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Option PCLZIP_OPT_EXTRACT_AS_STRING set.");
927   - }
928   - }
929   -
930   - // ----- Look for 2 args
931   - // Here we need to support the first historic synopsis of the
932   - // method.
933   - else {
934   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Static synopsis");
935   -
936   - // ----- Get the first argument
937   - $v_path = $v_arg_list[0];
938   -
939   - // ----- Look for the optional second argument
940   - if ($v_size == 2) {
941   - $v_remove_path = $v_arg_list[1];
942   - }
943   - else if ($v_size > 2) {
944   - // ----- Error log
945   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid number / type of arguments");
946   -
947   - // ----- Return
948   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
949   - return 0;
950   - }
951   - }
952   - }
953   -
954   - // ----- Trace
955   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "index='$p_index', path='$v_path', remove_path='$v_remove_path', remove_all_path='".($v_remove_path?'true':'false')."'");
956   -
957   - // ----- Trick
958   - // Here I want to reuse extractByRule(), so I need to parse the $p_index
959   - // with privParseOptions()
960   - $v_arg_trick = array (PCLZIP_OPT_BY_INDEX, $p_index);
961   - $v_options_trick = array();
962   - $v_result = $this->privParseOptions($v_arg_trick, sizeof($v_arg_trick), $v_options_trick,
963   - array (PCLZIP_OPT_BY_INDEX => 'optional' ));
964   - if ($v_result != 1) {
965   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
966   - return 0;
967   - }
968   - $v_options[PCLZIP_OPT_BY_INDEX] = $v_options_trick[PCLZIP_OPT_BY_INDEX];
969   -
970   - // ----- Call the extracting fct
971   - if (($v_result = $this->privExtractByRule($p_list, $v_path, $v_remove_path, $v_remove_all_path, $v_options)) < 1) {
972   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0, PclZip::errorInfo());
973   - return(0);
974   - }
975   -
976   - // ----- Return
977   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $p_list);
978   - return $p_list;
979   - }
980   - // --------------------------------------------------------------------------------
981   -
982   - // --------------------------------------------------------------------------------
983   - // Function :
984   - // delete([$p_option, $p_option_value, ...])
985   - // Description :
986   - // This method removes files from the archive.
987   - // If no parameters are given, then all the archive is emptied.
988   - // Parameters :
989   - // None or optional arguments.
990   - // Options :
991   - // PCLZIP_OPT_BY_INDEX :
992   - // PCLZIP_OPT_BY_NAME :
993   - // PCLZIP_OPT_BY_EREG :
994   - // PCLZIP_OPT_BY_PREG :
995   - // Return Values :
996   - // 0 on failure,
997   - // The list of the files which are still present in the archive.
998   - // (see PclZip::listContent() for list entry format)
999   - // --------------------------------------------------------------------------------
1000   - function delete()
1001   - {
1002   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::delete", "");
1003   - $v_result=1;
1004   -
1005   - // ----- Reset the error handler
1006   - $this->privErrorReset();
1007   -
1008   - // ----- Check archive
1009   - if (!$this->privCheckFormat()) {
1010   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
1011   - return(0);
1012   - }
1013   -
1014   - // ----- Set default values
1015   - $v_options = array();
1016   -
1017   - // ----- Look for variable options arguments
1018   - $v_size = func_num_args();
1019   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "$v_size arguments passed to the method");
1020   -
1021   - // ----- Look for arguments
1022   - if ($v_size > 0) {
1023   - // ----- Get the arguments
1024   - $v_arg_list = func_get_args();
1025   -
1026   - // ----- Parse the options
1027   - $v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,
1028   - array (PCLZIP_OPT_BY_NAME => 'optional',
1029   - PCLZIP_OPT_BY_EREG => 'optional',
1030   - PCLZIP_OPT_BY_PREG => 'optional',
1031   - PCLZIP_OPT_BY_INDEX => 'optional' ));
1032   - if ($v_result != 1) {
1033   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
1034   - return 0;
1035   - }
1036   - }
1037   -
1038   - // ----- Magic quotes trick
1039   - $this->privDisableMagicQuotes();
1040   -
1041   - // ----- Call the delete fct
1042   - $v_list = array();
1043   - if (($v_result = $this->privDeleteByRule($v_list, $v_options)) != 1) {
1044   - $this->privSwapBackMagicQuotes();
1045   - unset($v_list);
1046   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0, PclZip::errorInfo());
1047   - return(0);
1048   - }
1049   -
1050   - // ----- Magic quotes trick
1051   - $this->privSwapBackMagicQuotes();
1052   -
1053   - // ----- Return
1054   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_list);
1055   - return $v_list;
1056   - }
1057   - // --------------------------------------------------------------------------------
1058   -
1059   - // --------------------------------------------------------------------------------
1060   - // Function : deleteByIndex()
1061   - // Description :
1062   - // ***** Deprecated *****
1063   - // delete(PCLZIP_OPT_BY_INDEX, $p_index) should be prefered.
1064   - // --------------------------------------------------------------------------------
1065   - function deleteByIndex($p_index)
1066   - {
1067   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::deleteByIndex", "index='$p_index'");
1068   -
1069   - $p_list = $this->delete(PCLZIP_OPT_BY_INDEX, $p_index);
1070   -
1071   - // ----- Return
1072   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $p_list);
1073   - return $p_list;
1074   - }
1075   - // --------------------------------------------------------------------------------
1076   -
1077   - // --------------------------------------------------------------------------------
1078   - // Function : properties()
1079   - // Description :
1080   - // This method gives the properties of the archive.
1081   - // The properties are :
1082   - // nb : Number of files in the archive
1083   - // comment : Comment associated with the archive file
1084   - // status : not_exist, ok
1085   - // Parameters :
1086   - // None
1087   - // Return Values :
1088   - // 0 on failure,
1089   - // An array with the archive properties.
1090   - // --------------------------------------------------------------------------------
1091   - function properties()
1092   - {
1093   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::properties", "");
1094   -
1095   - // ----- Reset the error handler
1096   - $this->privErrorReset();
1097   -
1098   - // ----- Magic quotes trick
1099   - $this->privDisableMagicQuotes();
1100   -
1101   - // ----- Check archive
1102   - if (!$this->privCheckFormat()) {
1103   - $this->privSwapBackMagicQuotes();
1104   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
1105   - return(0);
1106   - }
1107   -
1108   - // ----- Default properties
1109   - $v_prop = array();
1110   - $v_prop['comment'] = '';
1111   - $v_prop['nb'] = 0;
1112   - $v_prop['status'] = 'not_exist';
1113   -
1114   - // ----- Look if file exists
1115   - if (@is_file($this->zipname))
1116   - {
1117   - // ----- Open the zip file
1118   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open file in binary read mode");
1119   - if (($this->zip_fd = @fopen($this->zipname, 'rb')) == 0)
1120   - {
1121   - $this->privSwapBackMagicQuotes();
1122   -
1123   - // ----- Error log
1124   - PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open archive \''.$this->zipname.'\' in binary read mode');
1125   -
1126   - // ----- Return
1127   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), 0);
1128   - return 0;
1129   - }
1130   -
1131   - // ----- Read the central directory informations
1132   - $v_central_dir = array();
1133   - if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1)
1134   - {
1135   - $this->privSwapBackMagicQuotes();
1136   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
1137   - return 0;
1138   - }
1139   -
1140   - // ----- Close the zip file
1141   - $this->privCloseFd();
1142   -
1143   - // ----- Set the user attributes
1144   - $v_prop['comment'] = $v_central_dir['comment'];
1145   - $v_prop['nb'] = $v_central_dir['entries'];
1146   - $v_prop['status'] = 'ok';
1147   - }
1148   -
1149   - // ----- Magic quotes trick
1150   - $this->privSwapBackMagicQuotes();
1151   -
1152   - // ----- Return
1153   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_prop);
1154   - return $v_prop;
1155   - }
1156   - // --------------------------------------------------------------------------------
1157   -
1158   - // --------------------------------------------------------------------------------
1159   - // Function : duplicate()
1160   - // Description :
1161   - // This method creates an archive by copying the content of an other one. If
1162   - // the archive already exist, it is replaced by the new one without any warning.
1163   - // Parameters :
1164   - // $p_archive : The filename of a valid archive, or
1165   - // a valid PclZip object.
1166   - // Return Values :
1167   - // 1 on success.
1168   - // 0 or a negative value on error (error code).
1169   - // --------------------------------------------------------------------------------
1170   - function duplicate($p_archive)
1171   - {
1172   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::duplicate", "");
1173   - $v_result = 1;
1174   -
1175   - // ----- Reset the error handler
1176   - $this->privErrorReset();
1177   -
1178   - // ----- Look if the $p_archive is a PclZip object
1179   - if ((is_object($p_archive)) && (get_class($p_archive) == 'pclzip'))
1180   - {
1181   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "The parameter is valid PclZip object '".$p_archive->zipname."'");
1182   -
1183   - // ----- Duplicate the archive
1184   - $v_result = $this->privDuplicate($p_archive->zipname);
1185   - }
1186   -
1187   - // ----- Look if the $p_archive is a string (so a filename)
1188   - else if (is_string($p_archive))
1189   - {
1190   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "The parameter is a filename '$p_archive'");
1191   -
1192   - // ----- Check that $p_archive is a valid zip file
1193   - // TBC : Should also check the archive format
1194   - if (!is_file($p_archive)) {
1195   - // ----- Error log
1196   - PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, "No file with filename '".$p_archive."'");
1197   - $v_result = PCLZIP_ERR_MISSING_FILE;
1198   - }
1199   - else {
1200   - // ----- Duplicate the archive
1201   - $v_result = $this->privDuplicate($p_archive);
1202   - }
1203   - }
1204   -
1205   - // ----- Invalid variable
1206   - else
1207   - {
1208   - // ----- Error log
1209   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid variable type p_archive_to_add");
1210   - $v_result = PCLZIP_ERR_INVALID_PARAMETER;
1211   - }
1212   -
1213   - // ----- Return
1214   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
1215   - return $v_result;
1216   - }
1217   - // --------------------------------------------------------------------------------
1218   -
1219   - // --------------------------------------------------------------------------------
1220   - // Function : merge()
1221   - // Description :
1222   - // This method merge the $p_archive_to_add archive at the end of the current
1223   - // one ($this).
1224   - // If the archive ($this) does not exist, the merge becomes a duplicate.
1225   - // If the $p_archive_to_add archive does not exist, the merge is a success.
1226   - // Parameters :
1227   - // $p_archive_to_add : It can be directly the filename of a valid zip archive,
1228   - // or a PclZip object archive.
1229   - // Return Values :
1230   - // 1 on success,
1231   - // 0 or negative values on error (see below).
1232   - // --------------------------------------------------------------------------------
1233   - function merge($p_archive_to_add)
1234   - {
1235   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::merge", "");
1236   - $v_result = 1;
1237   -
1238   - // ----- Reset the error handler
1239   - $this->privErrorReset();
1240   -
1241   - // ----- Check archive
1242   - if (!$this->privCheckFormat()) {
1243   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
1244   - return(0);
1245   - }
1246   -
1247   - // ----- Look if the $p_archive_to_add is a PclZip object
1248   - if ((is_object($p_archive_to_add)) && (get_class($p_archive_to_add) == 'pclzip'))
1249   - {
1250   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "The parameter is valid PclZip object");
1251   -
1252   - // ----- Merge the archive
1253   - $v_result = $this->privMerge($p_archive_to_add);
1254   - }
1255   -
1256   - // ----- Look if the $p_archive_to_add is a string (so a filename)
1257   - else if (is_string($p_archive_to_add))
1258   - {
1259   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "The parameter is a filename");
1260   -
1261   - // ----- Create a temporary archive
1262   - $v_object_archive = new PclZip($p_archive_to_add);
1263   -
1264   - // ----- Merge the archive
1265   - $v_result = $this->privMerge($v_object_archive);
1266   - }
1267   -
1268   - // ----- Invalid variable
1269   - else
1270   - {
1271   - // ----- Error log
1272   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid variable type p_archive_to_add");
1273   - $v_result = PCLZIP_ERR_INVALID_PARAMETER;
1274   - }
1275   -
1276   - // ----- Return
1277   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
1278   - return $v_result;
1279   - }
1280   - // --------------------------------------------------------------------------------
1281   -
1282   -
1283   -
1284   - // --------------------------------------------------------------------------------
1285   - // Function : errorCode()
1286   - // Description :
1287   - // Parameters :
1288   - // --------------------------------------------------------------------------------
1289   - function errorCode()
1290   - {
1291   - if (PCLZIP_ERROR_EXTERNAL == 1) {
1292   - return(PclErrorCode());
1293   - }
1294   - else {
1295   - return($this->error_code);
1296   - }
1297   - }
1298   - // --------------------------------------------------------------------------------
1299   -
1300   - // --------------------------------------------------------------------------------
1301   - // Function : errorName()
1302   - // Description :
1303   - // Parameters :
1304   - // --------------------------------------------------------------------------------
1305   - function errorName($p_with_code=false)
1306   - {
1307   - $v_name = array ( PCLZIP_ERR_NO_ERROR => 'PCLZIP_ERR_NO_ERROR',
1308   - PCLZIP_ERR_WRITE_OPEN_FAIL => 'PCLZIP_ERR_WRITE_OPEN_FAIL',
1309   - PCLZIP_ERR_READ_OPEN_FAIL => 'PCLZIP_ERR_READ_OPEN_FAIL',
1310   - PCLZIP_ERR_INVALID_PARAMETER => 'PCLZIP_ERR_INVALID_PARAMETER',
1311   - PCLZIP_ERR_MISSING_FILE => 'PCLZIP_ERR_MISSING_FILE',
1312   - PCLZIP_ERR_FILENAME_TOO_LONG => 'PCLZIP_ERR_FILENAME_TOO_LONG',
1313   - PCLZIP_ERR_INVALID_ZIP => 'PCLZIP_ERR_INVALID_ZIP',
1314   - PCLZIP_ERR_BAD_EXTRACTED_FILE => 'PCLZIP_ERR_BAD_EXTRACTED_FILE',
1315   - PCLZIP_ERR_DIR_CREATE_FAIL => 'PCLZIP_ERR_DIR_CREATE_FAIL',
1316   - PCLZIP_ERR_BAD_EXTENSION => 'PCLZIP_ERR_BAD_EXTENSION',
1317   - PCLZIP_ERR_BAD_FORMAT => 'PCLZIP_ERR_BAD_FORMAT',
1318   - PCLZIP_ERR_DELETE_FILE_FAIL => 'PCLZIP_ERR_DELETE_FILE_FAIL',
1319   - PCLZIP_ERR_RENAME_FILE_FAIL => 'PCLZIP_ERR_RENAME_FILE_FAIL',
1320   - PCLZIP_ERR_BAD_CHECKSUM => 'PCLZIP_ERR_BAD_CHECKSUM',
1321   - PCLZIP_ERR_INVALID_ARCHIVE_ZIP => 'PCLZIP_ERR_INVALID_ARCHIVE_ZIP',
1322   - PCLZIP_ERR_MISSING_OPTION_VALUE => 'PCLZIP_ERR_MISSING_OPTION_VALUE',
1323   - PCLZIP_ERR_INVALID_OPTION_VALUE => 'PCLZIP_ERR_INVALID_OPTION_VALUE',
1324   - PCLZIP_ERR_UNSUPPORTED_COMPRESSION => 'PCLZIP_ERR_UNSUPPORTED_COMPRESSION',
1325   - PCLZIP_ERR_UNSUPPORTED_ENCRYPTION => 'PCLZIP_ERR_UNSUPPORTED_ENCRYPTION'
1326   - ,PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE => 'PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE'
1327   - ,PCLZIP_ERR_DIRECTORY_RESTRICTION => 'PCLZIP_ERR_DIRECTORY_RESTRICTION'
1328   - );
1329   -
1330   - if (isset($v_name[$this->error_code])) {
1331   - $v_value = $v_name[$this->error_code];
1332   - }
1333   - else {
1334   - $v_value = 'NoName';
1335   - }
1336   -
1337   - if ($p_with_code) {
1338   - return($v_value.' ('.$this->error_code.')');
1339   - }
1340   - else {
1341   - return($v_value);
1342   - }
1343   - }
1344   - // --------------------------------------------------------------------------------
1345   -
1346   - // --------------------------------------------------------------------------------
1347   - // Function : errorInfo()
1348   - // Description :
1349   - // Parameters :
1350   - // --------------------------------------------------------------------------------
1351   - function errorInfo($p_full=false)
1352   - {
1353   - if (PCLZIP_ERROR_EXTERNAL == 1) {
1354   - return(PclErrorString());
1355   - }
1356   - else {
1357   - if ($p_full) {
1358   - return($this->errorName(true)." : ".$this->error_string);
1359   - }
1360   - else {
1361   - return($this->error_string." [code ".$this->error_code."]");
1362   - }
1363   - }
1364   - }
1365   - // --------------------------------------------------------------------------------
1366   -
1367   -
1368   -// --------------------------------------------------------------------------------
1369   -// ***** UNDER THIS LINE ARE DEFINED PRIVATE INTERNAL FUNCTIONS *****
1370   -// ***** *****
1371   -// ***** THESES FUNCTIONS MUST NOT BE USED DIRECTLY *****
1372   -// --------------------------------------------------------------------------------
1373   -
1374   -
1375   -
1376   - // --------------------------------------------------------------------------------
1377   - // Function : privCheckFormat()
1378   - // Description :
1379   - // This method check that the archive exists and is a valid zip archive.
1380   - // Several level of check exists. (futur)
1381   - // Parameters :
1382   - // $p_level : Level of check. Default 0.
1383   - // 0 : Check the first bytes (magic codes) (default value))
1384   - // 1 : 0 + Check the central directory (futur)
1385   - // 2 : 1 + Check each file header (futur)
1386   - // Return Values :
1387   - // true on success,
1388   - // false on error, the error code is set.
1389   - // --------------------------------------------------------------------------------
1390   - function privCheckFormat($p_level=0)
1391   - {
1392   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privCheckFormat", "");
1393   - $v_result = true;
1394   -
1395   - // ----- Reset the file system cache
1396   - clearstatcache();
1397   -
1398   - // ----- Reset the error handler
1399   - $this->privErrorReset();
1400   -
1401   - // ----- Look if the file exits
1402   - if (!is_file($this->zipname)) {
1403   - // ----- Error log
1404   - PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, "Missing archive file '".$this->zipname."'");
1405   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, false, PclZip::errorInfo());
1406   - return(false);
1407   - }
1408   -
1409   - // ----- Check that the file is readeable
1410   - if (!is_readable($this->zipname)) {
1411   - // ----- Error log
1412   - PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, "Unable to read archive '".$this->zipname."'");
1413   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, false, PclZip::errorInfo());
1414   - return(false);
1415   - }
1416   -
1417   - // ----- Check the magic code
1418   - // TBC
1419   -
1420   - // ----- Check the central header
1421   - // TBC
1422   -
1423   - // ----- Check each file header
1424   - // TBC
1425   -
1426   - // ----- Return
1427   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
1428   - return $v_result;
1429   - }
1430   - // --------------------------------------------------------------------------------
1431   -
1432   - // --------------------------------------------------------------------------------
1433   - // Function : privParseOptions()
1434   - // Description :
1435   - // This internal methods reads the variable list of arguments ($p_options_list,
1436   - // $p_size) and generate an array with the options and values ($v_result_list).
1437   - // $v_requested_options contains the options that can be present and those that
1438   - // must be present.
1439   - // $v_requested_options is an array, with the option value as key, and 'optional',
1440   - // or 'mandatory' as value.
1441   - // Parameters :
1442   - // See above.
1443   - // Return Values :
1444   - // 1 on success.
1445   - // 0 on failure.
1446   - // --------------------------------------------------------------------------------
1447   - function privParseOptions(&$p_options_list, $p_size, &$v_result_list, $v_requested_options=false)
1448   - {
1449   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privParseOptions", "");
1450   - $v_result=1;
1451   -
1452   - // ----- Read the options
1453   - $i=0;
1454   - while ($i<$p_size) {
1455   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Looking for table index $i, option = '".PclZipUtilOptionText($p_options_list[$i])."(".$p_options_list[$i].")'");
1456   -
1457   - // ----- Check if the option is supported
1458   - if (!isset($v_requested_options[$p_options_list[$i]])) {
1459   - // ----- Error log
1460   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid optional parameter '".$p_options_list[$i]."' for this method");
1461   -
1462   - // ----- Return
1463   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1464   - return PclZip::errorCode();
1465   - }
1466   -
1467   - // ----- Look for next option
1468   - switch ($p_options_list[$i]) {
1469   - // ----- Look for options that request a path value
1470   - case PCLZIP_OPT_PATH :
1471   - case PCLZIP_OPT_REMOVE_PATH :
1472   - case PCLZIP_OPT_ADD_PATH :
1473   - // ----- Check the number of parameters
1474   - if (($i+1) >= $p_size) {
1475   - // ----- Error log
1476   - PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
1477   -
1478   - // ----- Return
1479   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1480   - return PclZip::errorCode();
1481   - }
1482   -
1483   - // ----- Get the value
1484   - $v_result_list[$p_options_list[$i]] = PclZipUtilTranslateWinPath($p_options_list[$i+1], false);
1485   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "".PclZipUtilOptionText($p_options_list[$i])." = '".$v_result_list[$p_options_list[$i]]."'");
1486   - $i++;
1487   - break;
1488   -
1489   - case PCLZIP_OPT_EXTRACT_DIR_RESTRICTION :
1490   - // ----- Check the number of parameters
1491   - if (($i+1) >= $p_size) {
1492   - // ----- Error log
1493   - PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
1494   -
1495   - // ----- Return
1496   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1497   - return PclZip::errorCode();
1498   - }
1499   -
1500   - // ----- Get the value
1501   - if ( is_string($p_options_list[$i+1])
1502   - && ($p_options_list[$i+1] != '')) {
1503   - $v_result_list[$p_options_list[$i]] = PclZipUtilTranslateWinPath($p_options_list[$i+1], false);
1504   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "".PclZipUtilOptionText($p_options_list[$i])." = '".$v_result_list[$p_options_list[$i]]."'");
1505   - $i++;
1506   - }
1507   - else {
1508   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "".PclZipUtilOptionText($p_options_list[$i])." set with an empty value is ignored.");
1509   - }
1510   - break;
1511   -
1512   - // ----- Look for options that request an array of string for value
1513   - case PCLZIP_OPT_BY_NAME :
1514   - // ----- Check the number of parameters
1515   - if (($i+1) >= $p_size) {
1516   - // ----- Error log
1517   - PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
1518   -
1519   - // ----- Return
1520   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1521   - return PclZip::errorCode();
1522   - }
1523   -
1524   - // ----- Get the value
1525   - if (is_string($p_options_list[$i+1])) {
1526   - $v_result_list[$p_options_list[$i]][0] = $p_options_list[$i+1];
1527   - }
1528   - else if (is_array($p_options_list[$i+1])) {
1529   - $v_result_list[$p_options_list[$i]] = $p_options_list[$i+1];
1530   - }
1531   - else {
1532   - // ----- Error log
1533   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Wrong parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
1534   -
1535   - // ----- Return
1536   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1537   - return PclZip::errorCode();
1538   - }
1539   - ////--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "".PclZipUtilOptionText($p_options_list[$i])." = '".$v_result_list[$p_options_list[$i]]."'");
1540   - $i++;
1541   - break;
1542   -
1543   - // ----- Look for options that request an EREG or PREG expression
1544   - case PCLZIP_OPT_BY_EREG :
1545   - case PCLZIP_OPT_BY_PREG :
1546   - //case PCLZIP_OPT_CRYPT :
1547   - // ----- Check the number of parameters
1548   - if (($i+1) >= $p_size) {
1549   - // ----- Error log
1550   - PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
1551   -
1552   - // ----- Return
1553   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1554   - return PclZip::errorCode();
1555   - }
1556   -
1557   - // ----- Get the value
1558   - if (is_string($p_options_list[$i+1])) {
1559   - $v_result_list[$p_options_list[$i]] = $p_options_list[$i+1];
1560   - }
1561   - else {
1562   - // ----- Error log
1563   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Wrong parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
1564   -
1565   - // ----- Return
1566   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1567   - return PclZip::errorCode();
1568   - }
1569   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "".PclZipUtilOptionText($p_options_list[$i])." = '".$v_result_list[$p_options_list[$i]]."'");
1570   - $i++;
1571   - break;
1572   -
1573   - // ----- Look for options that takes a string
1574   - case PCLZIP_OPT_COMMENT :
1575   - case PCLZIP_OPT_ADD_COMMENT :
1576   - case PCLZIP_OPT_PREPEND_COMMENT :
1577   - // ----- Check the number of parameters
1578   - if (($i+1) >= $p_size) {
1579   - // ----- Error log
1580   - PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE,
1581   - "Missing parameter value for option '"
1582   - .PclZipUtilOptionText($p_options_list[$i])
1583   - ."'");
1584   -
1585   - // ----- Return
1586   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1587   - return PclZip::errorCode();
1588   - }
1589   -
1590   - // ----- Get the value
1591   - if (is_string($p_options_list[$i+1])) {
1592   - $v_result_list[$p_options_list[$i]] = $p_options_list[$i+1];
1593   - }
1594   - else {
1595   - // ----- Error log
1596   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE,
1597   - "Wrong parameter value for option '"
1598   - .PclZipUtilOptionText($p_options_list[$i])
1599   - ."'");
1600   -
1601   - // ----- Return
1602   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1603   - return PclZip::errorCode();
1604   - }
1605   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "".PclZipUtilOptionText($p_options_list[$i])." = '".$v_result_list[$p_options_list[$i]]."'");
1606   - $i++;
1607   - break;
1608   -
1609   - // ----- Look for options that request an array of index
1610   - case PCLZIP_OPT_BY_INDEX :
1611   - // ----- Check the number of parameters
1612   - if (($i+1) >= $p_size) {
1613   - // ----- Error log
1614   - PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
1615   -
1616   - // ----- Return
1617   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1618   - return PclZip::errorCode();
1619   - }
1620   -
1621   - // ----- Get the value
1622   - $v_work_list = array();
1623   - if (is_string($p_options_list[$i+1])) {
1624   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Index value is a string '".$p_options_list[$i+1]."'");
1625   -
1626   - // ----- Remove spaces
1627   - $p_options_list[$i+1] = strtr($p_options_list[$i+1], ' ', '');
1628   -
1629   - // ----- Parse items
1630   - $v_work_list = explode(",", $p_options_list[$i+1]);
1631   - }
1632   - else if (is_integer($p_options_list[$i+1])) {
1633   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Index value is an integer '".$p_options_list[$i+1]."'");
1634   - $v_work_list[0] = $p_options_list[$i+1].'-'.$p_options_list[$i+1];
1635   - }
1636   - else if (is_array($p_options_list[$i+1])) {
1637   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Index value is an array");
1638   - $v_work_list = $p_options_list[$i+1];
1639   - }
1640   - else {
1641   - // ----- Error log
1642   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Value must be integer, string or array for option '".PclZipUtilOptionText($p_options_list[$i])."'");
1643   -
1644   - // ----- Return
1645   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1646   - return PclZip::errorCode();
1647   - }
1648   -
1649   - // ----- Reduce the index list
1650   - // each index item in the list must be a couple with a start and
1651   - // an end value : [0,3], [5-5], [8-10], ...
1652   - // ----- Check the format of each item
1653   - $v_sort_flag=false;
1654   - $v_sort_value=0;
1655   - for ($j=0; $j<sizeof($v_work_list); $j++) {
1656   - // ----- Explode the item
1657   - $v_item_list = explode("-", $v_work_list[$j]);
1658   - $v_size_item_list = sizeof($v_item_list);
1659   -
1660   - // ----- TBC : Here we might check that each item is a
1661   - // real integer ...
1662   -
1663   - // ----- Look for single value
1664   - if ($v_size_item_list == 1) {
1665   - // ----- Set the option value
1666   - $v_result_list[$p_options_list[$i]][$j]['start'] = $v_item_list[0];
1667   - $v_result_list[$p_options_list[$i]][$j]['end'] = $v_item_list[0];
1668   - }
1669   - elseif ($v_size_item_list == 2) {
1670   - // ----- Set the option value
1671   - $v_result_list[$p_options_list[$i]][$j]['start'] = $v_item_list[0];
1672   - $v_result_list[$p_options_list[$i]][$j]['end'] = $v_item_list[1];
1673   - }
1674   - else {
1675   - // ----- Error log
1676   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Too many values in index range for option '".PclZipUtilOptionText($p_options_list[$i])."'");
1677   -
1678   - // ----- Return
1679   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1680   - return PclZip::errorCode();
1681   - }
1682   -
1683   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Extracted index item = [".$v_result_list[$p_options_list[$i]][$j]['start'].",".$v_result_list[$p_options_list[$i]][$j]['end']."]");
1684   -
1685   - // ----- Look for list sort
1686   - if ($v_result_list[$p_options_list[$i]][$j]['start'] < $v_sort_value) {
1687   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "The list should be sorted ...");
1688   - $v_sort_flag=true;
1689   -
1690   - // ----- TBC : An automatic sort should be writen ...
1691   - // ----- Error log
1692   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Invalid order of index range for option '".PclZipUtilOptionText($p_options_list[$i])."'");
1693   -
1694   - // ----- Return
1695   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1696   - return PclZip::errorCode();
1697   - }
1698   - $v_sort_value = $v_result_list[$p_options_list[$i]][$j]['start'];
1699   - }
1700   -
1701   - // ----- Sort the items
1702   - if ($v_sort_flag) {
1703   - // TBC : To Be Completed
1704   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "List sorting is not yet write ...");
1705   - }
1706   -
1707   - // ----- Next option
1708   - $i++;
1709   - break;
1710   -
1711   - // ----- Look for options that request no value
1712   - case PCLZIP_OPT_REMOVE_ALL_PATH :
1713   - case PCLZIP_OPT_EXTRACT_AS_STRING :
1714   - case PCLZIP_OPT_NO_COMPRESSION :
1715   - case PCLZIP_OPT_EXTRACT_IN_OUTPUT :
1716   - case PCLZIP_OPT_REPLACE_NEWER :
1717   - case PCLZIP_OPT_STOP_ON_ERROR :
1718   - $v_result_list[$p_options_list[$i]] = true;
1719   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "".PclZipUtilOptionText($p_options_list[$i])." = '".$v_result_list[$p_options_list[$i]]."'");
1720   - break;
1721   -
1722   - // ----- Look for options that request an octal value
1723   - case PCLZIP_OPT_SET_CHMOD :
1724   - // ----- Check the number of parameters
1725   - if (($i+1) >= $p_size) {
1726   - // ----- Error log
1727   - PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
1728   -
1729   - // ----- Return
1730   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1731   - return PclZip::errorCode();
1732   - }
1733   -
1734   - // ----- Get the value
1735   - $v_result_list[$p_options_list[$i]] = $p_options_list[$i+1];
1736   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "".PclZipUtilOptionText($p_options_list[$i])." = '".$v_result_list[$p_options_list[$i]]."'");
1737   - $i++;
1738   - break;
1739   -
1740   - // ----- Look for options that request a call-back
1741   - case PCLZIP_CB_PRE_EXTRACT :
1742   - case PCLZIP_CB_POST_EXTRACT :
1743   - case PCLZIP_CB_PRE_ADD :
1744   - case PCLZIP_CB_POST_ADD :
1745   - /* for futur use
1746   - case PCLZIP_CB_PRE_DELETE :
1747   - case PCLZIP_CB_POST_DELETE :
1748   - case PCLZIP_CB_PRE_LIST :
1749   - case PCLZIP_CB_POST_LIST :
1750   - */
1751   - // ----- Check the number of parameters
1752   - if (($i+1) >= $p_size) {
1753   - // ----- Error log
1754   - PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
1755   -
1756   - // ----- Return
1757   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1758   - return PclZip::errorCode();
1759   - }
1760   -
1761   - // ----- Get the value
1762   - $v_function_name = $p_options_list[$i+1];
1763   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "call-back ".PclZipUtilOptionText($p_options_list[$i])." = '".$v_function_name."'");
1764   -
1765   - // ----- Check that the value is a valid existing function
1766   - if (!function_exists($v_function_name)) {
1767   - // ----- Error log
1768   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Function '".$v_function_name."()' is not an existing function for option '".PclZipUtilOptionText($p_options_list[$i])."'");
1769   -
1770   - // ----- Return
1771   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1772   - return PclZip::errorCode();
1773   - }
1774   -
1775   - // ----- Set the attribute
1776   - $v_result_list[$p_options_list[$i]] = $v_function_name;
1777   - $i++;
1778   - break;
1779   -
1780   - default :
1781   - // ----- Error log
1782   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER,
1783   - "Unknown parameter '"
1784   - .$p_options_list[$i]."'");
1785   -
1786   - // ----- Return
1787   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1788   - return PclZip::errorCode();
1789   - }
1790   -
1791   - // ----- Next options
1792   - $i++;
1793   - }
1794   -
1795   - // ----- Look for mandatory options
1796   - if ($v_requested_options !== false) {
1797   - for ($key=reset($v_requested_options); $key=key($v_requested_options); $key=next($v_requested_options)) {
1798   - // ----- Look for mandatory option
1799   - if ($v_requested_options[$key] == 'mandatory') {
1800   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Detect a mandatory option : ".PclZipUtilOptionText($key)."(".$key.")");
1801   - // ----- Look if present
1802   - if (!isset($v_result_list[$key])) {
1803   - // ----- Error log
1804   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Missing mandatory parameter ".PclZipUtilOptionText($key)."(".$key.")");
1805   -
1806   - // ----- Return
1807   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1808   - return PclZip::errorCode();
1809   - }
1810   - }
1811   - }
1812   - }
1813   -
1814   - // ----- Return
1815   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
1816   - return $v_result;
1817   - }
1818   - // --------------------------------------------------------------------------------
1819   -
1820   - // --------------------------------------------------------------------------------
1821   - // Function : privFileDescrParseAtt()
1822   - // Description :
1823   - // Parameters :
1824   - // Return Values :
1825   - // 1 on success.
1826   - // 0 on failure.
1827   - // --------------------------------------------------------------------------------
1828   - function privFileDescrParseAtt(&$p_file_list, &$p_filedescr, $v_options, $v_requested_options=false)
1829   - {
1830   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privFileDescrParseAtt", "");
1831   - $v_result=1;
1832   -
1833   - // ----- For each file in the list check the attributes
1834   - foreach ($p_file_list as $v_key => $v_value) {
1835   -
1836   - // ----- Check if the option is supported
1837   - if (!isset($v_requested_options[$v_key])) {
1838   - // ----- Error log
1839   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid file attribute '".$v_key."' for this file");
1840   -
1841   - // ----- Return
1842   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1843   - return PclZip::errorCode();
1844   - }
1845   -
1846   - // ----- Look for attribute
1847   - switch ($v_key) {
1848   - case PCLZIP_ATT_FILE_NAME :
1849   - if (!is_string($v_value)) {
1850   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid type ".gettype($v_value).". String expected for attribute '".PclZipUtilOptionText($v_key)."'");
1851   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1852   - return PclZip::errorCode();
1853   - }
1854   -
1855   - $p_filedescr['filename'] = PclZipUtilPathReduction($v_value);
1856   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "".PclZipUtilOptionText($v_key)." = '".$v_value."'");
1857   -
1858   - if ($p_filedescr['filename'] == '') {
1859   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid empty filename for attribute '".PclZipUtilOptionText($v_key)."'");
1860   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1861   - return PclZip::errorCode();
1862   - }
1863   -
1864   - break;
1865   -
1866   - case PCLZIP_ATT_FILE_NEW_SHORT_NAME :
1867   - if (!is_string($v_value)) {
1868   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid type ".gettype($v_value).". String expected for attribute '".PclZipUtilOptionText($v_key)."'");
1869   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1870   - return PclZip::errorCode();
1871   - }
1872   -
1873   - $p_filedescr['new_short_name'] = PclZipUtilPathReduction($v_value);
1874   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "".PclZipUtilOptionText($v_key)." = '".$v_value."'");
1875   -
1876   - if ($p_filedescr['new_short_name'] == '') {
1877   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid empty short filename for attribute '".PclZipUtilOptionText($v_key)."'");
1878   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1879   - return PclZip::errorCode();
1880   - }
1881   - break;
1882   -
1883   - case PCLZIP_ATT_FILE_NEW_FULL_NAME :
1884   - if (!is_string($v_value)) {
1885   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid type ".gettype($v_value).". String expected for attribute '".PclZipUtilOptionText($v_key)."'");
1886   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1887   - return PclZip::errorCode();
1888   - }
1889   -
1890   - $p_filedescr['new_full_name'] = PclZipUtilPathReduction($v_value);
1891   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "".PclZipUtilOptionText($v_key)." = '".$v_value."'");
1892   -
1893   - if ($p_filedescr['new_full_name'] == '') {
1894   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid empty full filename for attribute '".PclZipUtilOptionText($v_key)."'");
1895   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1896   - return PclZip::errorCode();
1897   - }
1898   - break;
1899   -
1900   - default :
1901   - // ----- Error log
1902   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER,
1903   - "Unknown parameter '".$v_key."'");
1904   -
1905   - // ----- Return
1906   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1907   - return PclZip::errorCode();
1908   - }
1909   -
1910   - // ----- Look for mandatory options
1911   - if ($v_requested_options !== false) {
1912   - for ($key=reset($v_requested_options); $key=key($v_requested_options); $key=next($v_requested_options)) {
1913   - // ----- Look for mandatory option
1914   - if ($v_requested_options[$key] == 'mandatory') {
1915   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Detect a mandatory option : ".PclZipUtilOptionText($key)."(".$key.")");
1916   - // ----- Look if present
1917   - if (!isset($p_file_list[$key])) {
1918   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Missing mandatory parameter ".PclZipUtilOptionText($key)."(".$key.")");
1919   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1920   - return PclZip::errorCode();
1921   - }
1922   - }
1923   - }
1924   - }
1925   -
1926   - // end foreach
1927   - }
1928   -
1929   - // ----- Return
1930   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
1931   - return $v_result;
1932   - }
1933   - // --------------------------------------------------------------------------------
1934   -
1935   - // --------------------------------------------------------------------------------
1936   - // Function : privFileDescrExpand()
1937   - // Description :
1938   - // Parameters :
1939   - // Return Values :
1940   - // 1 on success.
1941   - // 0 on failure.
1942   - // --------------------------------------------------------------------------------
1943   - function privFileDescrExpand(&$p_filedescr_list, &$p_options)
1944   - {
1945   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privFileDescrExpand", "");
1946   - $v_result=1;
1947   -
1948   - // ----- Create a result list
1949   - $v_result_list = array();
1950   -
1951   - // ----- Look each entry
1952   - for ($i=0; $i<sizeof($p_filedescr_list); $i++) {
1953   - // ----- Get filedescr
1954   - $v_descr = $p_filedescr_list[$i];
1955   -
1956   - // ----- Reduce the filename
1957   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Filedescr before reduction :'".$v_descr['filename']."'");
1958   - $v_descr['filename'] = PclZipUtilTranslateWinPath($v_descr['filename']);
1959   - $v_descr['filename'] = PclZipUtilPathReduction($v_descr['filename']);
1960   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Filedescr after reduction :'".$v_descr['filename']."'");
1961   -
1962   - // ----- Get type of descr
1963   - if (!file_exists($v_descr['filename'])) {
1964   - // ----- Error log
1965   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "File '".$v_descr['filename']."' does not exists");
1966   - PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, "File '".$v_descr['filename']."' does not exists");
1967   -
1968   - // ----- Return
1969   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
1970   - return PclZip::errorCode();
1971   - }
1972   - if (@is_file($v_descr['filename'])) {
1973   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "This is a file");
1974   - $v_descr['type'] = 'file';
1975   - }
1976   - else if (@is_dir($v_descr['filename'])) {
1977   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "This is a folder");
1978   - $v_descr['type'] = 'folder';
1979   - }
1980   - else if (@is_link($v_descr['filename'])) {
1981   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Unsupported file type : link");
1982   - // skip
1983   - continue;
1984   - }
1985   - else {
1986   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Unsupported file type : unknown type");
1987   - // skip
1988   - continue;
1989   - }
1990   -
1991   - // ----- Calculate the stored filename
1992   - $this->privCalculateStoredFilename($v_descr, $p_options);
1993   -
1994   - // ----- Add the descriptor in result list
1995   - $v_result_list[sizeof($v_result_list)] = $v_descr;
1996   -
1997   - // ----- Look for folder
1998   - if ($v_descr['type'] == 'folder') {
1999   - // ----- List of items in folder
2000   - $v_dirlist_descr = array();
2001   - $v_dirlist_nb = 0;
2002   - if ($v_folder_handler = @opendir($v_descr['filename'])) {
2003   - while (($v_item_handler = @readdir($v_folder_handler)) !== false) {
2004   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Looking for '".$v_item_handler."' in the directory");
2005   -
2006   - // ----- Skip '.' and '..'
2007   - if (($v_item_handler == '.') || ($v_item_handler == '..')) {
2008   - continue;
2009   - }
2010   -
2011   - // ----- Compose the full filename
2012   - $v_dirlist_descr[$v_dirlist_nb]['filename'] = $v_descr['filename'].'/'.$v_item_handler;
2013   -
2014   - // ----- Look for different stored filename
2015   - // Because the name of the folder was changed, the name of the
2016   - // files/sub-folders also change
2017   - if ($v_descr['stored_filename'] != $v_descr['filename']) {
2018   - $v_dirlist_descr[$v_dirlist_nb]['new_full_name'] = $v_descr['stored_filename'].'/'.$v_item_handler;
2019   - }
2020   -
2021   - $v_dirlist_nb++;
2022   - }
2023   - }
2024   - else {
2025   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Unable to open dir '".$v_descr['filename']."' in read mode. Skipped.");
2026   - // TBC : unable to open folder in read mode
2027   - }
2028   -
2029   - // ----- Expand each element of the list
2030   - if ($v_dirlist_nb != 0) {
2031   - // ----- Expand
2032   - if (($v_result = $this->privFileDescrExpand($v_dirlist_descr, $p_options)) != 1) {
2033   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2034   - return $v_result;
2035   - }
2036   -
2037   - // ----- Concat the resulting list
2038   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Merging result list (size '".sizeof($v_result_list)."') with dirlist (size '".sizeof($v_dirlist_descr)."')");
2039   - $v_result_list = array_merge($v_result_list, $v_dirlist_descr);
2040   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "merged result list is size '".sizeof($v_result_list)."'");
2041   - }
2042   - else {
2043   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Nothing in this folder to expand.");
2044   - }
2045   -
2046   - // ----- Free local array
2047   - unset($v_dirlist_descr);
2048   - }
2049   - }
2050   -
2051   - // ----- Get the result list
2052   - $p_filedescr_list = $v_result_list;
2053   -
2054   - // ----- Return
2055   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2056   - return $v_result;
2057   - }
2058   - // --------------------------------------------------------------------------------
2059   -
2060   - // --------------------------------------------------------------------------------
2061   - // Function : privCreate()
2062   - // Description :
2063   - // Parameters :
2064   - // Return Values :
2065   - // --------------------------------------------------------------------------------
2066   - function privCreate($p_filedescr_list, &$p_result_list, &$p_options)
2067   - {
2068   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privCreate", "list");
2069   - $v_result=1;
2070   - $v_list_detail = array();
2071   -
2072   - // ----- Magic quotes trick
2073   - $this->privDisableMagicQuotes();
2074   -
2075   - // ----- Open the file in write mode
2076   - if (($v_result = $this->privOpenFd('wb')) != 1)
2077   - {
2078   - // ----- Return
2079   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2080   - return $v_result;
2081   - }
2082   -
2083   - // ----- Add the list of files
2084   - $v_result = $this->privAddList($p_filedescr_list, $p_result_list, $p_options);
2085   -
2086   - // ----- Close
2087   - $this->privCloseFd();
2088   -
2089   - // ----- Magic quotes trick
2090   - $this->privSwapBackMagicQuotes();
2091   -
2092   - // ----- Return
2093   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2094   - return $v_result;
2095   - }
2096   - // --------------------------------------------------------------------------------
2097   -
2098   - // --------------------------------------------------------------------------------
2099   - // Function : privAdd()
2100   - // Description :
2101   - // Parameters :
2102   - // Return Values :
2103   - // --------------------------------------------------------------------------------
2104   - function privAdd($p_filedescr_list, &$p_result_list, &$p_options)
2105   - {
2106   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privAdd", "list");
2107   - $v_result=1;
2108   - $v_list_detail = array();
2109   -
2110   - // ----- Look if the archive exists or is empty
2111   - if ((!is_file($this->zipname)) || (filesize($this->zipname) == 0))
2112   - {
2113   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Archive does not exist, or is empty, create it.");
2114   -
2115   - // ----- Do a create
2116   - $v_result = $this->privCreate($p_filedescr_list, $p_result_list, $p_options);
2117   -
2118   - // ----- Return
2119   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2120   - return $v_result;
2121   - }
2122   - // ----- Magic quotes trick
2123   - $this->privDisableMagicQuotes();
2124   -
2125   - // ----- Open the zip file
2126   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open file in binary read mode");
2127   - if (($v_result=$this->privOpenFd('rb')) != 1)
2128   - {
2129   - // ----- Magic quotes trick
2130   - $this->privSwapBackMagicQuotes();
2131   -
2132   - // ----- Return
2133   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2134   - return $v_result;
2135   - }
2136   -
2137   - // ----- Read the central directory informations
2138   - $v_central_dir = array();
2139   - if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1)
2140   - {
2141   - $this->privCloseFd();
2142   - $this->privSwapBackMagicQuotes();
2143   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2144   - return $v_result;
2145   - }
2146   -
2147   - // ----- Go to beginning of File
2148   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Position in file : ".ftell($this->zip_fd)."'");
2149   - @rewind($this->zip_fd);
2150   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Position in file : ".ftell($this->zip_fd)."'");
2151   -
2152   - // ----- Creates a temporay file
2153   - $v_zip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid('pclzip-').'.tmp';
2154   -
2155   - // ----- Open the temporary file in write mode
2156   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open file in binary read mode");
2157   - if (($v_zip_temp_fd = @fopen($v_zip_temp_name, 'wb')) == 0)
2158   - {
2159   - $this->privCloseFd();
2160   - $this->privSwapBackMagicQuotes();
2161   -
2162   - PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \''.$v_zip_temp_name.'\' in binary write mode');
2163   -
2164   - // ----- Return
2165   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
2166   - return PclZip::errorCode();
2167   - }
2168   -
2169   - // ----- Copy the files from the archive to the temporary file
2170   - // TBC : Here I should better append the file and go back to erase the central dir
2171   - $v_size = $v_central_dir['offset'];
2172   - while ($v_size != 0)
2173   - {
2174   - $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
2175   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Read $v_read_size bytes");
2176   - $v_buffer = fread($this->zip_fd, $v_read_size);
2177   - @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
2178   - $v_size -= $v_read_size;
2179   - }
2180   -
2181   - // ----- Swap the file descriptor
2182   - // Here is a trick : I swap the temporary fd with the zip fd, in order to use
2183   - // the following methods on the temporary fil and not the real archive
2184   - $v_swap = $this->zip_fd;
2185   - $this->zip_fd = $v_zip_temp_fd;
2186   - $v_zip_temp_fd = $v_swap;
2187   -
2188   - // ----- Add the files
2189   - $v_header_list = array();
2190   - if (($v_result = $this->privAddFileList($p_filedescr_list, $v_header_list, $p_options)) != 1)
2191   - {
2192   - fclose($v_zip_temp_fd);
2193   - $this->privCloseFd();
2194   - @unlink($v_zip_temp_name);
2195   - $this->privSwapBackMagicQuotes();
2196   -
2197   - // ----- Return
2198   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2199   - return $v_result;
2200   - }
2201   -
2202   - // ----- Store the offset of the central dir
2203   - $v_offset = @ftell($this->zip_fd);
2204   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "New offset of central dir : $v_offset");
2205   -
2206   - // ----- Copy the block of file headers from the old archive
2207   - $v_size = $v_central_dir['size'];
2208   - while ($v_size != 0)
2209   - {
2210   - $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
2211   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Read $v_read_size bytes");
2212   - $v_buffer = @fread($v_zip_temp_fd, $v_read_size);
2213   - @fwrite($this->zip_fd, $v_buffer, $v_read_size);
2214   - $v_size -= $v_read_size;
2215   - }
2216   -
2217   - // ----- Create the Central Dir files header
2218   - for ($i=0, $v_count=0; $i<sizeof($v_header_list); $i++)
2219   - {
2220   - // ----- Create the file header
2221   - if ($v_header_list[$i]['status'] == 'ok') {
2222   - if (($v_result = $this->privWriteCentralFileHeader($v_header_list[$i])) != 1) {
2223   - fclose($v_zip_temp_fd);
2224   - $this->privCloseFd();
2225   - @unlink($v_zip_temp_name);
2226   - $this->privSwapBackMagicQuotes();
2227   -
2228   - // ----- Return
2229   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2230   - return $v_result;
2231   - }
2232   - $v_count++;
2233   - }
2234   -
2235   - // ----- Transform the header to a 'usable' info
2236   - $this->privConvertHeader2FileInfo($v_header_list[$i], $p_result_list[$i]);
2237   - }
2238   -
2239   - // ----- Zip file comment
2240   - $v_comment = $v_central_dir['comment'];
2241   - if (isset($p_options[PCLZIP_OPT_COMMENT])) {
2242   - $v_comment = $p_options[PCLZIP_OPT_COMMENT];
2243   - }
2244   - if (isset($p_options[PCLZIP_OPT_ADD_COMMENT])) {
2245   - $v_comment = $v_comment.$p_options[PCLZIP_OPT_ADD_COMMENT];
2246   - }
2247   - if (isset($p_options[PCLZIP_OPT_PREPEND_COMMENT])) {
2248   - $v_comment = $p_options[PCLZIP_OPT_PREPEND_COMMENT].$v_comment;
2249   - }
2250   -
2251   - // ----- Calculate the size of the central header
2252   - $v_size = @ftell($this->zip_fd)-$v_offset;
2253   -
2254   - // ----- Create the central dir footer
2255   - if (($v_result = $this->privWriteCentralHeader($v_count+$v_central_dir['entries'], $v_size, $v_offset, $v_comment)) != 1)
2256   - {
2257   - // ----- Reset the file list
2258   - unset($v_header_list);
2259   - $this->privSwapBackMagicQuotes();
2260   -
2261   - // ----- Return
2262   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2263   - return $v_result;
2264   - }
2265   -
2266   - // ----- Swap back the file descriptor
2267   - $v_swap = $this->zip_fd;
2268   - $this->zip_fd = $v_zip_temp_fd;
2269   - $v_zip_temp_fd = $v_swap;
2270   -
2271   - // ----- Close
2272   - $this->privCloseFd();
2273   -
2274   - // ----- Close the temporary file
2275   - @fclose($v_zip_temp_fd);
2276   -
2277   - // ----- Magic quotes trick
2278   - $this->privSwapBackMagicQuotes();
2279   -
2280   - // ----- Delete the zip file
2281   - // TBC : I should test the result ...
2282   - @unlink($this->zipname);
2283   -
2284   - // ----- Rename the temporary file
2285   - // TBC : I should test the result ...
2286   - //@rename($v_zip_temp_name, $this->zipname);
2287   - PclZipUtilRename($v_zip_temp_name, $this->zipname);
2288   -
2289   - // ----- Return
2290   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2291   - return $v_result;
2292   - }
2293   - // --------------------------------------------------------------------------------
2294   -
2295   - // --------------------------------------------------------------------------------
2296   - // Function : privOpenFd()
2297   - // Description :
2298   - // Parameters :
2299   - // --------------------------------------------------------------------------------
2300   - function privOpenFd($p_mode)
2301   - {
2302   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privOpenFd", 'mode='.$p_mode);
2303   - $v_result=1;
2304   -
2305   - // ----- Look if already open
2306   - if ($this->zip_fd != 0)
2307   - {
2308   - // ----- Error log
2309   - PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Zip file \''.$this->zipname.'\' already open');
2310   -
2311   - // ----- Return
2312   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
2313   - return PclZip::errorCode();
2314   - }
2315   -
2316   - // ----- Open the zip file
2317   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Open file in '.$p_mode.' mode');
2318   - if (($this->zip_fd = @fopen($this->zipname, $p_mode)) == 0)
2319   - {
2320   - // ----- Error log
2321   - PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open archive \''.$this->zipname.'\' in '.$p_mode.' mode');
2322   -
2323   - // ----- Return
2324   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
2325   - return PclZip::errorCode();
2326   - }
2327   -
2328   - // ----- Return
2329   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2330   - return $v_result;
2331   - }
2332   - // --------------------------------------------------------------------------------
2333   -
2334   - // --------------------------------------------------------------------------------
2335   - // Function : privCloseFd()
2336   - // Description :
2337   - // Parameters :
2338   - // --------------------------------------------------------------------------------
2339   - function privCloseFd()
2340   - {
2341   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privCloseFd", "");
2342   - $v_result=1;
2343   -
2344   - if ($this->zip_fd != 0)
2345   - @fclose($this->zip_fd);
2346   - $this->zip_fd = 0;
2347   -
2348   - // ----- Return
2349   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2350   - return $v_result;
2351   - }
2352   - // --------------------------------------------------------------------------------
2353   -
2354   - // --------------------------------------------------------------------------------
2355   - // Function : privAddList()
2356   - // Description :
2357   - // $p_add_dir and $p_remove_dir will give the ability to memorize a path which is
2358   - // different from the real path of the file. This is usefull if you want to have PclTar
2359   - // running in any directory, and memorize relative path from an other directory.
2360   - // Parameters :
2361   - // $p_list : An array containing the file or directory names to add in the tar
2362   - // $p_result_list : list of added files with their properties (specially the status field)
2363   - // $p_add_dir : Path to add in the filename path archived
2364   - // $p_remove_dir : Path to remove in the filename path archived
2365   - // Return Values :
2366   - // --------------------------------------------------------------------------------
2367   -// function privAddList($p_list, &$p_result_list, $p_add_dir, $p_remove_dir, $p_remove_all_dir, &$p_options)
2368   - function privAddList($p_filedescr_list, &$p_result_list, &$p_options)
2369   - {
2370   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privAddList", "list");
2371   - $v_result=1;
2372   -
2373   - // ----- Add the files
2374   - $v_header_list = array();
2375   - if (($v_result = $this->privAddFileList($p_filedescr_list, $v_header_list, $p_options)) != 1)
2376   - {
2377   - // ----- Return
2378   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2379   - return $v_result;
2380   - }
2381   -
2382   - // ----- Store the offset of the central dir
2383   - $v_offset = @ftell($this->zip_fd);
2384   -
2385   - // ----- Create the Central Dir files header
2386   - for ($i=0,$v_count=0; $i<sizeof($v_header_list); $i++)
2387   - {
2388   - // ----- Create the file header
2389   - if ($v_header_list[$i]['status'] == 'ok') {
2390   - if (($v_result = $this->privWriteCentralFileHeader($v_header_list[$i])) != 1) {
2391   - // ----- Return
2392   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2393   - return $v_result;
2394   - }
2395   - $v_count++;
2396   - }
2397   -
2398   - // ----- Transform the header to a 'usable' info
2399   - $this->privConvertHeader2FileInfo($v_header_list[$i], $p_result_list[$i]);
2400   - }
2401   -
2402   - // ----- Zip file comment
2403   - $v_comment = '';
2404   - if (isset($p_options[PCLZIP_OPT_COMMENT])) {
2405   - $v_comment = $p_options[PCLZIP_OPT_COMMENT];
2406   - }
2407   -
2408   - // ----- Calculate the size of the central header
2409   - $v_size = @ftell($this->zip_fd)-$v_offset;
2410   -
2411   - // ----- Create the central dir footer
2412   - if (($v_result = $this->privWriteCentralHeader($v_count, $v_size, $v_offset, $v_comment)) != 1)
2413   - {
2414   - // ----- Reset the file list
2415   - unset($v_header_list);
2416   -
2417   - // ----- Return
2418   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2419   - return $v_result;
2420   - }
2421   -
2422   - // ----- Return
2423   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2424   - return $v_result;
2425   - }
2426   - // --------------------------------------------------------------------------------
2427   -
2428   - // --------------------------------------------------------------------------------
2429   - // Function : privAddFileList()
2430   - // Description :
2431   - // Parameters :
2432   - // $p_filedescr_list : An array containing the file description
2433   - // or directory names to add in the zip
2434   - // $p_result_list : list of added files with their properties (specially the status field)
2435   - // Return Values :
2436   - // --------------------------------------------------------------------------------
2437   - function privAddFileList($p_filedescr_list, &$p_result_list, &$p_options)
2438   - {
2439   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privAddFileList", "filedescr_list");
2440   - $v_result=1;
2441   - $v_header = array();
2442   -
2443   - // ----- Recuperate the current number of elt in list
2444   - $v_nb = sizeof($p_result_list);
2445   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Before add, list have ".$v_nb." elements");
2446   -
2447   - // ----- Loop on the files
2448   - for ($j=0; ($j<sizeof($p_filedescr_list)) && ($v_result==1); $j++) {
2449   - // ----- Format the filename
2450   - $p_filedescr_list[$j]['filename']
2451   - = PclZipUtilTranslateWinPath($p_filedescr_list[$j]['filename'], false);
2452   -
2453   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Looking for file '".$p_filedescr_list[$j]['filename']."'");
2454   -
2455   - // ----- Skip empty file names
2456   - // TBC : Can this be possible ? not checked in DescrParseAtt ?
2457   - if ($p_filedescr_list[$j]['filename'] == "") {
2458   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Skip empty filename");
2459   - continue;
2460   - }
2461   -
2462   - // ----- Check the filename
2463   - if (!file_exists($p_filedescr_list[$j]['filename'])) {
2464   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "File '".$p_filedescr_list[$j]['filename']."' does not exists");
2465   - PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, "File '".$p_filedescr_list[$j]['filename']."' does not exists");
2466   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
2467   - return PclZip::errorCode();
2468   - }
2469   -
2470   - // ----- Look if it is a file or a dir with no all path remove option
2471   - if ( (is_file($p_filedescr_list[$j]['filename']))
2472   - || ( is_dir($p_filedescr_list[$j]['filename'])
2473   - && ( !isset($p_options[PCLZIP_OPT_REMOVE_ALL_PATH])
2474   - || !$p_options[PCLZIP_OPT_REMOVE_ALL_PATH]))) {
2475   -
2476   - // ----- Add the file
2477   - $v_result = $this->privAddFile($p_filedescr_list[$j], $v_header,
2478   - $p_options);
2479   - if ($v_result != 1) {
2480   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2481   - return $v_result;
2482   - }
2483   -
2484   - // ----- Store the file infos
2485   - $p_result_list[$v_nb++] = $v_header;
2486   - }
2487   - }
2488   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "After add, list have ".$v_nb." elements");
2489   -
2490   - // ----- Return
2491   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2492   - return $v_result;
2493   - }
2494   - // --------------------------------------------------------------------------------
2495   -
2496   - // --------------------------------------------------------------------------------
2497   - // Function : privAddFile()
2498   - // Description :
2499   - // Parameters :
2500   - // Return Values :
2501   - // --------------------------------------------------------------------------------
2502   - function privAddFile($p_filedescr, &$p_header, &$p_options)
2503   - {
2504   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privAddFile", "filename='".$p_filedescr['filename']."'");
2505   - $v_result=1;
2506   -
2507   - // ----- Working variable
2508   - $p_filename = $p_filedescr['filename'];
2509   -
2510   - // TBC : Already done in the fileAtt check ... ?
2511   - if ($p_filename == "") {
2512   - // ----- Error log
2513   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid file list parameter (invalid or empty list)");
2514   -
2515   - // ----- Return
2516   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
2517   - return PclZip::errorCode();
2518   - }
2519   -
2520   - // ----- Look for a stored different filename
2521   - if (isset($p_filedescr['stored_filename'])) {
2522   - $v_stored_filename = $p_filedescr['stored_filename'];
2523   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, 'Stored filename is NOT the same "'.$v_stored_filename.'"');
2524   - }
2525   - else {
2526   - $v_stored_filename = $p_filedescr['stored_filename'];
2527   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, 'Stored filename is the same');
2528   - }
2529   -
2530   - // ----- Set the file properties
2531   - clearstatcache();
2532   - $p_header['version'] = 20;
2533   - $p_header['version_extracted'] = 10;
2534   - $p_header['flag'] = 0;
2535   - $p_header['compression'] = 0;
2536   - $p_header['mtime'] = filemtime($p_filename);
2537   - $p_header['crc'] = 0;
2538   - $p_header['compressed_size'] = 0;
2539   - $p_header['size'] = filesize($p_filename);
2540   - $p_header['filename_len'] = strlen($p_filename);
2541   - $p_header['extra_len'] = 0;
2542   - $p_header['comment_len'] = 0;
2543   - $p_header['disk'] = 0;
2544   - $p_header['internal'] = 0;
2545   -// $p_header['external'] = (is_file($p_filename)?0xFE49FFE0:0x41FF0010);
2546   - $p_header['external'] = (is_file($p_filename)?0x00000000:0x00000010);
2547   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Header external extension '".sprintf("0x%X",$p_header['external'])."'");
2548   - $p_header['offset'] = 0;
2549   - $p_header['filename'] = $p_filename;
2550   - $p_header['stored_filename'] = $v_stored_filename;
2551   - $p_header['extra'] = '';
2552   - $p_header['comment'] = '';
2553   - $p_header['status'] = 'ok';
2554   - $p_header['index'] = -1;
2555   -
2556   - // ----- Look for pre-add callback
2557   - if (isset($p_options[PCLZIP_CB_PRE_ADD])) {
2558   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "A pre-callback '".$p_options[PCLZIP_CB_PRE_ADD]."()') is defined for the extraction");
2559   -
2560   - // ----- Generate a local information
2561   - $v_local_header = array();
2562   - $this->privConvertHeader2FileInfo($p_header, $v_local_header);
2563   -
2564   - // ----- Call the callback
2565   - // Here I do not use call_user_func() because I need to send a reference to the
2566   - // header.
2567   - eval('$v_result = '.$p_options[PCLZIP_CB_PRE_ADD].'(PCLZIP_CB_PRE_ADD, $v_local_header);');
2568   - if ($v_result == 0) {
2569   - // ----- Change the file status
2570   - $p_header['status'] = "skipped";
2571   - $v_result = 1;
2572   - }
2573   -
2574   - // ----- Update the informations
2575   - // Only some fields can be modified
2576   - if ($p_header['stored_filename'] != $v_local_header['stored_filename']) {
2577   - $p_header['stored_filename'] = PclZipUtilPathReduction($v_local_header['stored_filename']);
2578   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "New stored filename is '".$p_header['stored_filename']."'");
2579   - }
2580   - }
2581   -
2582   - // ----- Look for empty stored filename
2583   - if ($p_header['stored_filename'] == "") {
2584   - $p_header['status'] = "filtered";
2585   - }
2586   -
2587   - // ----- Check the path length
2588   - if (strlen($p_header['stored_filename']) > 0xFF) {
2589   - $p_header['status'] = 'filename_too_long';
2590   - }
2591   -
2592   - // ----- Look if no error, or file not skipped
2593   - if ($p_header['status'] == 'ok') {
2594   -
2595   - // ----- Look for a file
2596   - if (is_file($p_filename))
2597   - {
2598   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "'".$p_filename."' is a file");
2599   - // ----- Open the source file
2600   - if (($v_file = @fopen($p_filename, "rb")) == 0) {
2601   - PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, "Unable to open file '$p_filename' in binary read mode");
2602   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
2603   - return PclZip::errorCode();
2604   - }
2605   -
2606   - if ($p_options[PCLZIP_OPT_NO_COMPRESSION]) {
2607   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "File will not be compressed");
2608   - // ----- Read the file content
2609   - $v_content_compressed = @fread($v_file, $p_header['size']);
2610   -
2611   - // ----- Calculate the CRC
2612   - $p_header['crc'] = @crc32($v_content_compressed);
2613   -
2614   - // ----- Set header parameters
2615   - $p_header['compressed_size'] = $p_header['size'];
2616   - $p_header['compression'] = 0;
2617   - }
2618   - else {
2619   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "File will be compressed");
2620   - // ----- Read the file content
2621   - $v_content = @fread($v_file, $p_header['size']);
2622   -
2623   - // ----- Calculate the CRC
2624   - $p_header['crc'] = @crc32($v_content);
2625   -
2626   - // ----- Compress the file
2627   - $v_content_compressed = @gzdeflate($v_content);
2628   -
2629   - // ----- Set header parameters
2630   - $p_header['compressed_size'] = strlen($v_content_compressed);
2631   - $p_header['compression'] = 8;
2632   - }
2633   -
2634   - // ----- Look for encryption
2635   - /*
2636   - if ((isset($p_options[PCLZIP_OPT_CRYPT]))
2637   - && ($p_options[PCLZIP_OPT_CRYPT] != "")) {
2638   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "File need to be crypted ....");
2639   -
2640   - // Should be a random header
2641   - $v_header = 'xxxxxxxxxxxx';
2642   - $v_content_compressed = PclZipUtilZipEncrypt($v_content_compressed,
2643   - $p_header['compressed_size'],
2644   - $v_header,
2645   - $p_header['crc'],
2646   - "test");
2647   -
2648   - $p_header['compressed_size'] += 12;
2649   - $p_header['flag'] = 1;
2650   -
2651   - // ----- Add the header to the data
2652   - $v_content_compressed = $v_header.$v_content_compressed;
2653   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Size after header : ".strlen($v_content_compressed)."");
2654   - }
2655   - */
2656   -
2657   - // ----- Call the header generation
2658   - if (($v_result = $this->privWriteFileHeader($p_header)) != 1) {
2659   - @fclose($v_file);
2660   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2661   - return $v_result;
2662   - }
2663   -
2664   - // ----- Write the compressed (or not) content
2665   - @fwrite($this->zip_fd,
2666   - $v_content_compressed, $p_header['compressed_size']);
2667   -
2668   - // ----- Close the file
2669   - @fclose($v_file);
2670   - }
2671   -
2672   - // ----- Look for a directory
2673   - else {
2674   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "'".$p_filename."' is a folder");
2675   - // ----- Look for directory last '/'
2676   - if (@substr($p_header['stored_filename'], -1) != '/') {
2677   - $p_header['stored_filename'] .= '/';
2678   - }
2679   -
2680   - // ----- Set the file properties
2681   - $p_header['size'] = 0;
2682   - //$p_header['external'] = 0x41FF0010; // Value for a folder : to be checked
2683   - $p_header['external'] = 0x00000010; // Value for a folder : to be checked
2684   -
2685   - // ----- Call the header generation
2686   - if (($v_result = $this->privWriteFileHeader($p_header)) != 1)
2687   - {
2688   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2689   - return $v_result;
2690   - }
2691   - }
2692   - }
2693   -
2694   - // ----- Look for post-add callback
2695   - if (isset($p_options[PCLZIP_CB_POST_ADD])) {
2696   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "A post-callback '".$p_options[PCLZIP_CB_POST_ADD]."()') is defined for the extraction");
2697   -
2698   - // ----- Generate a local information
2699   - $v_local_header = array();
2700   - $this->privConvertHeader2FileInfo($p_header, $v_local_header);
2701   -
2702   - // ----- Call the callback
2703   - // Here I do not use call_user_func() because I need to send a reference to the
2704   - // header.
2705   - eval('$v_result = '.$p_options[PCLZIP_CB_POST_ADD].'(PCLZIP_CB_POST_ADD, $v_local_header);');
2706   - if ($v_result == 0) {
2707   - // ----- Ignored
2708   - $v_result = 1;
2709   - }
2710   -
2711   - // ----- Update the informations
2712   - // Nothing can be modified
2713   - }
2714   -
2715   - // ----- Return
2716   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2717   - return $v_result;
2718   - }
2719   - // --------------------------------------------------------------------------------
2720   -
2721   - // --------------------------------------------------------------------------------
2722   - // Function : privCalculateStoredFilename()
2723   - // Description :
2724   - // Based on file descriptor properties and global options, this method
2725   - // calculate the filename that will be stored in the archive.
2726   - // Parameters :
2727   - // Return Values :
2728   - // --------------------------------------------------------------------------------
2729   - function privCalculateStoredFilename(&$p_filedescr, &$p_options)
2730   - {
2731   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privCalculateStoredFilename", "filename='".$p_filedescr['filename']."'");
2732   - $v_result=1;
2733   -
2734   - // ----- Working variables
2735   - $p_filename = $p_filedescr['filename'];
2736   - if (isset($p_options[PCLZIP_OPT_ADD_PATH])) {
2737   - $p_add_dir = $p_options[PCLZIP_OPT_ADD_PATH];
2738   - }
2739   - else {
2740   - $p_add_dir = '';
2741   - }
2742   - if (isset($p_options[PCLZIP_OPT_REMOVE_PATH])) {
2743   - $p_remove_dir = $p_options[PCLZIP_OPT_REMOVE_PATH];
2744   - }
2745   - else {
2746   - $p_remove_dir = '';
2747   - }
2748   - if (isset($p_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {
2749   - $p_remove_all_dir = $p_options[PCLZIP_OPT_REMOVE_ALL_PATH];
2750   - }
2751   - else {
2752   - $p_remove_all_dir = 0;
2753   - }
2754   -
2755   - // ----- Look for full name change
2756   - if (isset($p_filedescr['new_full_name'])) {
2757   - $v_stored_filename = $p_filedescr['new_full_name'];
2758   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Changing full name of '".$p_filename."' for '".$v_stored_filename."'");
2759   - }
2760   -
2761   - // ----- Look for path and/or short name change
2762   - else {
2763   -
2764   - // ----- Look for short name change
2765   - if (isset($p_filedescr['new_short_name'])) {
2766   - $v_path_info = pathinfo($p_filename);
2767   - $v_dir = '';
2768   - if ($v_path_info['dirname'] != '') {
2769   - $v_dir = $v_path_info['dirname'].'/';
2770   - }
2771   - $v_stored_filename = $v_dir.$p_filedescr['new_short_name'];
2772   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Changing short name of '".$p_filename."' for '".$v_stored_filename."'");
2773   - }
2774   - else {
2775   - // ----- Calculate the stored filename
2776   - $v_stored_filename = $p_filename;
2777   - }
2778   -
2779   - // ----- Look for all path to remove
2780   - if ($p_remove_all_dir) {
2781   - $v_stored_filename = basename($p_filename);
2782   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Remove all path selected change '".$p_filename."' for '".$v_stored_filename."'");
2783   - }
2784   - // ----- Look for partial path remove
2785   - else if ($p_remove_dir != "") {
2786   - if (substr($p_remove_dir, -1) != '/')
2787   - $p_remove_dir .= "/";
2788   -
2789   - if ( (substr($p_filename, 0, 2) == "./")
2790   - || (substr($p_remove_dir, 0, 2) == "./")) {
2791   -
2792   - if ( (substr($p_filename, 0, 2) == "./")
2793   - && (substr($p_remove_dir, 0, 2) != "./")) {
2794   - $p_remove_dir = "./".$p_remove_dir;
2795   - }
2796   - if ( (substr($p_filename, 0, 2) != "./")
2797   - && (substr($p_remove_dir, 0, 2) == "./")) {
2798   - $p_remove_dir = substr($p_remove_dir, 2);
2799   - }
2800   - }
2801   -
2802   - $v_compare = PclZipUtilPathInclusion($p_remove_dir,
2803   - $v_stored_filename);
2804   - if ($v_compare > 0) {
2805   - if ($v_compare == 2) {
2806   - $v_stored_filename = "";
2807   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Path to remove is the current folder");
2808   - }
2809   - else {
2810   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Remove path '$p_remove_dir' in file '$v_stored_filename'");
2811   - $v_stored_filename = substr($v_stored_filename,
2812   - strlen($p_remove_dir));
2813   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Result is '$v_stored_filename'");
2814   - }
2815   - }
2816   - }
2817   - // ----- Look for path to add
2818   - if ($p_add_dir != "") {
2819   - if (substr($p_add_dir, -1) == "/")
2820   - $v_stored_filename = $p_add_dir.$v_stored_filename;
2821   - else
2822   - $v_stored_filename = $p_add_dir."/".$v_stored_filename;
2823   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Add path '$p_add_dir' in file '$p_filename' = '$v_stored_filename'");
2824   - }
2825   - }
2826   -
2827   - // ----- Filename (reduce the path of stored name)
2828   - $v_stored_filename = PclZipUtilPathReduction($v_stored_filename);
2829   - $p_filedescr['stored_filename'] = $v_stored_filename;
2830   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Stored filename will be '".$p_filedescr['stored_filename']."', strlen ".strlen($p_filedescr['stored_filename']));
2831   -
2832   - // ----- Return
2833   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2834   - return $v_result;
2835   - }
2836   - // --------------------------------------------------------------------------------
2837   -
2838   - // --------------------------------------------------------------------------------
2839   - // Function : privWriteFileHeader()
2840   - // Description :
2841   - // Parameters :
2842   - // Return Values :
2843   - // --------------------------------------------------------------------------------
2844   - function privWriteFileHeader(&$p_header)
2845   - {
2846   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privWriteFileHeader", 'file="'.$p_header['filename'].'", stored as "'.$p_header['stored_filename'].'"');
2847   - $v_result=1;
2848   -
2849   - // ----- Store the offset position of the file
2850   - $p_header['offset'] = ftell($this->zip_fd);
2851   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, 'File offset of the header :'.$p_header['offset']);
2852   -
2853   - // ----- Transform UNIX mtime to DOS format mdate/mtime
2854   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Date : \''.date("d/m/y H:i:s", $p_header['mtime']).'\'');
2855   - $v_date = getdate($p_header['mtime']);
2856   - $v_mtime = ($v_date['hours']<<11) + ($v_date['minutes']<<5) + $v_date['seconds']/2;
2857   - $v_mdate = (($v_date['year']-1980)<<9) + ($v_date['mon']<<5) + $v_date['mday'];
2858   -
2859   - // ----- Packed data
2860   - $v_binary_data = pack("VvvvvvVVVvv", 0x04034b50,
2861   - $p_header['version_extracted'], $p_header['flag'],
2862   - $p_header['compression'], $v_mtime, $v_mdate,
2863   - $p_header['crc'], $p_header['compressed_size'],
2864   - $p_header['size'],
2865   - strlen($p_header['stored_filename']),
2866   - $p_header['extra_len']);
2867   -
2868   - // ----- Write the first 148 bytes of the header in the archive
2869   - fputs($this->zip_fd, $v_binary_data, 30);
2870   -
2871   - // ----- Write the variable fields
2872   - if (strlen($p_header['stored_filename']) != 0)
2873   - {
2874   - fputs($this->zip_fd, $p_header['stored_filename'], strlen($p_header['stored_filename']));
2875   - }
2876   - if ($p_header['extra_len'] != 0)
2877   - {
2878   - fputs($this->zip_fd, $p_header['extra'], $p_header['extra_len']);
2879   - }
2880   -
2881   - // ----- Return
2882   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2883   - return $v_result;
2884   - }
2885   - // --------------------------------------------------------------------------------
2886   -
2887   - // --------------------------------------------------------------------------------
2888   - // Function : privWriteCentralFileHeader()
2889   - // Description :
2890   - // Parameters :
2891   - // Return Values :
2892   - // --------------------------------------------------------------------------------
2893   - function privWriteCentralFileHeader(&$p_header)
2894   - {
2895   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privWriteCentralFileHeader", 'file="'.$p_header['filename'].'", stored as "'.$p_header['stored_filename'].'"');
2896   - $v_result=1;
2897   -
2898   - // TBC
2899   - //for(reset($p_header); $key = key($p_header); next($p_header)) {
2900   - // //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "header[$key] = ".$p_header[$key]);
2901   - //}
2902   -
2903   - // ----- Transform UNIX mtime to DOS format mdate/mtime
2904   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Date : \''.date("d/m/y H:i:s", $p_header['mtime']).'\'');
2905   - $v_date = getdate($p_header['mtime']);
2906   - $v_mtime = ($v_date['hours']<<11) + ($v_date['minutes']<<5) + $v_date['seconds']/2;
2907   - $v_mdate = (($v_date['year']-1980)<<9) + ($v_date['mon']<<5) + $v_date['mday'];
2908   -
2909   - // ----- Packed data
2910   - $v_binary_data = pack("VvvvvvvVVVvvvvvVV", 0x02014b50,
2911   - $p_header['version'], $p_header['version_extracted'],
2912   - $p_header['flag'], $p_header['compression'],
2913   - $v_mtime, $v_mdate, $p_header['crc'],
2914   - $p_header['compressed_size'], $p_header['size'],
2915   - strlen($p_header['stored_filename']),
2916   - $p_header['extra_len'], $p_header['comment_len'],
2917   - $p_header['disk'], $p_header['internal'],
2918   - $p_header['external'], $p_header['offset']);
2919   -
2920   - // ----- Write the 42 bytes of the header in the zip file
2921   - fputs($this->zip_fd, $v_binary_data, 46);
2922   -
2923   - // ----- Write the variable fields
2924   - if (strlen($p_header['stored_filename']) != 0)
2925   - {
2926   - fputs($this->zip_fd, $p_header['stored_filename'], strlen($p_header['stored_filename']));
2927   - }
2928   - if ($p_header['extra_len'] != 0)
2929   - {
2930   - fputs($this->zip_fd, $p_header['extra'], $p_header['extra_len']);
2931   - }
2932   - if ($p_header['comment_len'] != 0)
2933   - {
2934   - fputs($this->zip_fd, $p_header['comment'], $p_header['comment_len']);
2935   - }
2936   -
2937   - // ----- Return
2938   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2939   - return $v_result;
2940   - }
2941   - // --------------------------------------------------------------------------------
2942   -
2943   - // --------------------------------------------------------------------------------
2944   - // Function : privWriteCentralHeader()
2945   - // Description :
2946   - // Parameters :
2947   - // Return Values :
2948   - // --------------------------------------------------------------------------------
2949   - function privWriteCentralHeader($p_nb_entries, $p_size, $p_offset, $p_comment)
2950   - {
2951   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privWriteCentralHeader", 'nb_entries='.$p_nb_entries.', size='.$p_size.', offset='.$p_offset.', comment="'.$p_comment.'"');
2952   - $v_result=1;
2953   -
2954   - // ----- Packed data
2955   - $v_binary_data = pack("VvvvvVVv", 0x06054b50, 0, 0, $p_nb_entries,
2956   - $p_nb_entries, $p_size,
2957   - $p_offset, strlen($p_comment));
2958   -
2959   - // ----- Write the 22 bytes of the header in the zip file
2960   - fputs($this->zip_fd, $v_binary_data, 22);
2961   -
2962   - // ----- Write the variable fields
2963   - if (strlen($p_comment) != 0)
2964   - {
2965   - fputs($this->zip_fd, $p_comment, strlen($p_comment));
2966   - }
2967   -
2968   - // ----- Return
2969   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
2970   - return $v_result;
2971   - }
2972   - // --------------------------------------------------------------------------------
2973   -
2974   - // --------------------------------------------------------------------------------
2975   - // Function : privList()
2976   - // Description :
2977   - // Parameters :
2978   - // Return Values :
2979   - // --------------------------------------------------------------------------------
2980   - function privList(&$p_list)
2981   - {
2982   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privList", "list");
2983   - $v_result=1;
2984   -
2985   - // ----- Magic quotes trick
2986   - $this->privDisableMagicQuotes();
2987   -
2988   - // ----- Open the zip file
2989   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open file in binary read mode");
2990   - if (($this->zip_fd = @fopen($this->zipname, 'rb')) == 0)
2991   - {
2992   - // ----- Magic quotes trick
2993   - $this->privSwapBackMagicQuotes();
2994   -
2995   - // ----- Error log
2996   - PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open archive \''.$this->zipname.'\' in binary read mode');
2997   -
2998   - // ----- Return
2999   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
3000   - return PclZip::errorCode();
3001   - }
3002   -
3003   - // ----- Read the central directory informations
3004   - $v_central_dir = array();
3005   - if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1)
3006   - {
3007   - $this->privSwapBackMagicQuotes();
3008   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3009   - return $v_result;
3010   - }
3011   -
3012   - // ----- Go to beginning of Central Dir
3013   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Offset : ".$v_central_dir['offset']."'");
3014   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Position in file : ".ftell($this->zip_fd)."'");
3015   - @rewind($this->zip_fd);
3016   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Position in file : ".ftell($this->zip_fd)."'");
3017   - if (@fseek($this->zip_fd, $v_central_dir['offset']))
3018   - {
3019   - $this->privSwapBackMagicQuotes();
3020   -
3021   - // ----- Error log
3022   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid archive size');
3023   -
3024   - // ----- Return
3025   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
3026   - return PclZip::errorCode();
3027   - }
3028   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Position in file : ".ftell($this->zip_fd)."'");
3029   -
3030   - // ----- Read each entry
3031   - for ($i=0; $i<$v_central_dir['entries']; $i++)
3032   - {
3033   - // ----- Read the file header
3034   - if (($v_result = $this->privReadCentralFileHeader($v_header)) != 1)
3035   - {
3036   - $this->privSwapBackMagicQuotes();
3037   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3038   - return $v_result;
3039   - }
3040   - $v_header['index'] = $i;
3041   -
3042   - // ----- Get the only interesting attributes
3043   - $this->privConvertHeader2FileInfo($v_header, $p_list[$i]);
3044   - unset($v_header);
3045   - }
3046   -
3047   - // ----- Close the zip file
3048   - $this->privCloseFd();
3049   -
3050   - // ----- Magic quotes trick
3051   - $this->privSwapBackMagicQuotes();
3052   -
3053   - // ----- Return
3054   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3055   - return $v_result;
3056   - }
3057   - // --------------------------------------------------------------------------------
3058   -
3059   - // --------------------------------------------------------------------------------
3060   - // Function : privConvertHeader2FileInfo()
3061   - // Description :
3062   - // This function takes the file informations from the central directory
3063   - // entries and extract the interesting parameters that will be given back.
3064   - // The resulting file infos are set in the array $p_info
3065   - // $p_info['filename'] : Filename with full path. Given by user (add),
3066   - // extracted in the filesystem (extract).
3067   - // $p_info['stored_filename'] : Stored filename in the archive.
3068   - // $p_info['size'] = Size of the file.
3069   - // $p_info['compressed_size'] = Compressed size of the file.
3070   - // $p_info['mtime'] = Last modification date of the file.
3071   - // $p_info['comment'] = Comment associated with the file.
3072   - // $p_info['folder'] = true/false : indicates if the entry is a folder or not.
3073   - // $p_info['status'] = status of the action on the file.
3074   - // Parameters :
3075   - // Return Values :
3076   - // --------------------------------------------------------------------------------
3077   - function privConvertHeader2FileInfo($p_header, &$p_info)
3078   - {
3079   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privConvertHeader2FileInfo", "Filename='".$p_header['filename']."'");
3080   - $v_result=1;
3081   -
3082   - // ----- Get the interesting attributes
3083   - $p_info['filename'] = $p_header['filename'];
3084   - $p_info['stored_filename'] = $p_header['stored_filename'];
3085   - $p_info['size'] = $p_header['size'];
3086   - $p_info['compressed_size'] = $p_header['compressed_size'];
3087   - $p_info['mtime'] = $p_header['mtime'];
3088   - $p_info['comment'] = $p_header['comment'];
3089   - $p_info['folder'] = (($p_header['external']&0x00000010)==0x00000010);
3090   - $p_info['index'] = $p_header['index'];
3091   - $p_info['status'] = $p_header['status'];
3092   -
3093   - // ----- Return
3094   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3095   - return $v_result;
3096   - }
3097   - // --------------------------------------------------------------------------------
3098   -
3099   - // --------------------------------------------------------------------------------
3100   - // Function : privExtractByRule()
3101   - // Description :
3102   - // Extract a file or directory depending of rules (by index, by name, ...)
3103   - // Parameters :
3104   - // $p_file_list : An array where will be placed the properties of each
3105   - // extracted file
3106   - // $p_path : Path to add while writing the extracted files
3107   - // $p_remove_path : Path to remove (from the file memorized path) while writing the
3108   - // extracted files. If the path does not match the file path,
3109   - // the file is extracted with its memorized path.
3110   - // $p_remove_path does not apply to 'list' mode.
3111   - // $p_path and $p_remove_path are commulative.
3112   - // Return Values :
3113   - // 1 on success,0 or less on error (see error code list)
3114   - // --------------------------------------------------------------------------------
3115   - function privExtractByRule(&$p_file_list, $p_path, $p_remove_path, $p_remove_all_path, &$p_options)
3116   - {
3117   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privExtractByRule", "path='$p_path', remove_path='$p_remove_path', remove_all_path='".($p_remove_all_path?'true':'false')."'");
3118   - $v_result=1;
3119   -
3120   - // ----- Magic quotes trick
3121   - $this->privDisableMagicQuotes();
3122   -
3123   - // ----- Check the path
3124   - if ( ($p_path == "")
3125   - || ( (substr($p_path, 0, 1) != "/")
3126   - && (substr($p_path, 0, 3) != "../")
3127   - && (substr($p_path,1,2)!=":/")))
3128   - $p_path = "./".$p_path;
3129   -
3130   - // ----- Reduce the path last (and duplicated) '/'
3131   - if (($p_path != "./") && ($p_path != "/"))
3132   - {
3133   - // ----- Look for the path end '/'
3134   - while (substr($p_path, -1) == "/")
3135   - {
3136   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Destination path [$p_path] ends by '/'");
3137   - $p_path = substr($p_path, 0, strlen($p_path)-1);
3138   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Modified to [$p_path]");
3139   - }
3140   - }
3141   -
3142   - // ----- Look for path to remove format (should end by /)
3143   - if (($p_remove_path != "") && (substr($p_remove_path, -1) != '/'))
3144   - {
3145   - $p_remove_path .= '/';
3146   - }
3147   - $p_remove_path_size = strlen($p_remove_path);
3148   -
3149   - // ----- Open the zip file
3150   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open file in binary read mode");
3151   - if (($v_result = $this->privOpenFd('rb')) != 1)
3152   - {
3153   - $this->privSwapBackMagicQuotes();
3154   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3155   - return $v_result;
3156   - }
3157   -
3158   - // ----- Read the central directory informations
3159   - $v_central_dir = array();
3160   - if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1)
3161   - {
3162   - // ----- Close the zip file
3163   - $this->privCloseFd();
3164   - $this->privSwapBackMagicQuotes();
3165   -
3166   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3167   - return $v_result;
3168   - }
3169   -
3170   - // ----- Start at beginning of Central Dir
3171   - $v_pos_entry = $v_central_dir['offset'];
3172   -
3173   - // ----- Read each entry
3174   - $j_start = 0;
3175   - for ($i=0, $v_nb_extracted=0; $i<$v_central_dir['entries']; $i++)
3176   - {
3177   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Read next file header entry : '$i'");
3178   -
3179   - // ----- Read next Central dir entry
3180   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Position before rewind : ".ftell($this->zip_fd)."'");
3181   - @rewind($this->zip_fd);
3182   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Position after rewind : ".ftell($this->zip_fd)."'");
3183   - if (@fseek($this->zip_fd, $v_pos_entry))
3184   - {
3185   - // ----- Close the zip file
3186   - $this->privCloseFd();
3187   - $this->privSwapBackMagicQuotes();
3188   -
3189   - // ----- Error log
3190   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid archive size');
3191   -
3192   - // ----- Return
3193   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
3194   - return PclZip::errorCode();
3195   - }
3196   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Position after fseek : ".ftell($this->zip_fd)."'");
3197   -
3198   - // ----- Read the file header
3199   - $v_header = array();
3200   - if (($v_result = $this->privReadCentralFileHeader($v_header)) != 1)
3201   - {
3202   - // ----- Close the zip file
3203   - $this->privCloseFd();
3204   - $this->privSwapBackMagicQuotes();
3205   -
3206   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3207   - return $v_result;
3208   - }
3209   -
3210   - // ----- Store the index
3211   - $v_header['index'] = $i;
3212   -
3213   - // ----- Store the file position
3214   - $v_pos_entry = ftell($this->zip_fd);
3215   -
3216   - // ----- Look for the specific extract rules
3217   - $v_extract = false;
3218   -
3219   - // ----- Look for extract by name rule
3220   - if ( (isset($p_options[PCLZIP_OPT_BY_NAME]))
3221   - && ($p_options[PCLZIP_OPT_BY_NAME] != 0)) {
3222   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Extract with rule 'ByName'");
3223   -
3224   - // ----- Look if the filename is in the list
3225   - for ($j=0; ($j<sizeof($p_options[PCLZIP_OPT_BY_NAME])) && (!$v_extract); $j++) {
3226   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Compare with file '".$p_options[PCLZIP_OPT_BY_NAME][$j]."'");
3227   -
3228   - // ----- Look for a directory
3229   - if (substr($p_options[PCLZIP_OPT_BY_NAME][$j], -1) == "/") {
3230   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "The searched item is a directory");
3231   -
3232   - // ----- Look if the directory is in the filename path
3233   - if ( (strlen($v_header['stored_filename']) > strlen($p_options[PCLZIP_OPT_BY_NAME][$j]))
3234   - && (substr($v_header['stored_filename'], 0, strlen($p_options[PCLZIP_OPT_BY_NAME][$j])) == $p_options[PCLZIP_OPT_BY_NAME][$j])) {
3235   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "The directory is in the file path");
3236   - $v_extract = true;
3237   - }
3238   - }
3239   - // ----- Look for a filename
3240   - elseif ($v_header['stored_filename'] == $p_options[PCLZIP_OPT_BY_NAME][$j]) {
3241   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "The file is the right one.");
3242   - $v_extract = true;
3243   - }
3244   - }
3245   - }
3246   -
3247   - // ----- Look for extract by ereg rule
3248   - else if ( (isset($p_options[PCLZIP_OPT_BY_EREG]))
3249   - && ($p_options[PCLZIP_OPT_BY_EREG] != "")) {
3250   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Extract by ereg '".$p_options[PCLZIP_OPT_BY_EREG]."'");
3251   -
3252   - if (ereg($p_options[PCLZIP_OPT_BY_EREG], $v_header['stored_filename'])) {
3253   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Filename match the regular expression");
3254   - $v_extract = true;
3255   - }
3256   - }
3257   -
3258   - // ----- Look for extract by preg rule
3259   - else if ( (isset($p_options[PCLZIP_OPT_BY_PREG]))
3260   - && ($p_options[PCLZIP_OPT_BY_PREG] != "")) {
3261   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Extract with rule 'ByEreg'");
3262   -
3263   - if (preg_match($p_options[PCLZIP_OPT_BY_PREG], $v_header['stored_filename'])) {
3264   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Filename match the regular expression");
3265   - $v_extract = true;
3266   - }
3267   - }
3268   -
3269   - // ----- Look for extract by index rule
3270   - else if ( (isset($p_options[PCLZIP_OPT_BY_INDEX]))
3271   - && ($p_options[PCLZIP_OPT_BY_INDEX] != 0)) {
3272   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Extract with rule 'ByIndex'");
3273   -
3274   - // ----- Look if the index is in the list
3275   - for ($j=$j_start; ($j<sizeof($p_options[PCLZIP_OPT_BY_INDEX])) && (!$v_extract); $j++) {
3276   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Look if index '$i' is in [".$p_options[PCLZIP_OPT_BY_INDEX][$j]['start'].",".$p_options[PCLZIP_OPT_BY_INDEX][$j]['end']."]");
3277   -
3278   - if (($i>=$p_options[PCLZIP_OPT_BY_INDEX][$j]['start']) && ($i<=$p_options[PCLZIP_OPT_BY_INDEX][$j]['end'])) {
3279   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Found as part of an index range");
3280   - $v_extract = true;
3281   - }
3282   - if ($i>=$p_options[PCLZIP_OPT_BY_INDEX][$j]['end']) {
3283   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Do not look this index range for next loop");
3284   - $j_start = $j+1;
3285   - }
3286   -
3287   - if ($p_options[PCLZIP_OPT_BY_INDEX][$j]['start']>$i) {
3288   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Index range is greater than index, stop loop");
3289   - break;
3290   - }
3291   - }
3292   - }
3293   -
3294   - // ----- Look for no rule, which means extract all the archive
3295   - else {
3296   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Extract with no rule (extract all)");
3297   - $v_extract = true;
3298   - }
3299   -
3300   - // ----- Check compression method
3301   - if ( ($v_extract)
3302   - && ( ($v_header['compression'] != 8)
3303   - && ($v_header['compression'] != 0))) {
3304   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Unsupported compression method (".$v_header['compression'].")");
3305   - $v_header['status'] = 'unsupported_compression';
3306   -
3307   - // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
3308   - if ( (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
3309   - && ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {
3310   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "PCLZIP_OPT_STOP_ON_ERROR is selected, extraction will be stopped");
3311   -
3312   - $this->privSwapBackMagicQuotes();
3313   -
3314   - PclZip::privErrorLog(PCLZIP_ERR_UNSUPPORTED_COMPRESSION,
3315   - "Filename '".$v_header['stored_filename']."' is "
3316   - ."compressed by an unsupported compression "
3317   - ."method (".$v_header['compression'].") ");
3318   -
3319   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
3320   - return PclZip::errorCode();
3321   - }
3322   - }
3323   -
3324   - // ----- Check encrypted files
3325   - if (($v_extract) && (($v_header['flag'] & 1) == 1)) {
3326   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Unsupported file encryption");
3327   - $v_header['status'] = 'unsupported_encryption';
3328   -
3329   - // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
3330   - if ( (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
3331   - && ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {
3332   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "PCLZIP_OPT_STOP_ON_ERROR is selected, extraction will be stopped");
3333   -
3334   - $this->privSwapBackMagicQuotes();
3335   -
3336   - PclZip::privErrorLog(PCLZIP_ERR_UNSUPPORTED_ENCRYPTION,
3337   - "Unsupported encryption for "
3338   - ." filename '".$v_header['stored_filename']
3339   - ."'");
3340   -
3341   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
3342   - return PclZip::errorCode();
3343   - }
3344   - }
3345   -
3346   - // ----- Look for real extraction
3347   - if (($v_extract) && ($v_header['status'] != 'ok')) {
3348   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "No need for extract");
3349   - $v_result = $this->privConvertHeader2FileInfo($v_header,
3350   - $p_file_list[$v_nb_extracted++]);
3351   - if ($v_result != 1) {
3352   - $this->privCloseFd();
3353   - $this->privSwapBackMagicQuotes();
3354   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3355   - return $v_result;
3356   - }
3357   -
3358   - $v_extract = false;
3359   - }
3360   -
3361   - // ----- Look for real extraction
3362   - if ($v_extract)
3363   - {
3364   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Extracting file '".$v_header['filename']."', index '$i'");
3365   -
3366   - // ----- Go to the file position
3367   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Position before rewind : ".ftell($this->zip_fd)."'");
3368   - @rewind($this->zip_fd);
3369   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Position after rewind : ".ftell($this->zip_fd)."'");
3370   - if (@fseek($this->zip_fd, $v_header['offset']))
3371   - {
3372   - // ----- Close the zip file
3373   - $this->privCloseFd();
3374   -
3375   - $this->privSwapBackMagicQuotes();
3376   -
3377   - // ----- Error log
3378   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid archive size');
3379   -
3380   - // ----- Return
3381   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
3382   - return PclZip::errorCode();
3383   - }
3384   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Position after fseek : ".ftell($this->zip_fd)."'");
3385   -
3386   - // ----- Look for extraction as string
3387   - if ($p_options[PCLZIP_OPT_EXTRACT_AS_STRING]) {
3388   -
3389   - // ----- Extracting the file
3390   - $v_result1 = $this->privExtractFileAsString($v_header, $v_string);
3391   - if ($v_result1 < 1) {
3392   - $this->privCloseFd();
3393   - $this->privSwapBackMagicQuotes();
3394   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result1);
3395   - return $v_result1;
3396   - }
3397   -
3398   - // ----- Get the only interesting attributes
3399   - if (($v_result = $this->privConvertHeader2FileInfo($v_header, $p_file_list[$v_nb_extracted])) != 1)
3400   - {
3401   - // ----- Close the zip file
3402   - $this->privCloseFd();
3403   - $this->privSwapBackMagicQuotes();
3404   -
3405   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3406   - return $v_result;
3407   - }
3408   -
3409   - // ----- Set the file content
3410   - $p_file_list[$v_nb_extracted]['content'] = $v_string;
3411   -
3412   - // ----- Next extracted file
3413   - $v_nb_extracted++;
3414   -
3415   - // ----- Look for user callback abort
3416   - if ($v_result1 == 2) {
3417   - break;
3418   - }
3419   - }
3420   - // ----- Look for extraction in standard output
3421   - elseif ( (isset($p_options[PCLZIP_OPT_EXTRACT_IN_OUTPUT]))
3422   - && ($p_options[PCLZIP_OPT_EXTRACT_IN_OUTPUT])) {
3423   - // ----- Extracting the file in standard output
3424   - $v_result1 = $this->privExtractFileInOutput($v_header, $p_options);
3425   - if ($v_result1 < 1) {
3426   - $this->privCloseFd();
3427   - $this->privSwapBackMagicQuotes();
3428   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result1);
3429   - return $v_result1;
3430   - }
3431   -
3432   - // ----- Get the only interesting attributes
3433   - if (($v_result = $this->privConvertHeader2FileInfo($v_header, $p_file_list[$v_nb_extracted++])) != 1) {
3434   - $this->privCloseFd();
3435   - $this->privSwapBackMagicQuotes();
3436   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3437   - return $v_result;
3438   - }
3439   -
3440   - // ----- Look for user callback abort
3441   - if ($v_result1 == 2) {
3442   - break;
3443   - }
3444   - }
3445   - // ----- Look for normal extraction
3446   - else {
3447   - // ----- Extracting the file
3448   - $v_result1 = $this->privExtractFile($v_header,
3449   - $p_path, $p_remove_path,
3450   - $p_remove_all_path,
3451   - $p_options);
3452   - if ($v_result1 < 1) {
3453   - $this->privCloseFd();
3454   - $this->privSwapBackMagicQuotes();
3455   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result1);
3456   - return $v_result1;
3457   - }
3458   -
3459   - // ----- Get the only interesting attributes
3460   - if (($v_result = $this->privConvertHeader2FileInfo($v_header, $p_file_list[$v_nb_extracted++])) != 1)
3461   - {
3462   - // ----- Close the zip file
3463   - $this->privCloseFd();
3464   - $this->privSwapBackMagicQuotes();
3465   -
3466   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3467   - return $v_result;
3468   - }
3469   -
3470   - // ----- Look for user callback abort
3471   - if ($v_result1 == 2) {
3472   - break;
3473   - }
3474   - }
3475   - }
3476   - }
3477   -
3478   - // ----- Close the zip file
3479   - $this->privCloseFd();
3480   - $this->privSwapBackMagicQuotes();
3481   -
3482   - // ----- Return
3483   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3484   - return $v_result;
3485   - }
3486   - // --------------------------------------------------------------------------------
3487   -
3488   - // --------------------------------------------------------------------------------
3489   - // Function : privExtractFile()
3490   - // Description :
3491   - // Parameters :
3492   - // Return Values :
3493   - //
3494   - // 1 : ... ?
3495   - // PCLZIP_ERR_USER_ABORTED(2) : User ask for extraction stop in callback
3496   - // --------------------------------------------------------------------------------
3497   - function privExtractFile(&$p_entry, $p_path, $p_remove_path, $p_remove_all_path, &$p_options)
3498   - {
3499   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, 'PclZip::privExtractFile', "path='$p_path', remove_path='$p_remove_path', remove_all_path='".($p_remove_all_path?'true':'false')."'");
3500   - $v_result=1;
3501   -
3502   - // ----- Read the file header
3503   - if (($v_result = $this->privReadFileHeader($v_header)) != 1)
3504   - {
3505   - // ----- Return
3506   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3507   - return $v_result;
3508   - }
3509   -
3510   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Found file '".$v_header['filename']."', size '".$v_header['size']."'");
3511   -
3512   - // ----- Check that the file header is coherent with $p_entry info
3513   - if ($this->privCheckFileHeaders($v_header, $p_entry) != 1) {
3514   - // TBC
3515   - }
3516   -
3517   - // ----- Look for all path to remove
3518   - if ($p_remove_all_path == true) {
3519   - // ----- Look for folder entry that not need to be extracted
3520   - if (($p_entry['external']&0x00000010)==0x00000010) {
3521   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "The entry is a folder : need to be filtered");
3522   -
3523   - $p_entry['status'] = "filtered";
3524   -
3525   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3526   - return $v_result;
3527   - }
3528   -
3529   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "All path is removed");
3530   - // ----- Get the basename of the path
3531   - $p_entry['filename'] = basename($p_entry['filename']);
3532   - }
3533   -
3534   - // ----- Look for path to remove
3535   - else if ($p_remove_path != "")
3536   - {
3537   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Look for some path to remove");
3538   - if (PclZipUtilPathInclusion($p_remove_path, $p_entry['filename']) == 2)
3539   - {
3540   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "The folder is the same as the removed path '".$p_entry['filename']."'");
3541   -
3542   - // ----- Change the file status
3543   - $p_entry['status'] = "filtered";
3544   -
3545   - // ----- Return
3546   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3547   - return $v_result;
3548   - }
3549   -
3550   - $p_remove_path_size = strlen($p_remove_path);
3551   - if (substr($p_entry['filename'], 0, $p_remove_path_size) == $p_remove_path)
3552   - {
3553   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Found path '$p_remove_path' to remove in file '".$p_entry['filename']."'");
3554   -
3555   - // ----- Remove the path
3556   - $p_entry['filename'] = substr($p_entry['filename'], $p_remove_path_size);
3557   -
3558   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Resulting file is '".$p_entry['filename']."'");
3559   - }
3560   - }
3561   -
3562   - // ----- Add the path
3563   - if ($p_path != '') {
3564   - $p_entry['filename'] = $p_path."/".$p_entry['filename'];
3565   - }
3566   -
3567   - // ----- Check a base_dir_restriction
3568   - if (isset($p_options[PCLZIP_OPT_EXTRACT_DIR_RESTRICTION])) {
3569   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Check the extract directory restriction");
3570   - $v_inclusion
3571   - = PclZipUtilPathInclusion($p_options[PCLZIP_OPT_EXTRACT_DIR_RESTRICTION],
3572   - $p_entry['filename']);
3573   - if ($v_inclusion == 0) {
3574   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "PCLZIP_OPT_EXTRACT_DIR_RESTRICTION is selected, file is outside restriction");
3575   -
3576   - PclZip::privErrorLog(PCLZIP_ERR_DIRECTORY_RESTRICTION,
3577   - "Filename '".$p_entry['filename']."' is "
3578   - ."outside PCLZIP_OPT_EXTRACT_DIR_RESTRICTION");
3579   -
3580   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
3581   - return PclZip::errorCode();
3582   - }
3583   - }
3584   -
3585   - // ----- Look for pre-extract callback
3586   - if (isset($p_options[PCLZIP_CB_PRE_EXTRACT])) {
3587   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "A pre-callback '".$p_options[PCLZIP_CB_PRE_EXTRACT]."()') is defined for the extraction");
3588   -
3589   - // ----- Generate a local information
3590   - $v_local_header = array();
3591   - $this->privConvertHeader2FileInfo($p_entry, $v_local_header);
3592   -
3593   - // ----- Call the callback
3594   - // Here I do not use call_user_func() because I need to send a reference to the
3595   - // header.
3596   - eval('$v_result = '.$p_options[PCLZIP_CB_PRE_EXTRACT].'(PCLZIP_CB_PRE_EXTRACT, $v_local_header);');
3597   - if ($v_result == 0) {
3598   - // ----- Change the file status
3599   - $p_entry['status'] = "skipped";
3600   - $v_result = 1;
3601   - }
3602   -
3603   - // ----- Look for abort result
3604   - if ($v_result == 2) {
3605   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "User callback abort the extraction");
3606   - // ----- This status is internal and will be changed in 'skipped'
3607   - $p_entry['status'] = "aborted";
3608   - $v_result = PCLZIP_ERR_USER_ABORTED;
3609   - }
3610   -
3611   - // ----- Update the informations
3612   - // Only some fields can be modified
3613   - $p_entry['filename'] = $v_local_header['filename'];
3614   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "New filename is '".$p_entry['filename']."'");
3615   - }
3616   -
3617   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Extracting file (with path) '".$p_entry['filename']."', size '$v_header[size]'");
3618   -
3619   - // ----- Look if extraction should be done
3620   - if ($p_entry['status'] == 'ok') {
3621   -
3622   - // ----- Look for specific actions while the file exist
3623   - if (file_exists($p_entry['filename']))
3624   - {
3625   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "File '".$p_entry['filename']."' already exists");
3626   -
3627   - // ----- Look if file is a directory
3628   - if (is_dir($p_entry['filename']))
3629   - {
3630   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Existing file '".$p_entry['filename']."' is a directory");
3631   -
3632   - // ----- Change the file status
3633   - $p_entry['status'] = "already_a_directory";
3634   -
3635   - // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
3636   - // For historical reason first PclZip implementation does not stop
3637   - // when this kind of error occurs.
3638   - if ( (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
3639   - && ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {
3640   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "PCLZIP_OPT_STOP_ON_ERROR is selected, extraction will be stopped");
3641   -
3642   - PclZip::privErrorLog(PCLZIP_ERR_ALREADY_A_DIRECTORY,
3643   - "Filename '".$p_entry['filename']."' is "
3644   - ."already used by an existing directory");
3645   -
3646   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
3647   - return PclZip::errorCode();
3648   - }
3649   - }
3650   - // ----- Look if file is write protected
3651   - else if (!is_writeable($p_entry['filename']))
3652   - {
3653   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Existing file '".$p_entry['filename']."' is write protected");
3654   -
3655   - // ----- Change the file status
3656   - $p_entry['status'] = "write_protected";
3657   -
3658   - // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
3659   - // For historical reason first PclZip implementation does not stop
3660   - // when this kind of error occurs.
3661   - if ( (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
3662   - && ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {
3663   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "PCLZIP_OPT_STOP_ON_ERROR is selected, extraction will be stopped");
3664   -
3665   - PclZip::privErrorLog(PCLZIP_ERR_WRITE_OPEN_FAIL,
3666   - "Filename '".$p_entry['filename']."' exists "
3667   - ."and is write protected");
3668   -
3669   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
3670   - return PclZip::errorCode();
3671   - }
3672   - }
3673   -
3674   - // ----- Look if the extracted file is older
3675   - else if (filemtime($p_entry['filename']) > $p_entry['mtime'])
3676   - {
3677   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Existing file '".$p_entry['filename']."' is newer (".date("l dS of F Y h:i:s A", filemtime($p_entry['filename'])).") than the extracted file (".date("l dS of F Y h:i:s A", $p_entry['mtime']).")");
3678   - // ----- Change the file status
3679   - if ( (isset($p_options[PCLZIP_OPT_REPLACE_NEWER]))
3680   - && ($p_options[PCLZIP_OPT_REPLACE_NEWER]===true)) {
3681   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "PCLZIP_OPT_REPLACE_NEWER is selected, file will be replaced");
3682   - }
3683   - else {
3684   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "File will not be replaced");
3685   - $p_entry['status'] = "newer_exist";
3686   -
3687   - // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
3688   - // For historical reason first PclZip implementation does not stop
3689   - // when this kind of error occurs.
3690   - if ( (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
3691   - && ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {
3692   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "PCLZIP_OPT_STOP_ON_ERROR is selected, extraction will be stopped");
3693   -
3694   - PclZip::privErrorLog(PCLZIP_ERR_WRITE_OPEN_FAIL,
3695   - "Newer version of '".$p_entry['filename']."' exists "
3696   - ."and option PCLZIP_OPT_REPLACE_NEWER is not selected");
3697   -
3698   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
3699   - return PclZip::errorCode();
3700   - }
3701   - }
3702   - }
3703   - else {
3704   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Existing file '".$p_entry['filename']."' is older than the extrated one - will be replaced by the extracted one (".date("l dS of F Y h:i:s A", filemtime($p_entry['filename'])).") than the extracted file (".date("l dS of F Y h:i:s A", $p_entry['mtime']).")");
3705   - }
3706   - }
3707   -
3708   - // ----- Check the directory availability and create it if necessary
3709   - else {
3710   - if ((($p_entry['external']&0x00000010)==0x00000010) || (substr($p_entry['filename'], -1) == '/'))
3711   - $v_dir_to_check = $p_entry['filename'];
3712   - else if (!strstr($p_entry['filename'], "/"))
3713   - $v_dir_to_check = "";
3714   - else
3715   - $v_dir_to_check = dirname($p_entry['filename']);
3716   -
3717   - if (($v_result = $this->privDirCheck($v_dir_to_check, (($p_entry['external']&0x00000010)==0x00000010))) != 1) {
3718   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Unable to create path for '".$p_entry['filename']."'");
3719   -
3720   - // ----- Change the file status
3721   - $p_entry['status'] = "path_creation_fail";
3722   -
3723   - // ----- Return
3724   - ////--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3725   - //return $v_result;
3726   - $v_result = 1;
3727   - }
3728   - }
3729   - }
3730   -
3731   - // ----- Look if extraction should be done
3732   - if ($p_entry['status'] == 'ok') {
3733   -
3734   - // ----- Do the extraction (if not a folder)
3735   - if (!(($p_entry['external']&0x00000010)==0x00000010))
3736   - {
3737   - // ----- Look for not compressed file
3738   - if ($p_entry['compression'] == 0) {
3739   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Extracting an un-compressed file");
3740   -
3741   - // ----- Opening destination file
3742   - if (($v_dest_file = @fopen($p_entry['filename'], 'wb')) == 0)
3743   - {
3744   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Error while opening '".$p_entry['filename']."' in write binary mode");
3745   -
3746   - // ----- Change the file status
3747   - $p_entry['status'] = "write_error";
3748   -
3749   - // ----- Return
3750   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3751   - return $v_result;
3752   - }
3753   -
3754   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Read '".$p_entry['size']."' bytes");
3755   -
3756   - // ----- Read the file by PCLZIP_READ_BLOCK_SIZE octets blocks
3757   - $v_size = $p_entry['compressed_size'];
3758   - while ($v_size != 0)
3759   - {
3760   - $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
3761   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Read $v_read_size bytes");
3762   - $v_buffer = @fread($this->zip_fd, $v_read_size);
3763   - /* Try to speed up the code
3764   - $v_binary_data = pack('a'.$v_read_size, $v_buffer);
3765   - @fwrite($v_dest_file, $v_binary_data, $v_read_size);
3766   - */
3767   - @fwrite($v_dest_file, $v_buffer, $v_read_size);
3768   - $v_size -= $v_read_size;
3769   - }
3770   -
3771   - // ----- Closing the destination file
3772   - fclose($v_dest_file);
3773   -
3774   - // ----- Change the file mtime
3775   - touch($p_entry['filename'], $p_entry['mtime']);
3776   -
3777   -
3778   - }
3779   - else {
3780   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Extracting a compressed file (Compression method ".$p_entry['compression'].")");
3781   - // ----- TBC
3782   - // Need to be finished
3783   - if (($p_entry['flag'] & 1) == 1) {
3784   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "File is encrypted");
3785   - /*
3786   - // ----- Read the encryption header
3787   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Read 12 encryption header bytes");
3788   - $v_encryption_header = @fread($this->zip_fd, 12);
3789   -
3790   - // ----- Read the encrypted & compressed file in a buffer
3791   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Read '".($p_entry['compressed_size']-12)."' compressed & encrypted bytes");
3792   - $v_buffer = @fread($this->zip_fd, $p_entry['compressed_size']-12);
3793   -
3794   - // ----- Decrypt the buffer
3795   - $this->privDecrypt($v_encryption_header, $v_buffer,
3796   - $p_entry['compressed_size']-12, $p_entry['crc']);
3797   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Buffer is '".$v_buffer."'");
3798   - */
3799   - }
3800   - else {
3801   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Read '".$p_entry['compressed_size']."' compressed bytes");
3802   - // ----- Read the compressed file in a buffer (one shot)
3803   - $v_buffer = @fread($this->zip_fd, $p_entry['compressed_size']);
3804   - }
3805   -
3806   - // ----- Decompress the file
3807   - $v_file_content = @gzinflate($v_buffer);
3808   - unset($v_buffer);
3809   - if ($v_file_content === FALSE) {
3810   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Unable to inflate compressed file");
3811   -
3812   - // ----- Change the file status
3813   - // TBC
3814   - $p_entry['status'] = "error";
3815   -
3816   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3817   - return $v_result;
3818   - }
3819   -
3820   - // ----- Opening destination file
3821   - if (($v_dest_file = @fopen($p_entry['filename'], 'wb')) == 0) {
3822   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Error while opening '".$p_entry['filename']."' in write binary mode");
3823   -
3824   - // ----- Change the file status
3825   - $p_entry['status'] = "write_error";
3826   -
3827   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3828   - return $v_result;
3829   - }
3830   -
3831   - // ----- Write the uncompressed data
3832   - @fwrite($v_dest_file, $v_file_content, $p_entry['size']);
3833   - unset($v_file_content);
3834   -
3835   - // ----- Closing the destination file
3836   - @fclose($v_dest_file);
3837   -
3838   - // ----- Change the file mtime
3839   - @touch($p_entry['filename'], $p_entry['mtime']);
3840   - }
3841   -
3842   - // ----- Look for chmod option
3843   - if (isset($p_options[PCLZIP_OPT_SET_CHMOD])) {
3844   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "chmod option activated '".$p_options[PCLZIP_OPT_SET_CHMOD]."'");
3845   -
3846   - // ----- Change the mode of the file
3847   - @chmod($p_entry['filename'], $p_options[PCLZIP_OPT_SET_CHMOD]);
3848   - }
3849   -
3850   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Extraction done");
3851   - }
3852   - }
3853   -
3854   - // ----- Change abort status
3855   - if ($p_entry['status'] == "aborted") {
3856   - $p_entry['status'] = "skipped";
3857   - }
3858   -
3859   - // ----- Look for post-extract callback
3860   - elseif (isset($p_options[PCLZIP_CB_POST_EXTRACT])) {
3861   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "A post-callback '".$p_options[PCLZIP_CB_POST_EXTRACT]."()') is defined for the extraction");
3862   -
3863   - // ----- Generate a local information
3864   - $v_local_header = array();
3865   - $this->privConvertHeader2FileInfo($p_entry, $v_local_header);
3866   -
3867   - // ----- Call the callback
3868   - // Here I do not use call_user_func() because I need to send a reference to the
3869   - // header.
3870   - eval('$v_result = '.$p_options[PCLZIP_CB_POST_EXTRACT].'(PCLZIP_CB_POST_EXTRACT, $v_local_header);');
3871   -
3872   - // ----- Look for abort result
3873   - if ($v_result == 2) {
3874   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "User callback abort the extraction");
3875   - $v_result = PCLZIP_ERR_USER_ABORTED;
3876   - }
3877   - }
3878   -
3879   - // ----- Return
3880   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3881   - return $v_result;
3882   - }
3883   - // --------------------------------------------------------------------------------
3884   -
3885   - // --------------------------------------------------------------------------------
3886   - // Function : privExtractFileInOutput()
3887   - // Description :
3888   - // Parameters :
3889   - // Return Values :
3890   - // --------------------------------------------------------------------------------
3891   - function privExtractFileInOutput(&$p_entry, &$p_options)
3892   - {
3893   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, 'PclZip::privExtractFileInOutput', "");
3894   - $v_result=1;
3895   -
3896   - // ----- Read the file header
3897   - if (($v_result = $this->privReadFileHeader($v_header)) != 1) {
3898   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
3899   - return $v_result;
3900   - }
3901   -
3902   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Found file '".$v_header['filename']."', size '".$v_header['size']."'");
3903   -
3904   - // ----- Check that the file header is coherent with $p_entry info
3905   - if ($this->privCheckFileHeaders($v_header, $p_entry) != 1) {
3906   - // TBC
3907   - }
3908   -
3909   - // ----- Look for pre-extract callback
3910   - if (isset($p_options[PCLZIP_CB_PRE_EXTRACT])) {
3911   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "A pre-callback '".$p_options[PCLZIP_CB_PRE_EXTRACT]."()') is defined for the extraction");
3912   -
3913   - // ----- Generate a local information
3914   - $v_local_header = array();
3915   - $this->privConvertHeader2FileInfo($p_entry, $v_local_header);
3916   -
3917   - // ----- Call the callback
3918   - // Here I do not use call_user_func() because I need to send a reference to the
3919   - // header.
3920   - eval('$v_result = '.$p_options[PCLZIP_CB_PRE_EXTRACT].'(PCLZIP_CB_PRE_EXTRACT, $v_local_header);');
3921   - if ($v_result == 0) {
3922   - // ----- Change the file status
3923   - $p_entry['status'] = "skipped";
3924   - $v_result = 1;
3925   - }
3926   -
3927   - // ----- Look for abort result
3928   - if ($v_result == 2) {
3929   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "User callback abort the extraction");
3930   - // ----- This status is internal and will be changed in 'skipped'
3931   - $p_entry['status'] = "aborted";
3932   - $v_result = PCLZIP_ERR_USER_ABORTED;
3933   - }
3934   -
3935   - // ----- Update the informations
3936   - // Only some fields can be modified
3937   - $p_entry['filename'] = $v_local_header['filename'];
3938   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "New filename is '".$p_entry['filename']."'");
3939   - }
3940   -
3941   - // ----- Trace
3942   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Extracting file (with path) '".$p_entry['filename']."', size '$v_header[size]'");
3943   -
3944   - // ----- Look if extraction should be done
3945   - if ($p_entry['status'] == 'ok') {
3946   -
3947   - // ----- Do the extraction (if not a folder)
3948   - if (!(($p_entry['external']&0x00000010)==0x00000010)) {
3949   - // ----- Look for not compressed file
3950   - if ($p_entry['compressed_size'] == $p_entry['size']) {
3951   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Extracting an un-compressed file");
3952   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Reading '".$p_entry['size']."' bytes");
3953   -
3954   - // ----- Read the file in a buffer (one shot)
3955   - $v_buffer = @fread($this->zip_fd, $p_entry['compressed_size']);
3956   -
3957   - // ----- Send the file to the output
3958   - echo $v_buffer;
3959   - unset($v_buffer);
3960   - }
3961   - else {
3962   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Extracting a compressed file");
3963   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Reading '".$p_entry['size']."' bytes");
3964   -
3965   - // ----- Read the compressed file in a buffer (one shot)
3966   - $v_buffer = @fread($this->zip_fd, $p_entry['compressed_size']);
3967   -
3968   - // ----- Decompress the file
3969   - $v_file_content = gzinflate($v_buffer);
3970   - unset($v_buffer);
3971   -
3972   - // ----- Send the file to the output
3973   - echo $v_file_content;
3974   - unset($v_file_content);
3975   - }
3976   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Extraction done");
3977   - }
3978   - }
3979   -
3980   - // ----- Change abort status
3981   - if ($p_entry['status'] == "aborted") {
3982   - $p_entry['status'] = "skipped";
3983   - }
3984   -
3985   - // ----- Look for post-extract callback
3986   - elseif (isset($p_options[PCLZIP_CB_POST_EXTRACT])) {
3987   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "A post-callback '".$p_options[PCLZIP_CB_POST_EXTRACT]."()') is defined for the extraction");
3988   -
3989   - // ----- Generate a local information
3990   - $v_local_header = array();
3991   - $this->privConvertHeader2FileInfo($p_entry, $v_local_header);
3992   -
3993   - // ----- Call the callback
3994   - // Here I do not use call_user_func() because I need to send a reference to the
3995   - // header.
3996   - eval('$v_result = '.$p_options[PCLZIP_CB_POST_EXTRACT].'(PCLZIP_CB_POST_EXTRACT, $v_local_header);');
3997   -
3998   - // ----- Look for abort result
3999   - if ($v_result == 2) {
4000   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "User callback abort the extraction");
4001   - $v_result = PCLZIP_ERR_USER_ABORTED;
4002   - }
4003   - }
4004   -
4005   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
4006   - return $v_result;
4007   - }
4008   - // --------------------------------------------------------------------------------
4009   -
4010   - // --------------------------------------------------------------------------------
4011   - // Function : privExtractFileAsString()
4012   - // Description :
4013   - // Parameters :
4014   - // Return Values :
4015   - // --------------------------------------------------------------------------------
4016   - function privExtractFileAsString(&$p_entry, &$p_string)
4017   - {
4018   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, 'PclZip::privExtractFileAsString', "p_entry['filename']='".$p_entry['filename']."'");
4019   - $v_result=1;
4020   -
4021   - // ----- Read the file header
4022   - $v_header = array();
4023   - if (($v_result = $this->privReadFileHeader($v_header)) != 1)
4024   - {
4025   - // ----- Return
4026   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
4027   - return $v_result;
4028   - }
4029   -
4030   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Found file '".$v_header['filename']."', size '".$v_header['size']."'");
4031   -
4032   - // ----- Check that the file header is coherent with $p_entry info
4033   - if ($this->privCheckFileHeaders($v_header, $p_entry) != 1) {
4034   - // TBC
4035   - }
4036   -
4037   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Extracting file in string (with path) '".$p_entry['filename']."', size '$v_header[size]'");
4038   -
4039   - // ----- Do the extraction (if not a folder)
4040   - if (!(($p_entry['external']&0x00000010)==0x00000010))
4041   - {
4042   - // ----- Look for not compressed file
4043   -// if ($p_entry['compressed_size'] == $p_entry['size'])
4044   - if ($p_entry['compression'] == 0) {
4045   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Extracting an un-compressed file");
4046   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Reading '".$p_entry['size']."' bytes");
4047   -
4048   - // ----- Reading the file
4049   - $p_string = @fread($this->zip_fd, $p_entry['compressed_size']);
4050   - }
4051   - else {
4052   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Extracting a compressed file (compression method '".$p_entry['compression']."')");
4053   -
4054   - // ----- Reading the file
4055   - $v_data = @fread($this->zip_fd, $p_entry['compressed_size']);
4056   -
4057   - // ----- Decompress the file
4058   - if (($p_string = @gzinflate($v_data)) === FALSE) {
4059   - // TBC
4060   - }
4061   - }
4062   -
4063   - // ----- Trace
4064   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Extraction done");
4065   - }
4066   - else {
4067   - // TBC : error : can not extract a folder in a string
4068   - }
4069   -
4070   - // ----- Return
4071   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
4072   - return $v_result;
4073   - }
4074   - // --------------------------------------------------------------------------------
4075   -
4076   - // --------------------------------------------------------------------------------
4077   - // Function : privReadFileHeader()
4078   - // Description :
4079   - // Parameters :
4080   - // Return Values :
4081   - // --------------------------------------------------------------------------------
4082   - function privReadFileHeader(&$p_header)
4083   - {
4084   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privReadFileHeader", "");
4085   - $v_result=1;
4086   -
4087   - // ----- Read the 4 bytes signature
4088   - $v_binary_data = @fread($this->zip_fd, 4);
4089   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Binary data is : '".sprintf("%08x", $v_binary_data)."'");
4090   - $v_data = unpack('Vid', $v_binary_data);
4091   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Binary signature is : '".sprintf("0x%08x", $v_data['id'])."'");
4092   -
4093   - // ----- Check signature
4094   - if ($v_data['id'] != 0x04034b50)
4095   - {
4096   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Invalid File header");
4097   -
4098   - // ----- Error log
4099   - PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'Invalid archive structure');
4100   -
4101   - // ----- Return
4102   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
4103   - return PclZip::errorCode();
4104   - }
4105   -
4106   - // ----- Read the first 42 bytes of the header
4107   - $v_binary_data = fread($this->zip_fd, 26);
4108   -
4109   - // ----- Look for invalid block size
4110   - if (strlen($v_binary_data) != 26)
4111   - {
4112   - $p_header['filename'] = "";
4113   - $p_header['status'] = "invalid_header";
4114   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Invalid block size : ".strlen($v_binary_data));
4115   -
4116   - // ----- Error log
4117   - PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, "Invalid block size : ".strlen($v_binary_data));
4118   -
4119   - // ----- Return
4120   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
4121   - return PclZip::errorCode();
4122   - }
4123   -
4124   - // ----- Extract the values
4125   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Header : '".$v_binary_data."'");
4126   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Header (Hex) : '".bin2hex($v_binary_data)."'");
4127   - $v_data = unpack('vversion/vflag/vcompression/vmtime/vmdate/Vcrc/Vcompressed_size/Vsize/vfilename_len/vextra_len', $v_binary_data);
4128   -
4129   - // ----- Get filename
4130   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "File name length : ".$v_data['filename_len']);
4131   - $p_header['filename'] = fread($this->zip_fd, $v_data['filename_len']);
4132   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Filename : \''.$p_header['filename'].'\'');
4133   -
4134   - // ----- Get extra_fields
4135   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Extra field length : ".$v_data['extra_len']);
4136   - if ($v_data['extra_len'] != 0) {
4137   - $p_header['extra'] = fread($this->zip_fd, $v_data['extra_len']);
4138   - }
4139   - else {
4140   - $p_header['extra'] = '';
4141   - }
4142   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Extra field : \''.bin2hex($p_header['extra']).'\'');
4143   -
4144   - // ----- Extract properties
4145   - $p_header['version_extracted'] = $v_data['version'];
4146   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Version need to extract : ('.$p_header['version_extracted'].') \''.($p_header['version_extracted']/10).'.'.($p_header['version_extracted']%10).'\'');
4147   - $p_header['compression'] = $v_data['compression'];
4148   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Compression method : \''.$p_header['compression'].'\'');
4149   - $p_header['size'] = $v_data['size'];
4150   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Size : \''.$p_header['size'].'\'');
4151   - $p_header['compressed_size'] = $v_data['compressed_size'];
4152   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Compressed Size : \''.$p_header['compressed_size'].'\'');
4153   - $p_header['crc'] = $v_data['crc'];
4154   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'CRC : \''.sprintf("0x%X", $p_header['crc']).'\'');
4155   - $p_header['flag'] = $v_data['flag'];
4156   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Flag : \''.$p_header['flag'].'\'');
4157   - $p_header['filename_len'] = $v_data['filename_len'];
4158   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Filename_len : \''.$p_header['filename_len'].'\'');
4159   -
4160   - // ----- Recuperate date in UNIX format
4161   - $p_header['mdate'] = $v_data['mdate'];
4162   - $p_header['mtime'] = $v_data['mtime'];
4163   - if ($p_header['mdate'] && $p_header['mtime'])
4164   - {
4165   - // ----- Extract time
4166   - $v_hour = ($p_header['mtime'] & 0xF800) >> 11;
4167   - $v_minute = ($p_header['mtime'] & 0x07E0) >> 5;
4168   - $v_seconde = ($p_header['mtime'] & 0x001F)*2;
4169   -
4170   - // ----- Extract date
4171   - $v_year = (($p_header['mdate'] & 0xFE00) >> 9) + 1980;
4172   - $v_month = ($p_header['mdate'] & 0x01E0) >> 5;
4173   - $v_day = $p_header['mdate'] & 0x001F;
4174   -
4175   - // ----- Get UNIX date format
4176   - $p_header['mtime'] = mktime($v_hour, $v_minute, $v_seconde, $v_month, $v_day, $v_year);
4177   -
4178   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Date : \''.date("d/m/y H:i:s", $p_header['mtime']).'\'');
4179   - }
4180   - else
4181   - {
4182   - $p_header['mtime'] = time();
4183   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Date is actual : \''.date("d/m/y H:i:s", $p_header['mtime']).'\'');
4184   - }
4185   -
4186   - // TBC
4187   - //for(reset($v_data); $key = key($v_data); next($v_data)) {
4188   - // //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Attribut[$key] = ".$v_data[$key]);
4189   - //}
4190   -
4191   - // ----- Set the stored filename
4192   - $p_header['stored_filename'] = $p_header['filename'];
4193   -
4194   - // ----- Set the status field
4195   - $p_header['status'] = "ok";
4196   -
4197   - // ----- Return
4198   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
4199   - return $v_result;
4200   - }
4201   - // --------------------------------------------------------------------------------
4202   -
4203   - // --------------------------------------------------------------------------------
4204   - // Function : privReadCentralFileHeader()
4205   - // Description :
4206   - // Parameters :
4207   - // Return Values :
4208   - // --------------------------------------------------------------------------------
4209   - function privReadCentralFileHeader(&$p_header)
4210   - {
4211   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privReadCentralFileHeader", "");
4212   - $v_result=1;
4213   -
4214   - // ----- Read the 4 bytes signature
4215   - $v_binary_data = @fread($this->zip_fd, 4);
4216   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Binary data is : '".sprintf("%08x", $v_binary_data)."'");
4217   - $v_data = unpack('Vid', $v_binary_data);
4218   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Binary signature is : '".sprintf("0x%08x", $v_data['id'])."'");
4219   -
4220   - // ----- Check signature
4221   - if ($v_data['id'] != 0x02014b50)
4222   - {
4223   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Invalid Central Dir File signature");
4224   -
4225   - // ----- Error log
4226   - PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'Invalid archive structure');
4227   -
4228   - // ----- Return
4229   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
4230   - return PclZip::errorCode();
4231   - }
4232   -
4233   - // ----- Read the first 42 bytes of the header
4234   - $v_binary_data = fread($this->zip_fd, 42);
4235   -
4236   - // ----- Look for invalid block size
4237   - if (strlen($v_binary_data) != 42)
4238   - {
4239   - $p_header['filename'] = "";
4240   - $p_header['status'] = "invalid_header";
4241   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Invalid block size : ".strlen($v_binary_data));
4242   -
4243   - // ----- Error log
4244   - PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, "Invalid block size : ".strlen($v_binary_data));
4245   -
4246   - // ----- Return
4247   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
4248   - return PclZip::errorCode();
4249   - }
4250   -
4251   - // ----- Extract the values
4252   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Header : '".$v_binary_data."'");
4253   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Header (Hex) : '".bin2hex($v_binary_data)."'");
4254   - $p_header = unpack('vversion/vversion_extracted/vflag/vcompression/vmtime/vmdate/Vcrc/Vcompressed_size/Vsize/vfilename_len/vextra_len/vcomment_len/vdisk/vinternal/Vexternal/Voffset', $v_binary_data);
4255   -
4256   - // ----- Get filename
4257   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "File name length : ".$p_header['filename_len']);
4258   - if ($p_header['filename_len'] != 0)
4259   - $p_header['filename'] = fread($this->zip_fd, $p_header['filename_len']);
4260   - else
4261   - $p_header['filename'] = '';
4262   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Filename : \''.$p_header['filename'].'\'');
4263   -
4264   - // ----- Get extra
4265   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Extra length : ".$p_header['extra_len']);
4266   - if ($p_header['extra_len'] != 0)
4267   - $p_header['extra'] = fread($this->zip_fd, $p_header['extra_len']);
4268   - else
4269   - $p_header['extra'] = '';
4270   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Extra : \''.$p_header['extra'].'\'');
4271   -
4272   - // ----- Get comment
4273   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Comment length : ".$p_header['comment_len']);
4274   - if ($p_header['comment_len'] != 0)
4275   - $p_header['comment'] = fread($this->zip_fd, $p_header['comment_len']);
4276   - else
4277   - $p_header['comment'] = '';
4278   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Comment : \''.$p_header['comment'].'\'');
4279   -
4280   - // ----- Extract properties
4281   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Version : \''.($p_header['version']/10).'.'.($p_header['version']%10).'\'');
4282   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Version need to extract : \''.($p_header['version_extracted']/10).'.'.($p_header['version_extracted']%10).'\'');
4283   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Size : \''.$p_header['size'].'\'');
4284   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Compressed Size : \''.$p_header['compressed_size'].'\'');
4285   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'CRC : \''.sprintf("0x%X", $p_header['crc']).'\'');
4286   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Flag : \''.$p_header['flag'].'\'');
4287   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Offset : \''.$p_header['offset'].'\'');
4288   -
4289   - // ----- Recuperate date in UNIX format
4290   - if ($p_header['mdate'] && $p_header['mtime'])
4291   - {
4292   - // ----- Extract time
4293   - $v_hour = ($p_header['mtime'] & 0xF800) >> 11;
4294   - $v_minute = ($p_header['mtime'] & 0x07E0) >> 5;
4295   - $v_seconde = ($p_header['mtime'] & 0x001F)*2;
4296   -
4297   - // ----- Extract date
4298   - $v_year = (($p_header['mdate'] & 0xFE00) >> 9) + 1980;
4299   - $v_month = ($p_header['mdate'] & 0x01E0) >> 5;
4300   - $v_day = $p_header['mdate'] & 0x001F;
4301   -
4302   - // ----- Get UNIX date format
4303   - $p_header['mtime'] = mktime($v_hour, $v_minute, $v_seconde, $v_month, $v_day, $v_year);
4304   -
4305   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Date : \''.date("d/m/y H:i:s", $p_header['mtime']).'\'');
4306   - }
4307   - else
4308   - {
4309   - $p_header['mtime'] = time();
4310   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Date is actual : \''.date("d/m/y H:i:s", $p_header['mtime']).'\'');
4311   - }
4312   -
4313   - // ----- Set the stored filename
4314   - $p_header['stored_filename'] = $p_header['filename'];
4315   -
4316   - // ----- Set default status to ok
4317   - $p_header['status'] = 'ok';
4318   -
4319   - // ----- Look if it is a directory
4320   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Internal (Hex) : '".sprintf("Ox%04X", $p_header['internal'])."'");
4321   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "External (Hex) : '".sprintf("Ox%04X", $p_header['external'])."' (".(($p_header['external']&0x00000010)==0x00000010?'is a folder':'is a file').')');
4322   - if (substr($p_header['filename'], -1) == '/') {
4323   - //$p_header['external'] = 0x41FF0010;
4324   - $p_header['external'] = 0x00000010;
4325   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Force folder external : \''.sprintf("Ox%04X", $p_header['external']).'\'');
4326   - }
4327   -
4328   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Header of filename : \''.$p_header['filename'].'\'');
4329   -
4330   - // ----- Return
4331   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
4332   - return $v_result;
4333   - }
4334   - // --------------------------------------------------------------------------------
4335   -
4336   - // --------------------------------------------------------------------------------
4337   - // Function : privCheckFileHeaders()
4338   - // Description :
4339   - // Parameters :
4340   - // Return Values :
4341   - // 1 on success,
4342   - // 0 on error;
4343   - // --------------------------------------------------------------------------------
4344   - function privCheckFileHeaders(&$p_local_header, &$p_central_header)
4345   - {
4346   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privCheckFileHeaders", "");
4347   - $v_result=1;
4348   -
4349   - // ----- Check the static values
4350   - // TBC
4351   - if ($p_local_header['filename'] != $p_central_header['filename']) {
4352   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Bad check "filename" : TBC To Be Completed');
4353   - }
4354   - if ($p_local_header['version_extracted'] != $p_central_header['version_extracted']) {
4355   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Bad check "version_extracted" : TBC To Be Completed');
4356   - }
4357   - if ($p_local_header['flag'] != $p_central_header['flag']) {
4358   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Bad check "flag" : TBC To Be Completed');
4359   - }
4360   - if ($p_local_header['compression'] != $p_central_header['compression']) {
4361   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Bad check "compression" : TBC To Be Completed');
4362   - }
4363   - if ($p_local_header['mtime'] != $p_central_header['mtime']) {
4364   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Bad check "mtime" : TBC To Be Completed');
4365   - }
4366   - if ($p_local_header['filename_len'] != $p_central_header['filename_len']) {
4367   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Bad check "filename_len" : TBC To Be Completed');
4368   - }
4369   -
4370   - // ----- Look for flag bit 3
4371   - if (($p_local_header['flag'] & 8) == 8) {
4372   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Purpose bit flag bit 3 set !');
4373   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'File size, compression size and crc found in central header');
4374   - $p_local_header['size'] = $p_central_header['size'];
4375   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Size : \''.$p_local_header['size'].'\'');
4376   - $p_local_header['compressed_size'] = $p_central_header['compressed_size'];
4377   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Compressed Size : \''.$p_local_header['compressed_size'].'\'');
4378   - $p_local_header['crc'] = $p_central_header['crc'];
4379   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'CRC : \''.sprintf("0x%X", $p_local_header['crc']).'\'');
4380   - }
4381   -
4382   - // ----- Return
4383   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
4384   - return $v_result;
4385   - }
4386   - // --------------------------------------------------------------------------------
4387   -
4388   - // --------------------------------------------------------------------------------
4389   - // Function : privReadEndCentralDir()
4390   - // Description :
4391   - // Parameters :
4392   - // Return Values :
4393   - // --------------------------------------------------------------------------------
4394   - function privReadEndCentralDir(&$p_central_dir)
4395   - {
4396   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privReadEndCentralDir", "");
4397   - $v_result=1;
4398   -
4399   - // ----- Go to the end of the zip file
4400   - $v_size = filesize($this->zipname);
4401   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Size of the file :$v_size");
4402   - @fseek($this->zip_fd, $v_size);
4403   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Position at end of zip file : \''.ftell($this->zip_fd).'\'');
4404   - if (@ftell($this->zip_fd) != $v_size)
4405   - {
4406   - // ----- Error log
4407   - PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'Unable to go to the end of the archive \''.$this->zipname.'\'');
4408   -
4409   - // ----- Return
4410   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
4411   - return PclZip::errorCode();
4412   - }
4413   -
4414   - // ----- First try : look if this is an archive with no commentaries (most of the time)
4415   - // in this case the end of central dir is at 22 bytes of the file end
4416   - $v_found = 0;
4417   - if ($v_size > 26) {
4418   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Look for central dir with no comment');
4419   - @fseek($this->zip_fd, $v_size-22);
4420   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Position after min central position : \''.ftell($this->zip_fd).'\'');
4421   - if (($v_pos = @ftell($this->zip_fd)) != ($v_size-22))
4422   - {
4423   - // ----- Error log
4424   - PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'Unable to seek back to the middle of the archive \''.$this->zipname.'\'');
4425   -
4426   - // ----- Return
4427   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
4428   - return PclZip::errorCode();
4429   - }
4430   -
4431   - // ----- Read for bytes
4432   - $v_binary_data = @fread($this->zip_fd, 4);
4433   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Binary data is : '".sprintf("%08x", $v_binary_data)."'");
4434   - $v_data = @unpack('Vid', $v_binary_data);
4435   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Binary signature is : '".sprintf("0x%08x", $v_data['id'])."'");
4436   -
4437   - // ----- Check signature
4438   - if ($v_data['id'] == 0x06054b50) {
4439   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Found central dir at the default position.");
4440   - $v_found = 1;
4441   - }
4442   -
4443   - $v_pos = ftell($this->zip_fd);
4444   - }
4445   -
4446   - // ----- Go back to the maximum possible size of the Central Dir End Record
4447   - if (!$v_found) {
4448   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Start extended search of end central dir');
4449   - $v_maximum_size = 65557; // 0xFFFF + 22;
4450   - if ($v_maximum_size > $v_size)
4451   - $v_maximum_size = $v_size;
4452   - @fseek($this->zip_fd, $v_size-$v_maximum_size);
4453   - if (@ftell($this->zip_fd) != ($v_size-$v_maximum_size))
4454   - {
4455   - // ----- Error log
4456   - PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'Unable to seek back to the middle of the archive \''.$this->zipname.'\'');
4457   -
4458   - // ----- Return
4459   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
4460   - return PclZip::errorCode();
4461   - }
4462   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Position after max central position : \''.ftell($this->zip_fd).'\'');
4463   -
4464   - // ----- Read byte per byte in order to find the signature
4465   - $v_pos = ftell($this->zip_fd);
4466   - $v_bytes = 0x00000000;
4467   - while ($v_pos < $v_size)
4468   - {
4469   - // ----- Read a byte
4470   - $v_byte = @fread($this->zip_fd, 1);
4471   -
4472   - // ----- Add the byte
4473   - $v_bytes = ($v_bytes << 8) | Ord($v_byte);
4474   -
4475   - // ----- Compare the bytes
4476   - if ($v_bytes == 0x504b0506)
4477   - {
4478   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Found End Central Dir signature at position : \''.ftell($this->zip_fd).'\'');
4479   - $v_pos++;
4480   - break;
4481   - }
4482   -
4483   - $v_pos++;
4484   - }
4485   -
4486   - // ----- Look if not found end of central dir
4487   - if ($v_pos == $v_size)
4488   - {
4489   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Unable to find End of Central Dir Record signature");
4490   -
4491   - // ----- Error log
4492   - PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, "Unable to find End of Central Dir Record signature");
4493   -
4494   - // ----- Return
4495   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
4496   - return PclZip::errorCode();
4497   - }
4498   - }
4499   -
4500   - // ----- Read the first 18 bytes of the header
4501   - $v_binary_data = fread($this->zip_fd, 18);
4502   -
4503   - // ----- Look for invalid block size
4504   - if (strlen($v_binary_data) != 18)
4505   - {
4506   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Invalid End of Central Dir Record size : ".strlen($v_binary_data));
4507   -
4508   - // ----- Error log
4509   - PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, "Invalid End of Central Dir Record size : ".strlen($v_binary_data));
4510   -
4511   - // ----- Return
4512   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
4513   - return PclZip::errorCode();
4514   - }
4515   -
4516   - // ----- Extract the values
4517   - ////--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Central Dir Record : '".$v_binary_data."'");
4518   - ////--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Central Dir Record (Hex) : '".bin2hex($v_binary_data)."'");
4519   - $v_data = unpack('vdisk/vdisk_start/vdisk_entries/ventries/Vsize/Voffset/vcomment_size', $v_binary_data);
4520   -
4521   - // ----- Check the global size
4522   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Comment length : ".$v_data['comment_size']);
4523   - if (($v_pos + $v_data['comment_size'] + 18) != $v_size) {
4524   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "The central dir is not at the end of the archive. Some trailing bytes exists after the archive.");
4525   -
4526   - // ----- Removed in release 2.2 see readme file
4527   - // The check of the file size is a little too strict.
4528   - // Some bugs where found when a zip is encrypted/decrypted with 'crypt'.
4529   - // While decrypted, zip has training 0 bytes
4530   - if (0) {
4531   - // ----- Error log
4532   - PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT,
4533   - 'The central dir is not at the end of the archive.'
4534   - .' Some trailing bytes exists after the archive.');
4535   -
4536   - // ----- Return
4537   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
4538   - return PclZip::errorCode();
4539   - }
4540   - }
4541   -
4542   - // ----- Get comment
4543   - if ($v_data['comment_size'] != 0)
4544   - $p_central_dir['comment'] = fread($this->zip_fd, $v_data['comment_size']);
4545   - else
4546   - $p_central_dir['comment'] = '';
4547   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Comment : \''.$p_central_dir['comment'].'\'');
4548   -
4549   - $p_central_dir['entries'] = $v_data['entries'];
4550   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Nb of entries : \''.$p_central_dir['entries'].'\'');
4551   - $p_central_dir['disk_entries'] = $v_data['disk_entries'];
4552   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Nb of entries for this disk : \''.$p_central_dir['disk_entries'].'\'');
4553   - $p_central_dir['offset'] = $v_data['offset'];
4554   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Offset of Central Dir : \''.$p_central_dir['offset'].'\'');
4555   - $p_central_dir['size'] = $v_data['size'];
4556   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Size of Central Dir : \''.$p_central_dir['size'].'\'');
4557   - $p_central_dir['disk'] = $v_data['disk'];
4558   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Disk number : \''.$p_central_dir['disk'].'\'');
4559   - $p_central_dir['disk_start'] = $v_data['disk_start'];
4560   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Start disk number : \''.$p_central_dir['disk_start'].'\'');
4561   -
4562   - // TBC
4563   - //for(reset($p_central_dir); $key = key($p_central_dir); next($p_central_dir)) {
4564   - // //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "central_dir[$key] = ".$p_central_dir[$key]);
4565   - //}
4566   -
4567   - // ----- Return
4568   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
4569   - return $v_result;
4570   - }
4571   - // --------------------------------------------------------------------------------
4572   -
4573   - // --------------------------------------------------------------------------------
4574   - // Function : privDeleteByRule()
4575   - // Description :
4576   - // Parameters :
4577   - // Return Values :
4578   - // --------------------------------------------------------------------------------
4579   - function privDeleteByRule(&$p_result_list, &$p_options)
4580   - {
4581   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privDeleteByRule", "");
4582   - $v_result=1;
4583   - $v_list_detail = array();
4584   -
4585   - // ----- Open the zip file
4586   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open file in binary read mode");
4587   - if (($v_result=$this->privOpenFd('rb')) != 1)
4588   - {
4589   - // ----- Return
4590   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
4591   - return $v_result;
4592   - }
4593   -
4594   - // ----- Read the central directory informations
4595   - $v_central_dir = array();
4596   - if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1)
4597   - {
4598   - $this->privCloseFd();
4599   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
4600   - return $v_result;
4601   - }
4602   -
4603   - // ----- Go to beginning of File
4604   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Position in file : ".ftell($this->zip_fd)."'");
4605   - @rewind($this->zip_fd);
4606   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Position in file : ".ftell($this->zip_fd)."'");
4607   -
4608   - // ----- Scan all the files
4609   - // ----- Start at beginning of Central Dir
4610   - $v_pos_entry = $v_central_dir['offset'];
4611   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Position before rewind : ".ftell($this->zip_fd)."'");
4612   - @rewind($this->zip_fd);
4613   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Position after rewind : ".ftell($this->zip_fd)."'");
4614   - if (@fseek($this->zip_fd, $v_pos_entry))
4615   - {
4616   - // ----- Close the zip file
4617   - $this->privCloseFd();
4618   -
4619   - // ----- Error log
4620   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid archive size');
4621   -
4622   - // ----- Return
4623   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
4624   - return PclZip::errorCode();
4625   - }
4626   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Position after fseek : ".ftell($this->zip_fd)."'");
4627   -
4628   - // ----- Read each entry
4629   - $v_header_list = array();
4630   - $j_start = 0;
4631   - for ($i=0, $v_nb_extracted=0; $i<$v_central_dir['entries']; $i++)
4632   - {
4633   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Read next file header entry (index '$i')");
4634   -
4635   - // ----- Read the file header
4636   - $v_header_list[$v_nb_extracted] = array();
4637   - if (($v_result = $this->privReadCentralFileHeader($v_header_list[$v_nb_extracted])) != 1)
4638   - {
4639   - // ----- Close the zip file
4640   - $this->privCloseFd();
4641   -
4642   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
4643   - return $v_result;
4644   - }
4645   -
4646   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Filename (index '$i') : '".$v_header_list[$v_nb_extracted]['stored_filename']."'");
4647   -
4648   - // ----- Store the index
4649   - $v_header_list[$v_nb_extracted]['index'] = $i;
4650   -
4651   - // ----- Look for the specific extract rules
4652   - $v_found = false;
4653   -
4654   - // ----- Look for extract by name rule
4655   - if ( (isset($p_options[PCLZIP_OPT_BY_NAME]))
4656   - && ($p_options[PCLZIP_OPT_BY_NAME] != 0)) {
4657   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Extract with rule 'ByName'");
4658   -
4659   - // ----- Look if the filename is in the list
4660   - for ($j=0; ($j<sizeof($p_options[PCLZIP_OPT_BY_NAME])) && (!$v_found); $j++) {
4661   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Compare with file '".$p_options[PCLZIP_OPT_BY_NAME][$j]."'");
4662   -
4663   - // ----- Look for a directory
4664   - if (substr($p_options[PCLZIP_OPT_BY_NAME][$j], -1) == "/") {
4665   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "The searched item is a directory");
4666   -
4667   - // ----- Look if the directory is in the filename path
4668   - if ( (strlen($v_header_list[$v_nb_extracted]['stored_filename']) > strlen($p_options[PCLZIP_OPT_BY_NAME][$j]))
4669   - && (substr($v_header_list[$v_nb_extracted]['stored_filename'], 0, strlen($p_options[PCLZIP_OPT_BY_NAME][$j])) == $p_options[PCLZIP_OPT_BY_NAME][$j])) {
4670   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "The directory is in the file path");
4671   - $v_found = true;
4672   - }
4673   - elseif ( (($v_header_list[$v_nb_extracted]['external']&0x00000010)==0x00000010) /* Indicates a folder */
4674   - && ($v_header_list[$v_nb_extracted]['stored_filename'].'/' == $p_options[PCLZIP_OPT_BY_NAME][$j])) {
4675   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "The entry is the searched directory");
4676   - $v_found = true;
4677   - }
4678   - }
4679   - // ----- Look for a filename
4680   - elseif ($v_header_list[$v_nb_extracted]['stored_filename'] == $p_options[PCLZIP_OPT_BY_NAME][$j]) {
4681   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "The file is the right one.");
4682   - $v_found = true;
4683   - }
4684   - }
4685   - }
4686   -
4687   - // ----- Look for extract by ereg rule
4688   - else if ( (isset($p_options[PCLZIP_OPT_BY_EREG]))
4689   - && ($p_options[PCLZIP_OPT_BY_EREG] != "")) {
4690   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Extract by ereg '".$p_options[PCLZIP_OPT_BY_EREG]."'");
4691   -
4692   - if (ereg($p_options[PCLZIP_OPT_BY_EREG], $v_header_list[$v_nb_extracted]['stored_filename'])) {
4693   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Filename match the regular expression");
4694   - $v_found = true;
4695   - }
4696   - }
4697   -
4698   - // ----- Look for extract by preg rule
4699   - else if ( (isset($p_options[PCLZIP_OPT_BY_PREG]))
4700   - && ($p_options[PCLZIP_OPT_BY_PREG] != "")) {
4701   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Extract with rule 'ByEreg'");
4702   -
4703   - if (preg_match($p_options[PCLZIP_OPT_BY_PREG], $v_header_list[$v_nb_extracted]['stored_filename'])) {
4704   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Filename match the regular expression");
4705   - $v_found = true;
4706   - }
4707   - }
4708   -
4709   - // ----- Look for extract by index rule
4710   - else if ( (isset($p_options[PCLZIP_OPT_BY_INDEX]))
4711   - && ($p_options[PCLZIP_OPT_BY_INDEX] != 0)) {
4712   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Extract with rule 'ByIndex'");
4713   -
4714   - // ----- Look if the index is in the list
4715   - for ($j=$j_start; ($j<sizeof($p_options[PCLZIP_OPT_BY_INDEX])) && (!$v_found); $j++) {
4716   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Look if index '$i' is in [".$p_options[PCLZIP_OPT_BY_INDEX][$j]['start'].",".$p_options[PCLZIP_OPT_BY_INDEX][$j]['end']."]");
4717   -
4718   - if (($i>=$p_options[PCLZIP_OPT_BY_INDEX][$j]['start']) && ($i<=$p_options[PCLZIP_OPT_BY_INDEX][$j]['end'])) {
4719   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Found as part of an index range");
4720   - $v_found = true;
4721   - }
4722   - if ($i>=$p_options[PCLZIP_OPT_BY_INDEX][$j]['end']) {
4723   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Do not look this index range for next loop");
4724   - $j_start = $j+1;
4725   - }
4726   -
4727   - if ($p_options[PCLZIP_OPT_BY_INDEX][$j]['start']>$i) {
4728   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Index range is greater than index, stop loop");
4729   - break;
4730   - }
4731   - }
4732   - }
4733   - else {
4734   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "No argument mean remove all file");
4735   - $v_found = true;
4736   - }
4737   -
4738   - // ----- Look for deletion
4739   - if ($v_found)
4740   - {
4741   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "File '".$v_header_list[$v_nb_extracted]['stored_filename']."', index '$i' need to be deleted");
4742   - unset($v_header_list[$v_nb_extracted]);
4743   - }
4744   - else
4745   - {
4746   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "File '".$v_header_list[$v_nb_extracted]['stored_filename']."', index '$i' will not be deleted");
4747   - $v_nb_extracted++;
4748   - }
4749   - }
4750   -
4751   - // ----- Look if something need to be deleted
4752   - if ($v_nb_extracted > 0) {
4753   -
4754   - // ----- Creates a temporay file
4755   - $v_zip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid('pclzip-').'.tmp';
4756   -
4757   - // ----- Creates a temporary zip archive
4758   - $v_temp_zip = new PclZip($v_zip_temp_name);
4759   -
4760   - // ----- Open the temporary zip file in write mode
4761   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open file in binary write mode");
4762   - if (($v_result = $v_temp_zip->privOpenFd('wb')) != 1) {
4763   - $this->privCloseFd();
4764   -
4765   - // ----- Return
4766   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
4767   - return $v_result;
4768   - }
4769   -
4770   - // ----- Look which file need to be kept
4771   - for ($i=0; $i<sizeof($v_header_list); $i++) {
4772   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Keep entry index '$i' : '".$v_header_list[$i]['filename']."'");
4773   -
4774   - // ----- Calculate the position of the header
4775   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Offset='". $v_header_list[$i]['offset']."'");
4776   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Position before rewind : ".ftell($this->zip_fd)."'");
4777   - @rewind($this->zip_fd);
4778   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Position after rewind : ".ftell($this->zip_fd)."'");
4779   - if (@fseek($this->zip_fd, $v_header_list[$i]['offset'])) {
4780   - // ----- Close the zip file
4781   - $this->privCloseFd();
4782   - $v_temp_zip->privCloseFd();
4783   - @unlink($v_zip_temp_name);
4784   -
4785   - // ----- Error log
4786   - PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid archive size');
4787   -
4788   - // ----- Return
4789   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
4790   - return PclZip::errorCode();
4791   - }
4792   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Position after fseek : ".ftell($this->zip_fd)."'");
4793   -
4794   - // ----- Read the file header
4795   - $v_local_header = array();
4796   - if (($v_result = $this->privReadFileHeader($v_local_header)) != 1) {
4797   - // ----- Close the zip file
4798   - $this->privCloseFd();
4799   - $v_temp_zip->privCloseFd();
4800   - @unlink($v_zip_temp_name);
4801   -
4802   - // ----- Return
4803   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
4804   - return $v_result;
4805   - }
4806   -
4807   - // ----- Check that local file header is same as central file header
4808   - if ($this->privCheckFileHeaders($v_local_header,
4809   - $v_header_list[$i]) != 1) {
4810   - // TBC
4811   - }
4812   - unset($v_local_header);
4813   -
4814   - // ----- Write the file header
4815   - if (($v_result = $v_temp_zip->privWriteFileHeader($v_header_list[$i])) != 1) {
4816   - // ----- Close the zip file
4817   - $this->privCloseFd();
4818   - $v_temp_zip->privCloseFd();
4819   - @unlink($v_zip_temp_name);
4820   -
4821   - // ----- Return
4822   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
4823   - return $v_result;
4824   - }
4825   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Offset for this file is '".$v_header_list[$i]['offset']."'");
4826   -
4827   - // ----- Read/write the data block
4828   - if (($v_result = PclZipUtilCopyBlock($this->zip_fd, $v_temp_zip->zip_fd, $v_header_list[$i]['compressed_size'])) != 1) {
4829   - // ----- Close the zip file
4830   - $this->privCloseFd();
4831   - $v_temp_zip->privCloseFd();
4832   - @unlink($v_zip_temp_name);
4833   -
4834   - // ----- Return
4835   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
4836   - return $v_result;
4837   - }
4838   - }
4839   -
4840   - // ----- Store the offset of the central dir
4841   - $v_offset = @ftell($v_temp_zip->zip_fd);
4842   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "New offset of central dir : $v_offset");
4843   -
4844   - // ----- Re-Create the Central Dir files header
4845   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Creates the new central directory");
4846   - for ($i=0; $i<sizeof($v_header_list); $i++) {
4847   - // ----- Create the file header
4848   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Offset of file : ".$v_header_list[$i]['offset']);
4849   - if (($v_result = $v_temp_zip->privWriteCentralFileHeader($v_header_list[$i])) != 1) {
4850   - $v_temp_zip->privCloseFd();
4851   - $this->privCloseFd();
4852   - @unlink($v_zip_temp_name);
4853   -
4854   - // ----- Return
4855   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
4856   - return $v_result;
4857   - }
4858   -
4859   - // ----- Transform the header to a 'usable' info
4860   - $v_temp_zip->privConvertHeader2FileInfo($v_header_list[$i], $p_result_list[$i]);
4861   - }
4862   -
4863   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Creates the central directory footer");
4864   -
4865   - // ----- Zip file comment
4866   - $v_comment = '';
4867   - if (isset($p_options[PCLZIP_OPT_COMMENT])) {
4868   - $v_comment = $p_options[PCLZIP_OPT_COMMENT];
4869   - }
4870   -
4871   - // ----- Calculate the size of the central header
4872   - $v_size = @ftell($v_temp_zip->zip_fd)-$v_offset;
4873   -
4874   - // ----- Create the central dir footer
4875   - if (($v_result = $v_temp_zip->privWriteCentralHeader(sizeof($v_header_list), $v_size, $v_offset, $v_comment)) != 1) {
4876   - // ----- Reset the file list
4877   - unset($v_header_list);
4878   - $v_temp_zip->privCloseFd();
4879   - $this->privCloseFd();
4880   - @unlink($v_zip_temp_name);
4881   -
4882   - // ----- Return
4883   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
4884   - return $v_result;
4885   - }
4886   -
4887   - // ----- Close
4888   - $v_temp_zip->privCloseFd();
4889   - $this->privCloseFd();
4890   -
4891   - // ----- Delete the zip file
4892   - // TBC : I should test the result ...
4893   - @unlink($this->zipname);
4894   -
4895   - // ----- Rename the temporary file
4896   - // TBC : I should test the result ...
4897   - //@rename($v_zip_temp_name, $this->zipname);
4898   - PclZipUtilRename($v_zip_temp_name, $this->zipname);
4899   -
4900   - // ----- Destroy the temporary archive
4901   - unset($v_temp_zip);
4902   - }
4903   -
4904   - // ----- Remove every files : reset the file
4905   - else if ($v_central_dir['entries'] != 0) {
4906   - $this->privCloseFd();
4907   -
4908   - if (($v_result = $this->privOpenFd('wb')) != 1) {
4909   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
4910   - return $v_result;
4911   - }
4912   -
4913   - if (($v_result = $this->privWriteCentralHeader(0, 0, 0, '')) != 1) {
4914   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
4915   - return $v_result;
4916   - }
4917   -
4918   - $this->privCloseFd();
4919   - }
4920   -
4921   - // ----- Return
4922   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
4923   - return $v_result;
4924   - }
4925   - // --------------------------------------------------------------------------------
4926   -
4927   - // --------------------------------------------------------------------------------
4928   - // Function : privDirCheck()
4929   - // Description :
4930   - // Check if a directory exists, if not it creates it and all the parents directory
4931   - // which may be useful.
4932   - // Parameters :
4933   - // $p_dir : Directory path to check.
4934   - // Return Values :
4935   - // 1 : OK
4936   - // -1 : Unable to create directory
4937   - // --------------------------------------------------------------------------------
4938   - function privDirCheck($p_dir, $p_is_dir=false)
4939   - {
4940   - $v_result = 1;
4941   -
4942   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privDirCheck", "entry='$p_dir', is_dir='".($p_is_dir?"true":"false")."'");
4943   -
4944   - // ----- Remove the final '/'
4945   - if (($p_is_dir) && (substr($p_dir, -1)=='/'))
4946   - {
4947   - $p_dir = substr($p_dir, 0, strlen($p_dir)-1);
4948   - }
4949   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Looking for entry '$p_dir'");
4950   -
4951   - // ----- Check the directory availability
4952   - if ((is_dir($p_dir)) || ($p_dir == ""))
4953   - {
4954   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, "'$p_dir' is a directory");
4955   - return 1;
4956   - }
4957   -
4958   - // ----- Extract parent directory
4959   - $p_parent_dir = dirname($p_dir);
4960   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Parent directory is '$p_parent_dir'");
4961   -
4962   - // ----- Just a check
4963   - if ($p_parent_dir != $p_dir)
4964   - {
4965   - // ----- Look for parent directory
4966   - if ($p_parent_dir != "")
4967   - {
4968   - if (($v_result = $this->privDirCheck($p_parent_dir)) != 1)
4969   - {
4970   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
4971   - return $v_result;
4972   - }
4973   - }
4974   - }
4975   -
4976   - // ----- Create the directory
4977   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Create directory '$p_dir'");
4978   - if (!@mkdir($p_dir, 0777))
4979   - {
4980   - // ----- Error log
4981   - PclZip::privErrorLog(PCLZIP_ERR_DIR_CREATE_FAIL, "Unable to create directory '$p_dir'");
4982   -
4983   - // ----- Return
4984   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
4985   - return PclZip::errorCode();
4986   - }
4987   -
4988   - // ----- Return
4989   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result, "Directory '$p_dir' created");
4990   - return $v_result;
4991   - }
4992   - // --------------------------------------------------------------------------------
4993   -
4994   - // --------------------------------------------------------------------------------
4995   - // Function : privMerge()
4996   - // Description :
4997   - // If $p_archive_to_add does not exist, the function exit with a success result.
4998   - // Parameters :
4999   - // Return Values :
5000   - // --------------------------------------------------------------------------------
5001   - function privMerge(&$p_archive_to_add)
5002   - {
5003   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privMerge", "archive='".$p_archive_to_add->zipname."'");
5004   - $v_result=1;
5005   -
5006   - // ----- Look if the archive_to_add exists
5007   - if (!is_file($p_archive_to_add->zipname))
5008   - {
5009   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Archive to add does not exist. End of merge.");
5010   -
5011   - // ----- Nothing to merge, so merge is a success
5012   - $v_result = 1;
5013   -
5014   - // ----- Return
5015   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5016   - return $v_result;
5017   - }
5018   -
5019   - // ----- Look if the archive exists
5020   - if (!is_file($this->zipname))
5021   - {
5022   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Archive does not exist, duplicate the archive_to_add.");
5023   -
5024   - // ----- Do a duplicate
5025   - $v_result = $this->privDuplicate($p_archive_to_add->zipname);
5026   -
5027   - // ----- Return
5028   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5029   - return $v_result;
5030   - }
5031   -
5032   - // ----- Open the zip file
5033   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open file in binary read mode");
5034   - if (($v_result=$this->privOpenFd('rb')) != 1)
5035   - {
5036   - // ----- Return
5037   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5038   - return $v_result;
5039   - }
5040   -
5041   - // ----- Read the central directory informations
5042   - $v_central_dir = array();
5043   - if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1)
5044   - {
5045   - $this->privCloseFd();
5046   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5047   - return $v_result;
5048   - }
5049   -
5050   - // ----- Go to beginning of File
5051   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Position in zip : ".ftell($this->zip_fd)."'");
5052   - @rewind($this->zip_fd);
5053   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Position in zip : ".ftell($this->zip_fd)."'");
5054   -
5055   - // ----- Open the archive_to_add file
5056   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open archive_to_add in binary read mode");
5057   - if (($v_result=$p_archive_to_add->privOpenFd('rb')) != 1)
5058   - {
5059   - $this->privCloseFd();
5060   -
5061   - // ----- Return
5062   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5063   - return $v_result;
5064   - }
5065   -
5066   - // ----- Read the central directory informations
5067   - $v_central_dir_to_add = array();
5068   - if (($v_result = $p_archive_to_add->privReadEndCentralDir($v_central_dir_to_add)) != 1)
5069   - {
5070   - $this->privCloseFd();
5071   - $p_archive_to_add->privCloseFd();
5072   -
5073   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5074   - return $v_result;
5075   - }
5076   -
5077   - // ----- Go to beginning of File
5078   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Position in archive_to_add : ".ftell($p_archive_to_add->zip_fd)."'");
5079   - @rewind($p_archive_to_add->zip_fd);
5080   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Position in archive_to_add : ".ftell($p_archive_to_add->zip_fd)."'");
5081   -
5082   - // ----- Creates a temporay file
5083   - $v_zip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid('pclzip-').'.tmp';
5084   -
5085   - // ----- Open the temporary file in write mode
5086   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open file in binary read mode");
5087   - if (($v_zip_temp_fd = @fopen($v_zip_temp_name, 'wb')) == 0)
5088   - {
5089   - $this->privCloseFd();
5090   - $p_archive_to_add->privCloseFd();
5091   -
5092   - PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \''.$v_zip_temp_name.'\' in binary write mode');
5093   -
5094   - // ----- Return
5095   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
5096   - return PclZip::errorCode();
5097   - }
5098   -
5099   - // ----- Copy the files from the archive to the temporary file
5100   - // TBC : Here I should better append the file and go back to erase the central dir
5101   - $v_size = $v_central_dir['offset'];
5102   - while ($v_size != 0)
5103   - {
5104   - $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
5105   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Read $v_read_size bytes");
5106   - $v_buffer = fread($this->zip_fd, $v_read_size);
5107   - @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
5108   - $v_size -= $v_read_size;
5109   - }
5110   -
5111   - // ----- Copy the files from the archive_to_add into the temporary file
5112   - $v_size = $v_central_dir_to_add['offset'];
5113   - while ($v_size != 0)
5114   - {
5115   - $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
5116   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Read $v_read_size bytes");
5117   - $v_buffer = fread($p_archive_to_add->zip_fd, $v_read_size);
5118   - @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
5119   - $v_size -= $v_read_size;
5120   - }
5121   -
5122   - // ----- Store the offset of the central dir
5123   - $v_offset = @ftell($v_zip_temp_fd);
5124   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "New offset of central dir : $v_offset");
5125   -
5126   - // ----- Copy the block of file headers from the old archive
5127   - $v_size = $v_central_dir['size'];
5128   - while ($v_size != 0)
5129   - {
5130   - $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
5131   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Read $v_read_size bytes");
5132   - $v_buffer = @fread($this->zip_fd, $v_read_size);
5133   - @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
5134   - $v_size -= $v_read_size;
5135   - }
5136   -
5137   - // ----- Copy the block of file headers from the archive_to_add
5138   - $v_size = $v_central_dir_to_add['size'];
5139   - while ($v_size != 0)
5140   - {
5141   - $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
5142   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Read $v_read_size bytes");
5143   - $v_buffer = @fread($p_archive_to_add->zip_fd, $v_read_size);
5144   - @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
5145   - $v_size -= $v_read_size;
5146   - }
5147   -
5148   - // ----- Merge the file comments
5149   - $v_comment = $v_central_dir['comment'].' '.$v_central_dir_to_add['comment'];
5150   -
5151   - // ----- Calculate the size of the (new) central header
5152   - $v_size = @ftell($v_zip_temp_fd)-$v_offset;
5153   -
5154   - // ----- Swap the file descriptor
5155   - // Here is a trick : I swap the temporary fd with the zip fd, in order to use
5156   - // the following methods on the temporary fil and not the real archive fd
5157   - $v_swap = $this->zip_fd;
5158   - $this->zip_fd = $v_zip_temp_fd;
5159   - $v_zip_temp_fd = $v_swap;
5160   -
5161   - // ----- Create the central dir footer
5162   - if (($v_result = $this->privWriteCentralHeader($v_central_dir['entries']+$v_central_dir_to_add['entries'], $v_size, $v_offset, $v_comment)) != 1)
5163   - {
5164   - $this->privCloseFd();
5165   - $p_archive_to_add->privCloseFd();
5166   - @fclose($v_zip_temp_fd);
5167   - $this->zip_fd = null;
5168   -
5169   - // ----- Reset the file list
5170   - unset($v_header_list);
5171   -
5172   - // ----- Return
5173   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5174   - return $v_result;
5175   - }
5176   -
5177   - // ----- Swap back the file descriptor
5178   - $v_swap = $this->zip_fd;
5179   - $this->zip_fd = $v_zip_temp_fd;
5180   - $v_zip_temp_fd = $v_swap;
5181   -
5182   - // ----- Close
5183   - $this->privCloseFd();
5184   - $p_archive_to_add->privCloseFd();
5185   -
5186   - // ----- Close the temporary file
5187   - @fclose($v_zip_temp_fd);
5188   -
5189   - // ----- Delete the zip file
5190   - // TBC : I should test the result ...
5191   - @unlink($this->zipname);
5192   -
5193   - // ----- Rename the temporary file
5194   - // TBC : I should test the result ...
5195   - //@rename($v_zip_temp_name, $this->zipname);
5196   - PclZipUtilRename($v_zip_temp_name, $this->zipname);
5197   -
5198   - // ----- Return
5199   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5200   - return $v_result;
5201   - }
5202   - // --------------------------------------------------------------------------------
5203   -
5204   - // --------------------------------------------------------------------------------
5205   - // Function : privDuplicate()
5206   - // Description :
5207   - // Parameters :
5208   - // Return Values :
5209   - // --------------------------------------------------------------------------------
5210   - function privDuplicate($p_archive_filename)
5211   - {
5212   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privDuplicate", "archive_filename='$p_archive_filename'");
5213   - $v_result=1;
5214   -
5215   - // ----- Look if the $p_archive_filename exists
5216   - if (!is_file($p_archive_filename))
5217   - {
5218   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Archive to duplicate does not exist. End of duplicate.");
5219   -
5220   - // ----- Nothing to duplicate, so duplicate is a success.
5221   - $v_result = 1;
5222   -
5223   - // ----- Return
5224   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5225   - return $v_result;
5226   - }
5227   -
5228   - // ----- Open the zip file
5229   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open file in binary read mode");
5230   - if (($v_result=$this->privOpenFd('wb')) != 1)
5231   - {
5232   - // ----- Return
5233   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5234   - return $v_result;
5235   - }
5236   -
5237   - // ----- Open the temporary file in write mode
5238   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open file in binary read mode");
5239   - if (($v_zip_temp_fd = @fopen($p_archive_filename, 'rb')) == 0)
5240   - {
5241   - $this->privCloseFd();
5242   -
5243   - PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open archive file \''.$p_archive_filename.'\' in binary write mode');
5244   -
5245   - // ----- Return
5246   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
5247   - return PclZip::errorCode();
5248   - }
5249   -
5250   - // ----- Copy the files from the archive to the temporary file
5251   - // TBC : Here I should better append the file and go back to erase the central dir
5252   - $v_size = filesize($p_archive_filename);
5253   - while ($v_size != 0)
5254   - {
5255   - $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
5256   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Read $v_read_size bytes");
5257   - $v_buffer = fread($v_zip_temp_fd, $v_read_size);
5258   - @fwrite($this->zip_fd, $v_buffer, $v_read_size);
5259   - $v_size -= $v_read_size;
5260   - }
5261   -
5262   - // ----- Close
5263   - $this->privCloseFd();
5264   -
5265   - // ----- Close the temporary file
5266   - @fclose($v_zip_temp_fd);
5267   -
5268   - // ----- Return
5269   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5270   - return $v_result;
5271   - }
5272   - // --------------------------------------------------------------------------------
5273   -
5274   - // --------------------------------------------------------------------------------
5275   - // Function : privErrorLog()
5276   - // Description :
5277   - // Parameters :
5278   - // --------------------------------------------------------------------------------
5279   - function privErrorLog($p_error_code=0, $p_error_string='')
5280   - {
5281   - if (PCLZIP_ERROR_EXTERNAL == 1) {
5282   - PclError($p_error_code, $p_error_string);
5283   - }
5284   - else {
5285   - $this->error_code = $p_error_code;
5286   - $this->error_string = $p_error_string;
5287   - }
5288   - }
5289   - // --------------------------------------------------------------------------------
5290   -
5291   - // --------------------------------------------------------------------------------
5292   - // Function : privErrorReset()
5293   - // Description :
5294   - // Parameters :
5295   - // --------------------------------------------------------------------------------
5296   - function privErrorReset()
5297   - {
5298   - if (PCLZIP_ERROR_EXTERNAL == 1) {
5299   - PclErrorReset();
5300   - }
5301   - else {
5302   - $this->error_code = 0;
5303   - $this->error_string = '';
5304   - }
5305   - }
5306   - // --------------------------------------------------------------------------------
5307   -
5308   - // --------------------------------------------------------------------------------
5309   - // Function : privDecrypt()
5310   - // Description :
5311   - // Parameters :
5312   - // Return Values :
5313   - // --------------------------------------------------------------------------------
5314   - function privDecrypt($p_encryption_header, &$p_buffer, $p_size, $p_crc)
5315   - {
5316   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, 'PclZip::privDecrypt', "size=".$p_size."");
5317   - $v_result=1;
5318   -
5319   - // ----- To Be Modified ;-)
5320   - $v_pwd = "test";
5321   -
5322   - $p_buffer = PclZipUtilZipDecrypt($p_buffer, $p_size, $p_encryption_header,
5323   - $p_crc, $v_pwd);
5324   -
5325   - // ----- Return
5326   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5327   - return $v_result;
5328   - }
5329   - // --------------------------------------------------------------------------------
5330   -
5331   - // --------------------------------------------------------------------------------
5332   - // Function : privDisableMagicQuotes()
5333   - // Description :
5334   - // Parameters :
5335   - // Return Values :
5336   - // --------------------------------------------------------------------------------
5337   - function privDisableMagicQuotes()
5338   - {
5339   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, 'PclZip::privDisableMagicQuotes', "");
5340   - $v_result=1;
5341   -
5342   - // ----- Look if function exists
5343   - if ( (!function_exists("get_magic_quotes_runtime"))
5344   - || (!function_exists("set_magic_quotes_runtime"))) {
5345   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Functions *et_magic_quotes_runtime are not supported");
5346   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5347   - return $v_result;
5348   - }
5349   -
5350   - // ----- Look if already done
5351   - if ($this->magic_quotes_status != -1) {
5352   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "magic_quote already disabled");
5353   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5354   - return $v_result;
5355   - }
5356   -
5357   - // ----- Get and memorize the magic_quote value
5358   - $this->magic_quotes_status = @get_magic_quotes_runtime();
5359   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Current magic_quotes_runtime status is '".($this->magic_quotes_status==0?'disable':'enable')."'");
5360   -
5361   - // ----- Disable magic_quotes
5362   - if ($this->magic_quotes_status == 1) {
5363   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Disable magic_quotes");
5364   - @set_magic_quotes_runtime(0);
5365   - }
5366   -
5367   - // ----- Return
5368   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5369   - return $v_result;
5370   - }
5371   - // --------------------------------------------------------------------------------
5372   -
5373   - // --------------------------------------------------------------------------------
5374   - // Function : privSwapBackMagicQuotes()
5375   - // Description :
5376   - // Parameters :
5377   - // Return Values :
5378   - // --------------------------------------------------------------------------------
5379   - function privSwapBackMagicQuotes()
5380   - {
5381   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, 'PclZip::privSwapBackMagicQuotes', "");
5382   - $v_result=1;
5383   -
5384   - // ----- Look if function exists
5385   - if ( (!function_exists("get_magic_quotes_runtime"))
5386   - || (!function_exists("set_magic_quotes_runtime"))) {
5387   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Functions *et_magic_quotes_runtime are not supported");
5388   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5389   - return $v_result;
5390   - }
5391   -
5392   - // ----- Look if something to do
5393   - if ($this->magic_quotes_status != -1) {
5394   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "magic_quote not modified");
5395   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5396   - return $v_result;
5397   - }
5398   -
5399   - // ----- Swap back magic_quotes
5400   - if ($this->magic_quotes_status == 1) {
5401   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Enable back magic_quotes");
5402   - @set_magic_quotes_runtime($this->magic_quotes_status);
5403   - }
5404   -
5405   - // ----- Return
5406   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5407   - return $v_result;
5408   - }
5409   - // --------------------------------------------------------------------------------
5410   -
5411   - }
5412   - // End of class
5413   - // --------------------------------------------------------------------------------
5414   -
5415   - // --------------------------------------------------------------------------------
5416   - // Function : PclZipUtilPathReduction()
5417   - // Description :
5418   - // Parameters :
5419   - // Return Values :
5420   - // --------------------------------------------------------------------------------
5421   - function PclZipUtilPathReduction($p_dir)
5422   - {
5423   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZipUtilPathReduction", "dir='$p_dir'");
5424   - $v_result = "";
5425   -
5426   - // ----- Look for not empty path
5427   - if ($p_dir != "") {
5428   - // ----- Explode path by directory names
5429   - $v_list = explode("/", $p_dir);
5430   -
5431   - // ----- Study directories from last to first
5432   - $v_skip = 0;
5433   - for ($i=sizeof($v_list)-1; $i>=0; $i--) {
5434   - // ----- Look for current path
5435   - if ($v_list[$i] == ".") {
5436   - // ----- Ignore this directory
5437   - // Should be the first $i=0, but no check is done
5438   - }
5439   - else if ($v_list[$i] == "..") {
5440   - $v_skip++;
5441   - }
5442   - else if ($v_list[$i] == "") {
5443   - // ----- First '/' i.e. root slash
5444   - if ($i == 0) {
5445   - $v_result = "/".$v_result;
5446   - if ($v_skip > 0) {
5447   - // ----- It is an invalid path, so the path is not modified
5448   - // TBC
5449   - $v_result = $p_dir;
5450   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Invalid path is unchanged");
5451   - $v_skip = 0;
5452   - }
5453   - }
5454   - // ----- Last '/' i.e. indicates a directory
5455   - else if ($i == (sizeof($v_list)-1)) {
5456   - $v_result = $v_list[$i];
5457   - }
5458   - // ----- Double '/' inside the path
5459   - else {
5460   - // ----- Ignore only the double '//' in path,
5461   - // but not the first and last '/'
5462   - }
5463   - }
5464   - else {
5465   - // ----- Look for item to skip
5466   - if ($v_skip > 0) {
5467   - $v_skip--;
5468   - }
5469   - else {
5470   - $v_result = $v_list[$i].($i!=(sizeof($v_list)-1)?"/".$v_result:"");
5471   - }
5472   - }
5473   - }
5474   -
5475   - // ----- Look for skip
5476   - if ($v_skip > 0) {
5477   - while ($v_skip > 0) {
5478   - $v_result = '../'.$v_result;
5479   - $v_skip--;
5480   - }
5481   - }
5482   - }
5483   -
5484   - // ----- Return
5485   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5486   - return $v_result;
5487   - }
5488   - // --------------------------------------------------------------------------------
5489   -
5490   - // --------------------------------------------------------------------------------
5491   - // Function : PclZipUtilPathInclusion()
5492   - // Description :
5493   - // This function indicates if the path $p_path is under the $p_dir tree. Or,
5494   - // said in an other way, if the file or sub-dir $p_path is inside the dir
5495   - // $p_dir.
5496   - // The function indicates also if the path is exactly the same as the dir.
5497   - // This function supports path with duplicated '/' like '//', but does not
5498   - // support '.' or '..' statements.
5499   - // Parameters :
5500   - // Return Values :
5501   - // 0 if $p_path is not inside directory $p_dir
5502   - // 1 if $p_path is inside directory $p_dir
5503   - // 2 if $p_path is exactly the same as $p_dir
5504   - // --------------------------------------------------------------------------------
5505   - function PclZipUtilPathInclusion($p_dir, $p_path)
5506   - {
5507   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZipUtilPathInclusion", "dir='$p_dir', path='$p_path'");
5508   - $v_result = 1;
5509   -
5510   - // ----- Look for path beginning by ./
5511   - if ( ($p_dir == '.')
5512   - || ((strlen($p_dir) >=2) && (substr($p_dir, 0, 2) == './'))) {
5513   - $p_dir = PclZipUtilTranslateWinPath(getcwd(), FALSE).'/'.substr($p_dir, 1);
5514   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Replacing ./ by full path in p_dir '".$p_dir."'");
5515   - }
5516   - if ( ($p_path == '.')
5517   - || ((strlen($p_path) >=2) && (substr($p_path, 0, 2) == './'))) {
5518   - $p_path = PclZipUtilTranslateWinPath(getcwd(), FALSE).'/'.substr($p_path, 1);
5519   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Replacing ./ by full path in p_path '".$p_path."'");
5520   - }
5521   -
5522   - // ----- Explode dir and path by directory separator
5523   - $v_list_dir = explode("/", $p_dir);
5524   - $v_list_dir_size = sizeof($v_list_dir);
5525   - $v_list_path = explode("/", $p_path);
5526   - $v_list_path_size = sizeof($v_list_path);
5527   -
5528   - // ----- Study directories paths
5529   - $i = 0;
5530   - $j = 0;
5531   - while (($i < $v_list_dir_size) && ($j < $v_list_path_size) && ($v_result)) {
5532   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Working on dir($i)='".$v_list_dir[$i]."' and path($j)='".$v_list_path[$j]."'");
5533   -
5534   - // ----- Look for empty dir (path reduction)
5535   - if ($v_list_dir[$i] == '') {
5536   - $i++;
5537   - continue;
5538   - }
5539   - if ($v_list_path[$j] == '') {
5540   - $j++;
5541   - continue;
5542   - }
5543   -
5544   - // ----- Compare the items
5545   - if (($v_list_dir[$i] != $v_list_path[$j]) && ($v_list_dir[$i] != '') && ( $v_list_path[$j] != '')) {
5546   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Items ($i,$j) are different");
5547   - $v_result = 0;
5548   - }
5549   -
5550   - // ----- Next items
5551   - $i++;
5552   - $j++;
5553   - }
5554   -
5555   - // ----- Look if everything seems to be the same
5556   - if ($v_result) {
5557   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Look for tie break");
5558   - // ----- Skip all the empty items
5559   - while (($j < $v_list_path_size) && ($v_list_path[$j] == '')) $j++;
5560   - while (($i < $v_list_dir_size) && ($v_list_dir[$i] == '')) $i++;
5561   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Looking on dir($i)='".($i < $v_list_dir_size?$v_list_dir[$i]:'')."' and path($j)='".($j < $v_list_path_size?$v_list_path[$j]:'')."'");
5562   -
5563   - if (($i >= $v_list_dir_size) && ($j >= $v_list_path_size)) {
5564   - // ----- There are exactly the same
5565   - $v_result = 2;
5566   - }
5567   - else if ($i < $v_list_dir_size) {
5568   - // ----- The path is shorter than the dir
5569   - $v_result = 0;
5570   - }
5571   - }
5572   -
5573   - // ----- Return
5574   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5575   - return $v_result;
5576   - }
5577   - // --------------------------------------------------------------------------------
5578   -
5579   - // --------------------------------------------------------------------------------
5580   - // Function : PclZipUtilCopyBlock()
5581   - // Description :
5582   - // Parameters :
5583   - // $p_mode : read/write compression mode
5584   - // 0 : src & dest normal
5585   - // 1 : src gzip, dest normal
5586   - // 2 : src normal, dest gzip
5587   - // 3 : src & dest gzip
5588   - // Return Values :
5589   - // --------------------------------------------------------------------------------
5590   - function PclZipUtilCopyBlock($p_src, $p_dest, $p_size, $p_mode=0)
5591   - {
5592   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZipUtilCopyBlock", "size=$p_size, mode=$p_mode");
5593   - $v_result = 1;
5594   -
5595   - if ($p_mode==0)
5596   - {
5597   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Src offset before read :".(@ftell($p_src)));
5598   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Dest offset before write :".(@ftell($p_dest)));
5599   - while ($p_size != 0)
5600   - {
5601   - $v_read_size = ($p_size < PCLZIP_READ_BLOCK_SIZE ? $p_size : PCLZIP_READ_BLOCK_SIZE);
5602   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Read $v_read_size bytes");
5603   - $v_buffer = @fread($p_src, $v_read_size);
5604   - @fwrite($p_dest, $v_buffer, $v_read_size);
5605   - $p_size -= $v_read_size;
5606   - }
5607   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Src offset after read :".(@ftell($p_src)));
5608   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Dest offset after write :".(@ftell($p_dest)));
5609   - }
5610   - else if ($p_mode==1)
5611   - {
5612   - while ($p_size != 0)
5613   - {
5614   - $v_read_size = ($p_size < PCLZIP_READ_BLOCK_SIZE ? $p_size : PCLZIP_READ_BLOCK_SIZE);
5615   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Read $v_read_size bytes");
5616   - $v_buffer = @gzread($p_src, $v_read_size);
5617   - @fwrite($p_dest, $v_buffer, $v_read_size);
5618   - $p_size -= $v_read_size;
5619   - }
5620   - }
5621   - else if ($p_mode==2)
5622   - {
5623   - while ($p_size != 0)
5624   - {
5625   - $v_read_size = ($p_size < PCLZIP_READ_BLOCK_SIZE ? $p_size : PCLZIP_READ_BLOCK_SIZE);
5626   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Read $v_read_size bytes");
5627   - $v_buffer = @fread($p_src, $v_read_size);
5628   - @gzwrite($p_dest, $v_buffer, $v_read_size);
5629   - $p_size -= $v_read_size;
5630   - }
5631   - }
5632   - else if ($p_mode==3)
5633   - {
5634   - while ($p_size != 0)
5635   - {
5636   - $v_read_size = ($p_size < PCLZIP_READ_BLOCK_SIZE ? $p_size : PCLZIP_READ_BLOCK_SIZE);
5637   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Read $v_read_size bytes");
5638   - $v_buffer = @gzread($p_src, $v_read_size);
5639   - @gzwrite($p_dest, $v_buffer, $v_read_size);
5640   - $p_size -= $v_read_size;
5641   - }
5642   - }
5643   -
5644   - // ----- Return
5645   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5646   - return $v_result;
5647   - }
5648   - // --------------------------------------------------------------------------------
5649   -
5650   - // --------------------------------------------------------------------------------
5651   - // Function : PclZipUtilRename()
5652   - // Description :
5653   - // This function tries to do a simple rename() function. If it fails, it
5654   - // tries to copy the $p_src file in a new $p_dest file and then unlink the
5655   - // first one.
5656   - // Parameters :
5657   - // $p_src : Old filename
5658   - // $p_dest : New filename
5659   - // Return Values :
5660   - // 1 on success, 0 on failure.
5661   - // --------------------------------------------------------------------------------
5662   - function PclZipUtilRename($p_src, $p_dest)
5663   - {
5664   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZipUtilRename", "source=$p_src, destination=$p_dest");
5665   - $v_result = 1;
5666   -
5667   - // ----- Try to rename the files
5668   - if (!@rename($p_src, $p_dest)) {
5669   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Fail to rename file, try copy+unlink");
5670   -
5671   - // ----- Try to copy & unlink the src
5672   - if (!@copy($p_src, $p_dest)) {
5673   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Fail to copy file");
5674   - $v_result = 0;
5675   - }
5676   - else if (!@unlink($p_src)) {
5677   - //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Fail to unlink old filename");
5678   - $v_result = 0;
5679   - }
5680   - }
5681   -
5682   - // ----- Return
5683   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5684   - return $v_result;
5685   - }
5686   - // --------------------------------------------------------------------------------
5687   -
5688   - // --------------------------------------------------------------------------------
5689   - // Function : PclZipUtilOptionText()
5690   - // Description :
5691   - // Translate option value in text. Mainly for debug purpose.
5692   - // Parameters :
5693   - // $p_option : the option value.
5694   - // Return Values :
5695   - // The option text value.
5696   - // --------------------------------------------------------------------------------
5697   - function PclZipUtilOptionText($p_option)
5698   - {
5699   - //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZipUtilOptionText", "option='".$p_option."'");
5700   -
5701   - $v_list = get_defined_constants();
5702   - for (reset($v_list); $v_key = key($v_list); next($v_list)) {
5703   - $v_prefix = substr($v_key, 0, 10);
5704   - if (( ($v_prefix == 'PCLZIP_OPT')
5705   - || ($v_prefix == 'PCLZIP_CB_')
5706   - || ($v_prefix == 'PCLZIP_ATT'))
5707   - && ($v_list[$v_key] == $p_option)) {
5708   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_key);
5709   - return $v_key;
5710   - }
5711   - }
5712   -
5713   - $v_result = 'Unknown';
5714   -
5715   - //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
5716   - return $v_result;
5717   - }
5718   - // --------------------------------------------------------------------------------
5719   -
5720   - // --------------------------------------------------------------------------------
5721   - // Function : PclZipUtilTranslateWinPath()
5722   - // Description :
5723   - // Translate windows path by replacing '\' by '/' and optionally removing
5724   - // drive letter.
5725   - // Parameters :
5726   - // $p_path : path to translate.
5727   - // $p_remove_disk_letter : true | false
5728   - // Return Values :
5729   - // The path translated.
5730   - // --------------------------------------------------------------------------------
5731   - function PclZipUtilTranslateWinPath($p_path, $p_remove_disk_letter=true)
5732   - {
5733   - if (stristr(php_uname(), 'windows')) {
5734   - // ----- Look for potential disk letter
5735   - if (($p_remove_disk_letter) && (($v_position = strpos($p_path, ':')) != false)) {
5736   - $p_path = substr($p_path, $v_position+1);
5737   - }
5738   - // ----- Change potential windows directory separator
5739   - if ((strpos($p_path, '\\') > 0) || (substr($p_path, 0,1) == '\\')) {
5740   - $p_path = strtr($p_path, '\\', '/');
5741   - }
5742   - }
5743   - return $p_path;
5744   - }
5745   - // --------------------------------------------------------------------------------
5746   -
5747   -
5748   -?>
  1 +<?php
  2 +// --------------------------------------------------------------------------------
  3 +// PhpConcept Library - Zip Module 2.8.2
  4 +// --------------------------------------------------------------------------------
  5 +// License GNU/LGPL - Vincent Blavet - August 2009
  6 +// http://www.phpconcept.net
  7 +// --------------------------------------------------------------------------------
  8 +//
  9 +// Presentation :
  10 +// PclZip is a PHP library that manage ZIP archives.
  11 +// So far tests show that archives generated by PclZip are readable by
  12 +// WinZip application and other tools.
  13 +//
  14 +// Description :
  15 +// See readme.txt and http://www.phpconcept.net
  16 +//
  17 +// Warning :
  18 +// This library and the associated files are non commercial, non professional
  19 +// work.
  20 +// It should not have unexpected results. However if any damage is caused by
  21 +// this software the author can not be responsible.
  22 +// The use of this software is at the risk of the user.
  23 +//
  24 +// --------------------------------------------------------------------------------
  25 +// $Id: pclzip.lib.php,v 1.60 2009/09/30 21:01:04 vblavet Exp $
  26 +// --------------------------------------------------------------------------------
  27 +
  28 + // ----- Constants
  29 + if (!defined('PCLZIP_READ_BLOCK_SIZE')) {
  30 + define( 'PCLZIP_READ_BLOCK_SIZE', 2048 );
  31 + }
  32 +
  33 + // ----- File list separator
  34 + // In version 1.x of PclZip, the separator for file list is a space
  35 + // (which is not a very smart choice, specifically for windows paths !).
  36 + // A better separator should be a comma (,). This constant gives you the
  37 + // abilty to change that.
  38 + // However notice that changing this value, may have impact on existing
  39 + // scripts, using space separated filenames.
  40 + // Recommanded values for compatibility with older versions :
  41 + //define( 'PCLZIP_SEPARATOR', ' ' );
  42 + // Recommanded values for smart separation of filenames.
  43 + if (!defined('PCLZIP_SEPARATOR')) {
  44 + define( 'PCLZIP_SEPARATOR', ',' );
  45 + }
  46 +
  47 + // ----- Error configuration
  48 + // 0 : PclZip Class integrated error handling
  49 + // 1 : PclError external library error handling. By enabling this
  50 + // you must ensure that you have included PclError library.
  51 + // [2,...] : reserved for futur use
  52 + if (!defined('PCLZIP_ERROR_EXTERNAL')) {
  53 + define( 'PCLZIP_ERROR_EXTERNAL', 0 );
  54 + }
  55 +
  56 + // ----- Optional static temporary directory
  57 + // By default temporary files are generated in the script current
  58 + // path.
  59 + // If defined :
  60 + // - MUST BE terminated by a '/'.
  61 + // - MUST be a valid, already created directory
  62 + // Samples :
  63 + // define( 'PCLZIP_TEMPORARY_DIR', '/temp/' );
  64 + // define( 'PCLZIP_TEMPORARY_DIR', 'C:/Temp/' );
  65 + if (!defined('PCLZIP_TEMPORARY_DIR')) {
  66 + define( 'PCLZIP_TEMPORARY_DIR', '' );
  67 + }
  68 +
  69 + // ----- Optional threshold ratio for use of temporary files
  70 + // Pclzip sense the size of the file to add/extract and decide to
  71 + // use or not temporary file. The algorythm is looking for
  72 + // memory_limit of PHP and apply a ratio.
  73 + // threshold = memory_limit * ratio.
  74 + // Recommended values are under 0.5. Default 0.47.
  75 + // Samples :
  76 + // define( 'PCLZIP_TEMPORARY_FILE_RATIO', 0.5 );
  77 + if (!defined('PCLZIP_TEMPORARY_FILE_RATIO')) {
  78 + define( 'PCLZIP_TEMPORARY_FILE_RATIO', 0.47 );
  79 + }
  80 +
  81 +// --------------------------------------------------------------------------------
  82 +// ***** UNDER THIS LINE NOTHING NEEDS TO BE MODIFIED *****
  83 +// --------------------------------------------------------------------------------
  84 +
  85 + // ----- Global variables
  86 + $g_pclzip_version = "2.8.2";
  87 +
  88 + // ----- Error codes
  89 + // -1 : Unable to open file in binary write mode
  90 + // -2 : Unable to open file in binary read mode
  91 + // -3 : Invalid parameters
  92 + // -4 : File does not exist
  93 + // -5 : Filename is too long (max. 255)
  94 + // -6 : Not a valid zip file
  95 + // -7 : Invalid extracted file size
  96 + // -8 : Unable to create directory
  97 + // -9 : Invalid archive extension
  98 + // -10 : Invalid archive format
  99 + // -11 : Unable to delete file (unlink)
  100 + // -12 : Unable to rename file (rename)
  101 + // -13 : Invalid header checksum
  102 + // -14 : Invalid archive size
  103 + define( 'PCLZIP_ERR_USER_ABORTED', 2 );
  104 + define( 'PCLZIP_ERR_NO_ERROR', 0 );
  105 + define( 'PCLZIP_ERR_WRITE_OPEN_FAIL', -1 );
  106 + define( 'PCLZIP_ERR_READ_OPEN_FAIL', -2 );
  107 + define( 'PCLZIP_ERR_INVALID_PARAMETER', -3 );
  108 + define( 'PCLZIP_ERR_MISSING_FILE', -4 );
  109 + define( 'PCLZIP_ERR_FILENAME_TOO_LONG', -5 );
  110 + define( 'PCLZIP_ERR_INVALID_ZIP', -6 );
  111 + define( 'PCLZIP_ERR_BAD_EXTRACTED_FILE', -7 );
  112 + define( 'PCLZIP_ERR_DIR_CREATE_FAIL', -8 );
  113 + define( 'PCLZIP_ERR_BAD_EXTENSION', -9 );
  114 + define( 'PCLZIP_ERR_BAD_FORMAT', -10 );
  115 + define( 'PCLZIP_ERR_DELETE_FILE_FAIL', -11 );
  116 + define( 'PCLZIP_ERR_RENAME_FILE_FAIL', -12 );
  117 + define( 'PCLZIP_ERR_BAD_CHECKSUM', -13 );
  118 + define( 'PCLZIP_ERR_INVALID_ARCHIVE_ZIP', -14 );
  119 + define( 'PCLZIP_ERR_MISSING_OPTION_VALUE', -15 );
  120 + define( 'PCLZIP_ERR_INVALID_OPTION_VALUE', -16 );
  121 + define( 'PCLZIP_ERR_ALREADY_A_DIRECTORY', -17 );
  122 + define( 'PCLZIP_ERR_UNSUPPORTED_COMPRESSION', -18 );
  123 + define( 'PCLZIP_ERR_UNSUPPORTED_ENCRYPTION', -19 );
  124 + define( 'PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE', -20 );
  125 + define( 'PCLZIP_ERR_DIRECTORY_RESTRICTION', -21 );
  126 +
  127 + // ----- Options values
  128 + define( 'PCLZIP_OPT_PATH', 77001 );
  129 + define( 'PCLZIP_OPT_ADD_PATH', 77002 );
  130 + define( 'PCLZIP_OPT_REMOVE_PATH', 77003 );
  131 + define( 'PCLZIP_OPT_REMOVE_ALL_PATH', 77004 );
  132 + define( 'PCLZIP_OPT_SET_CHMOD', 77005 );
  133 + define( 'PCLZIP_OPT_EXTRACT_AS_STRING', 77006 );
  134 + define( 'PCLZIP_OPT_NO_COMPRESSION', 77007 );
  135 + define( 'PCLZIP_OPT_BY_NAME', 77008 );
  136 + define( 'PCLZIP_OPT_BY_INDEX', 77009 );
  137 + define( 'PCLZIP_OPT_BY_EREG', 77010 );
  138 + define( 'PCLZIP_OPT_BY_PREG', 77011 );
  139 + define( 'PCLZIP_OPT_COMMENT', 77012 );
  140 + define( 'PCLZIP_OPT_ADD_COMMENT', 77013 );
  141 + define( 'PCLZIP_OPT_PREPEND_COMMENT', 77014 );
  142 + define( 'PCLZIP_OPT_EXTRACT_IN_OUTPUT', 77015 );
  143 + define( 'PCLZIP_OPT_REPLACE_NEWER', 77016 );
  144 + define( 'PCLZIP_OPT_STOP_ON_ERROR', 77017 );
  145 + // Having big trouble with crypt. Need to multiply 2 long int
  146 + // which is not correctly supported by PHP ...
  147 + //define( 'PCLZIP_OPT_CRYPT', 77018 );
  148 + define( 'PCLZIP_OPT_EXTRACT_DIR_RESTRICTION', 77019 );
  149 + define( 'PCLZIP_OPT_TEMP_FILE_THRESHOLD', 77020 );
  150 + define( 'PCLZIP_OPT_ADD_TEMP_FILE_THRESHOLD', 77020 ); // alias
  151 + define( 'PCLZIP_OPT_TEMP_FILE_ON', 77021 );
  152 + define( 'PCLZIP_OPT_ADD_TEMP_FILE_ON', 77021 ); // alias
  153 + define( 'PCLZIP_OPT_TEMP_FILE_OFF', 77022 );
  154 + define( 'PCLZIP_OPT_ADD_TEMP_FILE_OFF', 77022 ); // alias
  155 +
  156 + // ----- File description attributes
  157 + define( 'PCLZIP_ATT_FILE_NAME', 79001 );
  158 + define( 'PCLZIP_ATT_FILE_NEW_SHORT_NAME', 79002 );
  159 + define( 'PCLZIP_ATT_FILE_NEW_FULL_NAME', 79003 );
  160 + define( 'PCLZIP_ATT_FILE_MTIME', 79004 );
  161 + define( 'PCLZIP_ATT_FILE_CONTENT', 79005 );
  162 + define( 'PCLZIP_ATT_FILE_COMMENT', 79006 );
  163 +
  164 + // ----- Call backs values
  165 + define( 'PCLZIP_CB_PRE_EXTRACT', 78001 );
  166 + define( 'PCLZIP_CB_POST_EXTRACT', 78002 );
  167 + define( 'PCLZIP_CB_PRE_ADD', 78003 );
  168 + define( 'PCLZIP_CB_POST_ADD', 78004 );
  169 + /* For futur use
  170 + define( 'PCLZIP_CB_PRE_LIST', 78005 );
  171 + define( 'PCLZIP_CB_POST_LIST', 78006 );
  172 + define( 'PCLZIP_CB_PRE_DELETE', 78007 );
  173 + define( 'PCLZIP_CB_POST_DELETE', 78008 );
  174 + */
  175 +
  176 + // --------------------------------------------------------------------------------
  177 + // Class : PclZip
  178 + // Description :
  179 + // PclZip is the class that represent a Zip archive.
  180 + // The public methods allow the manipulation of the archive.
  181 + // Attributes :
  182 + // Attributes must not be accessed directly.
  183 + // Methods :
  184 + // PclZip() : Object creator
  185 + // create() : Creates the Zip archive
  186 + // listContent() : List the content of the Zip archive
  187 + // extract() : Extract the content of the archive
  188 + // properties() : List the properties of the archive
  189 + // --------------------------------------------------------------------------------
  190 + class PclZip
  191 + {
  192 + // ----- Filename of the zip file
  193 + var $zipname = '';
  194 +
  195 + // ----- File descriptor of the zip file
  196 + var $zip_fd = 0;
  197 +
  198 + // ----- Internal error handling
  199 + var $error_code = 1;
  200 + var $error_string = '';
  201 +
  202 + // ----- Current status of the magic_quotes_runtime
  203 + // This value store the php configuration for magic_quotes
  204 + // The class can then disable the magic_quotes and reset it after
  205 + var $magic_quotes_status;
  206 +
  207 + // --------------------------------------------------------------------------------
  208 + // Function : PclZip()
  209 + // Description :
  210 + // Creates a PclZip object and set the name of the associated Zip archive
  211 + // filename.
  212 + // Note that no real action is taken, if the archive does not exist it is not
  213 + // created. Use create() for that.
  214 + // --------------------------------------------------------------------------------
  215 + function PclZip($p_zipname)
  216 + {
  217 +
  218 + // ----- Tests the zlib
  219 + if (!function_exists('gzopen'))
  220 + {
  221 + die('Abort '.basename(__FILE__).' : Missing zlib extensions');
  222 + }
  223 +
  224 + // ----- Set the attributes
  225 + $this->zipname = $p_zipname;
  226 + $this->zip_fd = 0;
  227 + $this->magic_quotes_status = -1;
  228 +
  229 + // ----- Return
  230 + return;
  231 + }
  232 + // --------------------------------------------------------------------------------
  233 +
  234 + // --------------------------------------------------------------------------------
  235 + // Function :
  236 + // create($p_filelist, $p_add_dir="", $p_remove_dir="")
  237 + // create($p_filelist, $p_option, $p_option_value, ...)
  238 + // Description :
  239 + // This method supports two different synopsis. The first one is historical.
  240 + // This method creates a Zip Archive. The Zip file is created in the
  241 + // filesystem. The files and directories indicated in $p_filelist
  242 + // are added in the archive. See the parameters description for the
  243 + // supported format of $p_filelist.
  244 + // When a directory is in the list, the directory and its content is added
  245 + // in the archive.
  246 + // In this synopsis, the function takes an optional variable list of
  247 + // options. See bellow the supported options.
  248 + // Parameters :
  249 + // $p_filelist : An array containing file or directory names, or
  250 + // a string containing one filename or one directory name, or
  251 + // a string containing a list of filenames and/or directory
  252 + // names separated by spaces.
  253 + // $p_add_dir : A path to add before the real path of the archived file,
  254 + // in order to have it memorized in the archive.
  255 + // $p_remove_dir : A path to remove from the real path of the file to archive,
  256 + // in order to have a shorter path memorized in the archive.
  257 + // When $p_add_dir and $p_remove_dir are set, $p_remove_dir
  258 + // is removed first, before $p_add_dir is added.
  259 + // Options :
  260 + // PCLZIP_OPT_ADD_PATH :
  261 + // PCLZIP_OPT_REMOVE_PATH :
  262 + // PCLZIP_OPT_REMOVE_ALL_PATH :
  263 + // PCLZIP_OPT_COMMENT :
  264 + // PCLZIP_CB_PRE_ADD :
  265 + // PCLZIP_CB_POST_ADD :
  266 + // Return Values :
  267 + // 0 on failure,
  268 + // The list of the added files, with a status of the add action.
  269 + // (see PclZip::listContent() for list entry format)
  270 + // --------------------------------------------------------------------------------
  271 + function create($p_filelist)
  272 + {
  273 + $v_result=1;
  274 +
  275 + // ----- Reset the error handler
  276 + $this->privErrorReset();
  277 +
  278 + // ----- Set default values
  279 + $v_options = array();
  280 + $v_options[PCLZIP_OPT_NO_COMPRESSION] = FALSE;
  281 +
  282 + // ----- Look for variable options arguments
  283 + $v_size = func_num_args();
  284 +
  285 + // ----- Look for arguments
  286 + if ($v_size > 1) {
  287 + // ----- Get the arguments
  288 + $v_arg_list = func_get_args();
  289 +
  290 + // ----- Remove from the options list the first argument
  291 + array_shift($v_arg_list);
  292 + $v_size--;
  293 +
  294 + // ----- Look for first arg
  295 + if ((is_integer($v_arg_list[0])) && ($v_arg_list[0] > 77000)) {
  296 +
  297 + // ----- Parse the options
  298 + $v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,
  299 + array (PCLZIP_OPT_REMOVE_PATH => 'optional',
  300 + PCLZIP_OPT_REMOVE_ALL_PATH => 'optional',
  301 + PCLZIP_OPT_ADD_PATH => 'optional',
  302 + PCLZIP_CB_PRE_ADD => 'optional',
  303 + PCLZIP_CB_POST_ADD => 'optional',
  304 + PCLZIP_OPT_NO_COMPRESSION => 'optional',
  305 + PCLZIP_OPT_COMMENT => 'optional',
  306 + PCLZIP_OPT_TEMP_FILE_THRESHOLD => 'optional',
  307 + PCLZIP_OPT_TEMP_FILE_ON => 'optional',
  308 + PCLZIP_OPT_TEMP_FILE_OFF => 'optional'
  309 + //, PCLZIP_OPT_CRYPT => 'optional'
  310 + ));
  311 + if ($v_result != 1) {
  312 + return 0;
  313 + }
  314 + }
  315 +
  316 + // ----- Look for 2 args
  317 + // Here we need to support the first historic synopsis of the
  318 + // method.
  319 + else {
  320 +
  321 + // ----- Get the first argument
  322 + $v_options[PCLZIP_OPT_ADD_PATH] = $v_arg_list[0];
  323 +
  324 + // ----- Look for the optional second argument
  325 + if ($v_size == 2) {
  326 + $v_options[PCLZIP_OPT_REMOVE_PATH] = $v_arg_list[1];
  327 + }
  328 + else if ($v_size > 2) {
  329 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER,
  330 + "Invalid number / type of arguments");
  331 + return 0;
  332 + }
  333 + }
  334 + }
  335 +
  336 + // ----- Look for default option values
  337 + $this->privOptionDefaultThreshold($v_options);
  338 +
  339 + // ----- Init
  340 + $v_string_list = array();
  341 + $v_att_list = array();
  342 + $v_filedescr_list = array();
  343 + $p_result_list = array();
  344 +
  345 + // ----- Look if the $p_filelist is really an array
  346 + if (is_array($p_filelist)) {
  347 +
  348 + // ----- Look if the first element is also an array
  349 + // This will mean that this is a file description entry
  350 + if (isset($p_filelist[0]) && is_array($p_filelist[0])) {
  351 + $v_att_list = $p_filelist;
  352 + }
  353 +
  354 + // ----- The list is a list of string names
  355 + else {
  356 + $v_string_list = $p_filelist;
  357 + }
  358 + }
  359 +
  360 + // ----- Look if the $p_filelist is a string
  361 + else if (is_string($p_filelist)) {
  362 + // ----- Create a list from the string
  363 + $v_string_list = explode(PCLZIP_SEPARATOR, $p_filelist);
  364 + }
  365 +
  366 + // ----- Invalid variable type for $p_filelist
  367 + else {
  368 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid variable type p_filelist");
  369 + return 0;
  370 + }
  371 +
  372 + // ----- Reformat the string list
  373 + if (sizeof($v_string_list) != 0) {
  374 + foreach ($v_string_list as $v_string) {
  375 + if ($v_string != '') {
  376 + $v_att_list[][PCLZIP_ATT_FILE_NAME] = $v_string;
  377 + }
  378 + else {
  379 + }
  380 + }
  381 + }
  382 +
  383 + // ----- For each file in the list check the attributes
  384 + $v_supported_attributes
  385 + = array ( PCLZIP_ATT_FILE_NAME => 'mandatory'
  386 + ,PCLZIP_ATT_FILE_NEW_SHORT_NAME => 'optional'
  387 + ,PCLZIP_ATT_FILE_NEW_FULL_NAME => 'optional'
  388 + ,PCLZIP_ATT_FILE_MTIME => 'optional'
  389 + ,PCLZIP_ATT_FILE_CONTENT => 'optional'
  390 + ,PCLZIP_ATT_FILE_COMMENT => 'optional'
  391 + );
  392 + foreach ($v_att_list as $v_entry) {
  393 + $v_result = $this->privFileDescrParseAtt($v_entry,
  394 + $v_filedescr_list[],
  395 + $v_options,
  396 + $v_supported_attributes);
  397 + if ($v_result != 1) {
  398 + return 0;
  399 + }
  400 + }
  401 +
  402 + // ----- Expand the filelist (expand directories)
  403 + $v_result = $this->privFileDescrExpand($v_filedescr_list, $v_options);
  404 + if ($v_result != 1) {
  405 + return 0;
  406 + }
  407 +
  408 + // ----- Call the create fct
  409 + $v_result = $this->privCreate($v_filedescr_list, $p_result_list, $v_options);
  410 + if ($v_result != 1) {
  411 + return 0;
  412 + }
  413 +
  414 + // ----- Return
  415 + return $p_result_list;
  416 + }
  417 + // --------------------------------------------------------------------------------
  418 +
  419 + // --------------------------------------------------------------------------------
  420 + // Function :
  421 + // add($p_filelist, $p_add_dir="", $p_remove_dir="")
  422 + // add($p_filelist, $p_option, $p_option_value, ...)
  423 + // Description :
  424 + // This method supports two synopsis. The first one is historical.
  425 + // This methods add the list of files in an existing archive.
  426 + // If a file with the same name already exists, it is added at the end of the
  427 + // archive, the first one is still present.
  428 + // If the archive does not exist, it is created.
  429 + // Parameters :
  430 + // $p_filelist : An array containing file or directory names, or
  431 + // a string containing one filename or one directory name, or
  432 + // a string containing a list of filenames and/or directory
  433 + // names separated by spaces.
  434 + // $p_add_dir : A path to add before the real path of the archived file,
  435 + // in order to have it memorized in the archive.
  436 + // $p_remove_dir : A path to remove from the real path of the file to archive,
  437 + // in order to have a shorter path memorized in the archive.
  438 + // When $p_add_dir and $p_remove_dir are set, $p_remove_dir
  439 + // is removed first, before $p_add_dir is added.
  440 + // Options :
  441 + // PCLZIP_OPT_ADD_PATH :
  442 + // PCLZIP_OPT_REMOVE_PATH :
  443 + // PCLZIP_OPT_REMOVE_ALL_PATH :
  444 + // PCLZIP_OPT_COMMENT :
  445 + // PCLZIP_OPT_ADD_COMMENT :
  446 + // PCLZIP_OPT_PREPEND_COMMENT :
  447 + // PCLZIP_CB_PRE_ADD :
  448 + // PCLZIP_CB_POST_ADD :
  449 + // Return Values :
  450 + // 0 on failure,
  451 + // The list of the added files, with a status of the add action.
  452 + // (see PclZip::listContent() for list entry format)
  453 + // --------------------------------------------------------------------------------
  454 + function add($p_filelist)
  455 + {
  456 + $v_result=1;
  457 +
  458 + // ----- Reset the error handler
  459 + $this->privErrorReset();
  460 +
  461 + // ----- Set default values
  462 + $v_options = array();
  463 + $v_options[PCLZIP_OPT_NO_COMPRESSION] = FALSE;
  464 +
  465 + // ----- Look for variable options arguments
  466 + $v_size = func_num_args();
  467 +
  468 + // ----- Look for arguments
  469 + if ($v_size > 1) {
  470 + // ----- Get the arguments
  471 + $v_arg_list = func_get_args();
  472 +
  473 + // ----- Remove form the options list the first argument
  474 + array_shift($v_arg_list);
  475 + $v_size--;
  476 +
  477 + // ----- Look for first arg
  478 + if ((is_integer($v_arg_list[0])) && ($v_arg_list[0] > 77000)) {
  479 +
  480 + // ----- Parse the options
  481 + $v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,
  482 + array (PCLZIP_OPT_REMOVE_PATH => 'optional',
  483 + PCLZIP_OPT_REMOVE_ALL_PATH => 'optional',
  484 + PCLZIP_OPT_ADD_PATH => 'optional',
  485 + PCLZIP_CB_PRE_ADD => 'optional',
  486 + PCLZIP_CB_POST_ADD => 'optional',
  487 + PCLZIP_OPT_NO_COMPRESSION => 'optional',
  488 + PCLZIP_OPT_COMMENT => 'optional',
  489 + PCLZIP_OPT_ADD_COMMENT => 'optional',
  490 + PCLZIP_OPT_PREPEND_COMMENT => 'optional',
  491 + PCLZIP_OPT_TEMP_FILE_THRESHOLD => 'optional',
  492 + PCLZIP_OPT_TEMP_FILE_ON => 'optional',
  493 + PCLZIP_OPT_TEMP_FILE_OFF => 'optional'
  494 + //, PCLZIP_OPT_CRYPT => 'optional'
  495 + ));
  496 + if ($v_result != 1) {
  497 + return 0;
  498 + }
  499 + }
  500 +
  501 + // ----- Look for 2 args
  502 + // Here we need to support the first historic synopsis of the
  503 + // method.
  504 + else {
  505 +
  506 + // ----- Get the first argument
  507 + $v_options[PCLZIP_OPT_ADD_PATH] = $v_add_path = $v_arg_list[0];
  508 +
  509 + // ----- Look for the optional second argument
  510 + if ($v_size == 2) {
  511 + $v_options[PCLZIP_OPT_REMOVE_PATH] = $v_arg_list[1];
  512 + }
  513 + else if ($v_size > 2) {
  514 + // ----- Error log
  515 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid number / type of arguments");
  516 +
  517 + // ----- Return
  518 + return 0;
  519 + }
  520 + }
  521 + }
  522 +
  523 + // ----- Look for default option values
  524 + $this->privOptionDefaultThreshold($v_options);
  525 +
  526 + // ----- Init
  527 + $v_string_list = array();
  528 + $v_att_list = array();
  529 + $v_filedescr_list = array();
  530 + $p_result_list = array();
  531 +
  532 + // ----- Look if the $p_filelist is really an array
  533 + if (is_array($p_filelist)) {
  534 +
  535 + // ----- Look if the first element is also an array
  536 + // This will mean that this is a file description entry
  537 + if (isset($p_filelist[0]) && is_array($p_filelist[0])) {
  538 + $v_att_list = $p_filelist;
  539 + }
  540 +
  541 + // ----- The list is a list of string names
  542 + else {
  543 + $v_string_list = $p_filelist;
  544 + }
  545 + }
  546 +
  547 + // ----- Look if the $p_filelist is a string
  548 + else if (is_string($p_filelist)) {
  549 + // ----- Create a list from the string
  550 + $v_string_list = explode(PCLZIP_SEPARATOR, $p_filelist);
  551 + }
  552 +
  553 + // ----- Invalid variable type for $p_filelist
  554 + else {
  555 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid variable type '".gettype($p_filelist)."' for p_filelist");
  556 + return 0;
  557 + }
  558 +
  559 + // ----- Reformat the string list
  560 + if (sizeof($v_string_list) != 0) {
  561 + foreach ($v_string_list as $v_string) {
  562 + $v_att_list[][PCLZIP_ATT_FILE_NAME] = $v_string;
  563 + }
  564 + }
  565 +
  566 + // ----- For each file in the list check the attributes
  567 + $v_supported_attributes
  568 + = array ( PCLZIP_ATT_FILE_NAME => 'mandatory'
  569 + ,PCLZIP_ATT_FILE_NEW_SHORT_NAME => 'optional'
  570 + ,PCLZIP_ATT_FILE_NEW_FULL_NAME => 'optional'
  571 + ,PCLZIP_ATT_FILE_MTIME => 'optional'
  572 + ,PCLZIP_ATT_FILE_CONTENT => 'optional'
  573 + ,PCLZIP_ATT_FILE_COMMENT => 'optional'
  574 + );
  575 + foreach ($v_att_list as $v_entry) {
  576 + $v_result = $this->privFileDescrParseAtt($v_entry,
  577 + $v_filedescr_list[],
  578 + $v_options,
  579 + $v_supported_attributes);
  580 + if ($v_result != 1) {
  581 + return 0;
  582 + }
  583 + }
  584 +
  585 + // ----- Expand the filelist (expand directories)
  586 + $v_result = $this->privFileDescrExpand($v_filedescr_list, $v_options);
  587 + if ($v_result != 1) {
  588 + return 0;
  589 + }
  590 +
  591 + // ----- Call the create fct
  592 + $v_result = $this->privAdd($v_filedescr_list, $p_result_list, $v_options);
  593 + if ($v_result != 1) {
  594 + return 0;
  595 + }
  596 +
  597 + // ----- Return
  598 + return $p_result_list;
  599 + }
  600 + // --------------------------------------------------------------------------------
  601 +
  602 + // --------------------------------------------------------------------------------
  603 + // Function : listContent()
  604 + // Description :
  605 + // This public method, gives the list of the files and directories, with their
  606 + // properties.
  607 + // The properties of each entries in the list are (used also in other functions) :
  608 + // filename : Name of the file. For a create or add action it is the filename
  609 + // given by the user. For an extract function it is the filename
  610 + // of the extracted file.
  611 + // stored_filename : Name of the file / directory stored in the archive.
  612 + // size : Size of the stored file.
  613 + // compressed_size : Size of the file's data compressed in the archive
  614 + // (without the headers overhead)
  615 + // mtime : Last known modification date of the file (UNIX timestamp)
  616 + // comment : Comment associated with the file
  617 + // folder : true | false
  618 + // index : index of the file in the archive
  619 + // status : status of the action (depending of the action) :
  620 + // Values are :
  621 + // ok : OK !
  622 + // filtered : the file / dir is not extracted (filtered by user)
  623 + // already_a_directory : the file can not be extracted because a
  624 + // directory with the same name already exists
  625 + // write_protected : the file can not be extracted because a file
  626 + // with the same name already exists and is
  627 + // write protected
  628 + // newer_exist : the file was not extracted because a newer file exists
  629 + // path_creation_fail : the file is not extracted because the folder
  630 + // does not exist and can not be created
  631 + // write_error : the file was not extracted because there was a
  632 + // error while writing the file
  633 + // read_error : the file was not extracted because there was a error
  634 + // while reading the file
  635 + // invalid_header : the file was not extracted because of an archive
  636 + // format error (bad file header)
  637 + // Note that each time a method can continue operating when there
  638 + // is an action error on a file, the error is only logged in the file status.
  639 + // Return Values :
  640 + // 0 on an unrecoverable failure,
  641 + // The list of the files in the archive.
  642 + // --------------------------------------------------------------------------------
  643 + function listContent()
  644 + {
  645 + $v_result=1;
  646 +
  647 + // ----- Reset the error handler
  648 + $this->privErrorReset();
  649 +
  650 + // ----- Check archive
  651 + if (!$this->privCheckFormat()) {
  652 + return(0);
  653 + }
  654 +
  655 + // ----- Call the extracting fct
  656 + $p_list = array();
  657 + if (($v_result = $this->privList($p_list)) != 1)
  658 + {
  659 + unset($p_list);
  660 + return(0);
  661 + }
  662 +
  663 + // ----- Return
  664 + return $p_list;
  665 + }
  666 + // --------------------------------------------------------------------------------
  667 +
  668 + // --------------------------------------------------------------------------------
  669 + // Function :
  670 + // extract($p_path="./", $p_remove_path="")
  671 + // extract([$p_option, $p_option_value, ...])
  672 + // Description :
  673 + // This method supports two synopsis. The first one is historical.
  674 + // This method extract all the files / directories from the archive to the
  675 + // folder indicated in $p_path.
  676 + // If you want to ignore the 'root' part of path of the memorized files
  677 + // you can indicate this in the optional $p_remove_path parameter.
  678 + // By default, if a newer file with the same name already exists, the
  679 + // file is not extracted.
  680 + //
  681 + // If both PCLZIP_OPT_PATH and PCLZIP_OPT_ADD_PATH aoptions
  682 + // are used, the path indicated in PCLZIP_OPT_ADD_PATH is append
  683 + // at the end of the path value of PCLZIP_OPT_PATH.
  684 + // Parameters :
  685 + // $p_path : Path where the files and directories are to be extracted
  686 + // $p_remove_path : First part ('root' part) of the memorized path
  687 + // (if any similar) to remove while extracting.
  688 + // Options :
  689 + // PCLZIP_OPT_PATH :
  690 + // PCLZIP_OPT_ADD_PATH :
  691 + // PCLZIP_OPT_REMOVE_PATH :
  692 + // PCLZIP_OPT_REMOVE_ALL_PATH :
  693 + // PCLZIP_CB_PRE_EXTRACT :
  694 + // PCLZIP_CB_POST_EXTRACT :
  695 + // Return Values :
  696 + // 0 or a negative value on failure,
  697 + // The list of the extracted files, with a status of the action.
  698 + // (see PclZip::listContent() for list entry format)
  699 + // --------------------------------------------------------------------------------
  700 + function extract()
  701 + {
  702 + $v_result=1;
  703 +
  704 + // ----- Reset the error handler
  705 + $this->privErrorReset();
  706 +
  707 + // ----- Check archive
  708 + if (!$this->privCheckFormat()) {
  709 + return(0);
  710 + }
  711 +
  712 + // ----- Set default values
  713 + $v_options = array();
  714 +// $v_path = "./";
  715 + $v_path = '';
  716 + $v_remove_path = "";
  717 + $v_remove_all_path = false;
  718 +
  719 + // ----- Look for variable options arguments
  720 + $v_size = func_num_args();
  721 +
  722 + // ----- Default values for option
  723 + $v_options[PCLZIP_OPT_EXTRACT_AS_STRING] = FALSE;
  724 +
  725 + // ----- Look for arguments
  726 + if ($v_size > 0) {
  727 + // ----- Get the arguments
  728 + $v_arg_list = func_get_args();
  729 +
  730 + // ----- Look for first arg
  731 + if ((is_integer($v_arg_list[0])) && ($v_arg_list[0] > 77000)) {
  732 +
  733 + // ----- Parse the options
  734 + $v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,
  735 + array (PCLZIP_OPT_PATH => 'optional',
  736 + PCLZIP_OPT_REMOVE_PATH => 'optional',
  737 + PCLZIP_OPT_REMOVE_ALL_PATH => 'optional',
  738 + PCLZIP_OPT_ADD_PATH => 'optional',
  739 + PCLZIP_CB_PRE_EXTRACT => 'optional',
  740 + PCLZIP_CB_POST_EXTRACT => 'optional',
  741 + PCLZIP_OPT_SET_CHMOD => 'optional',
  742 + PCLZIP_OPT_BY_NAME => 'optional',
  743 + PCLZIP_OPT_BY_EREG => 'optional',
  744 + PCLZIP_OPT_BY_PREG => 'optional',
  745 + PCLZIP_OPT_BY_INDEX => 'optional',
  746 + PCLZIP_OPT_EXTRACT_AS_STRING => 'optional',
  747 + PCLZIP_OPT_EXTRACT_IN_OUTPUT => 'optional',
  748 + PCLZIP_OPT_REPLACE_NEWER => 'optional'
  749 + ,PCLZIP_OPT_STOP_ON_ERROR => 'optional'
  750 + ,PCLZIP_OPT_EXTRACT_DIR_RESTRICTION => 'optional',
  751 + PCLZIP_OPT_TEMP_FILE_THRESHOLD => 'optional',
  752 + PCLZIP_OPT_TEMP_FILE_ON => 'optional',
  753 + PCLZIP_OPT_TEMP_FILE_OFF => 'optional'
  754 + ));
  755 + if ($v_result != 1) {
  756 + return 0;
  757 + }
  758 +
  759 + // ----- Set the arguments
  760 + if (isset($v_options[PCLZIP_OPT_PATH])) {
  761 + $v_path = $v_options[PCLZIP_OPT_PATH];
  762 + }
  763 + if (isset($v_options[PCLZIP_OPT_REMOVE_PATH])) {
  764 + $v_remove_path = $v_options[PCLZIP_OPT_REMOVE_PATH];
  765 + }
  766 + if (isset($v_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {
  767 + $v_remove_all_path = $v_options[PCLZIP_OPT_REMOVE_ALL_PATH];
  768 + }
  769 + if (isset($v_options[PCLZIP_OPT_ADD_PATH])) {
  770 + // ----- Check for '/' in last path char
  771 + if ((strlen($v_path) > 0) && (substr($v_path, -1) != '/')) {
  772 + $v_path .= '/';
  773 + }
  774 + $v_path .= $v_options[PCLZIP_OPT_ADD_PATH];
  775 + }
  776 + }
  777 +
  778 + // ----- Look for 2 args
  779 + // Here we need to support the first historic synopsis of the
  780 + // method.
  781 + else {
  782 +
  783 + // ----- Get the first argument
  784 + $v_path = $v_arg_list[0];
  785 +
  786 + // ----- Look for the optional second argument
  787 + if ($v_size == 2) {
  788 + $v_remove_path = $v_arg_list[1];
  789 + }
  790 + else if ($v_size > 2) {
  791 + // ----- Error log
  792 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid number / type of arguments");
  793 +
  794 + // ----- Return
  795 + return 0;
  796 + }
  797 + }
  798 + }
  799 +
  800 + // ----- Look for default option values
  801 + $this->privOptionDefaultThreshold($v_options);
  802 +
  803 + // ----- Trace
  804 +
  805 + // ----- Call the extracting fct
  806 + $p_list = array();
  807 + $v_result = $this->privExtractByRule($p_list, $v_path, $v_remove_path,
  808 + $v_remove_all_path, $v_options);
  809 + if ($v_result < 1) {
  810 + unset($p_list);
  811 + return(0);
  812 + }
  813 +
  814 + // ----- Return
  815 + return $p_list;
  816 + }
  817 + // --------------------------------------------------------------------------------
  818 +
  819 +
  820 + // --------------------------------------------------------------------------------
  821 + // Function :
  822 + // extractByIndex($p_index, $p_path="./", $p_remove_path="")
  823 + // extractByIndex($p_index, [$p_option, $p_option_value, ...])
  824 + // Description :
  825 + // This method supports two synopsis. The first one is historical.
  826 + // This method is doing a partial extract of the archive.
  827 + // The extracted files or folders are identified by their index in the
  828 + // archive (from 0 to n).
  829 + // Note that if the index identify a folder, only the folder entry is
  830 + // extracted, not all the files included in the archive.
  831 + // Parameters :
  832 + // $p_index : A single index (integer) or a string of indexes of files to
  833 + // extract. The form of the string is "0,4-6,8-12" with only numbers
  834 + // and '-' for range or ',' to separate ranges. No spaces or ';'
  835 + // are allowed.
  836 + // $p_path : Path where the files and directories are to be extracted
  837 + // $p_remove_path : First part ('root' part) of the memorized path
  838 + // (if any similar) to remove while extracting.
  839 + // Options :
  840 + // PCLZIP_OPT_PATH :
  841 + // PCLZIP_OPT_ADD_PATH :
  842 + // PCLZIP_OPT_REMOVE_PATH :
  843 + // PCLZIP_OPT_REMOVE_ALL_PATH :
  844 + // PCLZIP_OPT_EXTRACT_AS_STRING : The files are extracted as strings and
  845 + // not as files.
  846 + // The resulting content is in a new field 'content' in the file
  847 + // structure.
  848 + // This option must be used alone (any other options are ignored).
  849 + // PCLZIP_CB_PRE_EXTRACT :
  850 + // PCLZIP_CB_POST_EXTRACT :
  851 + // Return Values :
  852 + // 0 on failure,
  853 + // The list of the extracted files, with a status of the action.
  854 + // (see PclZip::listContent() for list entry format)
  855 + // --------------------------------------------------------------------------------
  856 + //function extractByIndex($p_index, options...)
  857 + function extractByIndex($p_index)
  858 + {
  859 + $v_result=1;
  860 +
  861 + // ----- Reset the error handler
  862 + $this->privErrorReset();
  863 +
  864 + // ----- Check archive
  865 + if (!$this->privCheckFormat()) {
  866 + return(0);
  867 + }
  868 +
  869 + // ----- Set default values
  870 + $v_options = array();
  871 +// $v_path = "./";
  872 + $v_path = '';
  873 + $v_remove_path = "";
  874 + $v_remove_all_path = false;
  875 +
  876 + // ----- Look for variable options arguments
  877 + $v_size = func_num_args();
  878 +
  879 + // ----- Default values for option
  880 + $v_options[PCLZIP_OPT_EXTRACT_AS_STRING] = FALSE;
  881 +
  882 + // ----- Look for arguments
  883 + if ($v_size > 1) {
  884 + // ----- Get the arguments
  885 + $v_arg_list = func_get_args();
  886 +
  887 + // ----- Remove form the options list the first argument
  888 + array_shift($v_arg_list);
  889 + $v_size--;
  890 +
  891 + // ----- Look for first arg
  892 + if ((is_integer($v_arg_list[0])) && ($v_arg_list[0] > 77000)) {
  893 +
  894 + // ----- Parse the options
  895 + $v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,
  896 + array (PCLZIP_OPT_PATH => 'optional',
  897 + PCLZIP_OPT_REMOVE_PATH => 'optional',
  898 + PCLZIP_OPT_REMOVE_ALL_PATH => 'optional',
  899 + PCLZIP_OPT_EXTRACT_AS_STRING => 'optional',
  900 + PCLZIP_OPT_ADD_PATH => 'optional',
  901 + PCLZIP_CB_PRE_EXTRACT => 'optional',
  902 + PCLZIP_CB_POST_EXTRACT => 'optional',
  903 + PCLZIP_OPT_SET_CHMOD => 'optional',
  904 + PCLZIP_OPT_REPLACE_NEWER => 'optional'
  905 + ,PCLZIP_OPT_STOP_ON_ERROR => 'optional'
  906 + ,PCLZIP_OPT_EXTRACT_DIR_RESTRICTION => 'optional',
  907 + PCLZIP_OPT_TEMP_FILE_THRESHOLD => 'optional',
  908 + PCLZIP_OPT_TEMP_FILE_ON => 'optional',
  909 + PCLZIP_OPT_TEMP_FILE_OFF => 'optional'
  910 + ));
  911 + if ($v_result != 1) {
  912 + return 0;
  913 + }
  914 +
  915 + // ----- Set the arguments
  916 + if (isset($v_options[PCLZIP_OPT_PATH])) {
  917 + $v_path = $v_options[PCLZIP_OPT_PATH];
  918 + }
  919 + if (isset($v_options[PCLZIP_OPT_REMOVE_PATH])) {
  920 + $v_remove_path = $v_options[PCLZIP_OPT_REMOVE_PATH];
  921 + }
  922 + if (isset($v_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {
  923 + $v_remove_all_path = $v_options[PCLZIP_OPT_REMOVE_ALL_PATH];
  924 + }
  925 + if (isset($v_options[PCLZIP_OPT_ADD_PATH])) {
  926 + // ----- Check for '/' in last path char
  927 + if ((strlen($v_path) > 0) && (substr($v_path, -1) != '/')) {
  928 + $v_path .= '/';
  929 + }
  930 + $v_path .= $v_options[PCLZIP_OPT_ADD_PATH];
  931 + }
  932 + if (!isset($v_options[PCLZIP_OPT_EXTRACT_AS_STRING])) {
  933 + $v_options[PCLZIP_OPT_EXTRACT_AS_STRING] = FALSE;
  934 + }
  935 + else {
  936 + }
  937 + }
  938 +
  939 + // ----- Look for 2 args
  940 + // Here we need to support the first historic synopsis of the
  941 + // method.
  942 + else {
  943 +
  944 + // ----- Get the first argument
  945 + $v_path = $v_arg_list[0];
  946 +
  947 + // ----- Look for the optional second argument
  948 + if ($v_size == 2) {
  949 + $v_remove_path = $v_arg_list[1];
  950 + }
  951 + else if ($v_size > 2) {
  952 + // ----- Error log
  953 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid number / type of arguments");
  954 +
  955 + // ----- Return
  956 + return 0;
  957 + }
  958 + }
  959 + }
  960 +
  961 + // ----- Trace
  962 +
  963 + // ----- Trick
  964 + // Here I want to reuse extractByRule(), so I need to parse the $p_index
  965 + // with privParseOptions()
  966 + $v_arg_trick = array (PCLZIP_OPT_BY_INDEX, $p_index);
  967 + $v_options_trick = array();
  968 + $v_result = $this->privParseOptions($v_arg_trick, sizeof($v_arg_trick), $v_options_trick,
  969 + array (PCLZIP_OPT_BY_INDEX => 'optional' ));
  970 + if ($v_result != 1) {
  971 + return 0;
  972 + }
  973 + $v_options[PCLZIP_OPT_BY_INDEX] = $v_options_trick[PCLZIP_OPT_BY_INDEX];
  974 +
  975 + // ----- Look for default option values
  976 + $this->privOptionDefaultThreshold($v_options);
  977 +
  978 + // ----- Call the extracting fct
  979 + if (($v_result = $this->privExtractByRule($p_list, $v_path, $v_remove_path, $v_remove_all_path, $v_options)) < 1) {
  980 + return(0);
  981 + }
  982 +
  983 + // ----- Return
  984 + return $p_list;
  985 + }
  986 + // --------------------------------------------------------------------------------
  987 +
  988 + // --------------------------------------------------------------------------------
  989 + // Function :
  990 + // delete([$p_option, $p_option_value, ...])
  991 + // Description :
  992 + // This method removes files from the archive.
  993 + // If no parameters are given, then all the archive is emptied.
  994 + // Parameters :
  995 + // None or optional arguments.
  996 + // Options :
  997 + // PCLZIP_OPT_BY_INDEX :
  998 + // PCLZIP_OPT_BY_NAME :
  999 + // PCLZIP_OPT_BY_EREG :
  1000 + // PCLZIP_OPT_BY_PREG :
  1001 + // Return Values :
  1002 + // 0 on failure,
  1003 + // The list of the files which are still present in the archive.
  1004 + // (see PclZip::listContent() for list entry format)
  1005 + // --------------------------------------------------------------------------------
  1006 + function delete()
  1007 + {
  1008 + $v_result=1;
  1009 +
  1010 + // ----- Reset the error handler
  1011 + $this->privErrorReset();
  1012 +
  1013 + // ----- Check archive
  1014 + if (!$this->privCheckFormat()) {
  1015 + return(0);
  1016 + }
  1017 +
  1018 + // ----- Set default values
  1019 + $v_options = array();
  1020 +
  1021 + // ----- Look for variable options arguments
  1022 + $v_size = func_num_args();
  1023 +
  1024 + // ----- Look for arguments
  1025 + if ($v_size > 0) {
  1026 + // ----- Get the arguments
  1027 + $v_arg_list = func_get_args();
  1028 +
  1029 + // ----- Parse the options
  1030 + $v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,
  1031 + array (PCLZIP_OPT_BY_NAME => 'optional',
  1032 + PCLZIP_OPT_BY_EREG => 'optional',
  1033 + PCLZIP_OPT_BY_PREG => 'optional',
  1034 + PCLZIP_OPT_BY_INDEX => 'optional' ));
  1035 + if ($v_result != 1) {
  1036 + return 0;
  1037 + }
  1038 + }
  1039 +
  1040 + // ----- Magic quotes trick
  1041 + $this->privDisableMagicQuotes();
  1042 +
  1043 + // ----- Call the delete fct
  1044 + $v_list = array();
  1045 + if (($v_result = $this->privDeleteByRule($v_list, $v_options)) != 1) {
  1046 + $this->privSwapBackMagicQuotes();
  1047 + unset($v_list);
  1048 + return(0);
  1049 + }
  1050 +
  1051 + // ----- Magic quotes trick
  1052 + $this->privSwapBackMagicQuotes();
  1053 +
  1054 + // ----- Return
  1055 + return $v_list;
  1056 + }
  1057 + // --------------------------------------------------------------------------------
  1058 +
  1059 + // --------------------------------------------------------------------------------
  1060 + // Function : deleteByIndex()
  1061 + // Description :
  1062 + // ***** Deprecated *****
  1063 + // delete(PCLZIP_OPT_BY_INDEX, $p_index) should be prefered.
  1064 + // --------------------------------------------------------------------------------
  1065 + function deleteByIndex($p_index)
  1066 + {
  1067 +
  1068 + $p_list = $this->delete(PCLZIP_OPT_BY_INDEX, $p_index);
  1069 +
  1070 + // ----- Return
  1071 + return $p_list;
  1072 + }
  1073 + // --------------------------------------------------------------------------------
  1074 +
  1075 + // --------------------------------------------------------------------------------
  1076 + // Function : properties()
  1077 + // Description :
  1078 + // This method gives the properties of the archive.
  1079 + // The properties are :
  1080 + // nb : Number of files in the archive
  1081 + // comment : Comment associated with the archive file
  1082 + // status : not_exist, ok
  1083 + // Parameters :
  1084 + // None
  1085 + // Return Values :
  1086 + // 0 on failure,
  1087 + // An array with the archive properties.
  1088 + // --------------------------------------------------------------------------------
  1089 + function properties()
  1090 + {
  1091 +
  1092 + // ----- Reset the error handler
  1093 + $this->privErrorReset();
  1094 +
  1095 + // ----- Magic quotes trick
  1096 + $this->privDisableMagicQuotes();
  1097 +
  1098 + // ----- Check archive
  1099 + if (!$this->privCheckFormat()) {
  1100 + $this->privSwapBackMagicQuotes();
  1101 + return(0);
  1102 + }
  1103 +
  1104 + // ----- Default properties
  1105 + $v_prop = array();
  1106 + $v_prop['comment'] = '';
  1107 + $v_prop['nb'] = 0;
  1108 + $v_prop['status'] = 'not_exist';
  1109 +
  1110 + // ----- Look if file exists
  1111 + if (@is_file($this->zipname))
  1112 + {
  1113 + // ----- Open the zip file
  1114 + if (($this->zip_fd = @fopen($this->zipname, 'rb')) == 0)
  1115 + {
  1116 + $this->privSwapBackMagicQuotes();
  1117 +
  1118 + // ----- Error log
  1119 + PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open archive \''.$this->zipname.'\' in binary read mode');
  1120 +
  1121 + // ----- Return
  1122 + return 0;
  1123 + }
  1124 +
  1125 + // ----- Read the central directory informations
  1126 + $v_central_dir = array();
  1127 + if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1)
  1128 + {
  1129 + $this->privSwapBackMagicQuotes();
  1130 + return 0;
  1131 + }
  1132 +
  1133 + // ----- Close the zip file
  1134 + $this->privCloseFd();
  1135 +
  1136 + // ----- Set the user attributes
  1137 + $v_prop['comment'] = $v_central_dir['comment'];
  1138 + $v_prop['nb'] = $v_central_dir['entries'];
  1139 + $v_prop['status'] = 'ok';
  1140 + }
  1141 +
  1142 + // ----- Magic quotes trick
  1143 + $this->privSwapBackMagicQuotes();
  1144 +
  1145 + // ----- Return
  1146 + return $v_prop;
  1147 + }
  1148 + // --------------------------------------------------------------------------------
  1149 +
  1150 + // --------------------------------------------------------------------------------
  1151 + // Function : duplicate()
  1152 + // Description :
  1153 + // This method creates an archive by copying the content of an other one. If
  1154 + // the archive already exist, it is replaced by the new one without any warning.
  1155 + // Parameters :
  1156 + // $p_archive : The filename of a valid archive, or
  1157 + // a valid PclZip object.
  1158 + // Return Values :
  1159 + // 1 on success.
  1160 + // 0 or a negative value on error (error code).
  1161 + // --------------------------------------------------------------------------------
  1162 + function duplicate($p_archive)
  1163 + {
  1164 + $v_result = 1;
  1165 +
  1166 + // ----- Reset the error handler
  1167 + $this->privErrorReset();
  1168 +
  1169 + // ----- Look if the $p_archive is a PclZip object
  1170 + if ((is_object($p_archive)) && (get_class($p_archive) == 'pclzip'))
  1171 + {
  1172 +
  1173 + // ----- Duplicate the archive
  1174 + $v_result = $this->privDuplicate($p_archive->zipname);
  1175 + }
  1176 +
  1177 + // ----- Look if the $p_archive is a string (so a filename)
  1178 + else if (is_string($p_archive))
  1179 + {
  1180 +
  1181 + // ----- Check that $p_archive is a valid zip file
  1182 + // TBC : Should also check the archive format
  1183 + if (!is_file($p_archive)) {
  1184 + // ----- Error log
  1185 + PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, "No file with filename '".$p_archive."'");
  1186 + $v_result = PCLZIP_ERR_MISSING_FILE;
  1187 + }
  1188 + else {
  1189 + // ----- Duplicate the archive
  1190 + $v_result = $this->privDuplicate($p_archive);
  1191 + }
  1192 + }
  1193 +
  1194 + // ----- Invalid variable
  1195 + else
  1196 + {
  1197 + // ----- Error log
  1198 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid variable type p_archive_to_add");
  1199 + $v_result = PCLZIP_ERR_INVALID_PARAMETER;
  1200 + }
  1201 +
  1202 + // ----- Return
  1203 + return $v_result;
  1204 + }
  1205 + // --------------------------------------------------------------------------------
  1206 +
  1207 + // --------------------------------------------------------------------------------
  1208 + // Function : merge()
  1209 + // Description :
  1210 + // This method merge the $p_archive_to_add archive at the end of the current
  1211 + // one ($this).
  1212 + // If the archive ($this) does not exist, the merge becomes a duplicate.
  1213 + // If the $p_archive_to_add archive does not exist, the merge is a success.
  1214 + // Parameters :
  1215 + // $p_archive_to_add : It can be directly the filename of a valid zip archive,
  1216 + // or a PclZip object archive.
  1217 + // Return Values :
  1218 + // 1 on success,
  1219 + // 0 or negative values on error (see below).
  1220 + // --------------------------------------------------------------------------------
  1221 + function merge($p_archive_to_add)
  1222 + {
  1223 + $v_result = 1;
  1224 +
  1225 + // ----- Reset the error handler
  1226 + $this->privErrorReset();
  1227 +
  1228 + // ----- Check archive
  1229 + if (!$this->privCheckFormat()) {
  1230 + return(0);
  1231 + }
  1232 +
  1233 + // ----- Look if the $p_archive_to_add is a PclZip object
  1234 + if ((is_object($p_archive_to_add)) && (get_class($p_archive_to_add) == 'pclzip'))
  1235 + {
  1236 +
  1237 + // ----- Merge the archive
  1238 + $v_result = $this->privMerge($p_archive_to_add);
  1239 + }
  1240 +
  1241 + // ----- Look if the $p_archive_to_add is a string (so a filename)
  1242 + else if (is_string($p_archive_to_add))
  1243 + {
  1244 +
  1245 + // ----- Create a temporary archive
  1246 + $v_object_archive = new PclZip($p_archive_to_add);
  1247 +
  1248 + // ----- Merge the archive
  1249 + $v_result = $this->privMerge($v_object_archive);
  1250 + }
  1251 +
  1252 + // ----- Invalid variable
  1253 + else
  1254 + {
  1255 + // ----- Error log
  1256 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid variable type p_archive_to_add");
  1257 + $v_result = PCLZIP_ERR_INVALID_PARAMETER;
  1258 + }
  1259 +
  1260 + // ----- Return
  1261 + return $v_result;
  1262 + }
  1263 + // --------------------------------------------------------------------------------
  1264 +
  1265 +
  1266 +
  1267 + // --------------------------------------------------------------------------------
  1268 + // Function : errorCode()
  1269 + // Description :
  1270 + // Parameters :
  1271 + // --------------------------------------------------------------------------------
  1272 + function errorCode()
  1273 + {
  1274 + if (PCLZIP_ERROR_EXTERNAL == 1) {
  1275 + return(PclErrorCode());
  1276 + }
  1277 + else {
  1278 + return($this->error_code);
  1279 + }
  1280 + }
  1281 + // --------------------------------------------------------------------------------
  1282 +
  1283 + // --------------------------------------------------------------------------------
  1284 + // Function : errorName()
  1285 + // Description :
  1286 + // Parameters :
  1287 + // --------------------------------------------------------------------------------
  1288 + function errorName($p_with_code=false)
  1289 + {
  1290 + $v_name = array ( PCLZIP_ERR_NO_ERROR => 'PCLZIP_ERR_NO_ERROR',
  1291 + PCLZIP_ERR_WRITE_OPEN_FAIL => 'PCLZIP_ERR_WRITE_OPEN_FAIL',
  1292 + PCLZIP_ERR_READ_OPEN_FAIL => 'PCLZIP_ERR_READ_OPEN_FAIL',
  1293 + PCLZIP_ERR_INVALID_PARAMETER => 'PCLZIP_ERR_INVALID_PARAMETER',
  1294 + PCLZIP_ERR_MISSING_FILE => 'PCLZIP_ERR_MISSING_FILE',
  1295 + PCLZIP_ERR_FILENAME_TOO_LONG => 'PCLZIP_ERR_FILENAME_TOO_LONG',
  1296 + PCLZIP_ERR_INVALID_ZIP => 'PCLZIP_ERR_INVALID_ZIP',
  1297 + PCLZIP_ERR_BAD_EXTRACTED_FILE => 'PCLZIP_ERR_BAD_EXTRACTED_FILE',
  1298 + PCLZIP_ERR_DIR_CREATE_FAIL => 'PCLZIP_ERR_DIR_CREATE_FAIL',
  1299 + PCLZIP_ERR_BAD_EXTENSION => 'PCLZIP_ERR_BAD_EXTENSION',
  1300 + PCLZIP_ERR_BAD_FORMAT => 'PCLZIP_ERR_BAD_FORMAT',
  1301 + PCLZIP_ERR_DELETE_FILE_FAIL => 'PCLZIP_ERR_DELETE_FILE_FAIL',
  1302 + PCLZIP_ERR_RENAME_FILE_FAIL => 'PCLZIP_ERR_RENAME_FILE_FAIL',
  1303 + PCLZIP_ERR_BAD_CHECKSUM => 'PCLZIP_ERR_BAD_CHECKSUM',
  1304 + PCLZIP_ERR_INVALID_ARCHIVE_ZIP => 'PCLZIP_ERR_INVALID_ARCHIVE_ZIP',
  1305 + PCLZIP_ERR_MISSING_OPTION_VALUE => 'PCLZIP_ERR_MISSING_OPTION_VALUE',
  1306 + PCLZIP_ERR_INVALID_OPTION_VALUE => 'PCLZIP_ERR_INVALID_OPTION_VALUE',
  1307 + PCLZIP_ERR_UNSUPPORTED_COMPRESSION => 'PCLZIP_ERR_UNSUPPORTED_COMPRESSION',
  1308 + PCLZIP_ERR_UNSUPPORTED_ENCRYPTION => 'PCLZIP_ERR_UNSUPPORTED_ENCRYPTION'
  1309 + ,PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE => 'PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE'
  1310 + ,PCLZIP_ERR_DIRECTORY_RESTRICTION => 'PCLZIP_ERR_DIRECTORY_RESTRICTION'
  1311 + );
  1312 +
  1313 + if (isset($v_name[$this->error_code])) {
  1314 + $v_value = $v_name[$this->error_code];
  1315 + }
  1316 + else {
  1317 + $v_value = 'NoName';
  1318 + }
  1319 +
  1320 + if ($p_with_code) {
  1321 + return($v_value.' ('.$this->error_code.')');
  1322 + }
  1323 + else {
  1324 + return($v_value);
  1325 + }
  1326 + }
  1327 + // --------------------------------------------------------------------------------
  1328 +
  1329 + // --------------------------------------------------------------------------------
  1330 + // Function : errorInfo()
  1331 + // Description :
  1332 + // Parameters :
  1333 + // --------------------------------------------------------------------------------
  1334 + function errorInfo($p_full=false)
  1335 + {
  1336 + if (PCLZIP_ERROR_EXTERNAL == 1) {
  1337 + return(PclErrorString());
  1338 + }
  1339 + else {
  1340 + if ($p_full) {
  1341 + return($this->errorName(true)." : ".$this->error_string);
  1342 + }
  1343 + else {
  1344 + return($this->error_string." [code ".$this->error_code."]");
  1345 + }
  1346 + }
  1347 + }
  1348 + // --------------------------------------------------------------------------------
  1349 +
  1350 +
  1351 +// --------------------------------------------------------------------------------
  1352 +// ***** UNDER THIS LINE ARE DEFINED PRIVATE INTERNAL FUNCTIONS *****
  1353 +// ***** *****
  1354 +// ***** THESES FUNCTIONS MUST NOT BE USED DIRECTLY *****
  1355 +// --------------------------------------------------------------------------------
  1356 +
  1357 +
  1358 +
  1359 + // --------------------------------------------------------------------------------
  1360 + // Function : privCheckFormat()
  1361 + // Description :
  1362 + // This method check that the archive exists and is a valid zip archive.
  1363 + // Several level of check exists. (futur)
  1364 + // Parameters :
  1365 + // $p_level : Level of check. Default 0.
  1366 + // 0 : Check the first bytes (magic codes) (default value))
  1367 + // 1 : 0 + Check the central directory (futur)
  1368 + // 2 : 1 + Check each file header (futur)
  1369 + // Return Values :
  1370 + // true on success,
  1371 + // false on error, the error code is set.
  1372 + // --------------------------------------------------------------------------------
  1373 + function privCheckFormat($p_level=0)
  1374 + {
  1375 + $v_result = true;
  1376 +
  1377 + // ----- Reset the file system cache
  1378 + clearstatcache();
  1379 +
  1380 + // ----- Reset the error handler
  1381 + $this->privErrorReset();
  1382 +
  1383 + // ----- Look if the file exits
  1384 + if (!is_file($this->zipname)) {
  1385 + // ----- Error log
  1386 + PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, "Missing archive file '".$this->zipname."'");
  1387 + return(false);
  1388 + }
  1389 +
  1390 + // ----- Check that the file is readeable
  1391 + if (!is_readable($this->zipname)) {
  1392 + // ----- Error log
  1393 + PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, "Unable to read archive '".$this->zipname."'");
  1394 + return(false);
  1395 + }
  1396 +
  1397 + // ----- Check the magic code
  1398 + // TBC
  1399 +
  1400 + // ----- Check the central header
  1401 + // TBC
  1402 +
  1403 + // ----- Check each file header
  1404 + // TBC
  1405 +
  1406 + // ----- Return
  1407 + return $v_result;
  1408 + }
  1409 + // --------------------------------------------------------------------------------
  1410 +
  1411 + // --------------------------------------------------------------------------------
  1412 + // Function : privParseOptions()
  1413 + // Description :
  1414 + // This internal methods reads the variable list of arguments ($p_options_list,
  1415 + // $p_size) and generate an array with the options and values ($v_result_list).
  1416 + // $v_requested_options contains the options that can be present and those that
  1417 + // must be present.
  1418 + // $v_requested_options is an array, with the option value as key, and 'optional',
  1419 + // or 'mandatory' as value.
  1420 + // Parameters :
  1421 + // See above.
  1422 + // Return Values :
  1423 + // 1 on success.
  1424 + // 0 on failure.
  1425 + // --------------------------------------------------------------------------------
  1426 + function privParseOptions(&$p_options_list, $p_size, &$v_result_list, $v_requested_options=false)
  1427 + {
  1428 + $v_result=1;
  1429 +
  1430 + // ----- Read the options
  1431 + $i=0;
  1432 + while ($i<$p_size) {
  1433 +
  1434 + // ----- Check if the option is supported
  1435 + if (!isset($v_requested_options[$p_options_list[$i]])) {
  1436 + // ----- Error log
  1437 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid optional parameter '".$p_options_list[$i]."' for this method");
  1438 +
  1439 + // ----- Return
  1440 + return PclZip::errorCode();
  1441 + }
  1442 +
  1443 + // ----- Look for next option
  1444 + switch ($p_options_list[$i]) {
  1445 + // ----- Look for options that request a path value
  1446 + case PCLZIP_OPT_PATH :
  1447 + case PCLZIP_OPT_REMOVE_PATH :
  1448 + case PCLZIP_OPT_ADD_PATH :
  1449 + // ----- Check the number of parameters
  1450 + if (($i+1) >= $p_size) {
  1451 + // ----- Error log
  1452 + PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
  1453 +
  1454 + // ----- Return
  1455 + return PclZip::errorCode();
  1456 + }
  1457 +
  1458 + // ----- Get the value
  1459 + $v_result_list[$p_options_list[$i]] = PclZipUtilTranslateWinPath($p_options_list[$i+1], FALSE);
  1460 + $i++;
  1461 + break;
  1462 +
  1463 + case PCLZIP_OPT_TEMP_FILE_THRESHOLD :
  1464 + // ----- Check the number of parameters
  1465 + if (($i+1) >= $p_size) {
  1466 + PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
  1467 + return PclZip::errorCode();
  1468 + }
  1469 +
  1470 + // ----- Check for incompatible options
  1471 + if (isset($v_result_list[PCLZIP_OPT_TEMP_FILE_OFF])) {
  1472 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Option '".PclZipUtilOptionText($p_options_list[$i])."' can not be used with option 'PCLZIP_OPT_TEMP_FILE_OFF'");
  1473 + return PclZip::errorCode();
  1474 + }
  1475 +
  1476 + // ----- Check the value
  1477 + $v_value = $p_options_list[$i+1];
  1478 + if ((!is_integer($v_value)) || ($v_value<0)) {
  1479 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Integer expected for option '".PclZipUtilOptionText($p_options_list[$i])."'");
  1480 + return PclZip::errorCode();
  1481 + }
  1482 +
  1483 + // ----- Get the value (and convert it in bytes)
  1484 + $v_result_list[$p_options_list[$i]] = $v_value*1048576;
  1485 + $i++;
  1486 + break;
  1487 +
  1488 + case PCLZIP_OPT_TEMP_FILE_ON :
  1489 + // ----- Check for incompatible options
  1490 + if (isset($v_result_list[PCLZIP_OPT_TEMP_FILE_OFF])) {
  1491 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Option '".PclZipUtilOptionText($p_options_list[$i])."' can not be used with option 'PCLZIP_OPT_TEMP_FILE_OFF'");
  1492 + return PclZip::errorCode();
  1493 + }
  1494 +
  1495 + $v_result_list[$p_options_list[$i]] = true;
  1496 + break;
  1497 +
  1498 + case PCLZIP_OPT_TEMP_FILE_OFF :
  1499 + // ----- Check for incompatible options
  1500 + if (isset($v_result_list[PCLZIP_OPT_TEMP_FILE_ON])) {
  1501 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Option '".PclZipUtilOptionText($p_options_list[$i])."' can not be used with option 'PCLZIP_OPT_TEMP_FILE_ON'");
  1502 + return PclZip::errorCode();
  1503 + }
  1504 + // ----- Check for incompatible options
  1505 + if (isset($v_result_list[PCLZIP_OPT_TEMP_FILE_THRESHOLD])) {
  1506 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Option '".PclZipUtilOptionText($p_options_list[$i])."' can not be used with option 'PCLZIP_OPT_TEMP_FILE_THRESHOLD'");
  1507 + return PclZip::errorCode();
  1508 + }
  1509 +
  1510 + $v_result_list[$p_options_list[$i]] = true;
  1511 + break;
  1512 +
  1513 + case PCLZIP_OPT_EXTRACT_DIR_RESTRICTION :
  1514 + // ----- Check the number of parameters
  1515 + if (($i+1) >= $p_size) {
  1516 + // ----- Error log
  1517 + PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
  1518 +
  1519 + // ----- Return
  1520 + return PclZip::errorCode();
  1521 + }
  1522 +
  1523 + // ----- Get the value
  1524 + if ( is_string($p_options_list[$i+1])
  1525 + && ($p_options_list[$i+1] != '')) {
  1526 + $v_result_list[$p_options_list[$i]] = PclZipUtilTranslateWinPath($p_options_list[$i+1], FALSE);
  1527 + $i++;
  1528 + }
  1529 + else {
  1530 + }
  1531 + break;
  1532 +
  1533 + // ----- Look for options that request an array of string for value
  1534 + case PCLZIP_OPT_BY_NAME :
  1535 + // ----- Check the number of parameters
  1536 + if (($i+1) >= $p_size) {
  1537 + // ----- Error log
  1538 + PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
  1539 +
  1540 + // ----- Return
  1541 + return PclZip::errorCode();
  1542 + }
  1543 +
  1544 + // ----- Get the value
  1545 + if (is_string($p_options_list[$i+1])) {
  1546 + $v_result_list[$p_options_list[$i]][0] = $p_options_list[$i+1];
  1547 + }
  1548 + else if (is_array($p_options_list[$i+1])) {
  1549 + $v_result_list[$p_options_list[$i]] = $p_options_list[$i+1];
  1550 + }
  1551 + else {
  1552 + // ----- Error log
  1553 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Wrong parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
  1554 +
  1555 + // ----- Return
  1556 + return PclZip::errorCode();
  1557 + }
  1558 + $i++;
  1559 + break;
  1560 +
  1561 + // ----- Look for options that request an EREG or PREG expression
  1562 + case PCLZIP_OPT_BY_EREG :
  1563 + // ereg() is deprecated starting with PHP 5.3. Move PCLZIP_OPT_BY_EREG
  1564 + // to PCLZIP_OPT_BY_PREG
  1565 + $p_options_list[$i] = PCLZIP_OPT_BY_PREG;
  1566 + case PCLZIP_OPT_BY_PREG :
  1567 + //case PCLZIP_OPT_CRYPT :
  1568 + // ----- Check the number of parameters
  1569 + if (($i+1) >= $p_size) {
  1570 + // ----- Error log
  1571 + PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
  1572 +
  1573 + // ----- Return
  1574 + return PclZip::errorCode();
  1575 + }
  1576 +
  1577 + // ----- Get the value
  1578 + if (is_string($p_options_list[$i+1])) {
  1579 + $v_result_list[$p_options_list[$i]] = $p_options_list[$i+1];
  1580 + }
  1581 + else {
  1582 + // ----- Error log
  1583 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Wrong parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
  1584 +
  1585 + // ----- Return
  1586 + return PclZip::errorCode();
  1587 + }
  1588 + $i++;
  1589 + break;
  1590 +
  1591 + // ----- Look for options that takes a string
  1592 + case PCLZIP_OPT_COMMENT :
  1593 + case PCLZIP_OPT_ADD_COMMENT :
  1594 + case PCLZIP_OPT_PREPEND_COMMENT :
  1595 + // ----- Check the number of parameters
  1596 + if (($i+1) >= $p_size) {
  1597 + // ----- Error log
  1598 + PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE,
  1599 + "Missing parameter value for option '"
  1600 + .PclZipUtilOptionText($p_options_list[$i])
  1601 + ."'");
  1602 +
  1603 + // ----- Return
  1604 + return PclZip::errorCode();
  1605 + }
  1606 +
  1607 + // ----- Get the value
  1608 + if (is_string($p_options_list[$i+1])) {
  1609 + $v_result_list[$p_options_list[$i]] = $p_options_list[$i+1];
  1610 + }
  1611 + else {
  1612 + // ----- Error log
  1613 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE,
  1614 + "Wrong parameter value for option '"
  1615 + .PclZipUtilOptionText($p_options_list[$i])
  1616 + ."'");
  1617 +
  1618 + // ----- Return
  1619 + return PclZip::errorCode();
  1620 + }
  1621 + $i++;
  1622 + break;
  1623 +
  1624 + // ----- Look for options that request an array of index
  1625 + case PCLZIP_OPT_BY_INDEX :
  1626 + // ----- Check the number of parameters
  1627 + if (($i+1) >= $p_size) {
  1628 + // ----- Error log
  1629 + PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
  1630 +
  1631 + // ----- Return
  1632 + return PclZip::errorCode();
  1633 + }
  1634 +
  1635 + // ----- Get the value
  1636 + $v_work_list = array();
  1637 + if (is_string($p_options_list[$i+1])) {
  1638 +
  1639 + // ----- Remove spaces
  1640 + $p_options_list[$i+1] = strtr($p_options_list[$i+1], ' ', '');
  1641 +
  1642 + // ----- Parse items
  1643 + $v_work_list = explode(",", $p_options_list[$i+1]);
  1644 + }
  1645 + else if (is_integer($p_options_list[$i+1])) {
  1646 + $v_work_list[0] = $p_options_list[$i+1].'-'.$p_options_list[$i+1];
  1647 + }
  1648 + else if (is_array($p_options_list[$i+1])) {
  1649 + $v_work_list = $p_options_list[$i+1];
  1650 + }
  1651 + else {
  1652 + // ----- Error log
  1653 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Value must be integer, string or array for option '".PclZipUtilOptionText($p_options_list[$i])."'");
  1654 +
  1655 + // ----- Return
  1656 + return PclZip::errorCode();
  1657 + }
  1658 +
  1659 + // ----- Reduce the index list
  1660 + // each index item in the list must be a couple with a start and
  1661 + // an end value : [0,3], [5-5], [8-10], ...
  1662 + // ----- Check the format of each item
  1663 + $v_sort_flag=false;
  1664 + $v_sort_value=0;
  1665 + for ($j=0; $j<sizeof($v_work_list); $j++) {
  1666 + // ----- Explode the item
  1667 + $v_item_list = explode("-", $v_work_list[$j]);
  1668 + $v_size_item_list = sizeof($v_item_list);
  1669 +
  1670 + // ----- TBC : Here we might check that each item is a
  1671 + // real integer ...
  1672 +
  1673 + // ----- Look for single value
  1674 + if ($v_size_item_list == 1) {
  1675 + // ----- Set the option value
  1676 + $v_result_list[$p_options_list[$i]][$j]['start'] = $v_item_list[0];
  1677 + $v_result_list[$p_options_list[$i]][$j]['end'] = $v_item_list[0];
  1678 + }
  1679 + elseif ($v_size_item_list == 2) {
  1680 + // ----- Set the option value
  1681 + $v_result_list[$p_options_list[$i]][$j]['start'] = $v_item_list[0];
  1682 + $v_result_list[$p_options_list[$i]][$j]['end'] = $v_item_list[1];
  1683 + }
  1684 + else {
  1685 + // ----- Error log
  1686 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Too many values in index range for option '".PclZipUtilOptionText($p_options_list[$i])."'");
  1687 +
  1688 + // ----- Return
  1689 + return PclZip::errorCode();
  1690 + }
  1691 +
  1692 +
  1693 + // ----- Look for list sort
  1694 + if ($v_result_list[$p_options_list[$i]][$j]['start'] < $v_sort_value) {
  1695 + $v_sort_flag=true;
  1696 +
  1697 + // ----- TBC : An automatic sort should be writen ...
  1698 + // ----- Error log
  1699 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Invalid order of index range for option '".PclZipUtilOptionText($p_options_list[$i])."'");
  1700 +
  1701 + // ----- Return
  1702 + return PclZip::errorCode();
  1703 + }
  1704 + $v_sort_value = $v_result_list[$p_options_list[$i]][$j]['start'];
  1705 + }
  1706 +
  1707 + // ----- Sort the items
  1708 + if ($v_sort_flag) {
  1709 + // TBC : To Be Completed
  1710 + }
  1711 +
  1712 + // ----- Next option
  1713 + $i++;
  1714 + break;
  1715 +
  1716 + // ----- Look for options that request no value
  1717 + case PCLZIP_OPT_REMOVE_ALL_PATH :
  1718 + case PCLZIP_OPT_EXTRACT_AS_STRING :
  1719 + case PCLZIP_OPT_NO_COMPRESSION :
  1720 + case PCLZIP_OPT_EXTRACT_IN_OUTPUT :
  1721 + case PCLZIP_OPT_REPLACE_NEWER :
  1722 + case PCLZIP_OPT_STOP_ON_ERROR :
  1723 + $v_result_list[$p_options_list[$i]] = true;
  1724 + break;
  1725 +
  1726 + // ----- Look for options that request an octal value
  1727 + case PCLZIP_OPT_SET_CHMOD :
  1728 + // ----- Check the number of parameters
  1729 + if (($i+1) >= $p_size) {
  1730 + // ----- Error log
  1731 + PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
  1732 +
  1733 + // ----- Return
  1734 + return PclZip::errorCode();
  1735 + }
  1736 +
  1737 + // ----- Get the value
  1738 + $v_result_list[$p_options_list[$i]] = $p_options_list[$i+1];
  1739 + $i++;
  1740 + break;
  1741 +
  1742 + // ----- Look for options that request a call-back
  1743 + case PCLZIP_CB_PRE_EXTRACT :
  1744 + case PCLZIP_CB_POST_EXTRACT :
  1745 + case PCLZIP_CB_PRE_ADD :
  1746 + case PCLZIP_CB_POST_ADD :
  1747 + /* for futur use
  1748 + case PCLZIP_CB_PRE_DELETE :
  1749 + case PCLZIP_CB_POST_DELETE :
  1750 + case PCLZIP_CB_PRE_LIST :
  1751 + case PCLZIP_CB_POST_LIST :
  1752 + */
  1753 + // ----- Check the number of parameters
  1754 + if (($i+1) >= $p_size) {
  1755 + // ----- Error log
  1756 + PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
  1757 +
  1758 + // ----- Return
  1759 + return PclZip::errorCode();
  1760 + }
  1761 +
  1762 + // ----- Get the value
  1763 + $v_function_name = $p_options_list[$i+1];
  1764 +
  1765 + // ----- Check that the value is a valid existing function
  1766 + if (!function_exists($v_function_name)) {
  1767 + // ----- Error log
  1768 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Function '".$v_function_name."()' is not an existing function for option '".PclZipUtilOptionText($p_options_list[$i])."'");
  1769 +
  1770 + // ----- Return
  1771 + return PclZip::errorCode();
  1772 + }
  1773 +
  1774 + // ----- Set the attribute
  1775 + $v_result_list[$p_options_list[$i]] = $v_function_name;
  1776 + $i++;
  1777 + break;
  1778 +
  1779 + default :
  1780 + // ----- Error log
  1781 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER,
  1782 + "Unknown parameter '"
  1783 + .$p_options_list[$i]."'");
  1784 +
  1785 + // ----- Return
  1786 + return PclZip::errorCode();
  1787 + }
  1788 +
  1789 + // ----- Next options
  1790 + $i++;
  1791 + }
  1792 +
  1793 + // ----- Look for mandatory options
  1794 + if ($v_requested_options !== false) {
  1795 + for ($key=reset($v_requested_options); $key=key($v_requested_options); $key=next($v_requested_options)) {
  1796 + // ----- Look for mandatory option
  1797 + if ($v_requested_options[$key] == 'mandatory') {
  1798 + // ----- Look if present
  1799 + if (!isset($v_result_list[$key])) {
  1800 + // ----- Error log
  1801 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Missing mandatory parameter ".PclZipUtilOptionText($key)."(".$key.")");
  1802 +
  1803 + // ----- Return
  1804 + return PclZip::errorCode();
  1805 + }
  1806 + }
  1807 + }
  1808 + }
  1809 +
  1810 + // ----- Look for default values
  1811 + if (!isset($v_result_list[PCLZIP_OPT_TEMP_FILE_THRESHOLD])) {
  1812 +
  1813 + }
  1814 +
  1815 + // ----- Return
  1816 + return $v_result;
  1817 + }
  1818 + // --------------------------------------------------------------------------------
  1819 +
  1820 + // --------------------------------------------------------------------------------
  1821 + // Function : privOptionDefaultThreshold()
  1822 + // Description :
  1823 + // Parameters :
  1824 + // Return Values :
  1825 + // --------------------------------------------------------------------------------
  1826 + function privOptionDefaultThreshold(&$p_options)
  1827 + {
  1828 + $v_result=1;
  1829 +
  1830 + if (isset($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD])
  1831 + || isset($p_options[PCLZIP_OPT_TEMP_FILE_OFF])) {
  1832 + return $v_result;
  1833 + }
  1834 +
  1835 + // ----- Get 'memory_limit' configuration value
  1836 + $v_memory_limit = ini_get('memory_limit');
  1837 + $v_memory_limit = trim($v_memory_limit);
  1838 + $last = strtolower(substr($v_memory_limit, -1));
  1839 +
  1840 + if($last == 'g')
  1841 + //$v_memory_limit = $v_memory_limit*1024*1024*1024;
  1842 + $v_memory_limit = $v_memory_limit*1073741824;
  1843 + if($last == 'm')
  1844 + //$v_memory_limit = $v_memory_limit*1024*1024;
  1845 + $v_memory_limit = $v_memory_limit*1048576;
  1846 + if($last == 'k')
  1847 + $v_memory_limit = $v_memory_limit*1024;
  1848 +
  1849 + $p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD] = floor($v_memory_limit*PCLZIP_TEMPORARY_FILE_RATIO);
  1850 +
  1851 +
  1852 + // ----- Sanity check : No threshold if value lower than 1M
  1853 + if ($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD] < 1048576) {
  1854 + unset($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD]);
  1855 + }
  1856 +
  1857 + // ----- Return
  1858 + return $v_result;
  1859 + }
  1860 + // --------------------------------------------------------------------------------
  1861 +
  1862 + // --------------------------------------------------------------------------------
  1863 + // Function : privFileDescrParseAtt()
  1864 + // Description :
  1865 + // Parameters :
  1866 + // Return Values :
  1867 + // 1 on success.
  1868 + // 0 on failure.
  1869 + // --------------------------------------------------------------------------------
  1870 + function privFileDescrParseAtt(&$p_file_list, &$p_filedescr, $v_options, $v_requested_options=false)
  1871 + {
  1872 + $v_result=1;
  1873 +
  1874 + // ----- For each file in the list check the attributes
  1875 + foreach ($p_file_list as $v_key => $v_value) {
  1876 +
  1877 + // ----- Check if the option is supported
  1878 + if (!isset($v_requested_options[$v_key])) {
  1879 + // ----- Error log
  1880 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid file attribute '".$v_key."' for this file");
  1881 +
  1882 + // ----- Return
  1883 + return PclZip::errorCode();
  1884 + }
  1885 +
  1886 + // ----- Look for attribute
  1887 + switch ($v_key) {
  1888 + case PCLZIP_ATT_FILE_NAME :
  1889 + if (!is_string($v_value)) {
  1890 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid type ".gettype($v_value).". String expected for attribute '".PclZipUtilOptionText($v_key)."'");
  1891 + return PclZip::errorCode();
  1892 + }
  1893 +
  1894 + $p_filedescr['filename'] = PclZipUtilPathReduction($v_value);
  1895 +
  1896 + if ($p_filedescr['filename'] == '') {
  1897 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid empty filename for attribute '".PclZipUtilOptionText($v_key)."'");
  1898 + return PclZip::errorCode();
  1899 + }
  1900 +
  1901 + break;
  1902 +
  1903 + case PCLZIP_ATT_FILE_NEW_SHORT_NAME :
  1904 + if (!is_string($v_value)) {
  1905 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid type ".gettype($v_value).". String expected for attribute '".PclZipUtilOptionText($v_key)."'");
  1906 + return PclZip::errorCode();
  1907 + }
  1908 +
  1909 + $p_filedescr['new_short_name'] = PclZipUtilPathReduction($v_value);
  1910 +
  1911 + if ($p_filedescr['new_short_name'] == '') {
  1912 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid empty short filename for attribute '".PclZipUtilOptionText($v_key)."'");
  1913 + return PclZip::errorCode();
  1914 + }
  1915 + break;
  1916 +
  1917 + case PCLZIP_ATT_FILE_NEW_FULL_NAME :
  1918 + if (!is_string($v_value)) {
  1919 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid type ".gettype($v_value).". String expected for attribute '".PclZipUtilOptionText($v_key)."'");
  1920 + return PclZip::errorCode();
  1921 + }
  1922 +
  1923 + $p_filedescr['new_full_name'] = PclZipUtilPathReduction($v_value);
  1924 +
  1925 + if ($p_filedescr['new_full_name'] == '') {
  1926 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid empty full filename for attribute '".PclZipUtilOptionText($v_key)."'");
  1927 + return PclZip::errorCode();
  1928 + }
  1929 + break;
  1930 +
  1931 + // ----- Look for options that takes a string
  1932 + case PCLZIP_ATT_FILE_COMMENT :
  1933 + if (!is_string($v_value)) {
  1934 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid type ".gettype($v_value).". String expected for attribute '".PclZipUtilOptionText($v_key)."'");
  1935 + return PclZip::errorCode();
  1936 + }
  1937 +
  1938 + $p_filedescr['comment'] = $v_value;
  1939 + break;
  1940 +
  1941 + case PCLZIP_ATT_FILE_MTIME :
  1942 + if (!is_integer($v_value)) {
  1943 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid type ".gettype($v_value).". Integer expected for attribute '".PclZipUtilOptionText($v_key)."'");
  1944 + return PclZip::errorCode();
  1945 + }
  1946 +
  1947 + $p_filedescr['mtime'] = $v_value;
  1948 + break;
  1949 +
  1950 + case PCLZIP_ATT_FILE_CONTENT :
  1951 + $p_filedescr['content'] = $v_value;
  1952 + break;
  1953 +
  1954 + default :
  1955 + // ----- Error log
  1956 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER,
  1957 + "Unknown parameter '".$v_key."'");
  1958 +
  1959 + // ----- Return
  1960 + return PclZip::errorCode();
  1961 + }
  1962 +
  1963 + // ----- Look for mandatory options
  1964 + if ($v_requested_options !== false) {
  1965 + for ($key=reset($v_requested_options); $key=key($v_requested_options); $key=next($v_requested_options)) {
  1966 + // ----- Look for mandatory option
  1967 + if ($v_requested_options[$key] == 'mandatory') {
  1968 + // ----- Look if present
  1969 + if (!isset($p_file_list[$key])) {
  1970 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Missing mandatory parameter ".PclZipUtilOptionText($key)."(".$key.")");
  1971 + return PclZip::errorCode();
  1972 + }
  1973 + }
  1974 + }
  1975 + }
  1976 +
  1977 + // end foreach
  1978 + }
  1979 +
  1980 + // ----- Return
  1981 + return $v_result;
  1982 + }
  1983 + // --------------------------------------------------------------------------------
  1984 +
  1985 + // --------------------------------------------------------------------------------
  1986 + // Function : privFileDescrExpand()
  1987 + // Description :
  1988 + // This method look for each item of the list to see if its a file, a folder
  1989 + // or a string to be added as file. For any other type of files (link, other)
  1990 + // just ignore the item.
  1991 + // Then prepare the information that will be stored for that file.
  1992 + // When its a folder, expand the folder with all the files that are in that
  1993 + // folder (recursively).
  1994 + // Parameters :
  1995 + // Return Values :
  1996 + // 1 on success.
  1997 + // 0 on failure.
  1998 + // --------------------------------------------------------------------------------
  1999 + function privFileDescrExpand(&$p_filedescr_list, &$p_options)
  2000 + {
  2001 + $v_result=1;
  2002 +
  2003 + // ----- Create a result list
  2004 + $v_result_list = array();
  2005 +
  2006 + // ----- Look each entry
  2007 + for ($i=0; $i<sizeof($p_filedescr_list); $i++) {
  2008 +
  2009 + // ----- Get filedescr
  2010 + $v_descr = $p_filedescr_list[$i];
  2011 +
  2012 + // ----- Reduce the filename
  2013 + $v_descr['filename'] = PclZipUtilTranslateWinPath($v_descr['filename'], false);
  2014 + $v_descr['filename'] = PclZipUtilPathReduction($v_descr['filename']);
  2015 +
  2016 + // ----- Look for real file or folder
  2017 + if (file_exists($v_descr['filename'])) {
  2018 + if (@is_file($v_descr['filename'])) {
  2019 + $v_descr['type'] = 'file';
  2020 + }
  2021 + else if (@is_dir($v_descr['filename'])) {
  2022 + $v_descr['type'] = 'folder';
  2023 + }
  2024 + else if (@is_link($v_descr['filename'])) {
  2025 + // skip
  2026 + continue;
  2027 + }
  2028 + else {
  2029 + // skip
  2030 + continue;
  2031 + }
  2032 + }
  2033 +
  2034 + // ----- Look for string added as file
  2035 + else if (isset($v_descr['content'])) {
  2036 + $v_descr['type'] = 'virtual_file';
  2037 + }
  2038 +
  2039 + // ----- Missing file
  2040 + else {
  2041 + // ----- Error log
  2042 + PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, "File '".$v_descr['filename']."' does not exist");
  2043 +
  2044 + // ----- Return
  2045 + return PclZip::errorCode();
  2046 + }
  2047 +
  2048 + // ----- Calculate the stored filename
  2049 + $this->privCalculateStoredFilename($v_descr, $p_options);
  2050 +
  2051 + // ----- Add the descriptor in result list
  2052 + $v_result_list[sizeof($v_result_list)] = $v_descr;
  2053 +
  2054 + // ----- Look for folder
  2055 + if ($v_descr['type'] == 'folder') {
  2056 + // ----- List of items in folder
  2057 + $v_dirlist_descr = array();
  2058 + $v_dirlist_nb = 0;
  2059 + if ($v_folder_handler = @opendir($v_descr['filename'])) {
  2060 + while (($v_item_handler = @readdir($v_folder_handler)) !== false) {
  2061 +
  2062 + // ----- Skip '.' and '..'
  2063 + if (($v_item_handler == '.') || ($v_item_handler == '..')) {
  2064 + continue;
  2065 + }
  2066 +
  2067 + // ----- Compose the full filename
  2068 + $v_dirlist_descr[$v_dirlist_nb]['filename'] = $v_descr['filename'].'/'.$v_item_handler;
  2069 +
  2070 + // ----- Look for different stored filename
  2071 + // Because the name of the folder was changed, the name of the
  2072 + // files/sub-folders also change
  2073 + if (($v_descr['stored_filename'] != $v_descr['filename'])
  2074 + && (!isset($p_options[PCLZIP_OPT_REMOVE_ALL_PATH]))) {
  2075 + if ($v_descr['stored_filename'] != '') {
  2076 + $v_dirlist_descr[$v_dirlist_nb]['new_full_name'] = $v_descr['stored_filename'].'/'.$v_item_handler;
  2077 + }
  2078 + else {
  2079 + $v_dirlist_descr[$v_dirlist_nb]['new_full_name'] = $v_item_handler;
  2080 + }
  2081 + }
  2082 +
  2083 + $v_dirlist_nb++;
  2084 + }
  2085 +
  2086 + @closedir($v_folder_handler);
  2087 + }
  2088 + else {
  2089 + // TBC : unable to open folder in read mode
  2090 + }
  2091 +
  2092 + // ----- Expand each element of the list
  2093 + if ($v_dirlist_nb != 0) {
  2094 + // ----- Expand
  2095 + if (($v_result = $this->privFileDescrExpand($v_dirlist_descr, $p_options)) != 1) {
  2096 + return $v_result;
  2097 + }
  2098 +
  2099 + // ----- Concat the resulting list
  2100 + $v_result_list = array_merge($v_result_list, $v_dirlist_descr);
  2101 + }
  2102 + else {
  2103 + }
  2104 +
  2105 + // ----- Free local array
  2106 + unset($v_dirlist_descr);
  2107 + }
  2108 + }
  2109 +
  2110 + // ----- Get the result list
  2111 + $p_filedescr_list = $v_result_list;
  2112 +
  2113 + // ----- Return
  2114 + return $v_result;
  2115 + }
  2116 + // --------------------------------------------------------------------------------
  2117 +
  2118 + // --------------------------------------------------------------------------------
  2119 + // Function : privCreate()
  2120 + // Description :
  2121 + // Parameters :
  2122 + // Return Values :
  2123 + // --------------------------------------------------------------------------------
  2124 + function privCreate($p_filedescr_list, &$p_result_list, &$p_options)
  2125 + {
  2126 + $v_result=1;
  2127 + $v_list_detail = array();
  2128 +
  2129 + // ----- Magic quotes trick
  2130 + $this->privDisableMagicQuotes();
  2131 +
  2132 + // ----- Open the file in write mode
  2133 + if (($v_result = $this->privOpenFd('wb')) != 1)
  2134 + {
  2135 + // ----- Return
  2136 + return $v_result;
  2137 + }
  2138 +
  2139 + // ----- Add the list of files
  2140 + $v_result = $this->privAddList($p_filedescr_list, $p_result_list, $p_options);
  2141 +
  2142 + // ----- Close
  2143 + $this->privCloseFd();
  2144 +
  2145 + // ----- Magic quotes trick
  2146 + $this->privSwapBackMagicQuotes();
  2147 +
  2148 + // ----- Return
  2149 + return $v_result;
  2150 + }
  2151 + // --------------------------------------------------------------------------------
  2152 +
  2153 + // --------------------------------------------------------------------------------
  2154 + // Function : privAdd()
  2155 + // Description :
  2156 + // Parameters :
  2157 + // Return Values :
  2158 + // --------------------------------------------------------------------------------
  2159 + function privAdd($p_filedescr_list, &$p_result_list, &$p_options)
  2160 + {
  2161 + $v_result=1;
  2162 + $v_list_detail = array();
  2163 +
  2164 + // ----- Look if the archive exists or is empty
  2165 + if ((!is_file($this->zipname)) || (filesize($this->zipname) == 0))
  2166 + {
  2167 +
  2168 + // ----- Do a create
  2169 + $v_result = $this->privCreate($p_filedescr_list, $p_result_list, $p_options);
  2170 +
  2171 + // ----- Return
  2172 + return $v_result;
  2173 + }
  2174 + // ----- Magic quotes trick
  2175 + $this->privDisableMagicQuotes();
  2176 +
  2177 + // ----- Open the zip file
  2178 + if (($v_result=$this->privOpenFd('rb')) != 1)
  2179 + {
  2180 + // ----- Magic quotes trick
  2181 + $this->privSwapBackMagicQuotes();
  2182 +
  2183 + // ----- Return
  2184 + return $v_result;
  2185 + }
  2186 +
  2187 + // ----- Read the central directory informations
  2188 + $v_central_dir = array();
  2189 + if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1)
  2190 + {
  2191 + $this->privCloseFd();
  2192 + $this->privSwapBackMagicQuotes();
  2193 + return $v_result;
  2194 + }
  2195 +
  2196 + // ----- Go to beginning of File
  2197 + @rewind($this->zip_fd);
  2198 +
  2199 + // ----- Creates a temporay file
  2200 + $v_zip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid('pclzip-').'.tmp';
  2201 +
  2202 + // ----- Open the temporary file in write mode
  2203 + if (($v_zip_temp_fd = @fopen($v_zip_temp_name, 'wb')) == 0)
  2204 + {
  2205 + $this->privCloseFd();
  2206 + $this->privSwapBackMagicQuotes();
  2207 +
  2208 + PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \''.$v_zip_temp_name.'\' in binary write mode');
  2209 +
  2210 + // ----- Return
  2211 + return PclZip::errorCode();
  2212 + }
  2213 +
  2214 + // ----- Copy the files from the archive to the temporary file
  2215 + // TBC : Here I should better append the file and go back to erase the central dir
  2216 + $v_size = $v_central_dir['offset'];
  2217 + while ($v_size != 0)
  2218 + {
  2219 + $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
  2220 + $v_buffer = fread($this->zip_fd, $v_read_size);
  2221 + @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
  2222 + $v_size -= $v_read_size;
  2223 + }
  2224 +
  2225 + // ----- Swap the file descriptor
  2226 + // Here is a trick : I swap the temporary fd with the zip fd, in order to use
  2227 + // the following methods on the temporary fil and not the real archive
  2228 + $v_swap = $this->zip_fd;
  2229 + $this->zip_fd = $v_zip_temp_fd;
  2230 + $v_zip_temp_fd = $v_swap;
  2231 +
  2232 + // ----- Add the files
  2233 + $v_header_list = array();
  2234 + if (($v_result = $this->privAddFileList($p_filedescr_list, $v_header_list, $p_options)) != 1)
  2235 + {
  2236 + fclose($v_zip_temp_fd);
  2237 + $this->privCloseFd();
  2238 + @unlink($v_zip_temp_name);
  2239 + $this->privSwapBackMagicQuotes();
  2240 +
  2241 + // ----- Return
  2242 + return $v_result;
  2243 + }
  2244 +
  2245 + // ----- Store the offset of the central dir
  2246 + $v_offset = @ftell($this->zip_fd);
  2247 +
  2248 + // ----- Copy the block of file headers from the old archive
  2249 + $v_size = $v_central_dir['size'];
  2250 + while ($v_size != 0)
  2251 + {
  2252 + $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
  2253 + $v_buffer = @fread($v_zip_temp_fd, $v_read_size);
  2254 + @fwrite($this->zip_fd, $v_buffer, $v_read_size);
  2255 + $v_size -= $v_read_size;
  2256 + }
  2257 +
  2258 + // ----- Create the Central Dir files header
  2259 + for ($i=0, $v_count=0; $i<sizeof($v_header_list); $i++)
  2260 + {
  2261 + // ----- Create the file header
  2262 + if ($v_header_list[$i]['status'] == 'ok') {
  2263 + if (($v_result = $this->privWriteCentralFileHeader($v_header_list[$i])) != 1) {
  2264 + fclose($v_zip_temp_fd);
  2265 + $this->privCloseFd();
  2266 + @unlink($v_zip_temp_name);
  2267 + $this->privSwapBackMagicQuotes();
  2268 +
  2269 + // ----- Return
  2270 + return $v_result;
  2271 + }
  2272 + $v_count++;
  2273 + }
  2274 +
  2275 + // ----- Transform the header to a 'usable' info
  2276 + $this->privConvertHeader2FileInfo($v_header_list[$i], $p_result_list[$i]);
  2277 + }
  2278 +
  2279 + // ----- Zip file comment
  2280 + $v_comment = $v_central_dir['comment'];
  2281 + if (isset($p_options[PCLZIP_OPT_COMMENT])) {
  2282 + $v_comment = $p_options[PCLZIP_OPT_COMMENT];
  2283 + }
  2284 + if (isset($p_options[PCLZIP_OPT_ADD_COMMENT])) {
  2285 + $v_comment = $v_comment.$p_options[PCLZIP_OPT_ADD_COMMENT];
  2286 + }
  2287 + if (isset($p_options[PCLZIP_OPT_PREPEND_COMMENT])) {
  2288 + $v_comment = $p_options[PCLZIP_OPT_PREPEND_COMMENT].$v_comment;
  2289 + }
  2290 +
  2291 + // ----- Calculate the size of the central header
  2292 + $v_size = @ftell($this->zip_fd)-$v_offset;
  2293 +
  2294 + // ----- Create the central dir footer
  2295 + if (($v_result = $this->privWriteCentralHeader($v_count+$v_central_dir['entries'], $v_size, $v_offset, $v_comment)) != 1)
  2296 + {
  2297 + // ----- Reset the file list
  2298 + unset($v_header_list);
  2299 + $this->privSwapBackMagicQuotes();
  2300 +
  2301 + // ----- Return
  2302 + return $v_result;
  2303 + }
  2304 +
  2305 + // ----- Swap back the file descriptor
  2306 + $v_swap = $this->zip_fd;
  2307 + $this->zip_fd = $v_zip_temp_fd;
  2308 + $v_zip_temp_fd = $v_swap;
  2309 +
  2310 + // ----- Close
  2311 + $this->privCloseFd();
  2312 +
  2313 + // ----- Close the temporary file
  2314 + @fclose($v_zip_temp_fd);
  2315 +
  2316 + // ----- Magic quotes trick
  2317 + $this->privSwapBackMagicQuotes();
  2318 +
  2319 + // ----- Delete the zip file
  2320 + // TBC : I should test the result ...
  2321 + @unlink($this->zipname);
  2322 +
  2323 + // ----- Rename the temporary file
  2324 + // TBC : I should test the result ...
  2325 + //@rename($v_zip_temp_name, $this->zipname);
  2326 + PclZipUtilRename($v_zip_temp_name, $this->zipname);
  2327 +
  2328 + // ----- Return
  2329 + return $v_result;
  2330 + }
  2331 + // --------------------------------------------------------------------------------
  2332 +
  2333 + // --------------------------------------------------------------------------------
  2334 + // Function : privOpenFd()
  2335 + // Description :
  2336 + // Parameters :
  2337 + // --------------------------------------------------------------------------------
  2338 + function privOpenFd($p_mode)
  2339 + {
  2340 + $v_result=1;
  2341 +
  2342 + // ----- Look if already open
  2343 + if ($this->zip_fd != 0)
  2344 + {
  2345 + // ----- Error log
  2346 + PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Zip file \''.$this->zipname.'\' already open');
  2347 +
  2348 + // ----- Return
  2349 + return PclZip::errorCode();
  2350 + }
  2351 +
  2352 + // ----- Open the zip file
  2353 + if (($this->zip_fd = @fopen($this->zipname, $p_mode)) == 0)
  2354 + {
  2355 + // ----- Error log
  2356 + PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open archive \''.$this->zipname.'\' in '.$p_mode.' mode');
  2357 +
  2358 + // ----- Return
  2359 + return PclZip::errorCode();
  2360 + }
  2361 +
  2362 + // ----- Return
  2363 + return $v_result;
  2364 + }
  2365 + // --------------------------------------------------------------------------------
  2366 +
  2367 + // --------------------------------------------------------------------------------
  2368 + // Function : privCloseFd()
  2369 + // Description :
  2370 + // Parameters :
  2371 + // --------------------------------------------------------------------------------
  2372 + function privCloseFd()
  2373 + {
  2374 + $v_result=1;
  2375 +
  2376 + if ($this->zip_fd != 0)
  2377 + @fclose($this->zip_fd);
  2378 + $this->zip_fd = 0;
  2379 +
  2380 + // ----- Return
  2381 + return $v_result;
  2382 + }
  2383 + // --------------------------------------------------------------------------------
  2384 +
  2385 + // --------------------------------------------------------------------------------
  2386 + // Function : privAddList()
  2387 + // Description :
  2388 + // $p_add_dir and $p_remove_dir will give the ability to memorize a path which is
  2389 + // different from the real path of the file. This is usefull if you want to have PclTar
  2390 + // running in any directory, and memorize relative path from an other directory.
  2391 + // Parameters :
  2392 + // $p_list : An array containing the file or directory names to add in the tar
  2393 + // $p_result_list : list of added files with their properties (specially the status field)
  2394 + // $p_add_dir : Path to add in the filename path archived
  2395 + // $p_remove_dir : Path to remove in the filename path archived
  2396 + // Return Values :
  2397 + // --------------------------------------------------------------------------------
  2398 +// function privAddList($p_list, &$p_result_list, $p_add_dir, $p_remove_dir, $p_remove_all_dir, &$p_options)
  2399 + function privAddList($p_filedescr_list, &$p_result_list, &$p_options)
  2400 + {
  2401 + $v_result=1;
  2402 +
  2403 + // ----- Add the files
  2404 + $v_header_list = array();
  2405 + if (($v_result = $this->privAddFileList($p_filedescr_list, $v_header_list, $p_options)) != 1)
  2406 + {
  2407 + // ----- Return
  2408 + return $v_result;
  2409 + }
  2410 +
  2411 + // ----- Store the offset of the central dir
  2412 + $v_offset = @ftell($this->zip_fd);
  2413 +
  2414 + // ----- Create the Central Dir files header
  2415 + for ($i=0,$v_count=0; $i<sizeof($v_header_list); $i++)
  2416 + {
  2417 + // ----- Create the file header
  2418 + if ($v_header_list[$i]['status'] == 'ok') {
  2419 + if (($v_result = $this->privWriteCentralFileHeader($v_header_list[$i])) != 1) {
  2420 + // ----- Return
  2421 + return $v_result;
  2422 + }
  2423 + $v_count++;
  2424 + }
  2425 +
  2426 + // ----- Transform the header to a 'usable' info
  2427 + $this->privConvertHeader2FileInfo($v_header_list[$i], $p_result_list[$i]);
  2428 + }
  2429 +
  2430 + // ----- Zip file comment
  2431 + $v_comment = '';
  2432 + if (isset($p_options[PCLZIP_OPT_COMMENT])) {
  2433 + $v_comment = $p_options[PCLZIP_OPT_COMMENT];
  2434 + }
  2435 +
  2436 + // ----- Calculate the size of the central header
  2437 + $v_size = @ftell($this->zip_fd)-$v_offset;
  2438 +
  2439 + // ----- Create the central dir footer
  2440 + if (($v_result = $this->privWriteCentralHeader($v_count, $v_size, $v_offset, $v_comment)) != 1)
  2441 + {
  2442 + // ----- Reset the file list
  2443 + unset($v_header_list);
  2444 +
  2445 + // ----- Return
  2446 + return $v_result;
  2447 + }
  2448 +
  2449 + // ----- Return
  2450 + return $v_result;
  2451 + }
  2452 + // --------------------------------------------------------------------------------
  2453 +
  2454 + // --------------------------------------------------------------------------------
  2455 + // Function : privAddFileList()
  2456 + // Description :
  2457 + // Parameters :
  2458 + // $p_filedescr_list : An array containing the file description
  2459 + // or directory names to add in the zip
  2460 + // $p_result_list : list of added files with their properties (specially the status field)
  2461 + // Return Values :
  2462 + // --------------------------------------------------------------------------------
  2463 + function privAddFileList($p_filedescr_list, &$p_result_list, &$p_options)
  2464 + {
  2465 + $v_result=1;
  2466 + $v_header = array();
  2467 +
  2468 + // ----- Recuperate the current number of elt in list
  2469 + $v_nb = sizeof($p_result_list);
  2470 +
  2471 + // ----- Loop on the files
  2472 + for ($j=0; ($j<sizeof($p_filedescr_list)) && ($v_result==1); $j++) {
  2473 + // ----- Format the filename
  2474 + $p_filedescr_list[$j]['filename']
  2475 + = PclZipUtilTranslateWinPath($p_filedescr_list[$j]['filename'], false);
  2476 +
  2477 +
  2478 + // ----- Skip empty file names
  2479 + // TBC : Can this be possible ? not checked in DescrParseAtt ?
  2480 + if ($p_filedescr_list[$j]['filename'] == "") {
  2481 + continue;
  2482 + }
  2483 +
  2484 + // ----- Check the filename
  2485 + if ( ($p_filedescr_list[$j]['type'] != 'virtual_file')
  2486 + && (!file_exists($p_filedescr_list[$j]['filename']))) {
  2487 + PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, "File '".$p_filedescr_list[$j]['filename']."' does not exist");
  2488 + return PclZip::errorCode();
  2489 + }
  2490 +
  2491 + // ----- Look if it is a file or a dir with no all path remove option
  2492 + // or a dir with all its path removed
  2493 +// if ( (is_file($p_filedescr_list[$j]['filename']))
  2494 +// || ( is_dir($p_filedescr_list[$j]['filename'])
  2495 + if ( ($p_filedescr_list[$j]['type'] == 'file')
  2496 + || ($p_filedescr_list[$j]['type'] == 'virtual_file')
  2497 + || ( ($p_filedescr_list[$j]['type'] == 'folder')
  2498 + && ( !isset($p_options[PCLZIP_OPT_REMOVE_ALL_PATH])
  2499 + || !$p_options[PCLZIP_OPT_REMOVE_ALL_PATH]))
  2500 + ) {
  2501 +
  2502 + // ----- Add the file
  2503 + $v_result = $this->privAddFile($p_filedescr_list[$j], $v_header,
  2504 + $p_options);
  2505 + if ($v_result != 1) {
  2506 + return $v_result;
  2507 + }
  2508 +
  2509 + // ----- Store the file infos
  2510 + $p_result_list[$v_nb++] = $v_header;
  2511 + }
  2512 + }
  2513 +
  2514 + // ----- Return
  2515 + return $v_result;
  2516 + }
  2517 + // --------------------------------------------------------------------------------
  2518 +
  2519 + // --------------------------------------------------------------------------------
  2520 + // Function : privAddFile()
  2521 + // Description :
  2522 + // Parameters :
  2523 + // Return Values :
  2524 + // --------------------------------------------------------------------------------
  2525 + function privAddFile($p_filedescr, &$p_header, &$p_options)
  2526 + {
  2527 + $v_result=1;
  2528 +
  2529 + // ----- Working variable
  2530 + $p_filename = $p_filedescr['filename'];
  2531 +
  2532 + // TBC : Already done in the fileAtt check ... ?
  2533 + if ($p_filename == "") {
  2534 + // ----- Error log
  2535 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid file list parameter (invalid or empty list)");
  2536 +
  2537 + // ----- Return
  2538 + return PclZip::errorCode();
  2539 + }
  2540 +
  2541 + // ----- Look for a stored different filename
  2542 + /* TBC : Removed
  2543 + if (isset($p_filedescr['stored_filename'])) {
  2544 + $v_stored_filename = $p_filedescr['stored_filename'];
  2545 + }
  2546 + else {
  2547 + $v_stored_filename = $p_filedescr['stored_filename'];
  2548 + }
  2549 + */
  2550 +
  2551 + // ----- Set the file properties
  2552 + clearstatcache();
  2553 + $p_header['version'] = 20;
  2554 + $p_header['version_extracted'] = 10;
  2555 + $p_header['flag'] = 0;
  2556 + $p_header['compression'] = 0;
  2557 + $p_header['crc'] = 0;
  2558 + $p_header['compressed_size'] = 0;
  2559 + $p_header['filename_len'] = strlen($p_filename);
  2560 + $p_header['extra_len'] = 0;
  2561 + $p_header['disk'] = 0;
  2562 + $p_header['internal'] = 0;
  2563 + $p_header['offset'] = 0;
  2564 + $p_header['filename'] = $p_filename;
  2565 +// TBC : Removed $p_header['stored_filename'] = $v_stored_filename;
  2566 + $p_header['stored_filename'] = $p_filedescr['stored_filename'];
  2567 + $p_header['extra'] = '';
  2568 + $p_header['status'] = 'ok';
  2569 + $p_header['index'] = -1;
  2570 +
  2571 + // ----- Look for regular file
  2572 + if ($p_filedescr['type']=='file') {
  2573 + $p_header['external'] = 0x00000000;
  2574 + $p_header['size'] = filesize($p_filename);
  2575 + }
  2576 +
  2577 + // ----- Look for regular folder
  2578 + else if ($p_filedescr['type']=='folder') {
  2579 + $p_header['external'] = 0x00000010;
  2580 + $p_header['mtime'] = filemtime($p_filename);
  2581 + $p_header['size'] = filesize($p_filename);
  2582 + }
  2583 +
  2584 + // ----- Look for virtual file
  2585 + else if ($p_filedescr['type'] == 'virtual_file') {
  2586 + $p_header['external'] = 0x00000000;
  2587 + $p_header['size'] = strlen($p_filedescr['content']);
  2588 + }
  2589 +
  2590 +
  2591 + // ----- Look for filetime
  2592 + if (isset($p_filedescr['mtime'])) {
  2593 + $p_header['mtime'] = $p_filedescr['mtime'];
  2594 + }
  2595 + else if ($p_filedescr['type'] == 'virtual_file') {
  2596 + $p_header['mtime'] = time();
  2597 + }
  2598 + else {
  2599 + $p_header['mtime'] = filemtime($p_filename);
  2600 + }
  2601 +
  2602 + // ------ Look for file comment
  2603 + if (isset($p_filedescr['comment'])) {
  2604 + $p_header['comment_len'] = strlen($p_filedescr['comment']);
  2605 + $p_header['comment'] = $p_filedescr['comment'];
  2606 + }
  2607 + else {
  2608 + $p_header['comment_len'] = 0;
  2609 + $p_header['comment'] = '';
  2610 + }
  2611 +
  2612 + // ----- Look for pre-add callback
  2613 + if (isset($p_options[PCLZIP_CB_PRE_ADD])) {
  2614 +
  2615 + // ----- Generate a local information
  2616 + $v_local_header = array();
  2617 + $this->privConvertHeader2FileInfo($p_header, $v_local_header);
  2618 +
  2619 + // ----- Call the callback
  2620 + // Here I do not use call_user_func() because I need to send a reference to the
  2621 + // header.
  2622 +// eval('$v_result = '.$p_options[PCLZIP_CB_PRE_ADD].'(PCLZIP_CB_PRE_ADD, $v_local_header);');
  2623 + $v_result = $p_options[PCLZIP_CB_PRE_ADD](PCLZIP_CB_PRE_ADD, $v_local_header);
  2624 + if ($v_result == 0) {
  2625 + // ----- Change the file status
  2626 + $p_header['status'] = "skipped";
  2627 + $v_result = 1;
  2628 + }
  2629 +
  2630 + // ----- Update the informations
  2631 + // Only some fields can be modified
  2632 + if ($p_header['stored_filename'] != $v_local_header['stored_filename']) {
  2633 + $p_header['stored_filename'] = PclZipUtilPathReduction($v_local_header['stored_filename']);
  2634 + }
  2635 + }
  2636 +
  2637 + // ----- Look for empty stored filename
  2638 + if ($p_header['stored_filename'] == "") {
  2639 + $p_header['status'] = "filtered";
  2640 + }
  2641 +
  2642 + // ----- Check the path length
  2643 + if (strlen($p_header['stored_filename']) > 0xFF) {
  2644 + $p_header['status'] = 'filename_too_long';
  2645 + }
  2646 +
  2647 + // ----- Look if no error, or file not skipped
  2648 + if ($p_header['status'] == 'ok') {
  2649 +
  2650 + // ----- Look for a file
  2651 + if ($p_filedescr['type'] == 'file') {
  2652 + // ----- Look for using temporary file to zip
  2653 + if ( (!isset($p_options[PCLZIP_OPT_TEMP_FILE_OFF]))
  2654 + && (isset($p_options[PCLZIP_OPT_TEMP_FILE_ON])
  2655 + || (isset($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD])
  2656 + && ($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD] <= $p_header['size'])) ) ) {
  2657 + $v_result = $this->privAddFileUsingTempFile($p_filedescr, $p_header, $p_options);
  2658 + if ($v_result < PCLZIP_ERR_NO_ERROR) {
  2659 + return $v_result;
  2660 + }
  2661 + }
  2662 +
  2663 + // ----- Use "in memory" zip algo
  2664 + else {
  2665 +
  2666 + // ----- Open the source file
  2667 + if (($v_file = @fopen($p_filename, "rb")) == 0) {
  2668 + PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, "Unable to open file '$p_filename' in binary read mode");
  2669 + return PclZip::errorCode();
  2670 + }
  2671 +
  2672 + // ----- Read the file content
  2673 + $v_content = @fread($v_file, $p_header['size']);
  2674 +
  2675 + // ----- Close the file
  2676 + @fclose($v_file);
  2677 +
  2678 + // ----- Calculate the CRC
  2679 + $p_header['crc'] = @crc32($v_content);
  2680 +
  2681 + // ----- Look for no compression
  2682 + if ($p_options[PCLZIP_OPT_NO_COMPRESSION]) {
  2683 + // ----- Set header parameters
  2684 + $p_header['compressed_size'] = $p_header['size'];
  2685 + $p_header['compression'] = 0;
  2686 + }
  2687 +
  2688 + // ----- Look for normal compression
  2689 + else {
  2690 + // ----- Compress the content
  2691 + $v_content = @gzdeflate($v_content);
  2692 +
  2693 + // ----- Set header parameters
  2694 + $p_header['compressed_size'] = strlen($v_content);
  2695 + $p_header['compression'] = 8;
  2696 + }
  2697 +
  2698 + // ----- Call the header generation
  2699 + if (($v_result = $this->privWriteFileHeader($p_header)) != 1) {
  2700 + @fclose($v_file);
  2701 + return $v_result;
  2702 + }
  2703 +
  2704 + // ----- Write the compressed (or not) content
  2705 + @fwrite($this->zip_fd, $v_content, $p_header['compressed_size']);
  2706 +
  2707 + }
  2708 +
  2709 + }
  2710 +
  2711 + // ----- Look for a virtual file (a file from string)
  2712 + else if ($p_filedescr['type'] == 'virtual_file') {
  2713 +
  2714 + $v_content = $p_filedescr['content'];
  2715 +
  2716 + // ----- Calculate the CRC
  2717 + $p_header['crc'] = @crc32($v_content);
  2718 +
  2719 + // ----- Look for no compression
  2720 + if ($p_options[PCLZIP_OPT_NO_COMPRESSION]) {
  2721 + // ----- Set header parameters
  2722 + $p_header['compressed_size'] = $p_header['size'];
  2723 + $p_header['compression'] = 0;
  2724 + }
  2725 +
  2726 + // ----- Look for normal compression
  2727 + else {
  2728 + // ----- Compress the content
  2729 + $v_content = @gzdeflate($v_content);
  2730 +
  2731 + // ----- Set header parameters
  2732 + $p_header['compressed_size'] = strlen($v_content);
  2733 + $p_header['compression'] = 8;
  2734 + }
  2735 +
  2736 + // ----- Call the header generation
  2737 + if (($v_result = $this->privWriteFileHeader($p_header)) != 1) {
  2738 + @fclose($v_file);
  2739 + return $v_result;
  2740 + }
  2741 +
  2742 + // ----- Write the compressed (or not) content
  2743 + @fwrite($this->zip_fd, $v_content, $p_header['compressed_size']);
  2744 + }
  2745 +
  2746 + // ----- Look for a directory
  2747 + else if ($p_filedescr['type'] == 'folder') {
  2748 + // ----- Look for directory last '/'
  2749 + if (@substr($p_header['stored_filename'], -1) != '/') {
  2750 + $p_header['stored_filename'] .= '/';
  2751 + }
  2752 +
  2753 + // ----- Set the file properties
  2754 + $p_header['size'] = 0;
  2755 + //$p_header['external'] = 0x41FF0010; // Value for a folder : to be checked
  2756 + $p_header['external'] = 0x00000010; // Value for a folder : to be checked
  2757 +
  2758 + // ----- Call the header generation
  2759 + if (($v_result = $this->privWriteFileHeader($p_header)) != 1)
  2760 + {
  2761 + return $v_result;
  2762 + }
  2763 + }
  2764 + }
  2765 +
  2766 + // ----- Look for post-add callback
  2767 + if (isset($p_options[PCLZIP_CB_POST_ADD])) {
  2768 +
  2769 + // ----- Generate a local information
  2770 + $v_local_header = array();
  2771 + $this->privConvertHeader2FileInfo($p_header, $v_local_header);
  2772 +
  2773 + // ----- Call the callback
  2774 + // Here I do not use call_user_func() because I need to send a reference to the
  2775 + // header.
  2776 +// eval('$v_result = '.$p_options[PCLZIP_CB_POST_ADD].'(PCLZIP_CB_POST_ADD, $v_local_header);');
  2777 + $v_result = $p_options[PCLZIP_CB_POST_ADD](PCLZIP_CB_POST_ADD, $v_local_header);
  2778 + if ($v_result == 0) {
  2779 + // ----- Ignored
  2780 + $v_result = 1;
  2781 + }
  2782 +
  2783 + // ----- Update the informations
  2784 + // Nothing can be modified
  2785 + }
  2786 +
  2787 + // ----- Return
  2788 + return $v_result;
  2789 + }
  2790 + // --------------------------------------------------------------------------------
  2791 +
  2792 + // --------------------------------------------------------------------------------
  2793 + // Function : privAddFileUsingTempFile()
  2794 + // Description :
  2795 + // Parameters :
  2796 + // Return Values :
  2797 + // --------------------------------------------------------------------------------
  2798 + function privAddFileUsingTempFile($p_filedescr, &$p_header, &$p_options)
  2799 + {
  2800 + $v_result=PCLZIP_ERR_NO_ERROR;
  2801 +
  2802 + // ----- Working variable
  2803 + $p_filename = $p_filedescr['filename'];
  2804 +
  2805 +
  2806 + // ----- Open the source file
  2807 + if (($v_file = @fopen($p_filename, "rb")) == 0) {
  2808 + PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, "Unable to open file '$p_filename' in binary read mode");
  2809 + return PclZip::errorCode();
  2810 + }
  2811 +
  2812 + // ----- Creates a compressed temporary file
  2813 + $v_gzip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid('pclzip-').'.gz';
  2814 + if (($v_file_compressed = @gzopen($v_gzip_temp_name, "wb")) == 0) {
  2815 + fclose($v_file);
  2816 + PclZip::privErrorLog(PCLZIP_ERR_WRITE_OPEN_FAIL, 'Unable to open temporary file \''.$v_gzip_temp_name.'\' in binary write mode');
  2817 + return PclZip::errorCode();
  2818 + }
  2819 +
  2820 + // ----- Read the file by PCLZIP_READ_BLOCK_SIZE octets blocks
  2821 + $v_size = filesize($p_filename);
  2822 + while ($v_size != 0) {
  2823 + $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
  2824 + $v_buffer = @fread($v_file, $v_read_size);
  2825 + //$v_binary_data = pack('a'.$v_read_size, $v_buffer);
  2826 + @gzputs($v_file_compressed, $v_buffer, $v_read_size);
  2827 + $v_size -= $v_read_size;
  2828 + }
  2829 +
  2830 + // ----- Close the file
  2831 + @fclose($v_file);
  2832 + @gzclose($v_file_compressed);
  2833 +
  2834 + // ----- Check the minimum file size
  2835 + if (filesize($v_gzip_temp_name) < 18) {
  2836 + PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'gzip temporary file \''.$v_gzip_temp_name.'\' has invalid filesize - should be minimum 18 bytes');
  2837 + return PclZip::errorCode();
  2838 + }
  2839 +
  2840 + // ----- Extract the compressed attributes
  2841 + if (($v_file_compressed = @fopen($v_gzip_temp_name, "rb")) == 0) {
  2842 + PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \''.$v_gzip_temp_name.'\' in binary read mode');
  2843 + return PclZip::errorCode();
  2844 + }
  2845 +
  2846 + // ----- Read the gzip file header
  2847 + $v_binary_data = @fread($v_file_compressed, 10);
  2848 + $v_data_header = unpack('a1id1/a1id2/a1cm/a1flag/Vmtime/a1xfl/a1os', $v_binary_data);
  2849 +
  2850 + // ----- Check some parameters
  2851 + $v_data_header['os'] = bin2hex($v_data_header['os']);
  2852 +
  2853 + // ----- Read the gzip file footer
  2854 + @fseek($v_file_compressed, filesize($v_gzip_temp_name)-8);
  2855 + $v_binary_data = @fread($v_file_compressed, 8);
  2856 + $v_data_footer = unpack('Vcrc/Vcompressed_size', $v_binary_data);
  2857 +
  2858 + // ----- Set the attributes
  2859 + $p_header['compression'] = ord($v_data_header['cm']);
  2860 + //$p_header['mtime'] = $v_data_header['mtime'];
  2861 + $p_header['crc'] = $v_data_footer['crc'];
  2862 + $p_header['compressed_size'] = filesize($v_gzip_temp_name)-18;
  2863 +
  2864 + // ----- Close the file
  2865 + @fclose($v_file_compressed);
  2866 +
  2867 + // ----- Call the header generation
  2868 + if (($v_result = $this->privWriteFileHeader($p_header)) != 1) {
  2869 + return $v_result;
  2870 + }
  2871 +
  2872 + // ----- Add the compressed data
  2873 + if (($v_file_compressed = @fopen($v_gzip_temp_name, "rb")) == 0)
  2874 + {
  2875 + PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \''.$v_gzip_temp_name.'\' in binary read mode');
  2876 + return PclZip::errorCode();
  2877 + }
  2878 +
  2879 + // ----- Read the file by PCLZIP_READ_BLOCK_SIZE octets blocks
  2880 + fseek($v_file_compressed, 10);
  2881 + $v_size = $p_header['compressed_size'];
  2882 + while ($v_size != 0)
  2883 + {
  2884 + $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
  2885 + $v_buffer = @fread($v_file_compressed, $v_read_size);
  2886 + //$v_binary_data = pack('a'.$v_read_size, $v_buffer);
  2887 + @fwrite($this->zip_fd, $v_buffer, $v_read_size);
  2888 + $v_size -= $v_read_size;
  2889 + }
  2890 +
  2891 + // ----- Close the file
  2892 + @fclose($v_file_compressed);
  2893 +
  2894 + // ----- Unlink the temporary file
  2895 + @unlink($v_gzip_temp_name);
  2896 +
  2897 + // ----- Return
  2898 + return $v_result;
  2899 + }
  2900 + // --------------------------------------------------------------------------------
  2901 +
  2902 + // --------------------------------------------------------------------------------
  2903 + // Function : privCalculateStoredFilename()
  2904 + // Description :
  2905 + // Based on file descriptor properties and global options, this method
  2906 + // calculate the filename that will be stored in the archive.
  2907 + // Parameters :
  2908 + // Return Values :
  2909 + // --------------------------------------------------------------------------------
  2910 + function privCalculateStoredFilename(&$p_filedescr, &$p_options)
  2911 + {
  2912 + $v_result=1;
  2913 +
  2914 + // ----- Working variables
  2915 + $p_filename = $p_filedescr['filename'];
  2916 + if (isset($p_options[PCLZIP_OPT_ADD_PATH])) {
  2917 + $p_add_dir = $p_options[PCLZIP_OPT_ADD_PATH];
  2918 + }
  2919 + else {
  2920 + $p_add_dir = '';
  2921 + }
  2922 + if (isset($p_options[PCLZIP_OPT_REMOVE_PATH])) {
  2923 + $p_remove_dir = $p_options[PCLZIP_OPT_REMOVE_PATH];
  2924 + }
  2925 + else {
  2926 + $p_remove_dir = '';
  2927 + }
  2928 + if (isset($p_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {
  2929 + $p_remove_all_dir = $p_options[PCLZIP_OPT_REMOVE_ALL_PATH];
  2930 + }
  2931 + else {
  2932 + $p_remove_all_dir = 0;
  2933 + }
  2934 +
  2935 +
  2936 + // ----- Look for full name change
  2937 + if (isset($p_filedescr['new_full_name'])) {
  2938 + // ----- Remove drive letter if any
  2939 + $v_stored_filename = PclZipUtilTranslateWinPath($p_filedescr['new_full_name']);
  2940 + }
  2941 +
  2942 + // ----- Look for path and/or short name change
  2943 + else {
  2944 +
  2945 + // ----- Look for short name change
  2946 + // Its when we cahnge just the filename but not the path
  2947 + if (isset($p_filedescr['new_short_name'])) {
  2948 + $v_path_info = pathinfo($p_filename);
  2949 + $v_dir = '';
  2950 + if ($v_path_info['dirname'] != '') {
  2951 + $v_dir = $v_path_info['dirname'].'/';
  2952 + }
  2953 + $v_stored_filename = $v_dir.$p_filedescr['new_short_name'];
  2954 + }
  2955 + else {
  2956 + // ----- Calculate the stored filename
  2957 + $v_stored_filename = $p_filename;
  2958 + }
  2959 +
  2960 + // ----- Look for all path to remove
  2961 + if ($p_remove_all_dir) {
  2962 + $v_stored_filename = basename($p_filename);
  2963 + }
  2964 + // ----- Look for partial path remove
  2965 + else if ($p_remove_dir != "") {
  2966 + if (substr($p_remove_dir, -1) != '/')
  2967 + $p_remove_dir .= "/";
  2968 +
  2969 + if ( (substr($p_filename, 0, 2) == "./")
  2970 + || (substr($p_remove_dir, 0, 2) == "./")) {
  2971 +
  2972 + if ( (substr($p_filename, 0, 2) == "./")
  2973 + && (substr($p_remove_dir, 0, 2) != "./")) {
  2974 + $p_remove_dir = "./".$p_remove_dir;
  2975 + }
  2976 + if ( (substr($p_filename, 0, 2) != "./")
  2977 + && (substr($p_remove_dir, 0, 2) == "./")) {
  2978 + $p_remove_dir = substr($p_remove_dir, 2);
  2979 + }
  2980 + }
  2981 +
  2982 + $v_compare = PclZipUtilPathInclusion($p_remove_dir,
  2983 + $v_stored_filename);
  2984 + if ($v_compare > 0) {
  2985 + if ($v_compare == 2) {
  2986 + $v_stored_filename = "";
  2987 + }
  2988 + else {
  2989 + $v_stored_filename = substr($v_stored_filename,
  2990 + strlen($p_remove_dir));
  2991 + }
  2992 + }
  2993 + }
  2994 +
  2995 + // ----- Remove drive letter if any
  2996 + $v_stored_filename = PclZipUtilTranslateWinPath($v_stored_filename);
  2997 +
  2998 + // ----- Look for path to add
  2999 + if ($p_add_dir != "") {
  3000 + if (substr($p_add_dir, -1) == "/")
  3001 + $v_stored_filename = $p_add_dir.$v_stored_filename;
  3002 + else
  3003 + $v_stored_filename = $p_add_dir."/".$v_stored_filename;
  3004 + }
  3005 + }
  3006 +
  3007 + // ----- Filename (reduce the path of stored name)
  3008 + $v_stored_filename = PclZipUtilPathReduction($v_stored_filename);
  3009 + $p_filedescr['stored_filename'] = $v_stored_filename;
  3010 +
  3011 + // ----- Return
  3012 + return $v_result;
  3013 + }
  3014 + // --------------------------------------------------------------------------------
  3015 +
  3016 + // --------------------------------------------------------------------------------
  3017 + // Function : privWriteFileHeader()
  3018 + // Description :
  3019 + // Parameters :
  3020 + // Return Values :
  3021 + // --------------------------------------------------------------------------------
  3022 + function privWriteFileHeader(&$p_header)
  3023 + {
  3024 + $v_result=1;
  3025 +
  3026 + // ----- Store the offset position of the file
  3027 + $p_header['offset'] = ftell($this->zip_fd);
  3028 +
  3029 + // ----- Transform UNIX mtime to DOS format mdate/mtime
  3030 + $v_date = getdate($p_header['mtime']);
  3031 + $v_mtime = ($v_date['hours']<<11) + ($v_date['minutes']<<5) + $v_date['seconds']/2;
  3032 + $v_mdate = (($v_date['year']-1980)<<9) + ($v_date['mon']<<5) + $v_date['mday'];
  3033 +
  3034 + // ----- Packed data
  3035 + $v_binary_data = pack("VvvvvvVVVvv", 0x04034b50,
  3036 + $p_header['version_extracted'], $p_header['flag'],
  3037 + $p_header['compression'], $v_mtime, $v_mdate,
  3038 + $p_header['crc'], $p_header['compressed_size'],
  3039 + $p_header['size'],
  3040 + strlen($p_header['stored_filename']),
  3041 + $p_header['extra_len']);
  3042 +
  3043 + // ----- Write the first 148 bytes of the header in the archive
  3044 + fputs($this->zip_fd, $v_binary_data, 30);
  3045 +
  3046 + // ----- Write the variable fields
  3047 + if (strlen($p_header['stored_filename']) != 0)
  3048 + {
  3049 + fputs($this->zip_fd, $p_header['stored_filename'], strlen($p_header['stored_filename']));
  3050 + }
  3051 + if ($p_header['extra_len'] != 0)
  3052 + {
  3053 + fputs($this->zip_fd, $p_header['extra'], $p_header['extra_len']);
  3054 + }
  3055 +
  3056 + // ----- Return
  3057 + return $v_result;
  3058 + }
  3059 + // --------------------------------------------------------------------------------
  3060 +
  3061 + // --------------------------------------------------------------------------------
  3062 + // Function : privWriteCentralFileHeader()
  3063 + // Description :
  3064 + // Parameters :
  3065 + // Return Values :
  3066 + // --------------------------------------------------------------------------------
  3067 + function privWriteCentralFileHeader(&$p_header)
  3068 + {
  3069 + $v_result=1;
  3070 +
  3071 + // TBC
  3072 + //for(reset($p_header); $key = key($p_header); next($p_header)) {
  3073 + //}
  3074 +
  3075 + // ----- Transform UNIX mtime to DOS format mdate/mtime
  3076 + $v_date = getdate($p_header['mtime']);
  3077 + $v_mtime = ($v_date['hours']<<11) + ($v_date['minutes']<<5) + $v_date['seconds']/2;
  3078 + $v_mdate = (($v_date['year']-1980)<<9) + ($v_date['mon']<<5) + $v_date['mday'];
  3079 +
  3080 +
  3081 + // ----- Packed data
  3082 + $v_binary_data = pack("VvvvvvvVVVvvvvvVV", 0x02014b50,
  3083 + $p_header['version'], $p_header['version_extracted'],
  3084 + $p_header['flag'], $p_header['compression'],
  3085 + $v_mtime, $v_mdate, $p_header['crc'],
  3086 + $p_header['compressed_size'], $p_header['size'],
  3087 + strlen($p_header['stored_filename']),
  3088 + $p_header['extra_len'], $p_header['comment_len'],
  3089 + $p_header['disk'], $p_header['internal'],
  3090 + $p_header['external'], $p_header['offset']);
  3091 +
  3092 + // ----- Write the 42 bytes of the header in the zip file
  3093 + fputs($this->zip_fd, $v_binary_data, 46);
  3094 +
  3095 + // ----- Write the variable fields
  3096 + if (strlen($p_header['stored_filename']) != 0)
  3097 + {
  3098 + fputs($this->zip_fd, $p_header['stored_filename'], strlen($p_header['stored_filename']));
  3099 + }
  3100 + if ($p_header['extra_len'] != 0)
  3101 + {
  3102 + fputs($this->zip_fd, $p_header['extra'], $p_header['extra_len']);
  3103 + }
  3104 + if ($p_header['comment_len'] != 0)
  3105 + {
  3106 + fputs($this->zip_fd, $p_header['comment'], $p_header['comment_len']);
  3107 + }
  3108 +
  3109 + // ----- Return
  3110 + return $v_result;
  3111 + }
  3112 + // --------------------------------------------------------------------------------
  3113 +
  3114 + // --------------------------------------------------------------------------------
  3115 + // Function : privWriteCentralHeader()
  3116 + // Description :
  3117 + // Parameters :
  3118 + // Return Values :
  3119 + // --------------------------------------------------------------------------------
  3120 + function privWriteCentralHeader($p_nb_entries, $p_size, $p_offset, $p_comment)
  3121 + {
  3122 + $v_result=1;
  3123 +
  3124 + // ----- Packed data
  3125 + $v_binary_data = pack("VvvvvVVv", 0x06054b50, 0, 0, $p_nb_entries,
  3126 + $p_nb_entries, $p_size,
  3127 + $p_offset, strlen($p_comment));
  3128 +
  3129 + // ----- Write the 22 bytes of the header in the zip file
  3130 + fputs($this->zip_fd, $v_binary_data, 22);
  3131 +
  3132 + // ----- Write the variable fields
  3133 + if (strlen($p_comment) != 0)
  3134 + {
  3135 + fputs($this->zip_fd, $p_comment, strlen($p_comment));
  3136 + }
  3137 +
  3138 + // ----- Return
  3139 + return $v_result;
  3140 + }
  3141 + // --------------------------------------------------------------------------------
  3142 +
  3143 + // --------------------------------------------------------------------------------
  3144 + // Function : privList()
  3145 + // Description :
  3146 + // Parameters :
  3147 + // Return Values :
  3148 + // --------------------------------------------------------------------------------
  3149 + function privList(&$p_list)
  3150 + {
  3151 + $v_result=1;
  3152 +
  3153 + // ----- Magic quotes trick
  3154 + $this->privDisableMagicQuotes();
  3155 +
  3156 + // ----- Open the zip file
  3157 + if (($this->zip_fd = @fopen($this->zipname, 'rb')) == 0)
  3158 + {
  3159 + // ----- Magic quotes trick
  3160 + $this->privSwapBackMagicQuotes();
  3161 +
  3162 + // ----- Error log
  3163 + PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open archive \''.$this->zipname.'\' in binary read mode');
  3164 +
  3165 + // ----- Return
  3166 + return PclZip::errorCode();
  3167 + }
  3168 +
  3169 + // ----- Read the central directory informations
  3170 + $v_central_dir = array();
  3171 + if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1)
  3172 + {
  3173 + $this->privSwapBackMagicQuotes();
  3174 + return $v_result;
  3175 + }
  3176 +
  3177 + // ----- Go to beginning of Central Dir
  3178 + @rewind($this->zip_fd);
  3179 + if (@fseek($this->zip_fd, $v_central_dir['offset']))
  3180 + {
  3181 + $this->privSwapBackMagicQuotes();
  3182 +
  3183 + // ----- Error log
  3184 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid archive size');
  3185 +
  3186 + // ----- Return
  3187 + return PclZip::errorCode();
  3188 + }
  3189 +
  3190 + // ----- Read each entry
  3191 + for ($i=0; $i<$v_central_dir['entries']; $i++)
  3192 + {
  3193 + // ----- Read the file header
  3194 + if (($v_result = $this->privReadCentralFileHeader($v_header)) != 1)
  3195 + {
  3196 + $this->privSwapBackMagicQuotes();
  3197 + return $v_result;
  3198 + }
  3199 + $v_header['index'] = $i;
  3200 +
  3201 + // ----- Get the only interesting attributes
  3202 + $this->privConvertHeader2FileInfo($v_header, $p_list[$i]);
  3203 + unset($v_header);
  3204 + }
  3205 +
  3206 + // ----- Close the zip file
  3207 + $this->privCloseFd();
  3208 +
  3209 + // ----- Magic quotes trick
  3210 + $this->privSwapBackMagicQuotes();
  3211 +
  3212 + // ----- Return
  3213 + return $v_result;
  3214 + }
  3215 + // --------------------------------------------------------------------------------
  3216 +
  3217 + // --------------------------------------------------------------------------------
  3218 + // Function : privConvertHeader2FileInfo()
  3219 + // Description :
  3220 + // This function takes the file informations from the central directory
  3221 + // entries and extract the interesting parameters that will be given back.
  3222 + // The resulting file infos are set in the array $p_info
  3223 + // $p_info['filename'] : Filename with full path. Given by user (add),
  3224 + // extracted in the filesystem (extract).
  3225 + // $p_info['stored_filename'] : Stored filename in the archive.
  3226 + // $p_info['size'] = Size of the file.
  3227 + // $p_info['compressed_size'] = Compressed size of the file.
  3228 + // $p_info['mtime'] = Last modification date of the file.
  3229 + // $p_info['comment'] = Comment associated with the file.
  3230 + // $p_info['folder'] = true/false : indicates if the entry is a folder or not.
  3231 + // $p_info['status'] = status of the action on the file.
  3232 + // $p_info['crc'] = CRC of the file content.
  3233 + // Parameters :
  3234 + // Return Values :
  3235 + // --------------------------------------------------------------------------------
  3236 + function privConvertHeader2FileInfo($p_header, &$p_info)
  3237 + {
  3238 + $v_result=1;
  3239 +
  3240 + // ----- Get the interesting attributes
  3241 + $v_temp_path = PclZipUtilPathReduction($p_header['filename']);
  3242 + $p_info['filename'] = $v_temp_path;
  3243 + $v_temp_path = PclZipUtilPathReduction($p_header['stored_filename']);
  3244 + $p_info['stored_filename'] = $v_temp_path;
  3245 + $p_info['size'] = $p_header['size'];
  3246 + $p_info['compressed_size'] = $p_header['compressed_size'];
  3247 + $p_info['mtime'] = $p_header['mtime'];
  3248 + $p_info['comment'] = $p_header['comment'];
  3249 + $p_info['folder'] = (($p_header['external']&0x00000010)==0x00000010);
  3250 + $p_info['index'] = $p_header['index'];
  3251 + $p_info['status'] = $p_header['status'];
  3252 + $p_info['crc'] = $p_header['crc'];
  3253 +
  3254 + // ----- Return
  3255 + return $v_result;
  3256 + }
  3257 + // --------------------------------------------------------------------------------
  3258 +
  3259 + // --------------------------------------------------------------------------------
  3260 + // Function : privExtractByRule()
  3261 + // Description :
  3262 + // Extract a file or directory depending of rules (by index, by name, ...)
  3263 + // Parameters :
  3264 + // $p_file_list : An array where will be placed the properties of each
  3265 + // extracted file
  3266 + // $p_path : Path to add while writing the extracted files
  3267 + // $p_remove_path : Path to remove (from the file memorized path) while writing the
  3268 + // extracted files. If the path does not match the file path,
  3269 + // the file is extracted with its memorized path.
  3270 + // $p_remove_path does not apply to 'list' mode.
  3271 + // $p_path and $p_remove_path are commulative.
  3272 + // Return Values :
  3273 + // 1 on success,0 or less on error (see error code list)
  3274 + // --------------------------------------------------------------------------------
  3275 + function privExtractByRule(&$p_file_list, $p_path, $p_remove_path, $p_remove_all_path, &$p_options)
  3276 + {
  3277 + $v_result=1;
  3278 +
  3279 + // ----- Magic quotes trick
  3280 + $this->privDisableMagicQuotes();
  3281 +
  3282 + // ----- Check the path
  3283 + if ( ($p_path == "")
  3284 + || ( (substr($p_path, 0, 1) != "/")
  3285 + && (substr($p_path, 0, 3) != "../")
  3286 + && (substr($p_path,1,2)!=":/")))
  3287 + $p_path = "./".$p_path;
  3288 +
  3289 + // ----- Reduce the path last (and duplicated) '/'
  3290 + if (($p_path != "./") && ($p_path != "/"))
  3291 + {
  3292 + // ----- Look for the path end '/'
  3293 + while (substr($p_path, -1) == "/")
  3294 + {
  3295 + $p_path = substr($p_path, 0, strlen($p_path)-1);
  3296 + }
  3297 + }
  3298 +
  3299 + // ----- Look for path to remove format (should end by /)
  3300 + if (($p_remove_path != "") && (substr($p_remove_path, -1) != '/'))
  3301 + {
  3302 + $p_remove_path .= '/';
  3303 + }
  3304 + $p_remove_path_size = strlen($p_remove_path);
  3305 +
  3306 + // ----- Open the zip file
  3307 + if (($v_result = $this->privOpenFd('rb')) != 1)
  3308 + {
  3309 + $this->privSwapBackMagicQuotes();
  3310 + return $v_result;
  3311 + }
  3312 +
  3313 + // ----- Read the central directory informations
  3314 + $v_central_dir = array();
  3315 + if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1)
  3316 + {
  3317 + // ----- Close the zip file
  3318 + $this->privCloseFd();
  3319 + $this->privSwapBackMagicQuotes();
  3320 +
  3321 + return $v_result;
  3322 + }
  3323 +
  3324 + // ----- Start at beginning of Central Dir
  3325 + $v_pos_entry = $v_central_dir['offset'];
  3326 +
  3327 + // ----- Read each entry
  3328 + $j_start = 0;
  3329 + for ($i=0, $v_nb_extracted=0; $i<$v_central_dir['entries']; $i++)
  3330 + {
  3331 +
  3332 + // ----- Read next Central dir entry
  3333 + @rewind($this->zip_fd);
  3334 + if (@fseek($this->zip_fd, $v_pos_entry))
  3335 + {
  3336 + // ----- Close the zip file
  3337 + $this->privCloseFd();
  3338 + $this->privSwapBackMagicQuotes();
  3339 +
  3340 + // ----- Error log
  3341 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid archive size');
  3342 +
  3343 + // ----- Return
  3344 + return PclZip::errorCode();
  3345 + }
  3346 +
  3347 + // ----- Read the file header
  3348 + $v_header = array();
  3349 + if (($v_result = $this->privReadCentralFileHeader($v_header)) != 1)
  3350 + {
  3351 + // ----- Close the zip file
  3352 + $this->privCloseFd();
  3353 + $this->privSwapBackMagicQuotes();
  3354 +
  3355 + return $v_result;
  3356 + }
  3357 +
  3358 + // ----- Store the index
  3359 + $v_header['index'] = $i;
  3360 +
  3361 + // ----- Store the file position
  3362 + $v_pos_entry = ftell($this->zip_fd);
  3363 +
  3364 + // ----- Look for the specific extract rules
  3365 + $v_extract = false;
  3366 +
  3367 + // ----- Look for extract by name rule
  3368 + if ( (isset($p_options[PCLZIP_OPT_BY_NAME]))
  3369 + && ($p_options[PCLZIP_OPT_BY_NAME] != 0)) {
  3370 +
  3371 + // ----- Look if the filename is in the list
  3372 + for ($j=0; ($j<sizeof($p_options[PCLZIP_OPT_BY_NAME])) && (!$v_extract); $j++) {
  3373 +
  3374 + // ----- Look for a directory
  3375 + if (substr($p_options[PCLZIP_OPT_BY_NAME][$j], -1) == "/") {
  3376 +
  3377 + // ----- Look if the directory is in the filename path
  3378 + if ( (strlen($v_header['stored_filename']) > strlen($p_options[PCLZIP_OPT_BY_NAME][$j]))
  3379 + && (substr($v_header['stored_filename'], 0, strlen($p_options[PCLZIP_OPT_BY_NAME][$j])) == $p_options[PCLZIP_OPT_BY_NAME][$j])) {
  3380 + $v_extract = true;
  3381 + }
  3382 + }
  3383 + // ----- Look for a filename
  3384 + elseif ($v_header['stored_filename'] == $p_options[PCLZIP_OPT_BY_NAME][$j]) {
  3385 + $v_extract = true;
  3386 + }
  3387 + }
  3388 + }
  3389 +
  3390 + // ----- Look for extract by ereg rule
  3391 + // ereg() is deprecated with PHP 5.3
  3392 + /*
  3393 + else if ( (isset($p_options[PCLZIP_OPT_BY_EREG]))
  3394 + && ($p_options[PCLZIP_OPT_BY_EREG] != "")) {
  3395 +
  3396 + if (ereg($p_options[PCLZIP_OPT_BY_EREG], $v_header['stored_filename'])) {
  3397 + $v_extract = true;
  3398 + }
  3399 + }
  3400 + */
  3401 +
  3402 + // ----- Look for extract by preg rule
  3403 + else if ( (isset($p_options[PCLZIP_OPT_BY_PREG]))
  3404 + && ($p_options[PCLZIP_OPT_BY_PREG] != "")) {
  3405 +
  3406 + if (preg_match($p_options[PCLZIP_OPT_BY_PREG], $v_header['stored_filename'])) {
  3407 + $v_extract = true;
  3408 + }
  3409 + }
  3410 +
  3411 + // ----- Look for extract by index rule
  3412 + else if ( (isset($p_options[PCLZIP_OPT_BY_INDEX]))
  3413 + && ($p_options[PCLZIP_OPT_BY_INDEX] != 0)) {
  3414 +
  3415 + // ----- Look if the index is in the list
  3416 + for ($j=$j_start; ($j<sizeof($p_options[PCLZIP_OPT_BY_INDEX])) && (!$v_extract); $j++) {
  3417 +
  3418 + if (($i>=$p_options[PCLZIP_OPT_BY_INDEX][$j]['start']) && ($i<=$p_options[PCLZIP_OPT_BY_INDEX][$j]['end'])) {
  3419 + $v_extract = true;
  3420 + }
  3421 + if ($i>=$p_options[PCLZIP_OPT_BY_INDEX][$j]['end']) {
  3422 + $j_start = $j+1;
  3423 + }
  3424 +
  3425 + if ($p_options[PCLZIP_OPT_BY_INDEX][$j]['start']>$i) {
  3426 + break;
  3427 + }
  3428 + }
  3429 + }
  3430 +
  3431 + // ----- Look for no rule, which means extract all the archive
  3432 + else {
  3433 + $v_extract = true;
  3434 + }
  3435 +
  3436 + // ----- Check compression method
  3437 + if ( ($v_extract)
  3438 + && ( ($v_header['compression'] != 8)
  3439 + && ($v_header['compression'] != 0))) {
  3440 + $v_header['status'] = 'unsupported_compression';
  3441 +
  3442 + // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
  3443 + if ( (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
  3444 + && ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {
  3445 +
  3446 + $this->privSwapBackMagicQuotes();
  3447 +
  3448 + PclZip::privErrorLog(PCLZIP_ERR_UNSUPPORTED_COMPRESSION,
  3449 + "Filename '".$v_header['stored_filename']."' is "
  3450 + ."compressed by an unsupported compression "
  3451 + ."method (".$v_header['compression'].") ");
  3452 +
  3453 + return PclZip::errorCode();
  3454 + }
  3455 + }
  3456 +
  3457 + // ----- Check encrypted files
  3458 + if (($v_extract) && (($v_header['flag'] & 1) == 1)) {
  3459 + $v_header['status'] = 'unsupported_encryption';
  3460 +
  3461 + // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
  3462 + if ( (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
  3463 + && ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {
  3464 +
  3465 + $this->privSwapBackMagicQuotes();
  3466 +
  3467 + PclZip::privErrorLog(PCLZIP_ERR_UNSUPPORTED_ENCRYPTION,
  3468 + "Unsupported encryption for "
  3469 + ." filename '".$v_header['stored_filename']
  3470 + ."'");
  3471 +
  3472 + return PclZip::errorCode();
  3473 + }
  3474 + }
  3475 +
  3476 + // ----- Look for real extraction
  3477 + if (($v_extract) && ($v_header['status'] != 'ok')) {
  3478 + $v_result = $this->privConvertHeader2FileInfo($v_header,
  3479 + $p_file_list[$v_nb_extracted++]);
  3480 + if ($v_result != 1) {
  3481 + $this->privCloseFd();
  3482 + $this->privSwapBackMagicQuotes();
  3483 + return $v_result;
  3484 + }
  3485 +
  3486 + $v_extract = false;
  3487 + }
  3488 +
  3489 + // ----- Look for real extraction
  3490 + if ($v_extract)
  3491 + {
  3492 +
  3493 + // ----- Go to the file position
  3494 + @rewind($this->zip_fd);
  3495 + if (@fseek($this->zip_fd, $v_header['offset']))
  3496 + {
  3497 + // ----- Close the zip file
  3498 + $this->privCloseFd();
  3499 +
  3500 + $this->privSwapBackMagicQuotes();
  3501 +
  3502 + // ----- Error log
  3503 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid archive size');
  3504 +
  3505 + // ----- Return
  3506 + return PclZip::errorCode();
  3507 + }
  3508 +
  3509 + // ----- Look for extraction as string
  3510 + if ($p_options[PCLZIP_OPT_EXTRACT_AS_STRING]) {
  3511 +
  3512 + $v_string = '';
  3513 +
  3514 + // ----- Extracting the file
  3515 + $v_result1 = $this->privExtractFileAsString($v_header, $v_string, $p_options);
  3516 + if ($v_result1 < 1) {
  3517 + $this->privCloseFd();
  3518 + $this->privSwapBackMagicQuotes();
  3519 + return $v_result1;
  3520 + }
  3521 +
  3522 + // ----- Get the only interesting attributes
  3523 + if (($v_result = $this->privConvertHeader2FileInfo($v_header, $p_file_list[$v_nb_extracted])) != 1)
  3524 + {
  3525 + // ----- Close the zip file
  3526 + $this->privCloseFd();
  3527 + $this->privSwapBackMagicQuotes();
  3528 +
  3529 + return $v_result;
  3530 + }
  3531 +
  3532 + // ----- Set the file content
  3533 + $p_file_list[$v_nb_extracted]['content'] = $v_string;
  3534 +
  3535 + // ----- Next extracted file
  3536 + $v_nb_extracted++;
  3537 +
  3538 + // ----- Look for user callback abort
  3539 + if ($v_result1 == 2) {
  3540 + break;
  3541 + }
  3542 + }
  3543 + // ----- Look for extraction in standard output
  3544 + elseif ( (isset($p_options[PCLZIP_OPT_EXTRACT_IN_OUTPUT]))
  3545 + && ($p_options[PCLZIP_OPT_EXTRACT_IN_OUTPUT])) {
  3546 + // ----- Extracting the file in standard output
  3547 + $v_result1 = $this->privExtractFileInOutput($v_header, $p_options);
  3548 + if ($v_result1 < 1) {
  3549 + $this->privCloseFd();
  3550 + $this->privSwapBackMagicQuotes();
  3551 + return $v_result1;
  3552 + }
  3553 +
  3554 + // ----- Get the only interesting attributes
  3555 + if (($v_result = $this->privConvertHeader2FileInfo($v_header, $p_file_list[$v_nb_extracted++])) != 1) {
  3556 + $this->privCloseFd();
  3557 + $this->privSwapBackMagicQuotes();
  3558 + return $v_result;
  3559 + }
  3560 +
  3561 + // ----- Look for user callback abort
  3562 + if ($v_result1 == 2) {
  3563 + break;
  3564 + }
  3565 + }
  3566 + // ----- Look for normal extraction
  3567 + else {
  3568 + // ----- Extracting the file
  3569 + $v_result1 = $this->privExtractFile($v_header,
  3570 + $p_path, $p_remove_path,
  3571 + $p_remove_all_path,
  3572 + $p_options);
  3573 + if ($v_result1 < 1) {
  3574 + $this->privCloseFd();
  3575 + $this->privSwapBackMagicQuotes();
  3576 + return $v_result1;
  3577 + }
  3578 +
  3579 + // ----- Get the only interesting attributes
  3580 + if (($v_result = $this->privConvertHeader2FileInfo($v_header, $p_file_list[$v_nb_extracted++])) != 1)
  3581 + {
  3582 + // ----- Close the zip file
  3583 + $this->privCloseFd();
  3584 + $this->privSwapBackMagicQuotes();
  3585 +
  3586 + return $v_result;
  3587 + }
  3588 +
  3589 + // ----- Look for user callback abort
  3590 + if ($v_result1 == 2) {
  3591 + break;
  3592 + }
  3593 + }
  3594 + }
  3595 + }
  3596 +
  3597 + // ----- Close the zip file
  3598 + $this->privCloseFd();
  3599 + $this->privSwapBackMagicQuotes();
  3600 +
  3601 + // ----- Return
  3602 + return $v_result;
  3603 + }
  3604 + // --------------------------------------------------------------------------------
  3605 +
  3606 + // --------------------------------------------------------------------------------
  3607 + // Function : privExtractFile()
  3608 + // Description :
  3609 + // Parameters :
  3610 + // Return Values :
  3611 + //
  3612 + // 1 : ... ?
  3613 + // PCLZIP_ERR_USER_ABORTED(2) : User ask for extraction stop in callback
  3614 + // --------------------------------------------------------------------------------
  3615 + function privExtractFile(&$p_entry, $p_path, $p_remove_path, $p_remove_all_path, &$p_options)
  3616 + {
  3617 + $v_result=1;
  3618 +
  3619 + // ----- Read the file header
  3620 + if (($v_result = $this->privReadFileHeader($v_header)) != 1)
  3621 + {
  3622 + // ----- Return
  3623 + return $v_result;
  3624 + }
  3625 +
  3626 +
  3627 + // ----- Check that the file header is coherent with $p_entry info
  3628 + if ($this->privCheckFileHeaders($v_header, $p_entry) != 1) {
  3629 + // TBC
  3630 + }
  3631 +
  3632 + // ----- Look for all path to remove
  3633 + if ($p_remove_all_path == true) {
  3634 + // ----- Look for folder entry that not need to be extracted
  3635 + if (($p_entry['external']&0x00000010)==0x00000010) {
  3636 +
  3637 + $p_entry['status'] = "filtered";
  3638 +
  3639 + return $v_result;
  3640 + }
  3641 +
  3642 + // ----- Get the basename of the path
  3643 + $p_entry['filename'] = basename($p_entry['filename']);
  3644 + }
  3645 +
  3646 + // ----- Look for path to remove
  3647 + else if ($p_remove_path != "")
  3648 + {
  3649 + if (PclZipUtilPathInclusion($p_remove_path, $p_entry['filename']) == 2)
  3650 + {
  3651 +
  3652 + // ----- Change the file status
  3653 + $p_entry['status'] = "filtered";
  3654 +
  3655 + // ----- Return
  3656 + return $v_result;
  3657 + }
  3658 +
  3659 + $p_remove_path_size = strlen($p_remove_path);
  3660 + if (substr($p_entry['filename'], 0, $p_remove_path_size) == $p_remove_path)
  3661 + {
  3662 +
  3663 + // ----- Remove the path
  3664 + $p_entry['filename'] = substr($p_entry['filename'], $p_remove_path_size);
  3665 +
  3666 + }
  3667 + }
  3668 +
  3669 + // ----- Add the path
  3670 + if ($p_path != '') {
  3671 + $p_entry['filename'] = $p_path."/".$p_entry['filename'];
  3672 + }
  3673 +
  3674 + // ----- Check a base_dir_restriction
  3675 + if (isset($p_options[PCLZIP_OPT_EXTRACT_DIR_RESTRICTION])) {
  3676 + $v_inclusion
  3677 + = PclZipUtilPathInclusion($p_options[PCLZIP_OPT_EXTRACT_DIR_RESTRICTION],
  3678 + $p_entry['filename']);
  3679 + if ($v_inclusion == 0) {
  3680 +
  3681 + PclZip::privErrorLog(PCLZIP_ERR_DIRECTORY_RESTRICTION,
  3682 + "Filename '".$p_entry['filename']."' is "
  3683 + ."outside PCLZIP_OPT_EXTRACT_DIR_RESTRICTION");
  3684 +
  3685 + return PclZip::errorCode();
  3686 + }
  3687 + }
  3688 +
  3689 + // ----- Look for pre-extract callback
  3690 + if (isset($p_options[PCLZIP_CB_PRE_EXTRACT])) {
  3691 +
  3692 + // ----- Generate a local information
  3693 + $v_local_header = array();
  3694 + $this->privConvertHeader2FileInfo($p_entry, $v_local_header);
  3695 +
  3696 + // ----- Call the callback
  3697 + // Here I do not use call_user_func() because I need to send a reference to the
  3698 + // header.
  3699 +// eval('$v_result = '.$p_options[PCLZIP_CB_PRE_EXTRACT].'(PCLZIP_CB_PRE_EXTRACT, $v_local_header);');
  3700 + $v_result = $p_options[PCLZIP_CB_PRE_EXTRACT](PCLZIP_CB_PRE_EXTRACT, $v_local_header);
  3701 + if ($v_result == 0) {
  3702 + // ----- Change the file status
  3703 + $p_entry['status'] = "skipped";
  3704 + $v_result = 1;
  3705 + }
  3706 +
  3707 + // ----- Look for abort result
  3708 + if ($v_result == 2) {
  3709 + // ----- This status is internal and will be changed in 'skipped'
  3710 + $p_entry['status'] = "aborted";
  3711 + $v_result = PCLZIP_ERR_USER_ABORTED;
  3712 + }
  3713 +
  3714 + // ----- Update the informations
  3715 + // Only some fields can be modified
  3716 + $p_entry['filename'] = $v_local_header['filename'];
  3717 + }
  3718 +
  3719 +
  3720 + // ----- Look if extraction should be done
  3721 + if ($p_entry['status'] == 'ok') {
  3722 +
  3723 + // ----- Look for specific actions while the file exist
  3724 + if (file_exists($p_entry['filename']))
  3725 + {
  3726 +
  3727 + // ----- Look if file is a directory
  3728 + if (is_dir($p_entry['filename']))
  3729 + {
  3730 +
  3731 + // ----- Change the file status
  3732 + $p_entry['status'] = "already_a_directory";
  3733 +
  3734 + // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
  3735 + // For historical reason first PclZip implementation does not stop
  3736 + // when this kind of error occurs.
  3737 + if ( (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
  3738 + && ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {
  3739 +
  3740 + PclZip::privErrorLog(PCLZIP_ERR_ALREADY_A_DIRECTORY,
  3741 + "Filename '".$p_entry['filename']."' is "
  3742 + ."already used by an existing directory");
  3743 +
  3744 + return PclZip::errorCode();
  3745 + }
  3746 + }
  3747 + // ----- Look if file is write protected
  3748 + else if (!is_writeable($p_entry['filename']))
  3749 + {
  3750 +
  3751 + // ----- Change the file status
  3752 + $p_entry['status'] = "write_protected";
  3753 +
  3754 + // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
  3755 + // For historical reason first PclZip implementation does not stop
  3756 + // when this kind of error occurs.
  3757 + if ( (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
  3758 + && ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {
  3759 +
  3760 + PclZip::privErrorLog(PCLZIP_ERR_WRITE_OPEN_FAIL,
  3761 + "Filename '".$p_entry['filename']."' exists "
  3762 + ."and is write protected");
  3763 +
  3764 + return PclZip::errorCode();
  3765 + }
  3766 + }
  3767 +
  3768 + // ----- Look if the extracted file is older
  3769 + else if (filemtime($p_entry['filename']) > $p_entry['mtime'])
  3770 + {
  3771 + // ----- Change the file status
  3772 + if ( (isset($p_options[PCLZIP_OPT_REPLACE_NEWER]))
  3773 + && ($p_options[PCLZIP_OPT_REPLACE_NEWER]===true)) {
  3774 + }
  3775 + else {
  3776 + $p_entry['status'] = "newer_exist";
  3777 +
  3778 + // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
  3779 + // For historical reason first PclZip implementation does not stop
  3780 + // when this kind of error occurs.
  3781 + if ( (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
  3782 + && ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {
  3783 +
  3784 + PclZip::privErrorLog(PCLZIP_ERR_WRITE_OPEN_FAIL,
  3785 + "Newer version of '".$p_entry['filename']."' exists "
  3786 + ."and option PCLZIP_OPT_REPLACE_NEWER is not selected");
  3787 +
  3788 + return PclZip::errorCode();
  3789 + }
  3790 + }
  3791 + }
  3792 + else {
  3793 + }
  3794 + }
  3795 +
  3796 + // ----- Check the directory availability and create it if necessary
  3797 + else {
  3798 + if ((($p_entry['external']&0x00000010)==0x00000010) || (substr($p_entry['filename'], -1) == '/'))
  3799 + $v_dir_to_check = $p_entry['filename'];
  3800 + else if (!strstr($p_entry['filename'], "/"))
  3801 + $v_dir_to_check = "";
  3802 + else
  3803 + $v_dir_to_check = dirname($p_entry['filename']);
  3804 +
  3805 + if (($v_result = $this->privDirCheck($v_dir_to_check, (($p_entry['external']&0x00000010)==0x00000010))) != 1) {
  3806 +
  3807 + // ----- Change the file status
  3808 + $p_entry['status'] = "path_creation_fail";
  3809 +
  3810 + // ----- Return
  3811 + //return $v_result;
  3812 + $v_result = 1;
  3813 + }
  3814 + }
  3815 + }
  3816 +
  3817 + // ----- Look if extraction should be done
  3818 + if ($p_entry['status'] == 'ok') {
  3819 +
  3820 + // ----- Do the extraction (if not a folder)
  3821 + if (!(($p_entry['external']&0x00000010)==0x00000010))
  3822 + {
  3823 + // ----- Look for not compressed file
  3824 + if ($p_entry['compression'] == 0) {
  3825 +
  3826 + // ----- Opening destination file
  3827 + if (($v_dest_file = @fopen($p_entry['filename'], 'wb')) == 0)
  3828 + {
  3829 +
  3830 + // ----- Change the file status
  3831 + $p_entry['status'] = "write_error";
  3832 +
  3833 + // ----- Return
  3834 + return $v_result;
  3835 + }
  3836 +
  3837 +
  3838 + // ----- Read the file by PCLZIP_READ_BLOCK_SIZE octets blocks
  3839 + $v_size = $p_entry['compressed_size'];
  3840 + while ($v_size != 0)
  3841 + {
  3842 + $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
  3843 + $v_buffer = @fread($this->zip_fd, $v_read_size);
  3844 + /* Try to speed up the code
  3845 + $v_binary_data = pack('a'.$v_read_size, $v_buffer);
  3846 + @fwrite($v_dest_file, $v_binary_data, $v_read_size);
  3847 + */
  3848 + @fwrite($v_dest_file, $v_buffer, $v_read_size);
  3849 + $v_size -= $v_read_size;
  3850 + }
  3851 +
  3852 + // ----- Closing the destination file
  3853 + fclose($v_dest_file);
  3854 +
  3855 + // ----- Change the file mtime
  3856 + touch($p_entry['filename'], $p_entry['mtime']);
  3857 +
  3858 +
  3859 + }
  3860 + else {
  3861 + // ----- TBC
  3862 + // Need to be finished
  3863 + if (($p_entry['flag'] & 1) == 1) {
  3864 + PclZip::privErrorLog(PCLZIP_ERR_UNSUPPORTED_ENCRYPTION, 'File \''.$p_entry['filename'].'\' is encrypted. Encrypted files are not supported.');
  3865 + return PclZip::errorCode();
  3866 + }
  3867 +
  3868 +
  3869 + // ----- Look for using temporary file to unzip
  3870 + if ( (!isset($p_options[PCLZIP_OPT_TEMP_FILE_OFF]))
  3871 + && (isset($p_options[PCLZIP_OPT_TEMP_FILE_ON])
  3872 + || (isset($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD])
  3873 + && ($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD] <= $p_entry['size'])) ) ) {
  3874 + $v_result = $this->privExtractFileUsingTempFile($p_entry, $p_options);
  3875 + if ($v_result < PCLZIP_ERR_NO_ERROR) {
  3876 + return $v_result;
  3877 + }
  3878 + }
  3879 +
  3880 + // ----- Look for extract in memory
  3881 + else {
  3882 +
  3883 +
  3884 + // ----- Read the compressed file in a buffer (one shot)
  3885 + $v_buffer = @fread($this->zip_fd, $p_entry['compressed_size']);
  3886 +
  3887 + // ----- Decompress the file
  3888 + $v_file_content = @gzinflate($v_buffer);
  3889 + unset($v_buffer);
  3890 + if ($v_file_content === FALSE) {
  3891 +
  3892 + // ----- Change the file status
  3893 + // TBC
  3894 + $p_entry['status'] = "error";
  3895 +
  3896 + return $v_result;
  3897 + }
  3898 +
  3899 + // ----- Opening destination file
  3900 + if (($v_dest_file = @fopen($p_entry['filename'], 'wb')) == 0) {
  3901 +
  3902 + // ----- Change the file status
  3903 + $p_entry['status'] = "write_error";
  3904 +
  3905 + return $v_result;
  3906 + }
  3907 +
  3908 + // ----- Write the uncompressed data
  3909 + @fwrite($v_dest_file, $v_file_content, $p_entry['size']);
  3910 + unset($v_file_content);
  3911 +
  3912 + // ----- Closing the destination file
  3913 + @fclose($v_dest_file);
  3914 +
  3915 + }
  3916 +
  3917 + // ----- Change the file mtime
  3918 + @touch($p_entry['filename'], $p_entry['mtime']);
  3919 + }
  3920 +
  3921 + // ----- Look for chmod option
  3922 + if (isset($p_options[PCLZIP_OPT_SET_CHMOD])) {
  3923 +
  3924 + // ----- Change the mode of the file
  3925 + @chmod($p_entry['filename'], $p_options[PCLZIP_OPT_SET_CHMOD]);
  3926 + }
  3927 +
  3928 + }
  3929 + }
  3930 +
  3931 + // ----- Change abort status
  3932 + if ($p_entry['status'] == "aborted") {
  3933 + $p_entry['status'] = "skipped";
  3934 + }
  3935 +
  3936 + // ----- Look for post-extract callback
  3937 + elseif (isset($p_options[PCLZIP_CB_POST_EXTRACT])) {
  3938 +
  3939 + // ----- Generate a local information
  3940 + $v_local_header = array();
  3941 + $this->privConvertHeader2FileInfo($p_entry, $v_local_header);
  3942 +
  3943 + // ----- Call the callback
  3944 + // Here I do not use call_user_func() because I need to send a reference to the
  3945 + // header.
  3946 +// eval('$v_result = '.$p_options[PCLZIP_CB_POST_EXTRACT].'(PCLZIP_CB_POST_EXTRACT, $v_local_header);');
  3947 + $v_result = $p_options[PCLZIP_CB_POST_EXTRACT](PCLZIP_CB_POST_EXTRACT, $v_local_header);
  3948 +
  3949 + // ----- Look for abort result
  3950 + if ($v_result == 2) {
  3951 + $v_result = PCLZIP_ERR_USER_ABORTED;
  3952 + }
  3953 + }
  3954 +
  3955 + // ----- Return
  3956 + return $v_result;
  3957 + }
  3958 + // --------------------------------------------------------------------------------
  3959 +
  3960 + // --------------------------------------------------------------------------------
  3961 + // Function : privExtractFileUsingTempFile()
  3962 + // Description :
  3963 + // Parameters :
  3964 + // Return Values :
  3965 + // --------------------------------------------------------------------------------
  3966 + function privExtractFileUsingTempFile(&$p_entry, &$p_options)
  3967 + {
  3968 + $v_result=1;
  3969 +
  3970 + // ----- Creates a temporary file
  3971 + $v_gzip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid('pclzip-').'.gz';
  3972 + if (($v_dest_file = @fopen($v_gzip_temp_name, "wb")) == 0) {
  3973 + fclose($v_file);
  3974 + PclZip::privErrorLog(PCLZIP_ERR_WRITE_OPEN_FAIL, 'Unable to open temporary file \''.$v_gzip_temp_name.'\' in binary write mode');
  3975 + return PclZip::errorCode();
  3976 + }
  3977 +
  3978 +
  3979 + // ----- Write gz file format header
  3980 + $v_binary_data = pack('va1a1Va1a1', 0x8b1f, Chr($p_entry['compression']), Chr(0x00), time(), Chr(0x00), Chr(3));
  3981 + @fwrite($v_dest_file, $v_binary_data, 10);
  3982 +
  3983 + // ----- Read the file by PCLZIP_READ_BLOCK_SIZE octets blocks
  3984 + $v_size = $p_entry['compressed_size'];
  3985 + while ($v_size != 0)
  3986 + {
  3987 + $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
  3988 + $v_buffer = @fread($this->zip_fd, $v_read_size);
  3989 + //$v_binary_data = pack('a'.$v_read_size, $v_buffer);
  3990 + @fwrite($v_dest_file, $v_buffer, $v_read_size);
  3991 + $v_size -= $v_read_size;
  3992 + }
  3993 +
  3994 + // ----- Write gz file format footer
  3995 + $v_binary_data = pack('VV', $p_entry['crc'], $p_entry['size']);
  3996 + @fwrite($v_dest_file, $v_binary_data, 8);
  3997 +
  3998 + // ----- Close the temporary file
  3999 + @fclose($v_dest_file);
  4000 +
  4001 + // ----- Opening destination file
  4002 + if (($v_dest_file = @fopen($p_entry['filename'], 'wb')) == 0) {
  4003 + $p_entry['status'] = "write_error";
  4004 + return $v_result;
  4005 + }
  4006 +
  4007 + // ----- Open the temporary gz file
  4008 + if (($v_src_file = @gzopen($v_gzip_temp_name, 'rb')) == 0) {
  4009 + @fclose($v_dest_file);
  4010 + $p_entry['status'] = "read_error";
  4011 + PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \''.$v_gzip_temp_name.'\' in binary read mode');
  4012 + return PclZip::errorCode();
  4013 + }
  4014 +
  4015 +
  4016 + // ----- Read the file by PCLZIP_READ_BLOCK_SIZE octets blocks
  4017 + $v_size = $p_entry['size'];
  4018 + while ($v_size != 0) {
  4019 + $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
  4020 + $v_buffer = @gzread($v_src_file, $v_read_size);
  4021 + //$v_binary_data = pack('a'.$v_read_size, $v_buffer);
  4022 + @fwrite($v_dest_file, $v_buffer, $v_read_size);
  4023 + $v_size -= $v_read_size;
  4024 + }
  4025 + @fclose($v_dest_file);
  4026 + @gzclose($v_src_file);
  4027 +
  4028 + // ----- Delete the temporary file
  4029 + @unlink($v_gzip_temp_name);
  4030 +
  4031 + // ----- Return
  4032 + return $v_result;
  4033 + }
  4034 + // --------------------------------------------------------------------------------
  4035 +
  4036 + // --------------------------------------------------------------------------------
  4037 + // Function : privExtractFileInOutput()
  4038 + // Description :
  4039 + // Parameters :
  4040 + // Return Values :
  4041 + // --------------------------------------------------------------------------------
  4042 + function privExtractFileInOutput(&$p_entry, &$p_options)
  4043 + {
  4044 + $v_result=1;
  4045 +
  4046 + // ----- Read the file header
  4047 + if (($v_result = $this->privReadFileHeader($v_header)) != 1) {
  4048 + return $v_result;
  4049 + }
  4050 +
  4051 +
  4052 + // ----- Check that the file header is coherent with $p_entry info
  4053 + if ($this->privCheckFileHeaders($v_header, $p_entry) != 1) {
  4054 + // TBC
  4055 + }
  4056 +
  4057 + // ----- Look for pre-extract callback
  4058 + if (isset($p_options[PCLZIP_CB_PRE_EXTRACT])) {
  4059 +
  4060 + // ----- Generate a local information
  4061 + $v_local_header = array();
  4062 + $this->privConvertHeader2FileInfo($p_entry, $v_local_header);
  4063 +
  4064 + // ----- Call the callback
  4065 + // Here I do not use call_user_func() because I need to send a reference to the
  4066 + // header.
  4067 +// eval('$v_result = '.$p_options[PCLZIP_CB_PRE_EXTRACT].'(PCLZIP_CB_PRE_EXTRACT, $v_local_header);');
  4068 + $v_result = $p_options[PCLZIP_CB_PRE_EXTRACT](PCLZIP_CB_PRE_EXTRACT, $v_local_header);
  4069 + if ($v_result == 0) {
  4070 + // ----- Change the file status
  4071 + $p_entry['status'] = "skipped";
  4072 + $v_result = 1;
  4073 + }
  4074 +
  4075 + // ----- Look for abort result
  4076 + if ($v_result == 2) {
  4077 + // ----- This status is internal and will be changed in 'skipped'
  4078 + $p_entry['status'] = "aborted";
  4079 + $v_result = PCLZIP_ERR_USER_ABORTED;
  4080 + }
  4081 +
  4082 + // ----- Update the informations
  4083 + // Only some fields can be modified
  4084 + $p_entry['filename'] = $v_local_header['filename'];
  4085 + }
  4086 +
  4087 + // ----- Trace
  4088 +
  4089 + // ----- Look if extraction should be done
  4090 + if ($p_entry['status'] == 'ok') {
  4091 +
  4092 + // ----- Do the extraction (if not a folder)
  4093 + if (!(($p_entry['external']&0x00000010)==0x00000010)) {
  4094 + // ----- Look for not compressed file
  4095 + if ($p_entry['compressed_size'] == $p_entry['size']) {
  4096 +
  4097 + // ----- Read the file in a buffer (one shot)
  4098 + $v_buffer = @fread($this->zip_fd, $p_entry['compressed_size']);
  4099 +
  4100 + // ----- Send the file to the output
  4101 + echo $v_buffer;
  4102 + unset($v_buffer);
  4103 + }
  4104 + else {
  4105 +
  4106 + // ----- Read the compressed file in a buffer (one shot)
  4107 + $v_buffer = @fread($this->zip_fd, $p_entry['compressed_size']);
  4108 +
  4109 + // ----- Decompress the file
  4110 + $v_file_content = gzinflate($v_buffer);
  4111 + unset($v_buffer);
  4112 +
  4113 + // ----- Send the file to the output
  4114 + echo $v_file_content;
  4115 + unset($v_file_content);
  4116 + }
  4117 + }
  4118 + }
  4119 +
  4120 + // ----- Change abort status
  4121 + if ($p_entry['status'] == "aborted") {
  4122 + $p_entry['status'] = "skipped";
  4123 + }
  4124 +
  4125 + // ----- Look for post-extract callback
  4126 + elseif (isset($p_options[PCLZIP_CB_POST_EXTRACT])) {
  4127 +
  4128 + // ----- Generate a local information
  4129 + $v_local_header = array();
  4130 + $this->privConvertHeader2FileInfo($p_entry, $v_local_header);
  4131 +
  4132 + // ----- Call the callback
  4133 + // Here I do not use call_user_func() because I need to send a reference to the
  4134 + // header.
  4135 +// eval('$v_result = '.$p_options[PCLZIP_CB_POST_EXTRACT].'(PCLZIP_CB_POST_EXTRACT, $v_local_header);');
  4136 + $v_result = $p_options[PCLZIP_CB_POST_EXTRACT](PCLZIP_CB_POST_EXTRACT, $v_local_header);
  4137 +
  4138 + // ----- Look for abort result
  4139 + if ($v_result == 2) {
  4140 + $v_result = PCLZIP_ERR_USER_ABORTED;
  4141 + }
  4142 + }
  4143 +
  4144 + return $v_result;
  4145 + }
  4146 + // --------------------------------------------------------------------------------
  4147 +
  4148 + // --------------------------------------------------------------------------------
  4149 + // Function : privExtractFileAsString()
  4150 + // Description :
  4151 + // Parameters :
  4152 + // Return Values :
  4153 + // --------------------------------------------------------------------------------
  4154 + function privExtractFileAsString(&$p_entry, &$p_string, &$p_options)
  4155 + {
  4156 + $v_result=1;
  4157 +
  4158 + // ----- Read the file header
  4159 + $v_header = array();
  4160 + if (($v_result = $this->privReadFileHeader($v_header)) != 1)
  4161 + {
  4162 + // ----- Return
  4163 + return $v_result;
  4164 + }
  4165 +
  4166 +
  4167 + // ----- Check that the file header is coherent with $p_entry info
  4168 + if ($this->privCheckFileHeaders($v_header, $p_entry) != 1) {
  4169 + // TBC
  4170 + }
  4171 +
  4172 + // ----- Look for pre-extract callback
  4173 + if (isset($p_options[PCLZIP_CB_PRE_EXTRACT])) {
  4174 +
  4175 + // ----- Generate a local information
  4176 + $v_local_header = array();
  4177 + $this->privConvertHeader2FileInfo($p_entry, $v_local_header);
  4178 +
  4179 + // ----- Call the callback
  4180 + // Here I do not use call_user_func() because I need to send a reference to the
  4181 + // header.
  4182 +// eval('$v_result = '.$p_options[PCLZIP_CB_PRE_EXTRACT].'(PCLZIP_CB_PRE_EXTRACT, $v_local_header);');
  4183 + $v_result = $p_options[PCLZIP_CB_PRE_EXTRACT](PCLZIP_CB_PRE_EXTRACT, $v_local_header);
  4184 + if ($v_result == 0) {
  4185 + // ----- Change the file status
  4186 + $p_entry['status'] = "skipped";
  4187 + $v_result = 1;
  4188 + }
  4189 +
  4190 + // ----- Look for abort result
  4191 + if ($v_result == 2) {
  4192 + // ----- This status is internal and will be changed in 'skipped'
  4193 + $p_entry['status'] = "aborted";
  4194 + $v_result = PCLZIP_ERR_USER_ABORTED;
  4195 + }
  4196 +
  4197 + // ----- Update the informations
  4198 + // Only some fields can be modified
  4199 + $p_entry['filename'] = $v_local_header['filename'];
  4200 + }
  4201 +
  4202 +
  4203 + // ----- Look if extraction should be done
  4204 + if ($p_entry['status'] == 'ok') {
  4205 +
  4206 + // ----- Do the extraction (if not a folder)
  4207 + if (!(($p_entry['external']&0x00000010)==0x00000010)) {
  4208 + // ----- Look for not compressed file
  4209 + // if ($p_entry['compressed_size'] == $p_entry['size'])
  4210 + if ($p_entry['compression'] == 0) {
  4211 +
  4212 + // ----- Reading the file
  4213 + $p_string = @fread($this->zip_fd, $p_entry['compressed_size']);
  4214 + }
  4215 + else {
  4216 +
  4217 + // ----- Reading the file
  4218 + $v_data = @fread($this->zip_fd, $p_entry['compressed_size']);
  4219 +
  4220 + // ----- Decompress the file
  4221 + if (($p_string = @gzinflate($v_data)) === FALSE) {
  4222 + // TBC
  4223 + }
  4224 + }
  4225 +
  4226 + // ----- Trace
  4227 + }
  4228 + else {
  4229 + // TBC : error : can not extract a folder in a string
  4230 + }
  4231 +
  4232 + }
  4233 +
  4234 + // ----- Change abort status
  4235 + if ($p_entry['status'] == "aborted") {
  4236 + $p_entry['status'] = "skipped";
  4237 + }
  4238 +
  4239 + // ----- Look for post-extract callback
  4240 + elseif (isset($p_options[PCLZIP_CB_POST_EXTRACT])) {
  4241 +
  4242 + // ----- Generate a local information
  4243 + $v_local_header = array();
  4244 + $this->privConvertHeader2FileInfo($p_entry, $v_local_header);
  4245 +
  4246 + // ----- Swap the content to header
  4247 + $v_local_header['content'] = $p_string;
  4248 + $p_string = '';
  4249 +
  4250 + // ----- Call the callback
  4251 + // Here I do not use call_user_func() because I need to send a reference to the
  4252 + // header.
  4253 +// eval('$v_result = '.$p_options[PCLZIP_CB_POST_EXTRACT].'(PCLZIP_CB_POST_EXTRACT, $v_local_header);');
  4254 + $v_result = $p_options[PCLZIP_CB_POST_EXTRACT](PCLZIP_CB_POST_EXTRACT, $v_local_header);
  4255 +
  4256 + // ----- Swap back the content to header
  4257 + $p_string = $v_local_header['content'];
  4258 + unset($v_local_header['content']);
  4259 +
  4260 + // ----- Look for abort result
  4261 + if ($v_result == 2) {
  4262 + $v_result = PCLZIP_ERR_USER_ABORTED;
  4263 + }
  4264 + }
  4265 +
  4266 + // ----- Return
  4267 + return $v_result;
  4268 + }
  4269 + // --------------------------------------------------------------------------------
  4270 +
  4271 + // --------------------------------------------------------------------------------
  4272 + // Function : privReadFileHeader()
  4273 + // Description :
  4274 + // Parameters :
  4275 + // Return Values :
  4276 + // --------------------------------------------------------------------------------
  4277 + function privReadFileHeader(&$p_header)
  4278 + {
  4279 + $v_result=1;
  4280 +
  4281 + // ----- Read the 4 bytes signature
  4282 + $v_binary_data = @fread($this->zip_fd, 4);
  4283 + $v_data = unpack('Vid', $v_binary_data);
  4284 +
  4285 + // ----- Check signature
  4286 + if ($v_data['id'] != 0x04034b50)
  4287 + {
  4288 +
  4289 + // ----- Error log
  4290 + PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'Invalid archive structure');
  4291 +
  4292 + // ----- Return
  4293 + return PclZip::errorCode();
  4294 + }
  4295 +
  4296 + // ----- Read the first 42 bytes of the header
  4297 + $v_binary_data = fread($this->zip_fd, 26);
  4298 +
  4299 + // ----- Look for invalid block size
  4300 + if (strlen($v_binary_data) != 26)
  4301 + {
  4302 + $p_header['filename'] = "";
  4303 + $p_header['status'] = "invalid_header";
  4304 +
  4305 + // ----- Error log
  4306 + PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, "Invalid block size : ".strlen($v_binary_data));
  4307 +
  4308 + // ----- Return
  4309 + return PclZip::errorCode();
  4310 + }
  4311 +
  4312 + // ----- Extract the values
  4313 + $v_data = unpack('vversion/vflag/vcompression/vmtime/vmdate/Vcrc/Vcompressed_size/Vsize/vfilename_len/vextra_len', $v_binary_data);
  4314 +
  4315 + // ----- Get filename
  4316 + $p_header['filename'] = fread($this->zip_fd, $v_data['filename_len']);
  4317 +
  4318 + // ----- Get extra_fields
  4319 + if ($v_data['extra_len'] != 0) {
  4320 + $p_header['extra'] = fread($this->zip_fd, $v_data['extra_len']);
  4321 + }
  4322 + else {
  4323 + $p_header['extra'] = '';
  4324 + }
  4325 +
  4326 + // ----- Extract properties
  4327 + $p_header['version_extracted'] = $v_data['version'];
  4328 + $p_header['compression'] = $v_data['compression'];
  4329 + $p_header['size'] = $v_data['size'];
  4330 + $p_header['compressed_size'] = $v_data['compressed_size'];
  4331 + $p_header['crc'] = $v_data['crc'];
  4332 + $p_header['flag'] = $v_data['flag'];
  4333 + $p_header['filename_len'] = $v_data['filename_len'];
  4334 +
  4335 + // ----- Recuperate date in UNIX format
  4336 + $p_header['mdate'] = $v_data['mdate'];
  4337 + $p_header['mtime'] = $v_data['mtime'];
  4338 + if ($p_header['mdate'] && $p_header['mtime'])
  4339 + {
  4340 + // ----- Extract time
  4341 + $v_hour = ($p_header['mtime'] & 0xF800) >> 11;
  4342 + $v_minute = ($p_header['mtime'] & 0x07E0) >> 5;
  4343 + $v_seconde = ($p_header['mtime'] & 0x001F)*2;
  4344 +
  4345 + // ----- Extract date
  4346 + $v_year = (($p_header['mdate'] & 0xFE00) >> 9) + 1980;
  4347 + $v_month = ($p_header['mdate'] & 0x01E0) >> 5;
  4348 + $v_day = $p_header['mdate'] & 0x001F;
  4349 +
  4350 + // ----- Get UNIX date format
  4351 + $p_header['mtime'] = @mktime($v_hour, $v_minute, $v_seconde, $v_month, $v_day, $v_year);
  4352 +
  4353 + }
  4354 + else
  4355 + {
  4356 + $p_header['mtime'] = time();
  4357 + }
  4358 +
  4359 + // TBC
  4360 + //for(reset($v_data); $key = key($v_data); next($v_data)) {
  4361 + //}
  4362 +
  4363 + // ----- Set the stored filename
  4364 + $p_header['stored_filename'] = $p_header['filename'];
  4365 +
  4366 + // ----- Set the status field
  4367 + $p_header['status'] = "ok";
  4368 +
  4369 + // ----- Return
  4370 + return $v_result;
  4371 + }
  4372 + // --------------------------------------------------------------------------------
  4373 +
  4374 + // --------------------------------------------------------------------------------
  4375 + // Function : privReadCentralFileHeader()
  4376 + // Description :
  4377 + // Parameters :
  4378 + // Return Values :
  4379 + // --------------------------------------------------------------------------------
  4380 + function privReadCentralFileHeader(&$p_header)
  4381 + {
  4382 + $v_result=1;
  4383 +
  4384 + // ----- Read the 4 bytes signature
  4385 + $v_binary_data = @fread($this->zip_fd, 4);
  4386 + $v_data = unpack('Vid', $v_binary_data);
  4387 +
  4388 + // ----- Check signature
  4389 + if ($v_data['id'] != 0x02014b50)
  4390 + {
  4391 +
  4392 + // ----- Error log
  4393 + PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'Invalid archive structure');
  4394 +
  4395 + // ----- Return
  4396 + return PclZip::errorCode();
  4397 + }
  4398 +
  4399 + // ----- Read the first 42 bytes of the header
  4400 + $v_binary_data = fread($this->zip_fd, 42);
  4401 +
  4402 + // ----- Look for invalid block size
  4403 + if (strlen($v_binary_data) != 42)
  4404 + {
  4405 + $p_header['filename'] = "";
  4406 + $p_header['status'] = "invalid_header";
  4407 +
  4408 + // ----- Error log
  4409 + PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, "Invalid block size : ".strlen($v_binary_data));
  4410 +
  4411 + // ----- Return
  4412 + return PclZip::errorCode();
  4413 + }
  4414 +
  4415 + // ----- Extract the values
  4416 + $p_header = unpack('vversion/vversion_extracted/vflag/vcompression/vmtime/vmdate/Vcrc/Vcompressed_size/Vsize/vfilename_len/vextra_len/vcomment_len/vdisk/vinternal/Vexternal/Voffset', $v_binary_data);
  4417 +
  4418 + // ----- Get filename
  4419 + if ($p_header['filename_len'] != 0)
  4420 + $p_header['filename'] = fread($this->zip_fd, $p_header['filename_len']);
  4421 + else
  4422 + $p_header['filename'] = '';
  4423 +
  4424 + // ----- Get extra
  4425 + if ($p_header['extra_len'] != 0)
  4426 + $p_header['extra'] = fread($this->zip_fd, $p_header['extra_len']);
  4427 + else
  4428 + $p_header['extra'] = '';
  4429 +
  4430 + // ----- Get comment
  4431 + if ($p_header['comment_len'] != 0)
  4432 + $p_header['comment'] = fread($this->zip_fd, $p_header['comment_len']);
  4433 + else
  4434 + $p_header['comment'] = '';
  4435 +
  4436 + // ----- Extract properties
  4437 +
  4438 + // ----- Recuperate date in UNIX format
  4439 + //if ($p_header['mdate'] && $p_header['mtime'])
  4440 + // TBC : bug : this was ignoring time with 0/0/0
  4441 + if (1)
  4442 + {
  4443 + // ----- Extract time
  4444 + $v_hour = ($p_header['mtime'] & 0xF800) >> 11;
  4445 + $v_minute = ($p_header['mtime'] & 0x07E0) >> 5;
  4446 + $v_seconde = ($p_header['mtime'] & 0x001F)*2;
  4447 +
  4448 + // ----- Extract date
  4449 + $v_year = (($p_header['mdate'] & 0xFE00) >> 9) + 1980;
  4450 + $v_month = ($p_header['mdate'] & 0x01E0) >> 5;
  4451 + $v_day = $p_header['mdate'] & 0x001F;
  4452 +
  4453 + // ----- Get UNIX date format
  4454 + $p_header['mtime'] = @mktime($v_hour, $v_minute, $v_seconde, $v_month, $v_day, $v_year);
  4455 +
  4456 + }
  4457 + else
  4458 + {
  4459 + $p_header['mtime'] = time();
  4460 + }
  4461 +
  4462 + // ----- Set the stored filename
  4463 + $p_header['stored_filename'] = $p_header['filename'];
  4464 +
  4465 + // ----- Set default status to ok
  4466 + $p_header['status'] = 'ok';
  4467 +
  4468 + // ----- Look if it is a directory
  4469 + if (substr($p_header['filename'], -1) == '/') {
  4470 + //$p_header['external'] = 0x41FF0010;
  4471 + $p_header['external'] = 0x00000010;
  4472 + }
  4473 +
  4474 +
  4475 + // ----- Return
  4476 + return $v_result;
  4477 + }
  4478 + // --------------------------------------------------------------------------------
  4479 +
  4480 + // --------------------------------------------------------------------------------
  4481 + // Function : privCheckFileHeaders()
  4482 + // Description :
  4483 + // Parameters :
  4484 + // Return Values :
  4485 + // 1 on success,
  4486 + // 0 on error;
  4487 + // --------------------------------------------------------------------------------
  4488 + function privCheckFileHeaders(&$p_local_header, &$p_central_header)
  4489 + {
  4490 + $v_result=1;
  4491 +
  4492 + // ----- Check the static values
  4493 + // TBC
  4494 + if ($p_local_header['filename'] != $p_central_header['filename']) {
  4495 + }
  4496 + if ($p_local_header['version_extracted'] != $p_central_header['version_extracted']) {
  4497 + }
  4498 + if ($p_local_header['flag'] != $p_central_header['flag']) {
  4499 + }
  4500 + if ($p_local_header['compression'] != $p_central_header['compression']) {
  4501 + }
  4502 + if ($p_local_header['mtime'] != $p_central_header['mtime']) {
  4503 + }
  4504 + if ($p_local_header['filename_len'] != $p_central_header['filename_len']) {
  4505 + }
  4506 +
  4507 + // ----- Look for flag bit 3
  4508 + if (($p_local_header['flag'] & 8) == 8) {
  4509 + $p_local_header['size'] = $p_central_header['size'];
  4510 + $p_local_header['compressed_size'] = $p_central_header['compressed_size'];
  4511 + $p_local_header['crc'] = $p_central_header['crc'];
  4512 + }
  4513 +
  4514 + // ----- Return
  4515 + return $v_result;
  4516 + }
  4517 + // --------------------------------------------------------------------------------
  4518 +
  4519 + // --------------------------------------------------------------------------------
  4520 + // Function : privReadEndCentralDir()
  4521 + // Description :
  4522 + // Parameters :
  4523 + // Return Values :
  4524 + // --------------------------------------------------------------------------------
  4525 + function privReadEndCentralDir(&$p_central_dir)
  4526 + {
  4527 + $v_result=1;
  4528 +
  4529 + // ----- Go to the end of the zip file
  4530 + $v_size = filesize($this->zipname);
  4531 + @fseek($this->zip_fd, $v_size);
  4532 + if (@ftell($this->zip_fd) != $v_size)
  4533 + {
  4534 + // ----- Error log
  4535 + PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'Unable to go to the end of the archive \''.$this->zipname.'\'');
  4536 +
  4537 + // ----- Return
  4538 + return PclZip::errorCode();
  4539 + }
  4540 +
  4541 + // ----- First try : look if this is an archive with no commentaries (most of the time)
  4542 + // in this case the end of central dir is at 22 bytes of the file end
  4543 + $v_found = 0;
  4544 + if ($v_size > 26) {
  4545 + @fseek($this->zip_fd, $v_size-22);
  4546 + if (($v_pos = @ftell($this->zip_fd)) != ($v_size-22))
  4547 + {
  4548 + // ----- Error log
  4549 + PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'Unable to seek back to the middle of the archive \''.$this->zipname.'\'');
  4550 +
  4551 + // ----- Return
  4552 + return PclZip::errorCode();
  4553 + }
  4554 +
  4555 + // ----- Read for bytes
  4556 + $v_binary_data = @fread($this->zip_fd, 4);
  4557 + $v_data = @unpack('Vid', $v_binary_data);
  4558 +
  4559 + // ----- Check signature
  4560 + if ($v_data['id'] == 0x06054b50) {
  4561 + $v_found = 1;
  4562 + }
  4563 +
  4564 + $v_pos = ftell($this->zip_fd);
  4565 + }
  4566 +
  4567 + // ----- Go back to the maximum possible size of the Central Dir End Record
  4568 + if (!$v_found) {
  4569 + $v_maximum_size = 65557; // 0xFFFF + 22;
  4570 + if ($v_maximum_size > $v_size)
  4571 + $v_maximum_size = $v_size;
  4572 + @fseek($this->zip_fd, $v_size-$v_maximum_size);
  4573 + if (@ftell($this->zip_fd) != ($v_size-$v_maximum_size))
  4574 + {
  4575 + // ----- Error log
  4576 + PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'Unable to seek back to the middle of the archive \''.$this->zipname.'\'');
  4577 +
  4578 + // ----- Return
  4579 + return PclZip::errorCode();
  4580 + }
  4581 +
  4582 + // ----- Read byte per byte in order to find the signature
  4583 + $v_pos = ftell($this->zip_fd);
  4584 + $v_bytes = 0x00000000;
  4585 + while ($v_pos < $v_size)
  4586 + {
  4587 + // ----- Read a byte
  4588 + $v_byte = @fread($this->zip_fd, 1);
  4589 +
  4590 + // ----- Add the byte
  4591 + //$v_bytes = ($v_bytes << 8) | Ord($v_byte);
  4592 + // Note we mask the old value down such that once shifted we can never end up with more than a 32bit number
  4593 + // Otherwise on systems where we have 64bit integers the check below for the magic number will fail.
  4594 + $v_bytes = ( ($v_bytes & 0xFFFFFF) << 8) | Ord($v_byte);
  4595 +
  4596 + // ----- Compare the bytes
  4597 + if ($v_bytes == 0x504b0506)
  4598 + {
  4599 + $v_pos++;
  4600 + break;
  4601 + }
  4602 +
  4603 + $v_pos++;
  4604 + }
  4605 +
  4606 + // ----- Look if not found end of central dir
  4607 + if ($v_pos == $v_size)
  4608 + {
  4609 +
  4610 + // ----- Error log
  4611 + PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, "Unable to find End of Central Dir Record signature");
  4612 +
  4613 + // ----- Return
  4614 + return PclZip::errorCode();
  4615 + }
  4616 + }
  4617 +
  4618 + // ----- Read the first 18 bytes of the header
  4619 + $v_binary_data = fread($this->zip_fd, 18);
  4620 +
  4621 + // ----- Look for invalid block size
  4622 + if (strlen($v_binary_data) != 18)
  4623 + {
  4624 +
  4625 + // ----- Error log
  4626 + PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, "Invalid End of Central Dir Record size : ".strlen($v_binary_data));
  4627 +
  4628 + // ----- Return
  4629 + return PclZip::errorCode();
  4630 + }
  4631 +
  4632 + // ----- Extract the values
  4633 + $v_data = unpack('vdisk/vdisk_start/vdisk_entries/ventries/Vsize/Voffset/vcomment_size', $v_binary_data);
  4634 +
  4635 + // ----- Check the global size
  4636 + if (($v_pos + $v_data['comment_size'] + 18) != $v_size) {
  4637 +
  4638 + // ----- Removed in release 2.2 see readme file
  4639 + // The check of the file size is a little too strict.
  4640 + // Some bugs where found when a zip is encrypted/decrypted with 'crypt'.
  4641 + // While decrypted, zip has training 0 bytes
  4642 + if (0) {
  4643 + // ----- Error log
  4644 + PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT,
  4645 + 'The central dir is not at the end of the archive.'
  4646 + .' Some trailing bytes exists after the archive.');
  4647 +
  4648 + // ----- Return
  4649 + return PclZip::errorCode();
  4650 + }
  4651 + }
  4652 +
  4653 + // ----- Get comment
  4654 + if ($v_data['comment_size'] != 0) {
  4655 + $p_central_dir['comment'] = fread($this->zip_fd, $v_data['comment_size']);
  4656 + }
  4657 + else
  4658 + $p_central_dir['comment'] = '';
  4659 +
  4660 + $p_central_dir['entries'] = $v_data['entries'];
  4661 + $p_central_dir['disk_entries'] = $v_data['disk_entries'];
  4662 + $p_central_dir['offset'] = $v_data['offset'];
  4663 + $p_central_dir['size'] = $v_data['size'];
  4664 + $p_central_dir['disk'] = $v_data['disk'];
  4665 + $p_central_dir['disk_start'] = $v_data['disk_start'];
  4666 +
  4667 + // TBC
  4668 + //for(reset($p_central_dir); $key = key($p_central_dir); next($p_central_dir)) {
  4669 + //}
  4670 +
  4671 + // ----- Return
  4672 + return $v_result;
  4673 + }
  4674 + // --------------------------------------------------------------------------------
  4675 +
  4676 + // --------------------------------------------------------------------------------
  4677 + // Function : privDeleteByRule()
  4678 + // Description :
  4679 + // Parameters :
  4680 + // Return Values :
  4681 + // --------------------------------------------------------------------------------
  4682 + function privDeleteByRule(&$p_result_list, &$p_options)
  4683 + {
  4684 + $v_result=1;
  4685 + $v_list_detail = array();
  4686 +
  4687 + // ----- Open the zip file
  4688 + if (($v_result=$this->privOpenFd('rb')) != 1)
  4689 + {
  4690 + // ----- Return
  4691 + return $v_result;
  4692 + }
  4693 +
  4694 + // ----- Read the central directory informations
  4695 + $v_central_dir = array();
  4696 + if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1)
  4697 + {
  4698 + $this->privCloseFd();
  4699 + return $v_result;
  4700 + }
  4701 +
  4702 + // ----- Go to beginning of File
  4703 + @rewind($this->zip_fd);
  4704 +
  4705 + // ----- Scan all the files
  4706 + // ----- Start at beginning of Central Dir
  4707 + $v_pos_entry = $v_central_dir['offset'];
  4708 + @rewind($this->zip_fd);
  4709 + if (@fseek($this->zip_fd, $v_pos_entry))
  4710 + {
  4711 + // ----- Close the zip file
  4712 + $this->privCloseFd();
  4713 +
  4714 + // ----- Error log
  4715 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid archive size');
  4716 +
  4717 + // ----- Return
  4718 + return PclZip::errorCode();
  4719 + }
  4720 +
  4721 + // ----- Read each entry
  4722 + $v_header_list = array();
  4723 + $j_start = 0;
  4724 + for ($i=0, $v_nb_extracted=0; $i<$v_central_dir['entries']; $i++)
  4725 + {
  4726 +
  4727 + // ----- Read the file header
  4728 + $v_header_list[$v_nb_extracted] = array();
  4729 + if (($v_result = $this->privReadCentralFileHeader($v_header_list[$v_nb_extracted])) != 1)
  4730 + {
  4731 + // ----- Close the zip file
  4732 + $this->privCloseFd();
  4733 +
  4734 + return $v_result;
  4735 + }
  4736 +
  4737 +
  4738 + // ----- Store the index
  4739 + $v_header_list[$v_nb_extracted]['index'] = $i;
  4740 +
  4741 + // ----- Look for the specific extract rules
  4742 + $v_found = false;
  4743 +
  4744 + // ----- Look for extract by name rule
  4745 + if ( (isset($p_options[PCLZIP_OPT_BY_NAME]))
  4746 + && ($p_options[PCLZIP_OPT_BY_NAME] != 0)) {
  4747 +
  4748 + // ----- Look if the filename is in the list
  4749 + for ($j=0; ($j<sizeof($p_options[PCLZIP_OPT_BY_NAME])) && (!$v_found); $j++) {
  4750 +
  4751 + // ----- Look for a directory
  4752 + if (substr($p_options[PCLZIP_OPT_BY_NAME][$j], -1) == "/") {
  4753 +
  4754 + // ----- Look if the directory is in the filename path
  4755 + if ( (strlen($v_header_list[$v_nb_extracted]['stored_filename']) > strlen($p_options[PCLZIP_OPT_BY_NAME][$j]))
  4756 + && (substr($v_header_list[$v_nb_extracted]['stored_filename'], 0, strlen($p_options[PCLZIP_OPT_BY_NAME][$j])) == $p_options[PCLZIP_OPT_BY_NAME][$j])) {
  4757 + $v_found = true;
  4758 + }
  4759 + elseif ( (($v_header_list[$v_nb_extracted]['external']&0x00000010)==0x00000010) /* Indicates a folder */
  4760 + && ($v_header_list[$v_nb_extracted]['stored_filename'].'/' == $p_options[PCLZIP_OPT_BY_NAME][$j])) {
  4761 + $v_found = true;
  4762 + }
  4763 + }
  4764 + // ----- Look for a filename
  4765 + elseif ($v_header_list[$v_nb_extracted]['stored_filename'] == $p_options[PCLZIP_OPT_BY_NAME][$j]) {
  4766 + $v_found = true;
  4767 + }
  4768 + }
  4769 + }
  4770 +
  4771 + // ----- Look for extract by ereg rule
  4772 + // ereg() is deprecated with PHP 5.3
  4773 + /*
  4774 + else if ( (isset($p_options[PCLZIP_OPT_BY_EREG]))
  4775 + && ($p_options[PCLZIP_OPT_BY_EREG] != "")) {
  4776 +
  4777 + if (ereg($p_options[PCLZIP_OPT_BY_EREG], $v_header_list[$v_nb_extracted]['stored_filename'])) {
  4778 + $v_found = true;
  4779 + }
  4780 + }
  4781 + */
  4782 +
  4783 + // ----- Look for extract by preg rule
  4784 + else if ( (isset($p_options[PCLZIP_OPT_BY_PREG]))
  4785 + && ($p_options[PCLZIP_OPT_BY_PREG] != "")) {
  4786 +
  4787 + if (preg_match($p_options[PCLZIP_OPT_BY_PREG], $v_header_list[$v_nb_extracted]['stored_filename'])) {
  4788 + $v_found = true;
  4789 + }
  4790 + }
  4791 +
  4792 + // ----- Look for extract by index rule
  4793 + else if ( (isset($p_options[PCLZIP_OPT_BY_INDEX]))
  4794 + && ($p_options[PCLZIP_OPT_BY_INDEX] != 0)) {
  4795 +
  4796 + // ----- Look if the index is in the list
  4797 + for ($j=$j_start; ($j<sizeof($p_options[PCLZIP_OPT_BY_INDEX])) && (!$v_found); $j++) {
  4798 +
  4799 + if (($i>=$p_options[PCLZIP_OPT_BY_INDEX][$j]['start']) && ($i<=$p_options[PCLZIP_OPT_BY_INDEX][$j]['end'])) {
  4800 + $v_found = true;
  4801 + }
  4802 + if ($i>=$p_options[PCLZIP_OPT_BY_INDEX][$j]['end']) {
  4803 + $j_start = $j+1;
  4804 + }
  4805 +
  4806 + if ($p_options[PCLZIP_OPT_BY_INDEX][$j]['start']>$i) {
  4807 + break;
  4808 + }
  4809 + }
  4810 + }
  4811 + else {
  4812 + $v_found = true;
  4813 + }
  4814 +
  4815 + // ----- Look for deletion
  4816 + if ($v_found)
  4817 + {
  4818 + unset($v_header_list[$v_nb_extracted]);
  4819 + }
  4820 + else
  4821 + {
  4822 + $v_nb_extracted++;
  4823 + }
  4824 + }
  4825 +
  4826 + // ----- Look if something need to be deleted
  4827 + if ($v_nb_extracted > 0) {
  4828 +
  4829 + // ----- Creates a temporay file
  4830 + $v_zip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid('pclzip-').'.tmp';
  4831 +
  4832 + // ----- Creates a temporary zip archive
  4833 + $v_temp_zip = new PclZip($v_zip_temp_name);
  4834 +
  4835 + // ----- Open the temporary zip file in write mode
  4836 + if (($v_result = $v_temp_zip->privOpenFd('wb')) != 1) {
  4837 + $this->privCloseFd();
  4838 +
  4839 + // ----- Return
  4840 + return $v_result;
  4841 + }
  4842 +
  4843 + // ----- Look which file need to be kept
  4844 + for ($i=0; $i<sizeof($v_header_list); $i++) {
  4845 +
  4846 + // ----- Calculate the position of the header
  4847 + @rewind($this->zip_fd);
  4848 + if (@fseek($this->zip_fd, $v_header_list[$i]['offset'])) {
  4849 + // ----- Close the zip file
  4850 + $this->privCloseFd();
  4851 + $v_temp_zip->privCloseFd();
  4852 + @unlink($v_zip_temp_name);
  4853 +
  4854 + // ----- Error log
  4855 + PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid archive size');
  4856 +
  4857 + // ----- Return
  4858 + return PclZip::errorCode();
  4859 + }
  4860 +
  4861 + // ----- Read the file header
  4862 + $v_local_header = array();
  4863 + if (($v_result = $this->privReadFileHeader($v_local_header)) != 1) {
  4864 + // ----- Close the zip file
  4865 + $this->privCloseFd();
  4866 + $v_temp_zip->privCloseFd();
  4867 + @unlink($v_zip_temp_name);
  4868 +
  4869 + // ----- Return
  4870 + return $v_result;
  4871 + }
  4872 +
  4873 + // ----- Check that local file header is same as central file header
  4874 + if ($this->privCheckFileHeaders($v_local_header,
  4875 + $v_header_list[$i]) != 1) {
  4876 + // TBC
  4877 + }
  4878 + unset($v_local_header);
  4879 +
  4880 + // ----- Write the file header
  4881 + if (($v_result = $v_temp_zip->privWriteFileHeader($v_header_list[$i])) != 1) {
  4882 + // ----- Close the zip file
  4883 + $this->privCloseFd();
  4884 + $v_temp_zip->privCloseFd();
  4885 + @unlink($v_zip_temp_name);
  4886 +
  4887 + // ----- Return
  4888 + return $v_result;
  4889 + }
  4890 +
  4891 + // ----- Read/write the data block
  4892 + if (($v_result = PclZipUtilCopyBlock($this->zip_fd, $v_temp_zip->zip_fd, $v_header_list[$i]['compressed_size'])) != 1) {
  4893 + // ----- Close the zip file
  4894 + $this->privCloseFd();
  4895 + $v_temp_zip->privCloseFd();
  4896 + @unlink($v_zip_temp_name);
  4897 +
  4898 + // ----- Return
  4899 + return $v_result;
  4900 + }
  4901 + }
  4902 +
  4903 + // ----- Store the offset of the central dir
  4904 + $v_offset = @ftell($v_temp_zip->zip_fd);
  4905 +
  4906 + // ----- Re-Create the Central Dir files header
  4907 + for ($i=0; $i<sizeof($v_header_list); $i++) {
  4908 + // ----- Create the file header
  4909 + if (($v_result = $v_temp_zip->privWriteCentralFileHeader($v_header_list[$i])) != 1) {
  4910 + $v_temp_zip->privCloseFd();
  4911 + $this->privCloseFd();
  4912 + @unlink($v_zip_temp_name);
  4913 +
  4914 + // ----- Return
  4915 + return $v_result;
  4916 + }
  4917 +
  4918 + // ----- Transform the header to a 'usable' info
  4919 + $v_temp_zip->privConvertHeader2FileInfo($v_header_list[$i], $p_result_list[$i]);
  4920 + }
  4921 +
  4922 +
  4923 + // ----- Zip file comment
  4924 + $v_comment = '';
  4925 + if (isset($p_options[PCLZIP_OPT_COMMENT])) {
  4926 + $v_comment = $p_options[PCLZIP_OPT_COMMENT];
  4927 + }
  4928 +
  4929 + // ----- Calculate the size of the central header
  4930 + $v_size = @ftell($v_temp_zip->zip_fd)-$v_offset;
  4931 +
  4932 + // ----- Create the central dir footer
  4933 + if (($v_result = $v_temp_zip->privWriteCentralHeader(sizeof($v_header_list), $v_size, $v_offset, $v_comment)) != 1) {
  4934 + // ----- Reset the file list
  4935 + unset($v_header_list);
  4936 + $v_temp_zip->privCloseFd();
  4937 + $this->privCloseFd();
  4938 + @unlink($v_zip_temp_name);
  4939 +
  4940 + // ----- Return
  4941 + return $v_result;
  4942 + }
  4943 +
  4944 + // ----- Close
  4945 + $v_temp_zip->privCloseFd();
  4946 + $this->privCloseFd();
  4947 +
  4948 + // ----- Delete the zip file
  4949 + // TBC : I should test the result ...
  4950 + @unlink($this->zipname);
  4951 +
  4952 + // ----- Rename the temporary file
  4953 + // TBC : I should test the result ...
  4954 + //@rename($v_zip_temp_name, $this->zipname);
  4955 + PclZipUtilRename($v_zip_temp_name, $this->zipname);
  4956 +
  4957 + // ----- Destroy the temporary archive
  4958 + unset($v_temp_zip);
  4959 + }
  4960 +
  4961 + // ----- Remove every files : reset the file
  4962 + else if ($v_central_dir['entries'] != 0) {
  4963 + $this->privCloseFd();
  4964 +
  4965 + if (($v_result = $this->privOpenFd('wb')) != 1) {
  4966 + return $v_result;
  4967 + }
  4968 +
  4969 + if (($v_result = $this->privWriteCentralHeader(0, 0, 0, '')) != 1) {
  4970 + return $v_result;
  4971 + }
  4972 +
  4973 + $this->privCloseFd();
  4974 + }
  4975 +
  4976 + // ----- Return
  4977 + return $v_result;
  4978 + }
  4979 + // --------------------------------------------------------------------------------
  4980 +
  4981 + // --------------------------------------------------------------------------------
  4982 + // Function : privDirCheck()
  4983 + // Description :
  4984 + // Check if a directory exists, if not it creates it and all the parents directory
  4985 + // which may be useful.
  4986 + // Parameters :
  4987 + // $p_dir : Directory path to check.
  4988 + // Return Values :
  4989 + // 1 : OK
  4990 + // -1 : Unable to create directory
  4991 + // --------------------------------------------------------------------------------
  4992 + function privDirCheck($p_dir, $p_is_dir=false)
  4993 + {
  4994 + $v_result = 1;
  4995 +
  4996 +
  4997 + // ----- Remove the final '/'
  4998 + if (($p_is_dir) && (substr($p_dir, -1)=='/'))
  4999 + {
  5000 + $p_dir = substr($p_dir, 0, strlen($p_dir)-1);
  5001 + }
  5002 +
  5003 + // ----- Check the directory availability
  5004 + if ((is_dir($p_dir)) || ($p_dir == ""))
  5005 + {
  5006 + return 1;
  5007 + }
  5008 +
  5009 + // ----- Extract parent directory
  5010 + $p_parent_dir = dirname($p_dir);
  5011 +
  5012 + // ----- Just a check
  5013 + if ($p_parent_dir != $p_dir)
  5014 + {
  5015 + // ----- Look for parent directory
  5016 + if ($p_parent_dir != "")
  5017 + {
  5018 + if (($v_result = $this->privDirCheck($p_parent_dir)) != 1)
  5019 + {
  5020 + return $v_result;
  5021 + }
  5022 + }
  5023 + }
  5024 +
  5025 + // ----- Create the directory
  5026 + if (!@mkdir($p_dir, 0777))
  5027 + {
  5028 + // ----- Error log
  5029 + PclZip::privErrorLog(PCLZIP_ERR_DIR_CREATE_FAIL, "Unable to create directory '$p_dir'");
  5030 +
  5031 + // ----- Return
  5032 + return PclZip::errorCode();
  5033 + }
  5034 +
  5035 + // ----- Return
  5036 + return $v_result;
  5037 + }
  5038 + // --------------------------------------------------------------------------------
  5039 +
  5040 + // --------------------------------------------------------------------------------
  5041 + // Function : privMerge()
  5042 + // Description :
  5043 + // If $p_archive_to_add does not exist, the function exit with a success result.
  5044 + // Parameters :
  5045 + // Return Values :
  5046 + // --------------------------------------------------------------------------------
  5047 + function privMerge(&$p_archive_to_add)
  5048 + {
  5049 + $v_result=1;
  5050 +
  5051 + // ----- Look if the archive_to_add exists
  5052 + if (!is_file($p_archive_to_add->zipname))
  5053 + {
  5054 +
  5055 + // ----- Nothing to merge, so merge is a success
  5056 + $v_result = 1;
  5057 +
  5058 + // ----- Return
  5059 + return $v_result;
  5060 + }
  5061 +
  5062 + // ----- Look if the archive exists
  5063 + if (!is_file($this->zipname))
  5064 + {
  5065 +
  5066 + // ----- Do a duplicate
  5067 + $v_result = $this->privDuplicate($p_archive_to_add->zipname);
  5068 +
  5069 + // ----- Return
  5070 + return $v_result;
  5071 + }
  5072 +
  5073 + // ----- Open the zip file
  5074 + if (($v_result=$this->privOpenFd('rb')) != 1)
  5075 + {
  5076 + // ----- Return
  5077 + return $v_result;
  5078 + }
  5079 +
  5080 + // ----- Read the central directory informations
  5081 + $v_central_dir = array();
  5082 + if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1)
  5083 + {
  5084 + $this->privCloseFd();
  5085 + return $v_result;
  5086 + }
  5087 +
  5088 + // ----- Go to beginning of File
  5089 + @rewind($this->zip_fd);
  5090 +
  5091 + // ----- Open the archive_to_add file
  5092 + if (($v_result=$p_archive_to_add->privOpenFd('rb')) != 1)
  5093 + {
  5094 + $this->privCloseFd();
  5095 +
  5096 + // ----- Return
  5097 + return $v_result;
  5098 + }
  5099 +
  5100 + // ----- Read the central directory informations
  5101 + $v_central_dir_to_add = array();
  5102 + if (($v_result = $p_archive_to_add->privReadEndCentralDir($v_central_dir_to_add)) != 1)
  5103 + {
  5104 + $this->privCloseFd();
  5105 + $p_archive_to_add->privCloseFd();
  5106 +
  5107 + return $v_result;
  5108 + }
  5109 +
  5110 + // ----- Go to beginning of File
  5111 + @rewind($p_archive_to_add->zip_fd);
  5112 +
  5113 + // ----- Creates a temporay file
  5114 + $v_zip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid('pclzip-').'.tmp';
  5115 +
  5116 + // ----- Open the temporary file in write mode
  5117 + if (($v_zip_temp_fd = @fopen($v_zip_temp_name, 'wb')) == 0)
  5118 + {
  5119 + $this->privCloseFd();
  5120 + $p_archive_to_add->privCloseFd();
  5121 +
  5122 + PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \''.$v_zip_temp_name.'\' in binary write mode');
  5123 +
  5124 + // ----- Return
  5125 + return PclZip::errorCode();
  5126 + }
  5127 +
  5128 + // ----- Copy the files from the archive to the temporary file
  5129 + // TBC : Here I should better append the file and go back to erase the central dir
  5130 + $v_size = $v_central_dir['offset'];
  5131 + while ($v_size != 0)
  5132 + {
  5133 + $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
  5134 + $v_buffer = fread($this->zip_fd, $v_read_size);
  5135 + @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
  5136 + $v_size -= $v_read_size;
  5137 + }
  5138 +
  5139 + // ----- Copy the files from the archive_to_add into the temporary file
  5140 + $v_size = $v_central_dir_to_add['offset'];
  5141 + while ($v_size != 0)
  5142 + {
  5143 + $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
  5144 + $v_buffer = fread($p_archive_to_add->zip_fd, $v_read_size);
  5145 + @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
  5146 + $v_size -= $v_read_size;
  5147 + }
  5148 +
  5149 + // ----- Store the offset of the central dir
  5150 + $v_offset = @ftell($v_zip_temp_fd);
  5151 +
  5152 + // ----- Copy the block of file headers from the old archive
  5153 + $v_size = $v_central_dir['size'];
  5154 + while ($v_size != 0)
  5155 + {
  5156 + $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
  5157 + $v_buffer = @fread($this->zip_fd, $v_read_size);
  5158 + @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
  5159 + $v_size -= $v_read_size;
  5160 + }
  5161 +
  5162 + // ----- Copy the block of file headers from the archive_to_add
  5163 + $v_size = $v_central_dir_to_add['size'];
  5164 + while ($v_size != 0)
  5165 + {
  5166 + $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
  5167 + $v_buffer = @fread($p_archive_to_add->zip_fd, $v_read_size);
  5168 + @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
  5169 + $v_size -= $v_read_size;
  5170 + }
  5171 +
  5172 + // ----- Merge the file comments
  5173 + $v_comment = $v_central_dir['comment'].' '.$v_central_dir_to_add['comment'];
  5174 +
  5175 + // ----- Calculate the size of the (new) central header
  5176 + $v_size = @ftell($v_zip_temp_fd)-$v_offset;
  5177 +
  5178 + // ----- Swap the file descriptor
  5179 + // Here is a trick : I swap the temporary fd with the zip fd, in order to use
  5180 + // the following methods on the temporary fil and not the real archive fd
  5181 + $v_swap = $this->zip_fd;
  5182 + $this->zip_fd = $v_zip_temp_fd;
  5183 + $v_zip_temp_fd = $v_swap;
  5184 +
  5185 + // ----- Create the central dir footer
  5186 + if (($v_result = $this->privWriteCentralHeader($v_central_dir['entries']+$v_central_dir_to_add['entries'], $v_size, $v_offset, $v_comment)) != 1)
  5187 + {
  5188 + $this->privCloseFd();
  5189 + $p_archive_to_add->privCloseFd();
  5190 + @fclose($v_zip_temp_fd);
  5191 + $this->zip_fd = null;
  5192 +
  5193 + // ----- Reset the file list
  5194 + unset($v_header_list);
  5195 +
  5196 + // ----- Return
  5197 + return $v_result;
  5198 + }
  5199 +
  5200 + // ----- Swap back the file descriptor
  5201 + $v_swap = $this->zip_fd;
  5202 + $this->zip_fd = $v_zip_temp_fd;
  5203 + $v_zip_temp_fd = $v_swap;
  5204 +
  5205 + // ----- Close
  5206 + $this->privCloseFd();
  5207 + $p_archive_to_add->privCloseFd();
  5208 +
  5209 + // ----- Close the temporary file
  5210 + @fclose($v_zip_temp_fd);
  5211 +
  5212 + // ----- Delete the zip file
  5213 + // TBC : I should test the result ...
  5214 + @unlink($this->zipname);
  5215 +
  5216 + // ----- Rename the temporary file
  5217 + // TBC : I should test the result ...
  5218 + //@rename($v_zip_temp_name, $this->zipname);
  5219 + PclZipUtilRename($v_zip_temp_name, $this->zipname);
  5220 +
  5221 + // ----- Return
  5222 + return $v_result;
  5223 + }
  5224 + // --------------------------------------------------------------------------------
  5225 +
  5226 + // --------------------------------------------------------------------------------
  5227 + // Function : privDuplicate()
  5228 + // Description :
  5229 + // Parameters :
  5230 + // Return Values :
  5231 + // --------------------------------------------------------------------------------
  5232 + function privDuplicate($p_archive_filename)
  5233 + {
  5234 + $v_result=1;
  5235 +
  5236 + // ----- Look if the $p_archive_filename exists
  5237 + if (!is_file($p_archive_filename))
  5238 + {
  5239 +
  5240 + // ----- Nothing to duplicate, so duplicate is a success.
  5241 + $v_result = 1;
  5242 +
  5243 + // ----- Return
  5244 + return $v_result;
  5245 + }
  5246 +
  5247 + // ----- Open the zip file
  5248 + if (($v_result=$this->privOpenFd('wb')) != 1)
  5249 + {
  5250 + // ----- Return
  5251 + return $v_result;
  5252 + }
  5253 +
  5254 + // ----- Open the temporary file in write mode
  5255 + if (($v_zip_temp_fd = @fopen($p_archive_filename, 'rb')) == 0)
  5256 + {
  5257 + $this->privCloseFd();
  5258 +
  5259 + PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open archive file \''.$p_archive_filename.'\' in binary write mode');
  5260 +
  5261 + // ----- Return
  5262 + return PclZip::errorCode();
  5263 + }
  5264 +
  5265 + // ----- Copy the files from the archive to the temporary file
  5266 + // TBC : Here I should better append the file and go back to erase the central dir
  5267 + $v_size = filesize($p_archive_filename);
  5268 + while ($v_size != 0)
  5269 + {
  5270 + $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);
  5271 + $v_buffer = fread($v_zip_temp_fd, $v_read_size);
  5272 + @fwrite($this->zip_fd, $v_buffer, $v_read_size);
  5273 + $v_size -= $v_read_size;
  5274 + }
  5275 +
  5276 + // ----- Close
  5277 + $this->privCloseFd();
  5278 +
  5279 + // ----- Close the temporary file
  5280 + @fclose($v_zip_temp_fd);
  5281 +
  5282 + // ----- Return
  5283 + return $v_result;
  5284 + }
  5285 + // --------------------------------------------------------------------------------
  5286 +
  5287 + // --------------------------------------------------------------------------------
  5288 + // Function : privErrorLog()
  5289 + // Description :
  5290 + // Parameters :
  5291 + // --------------------------------------------------------------------------------
  5292 + function privErrorLog($p_error_code=0, $p_error_string='')
  5293 + {
  5294 + if (PCLZIP_ERROR_EXTERNAL == 1) {
  5295 + PclError($p_error_code, $p_error_string);
  5296 + }
  5297 + else {
  5298 + $this->error_code = $p_error_code;
  5299 + $this->error_string = $p_error_string;
  5300 + }
  5301 + }
  5302 + // --------------------------------------------------------------------------------
  5303 +
  5304 + // --------------------------------------------------------------------------------
  5305 + // Function : privErrorReset()
  5306 + // Description :
  5307 + // Parameters :
  5308 + // --------------------------------------------------------------------------------
  5309 + function privErrorReset()
  5310 + {
  5311 + if (PCLZIP_ERROR_EXTERNAL == 1) {
  5312 + PclErrorReset();
  5313 + }
  5314 + else {
  5315 + $this->error_code = 0;
  5316 + $this->error_string = '';
  5317 + }
  5318 + }
  5319 + // --------------------------------------------------------------------------------
  5320 +
  5321 + // --------------------------------------------------------------------------------
  5322 + // Function : privDisableMagicQuotes()
  5323 + // Description :
  5324 + // Parameters :
  5325 + // Return Values :
  5326 + // --------------------------------------------------------------------------------
  5327 + function privDisableMagicQuotes()
  5328 + {
  5329 + $v_result=1;
  5330 +
  5331 + // ----- Look if function exists
  5332 + if ( (!function_exists("get_magic_quotes_runtime"))
  5333 + || (!function_exists("set_magic_quotes_runtime"))) {
  5334 + return $v_result;
  5335 + }
  5336 +
  5337 + // ----- Look if already done
  5338 + if ($this->magic_quotes_status != -1) {
  5339 + return $v_result;
  5340 + }
  5341 +
  5342 + // ----- Get and memorize the magic_quote value
  5343 + $this->magic_quotes_status = @get_magic_quotes_runtime();
  5344 +
  5345 + // ----- Disable magic_quotes
  5346 + if ($this->magic_quotes_status == 1) {
  5347 + @set_magic_quotes_runtime(0);
  5348 + }
  5349 +
  5350 + // ----- Return
  5351 + return $v_result;
  5352 + }
  5353 + // --------------------------------------------------------------------------------
  5354 +
  5355 + // --------------------------------------------------------------------------------
  5356 + // Function : privSwapBackMagicQuotes()
  5357 + // Description :
  5358 + // Parameters :
  5359 + // Return Values :
  5360 + // --------------------------------------------------------------------------------
  5361 + function privSwapBackMagicQuotes()
  5362 + {
  5363 + $v_result=1;
  5364 +
  5365 + // ----- Look if function exists
  5366 + if ( (!function_exists("get_magic_quotes_runtime"))
  5367 + || (!function_exists("set_magic_quotes_runtime"))) {
  5368 + return $v_result;
  5369 + }
  5370 +
  5371 + // ----- Look if something to do
  5372 + if ($this->magic_quotes_status != -1) {
  5373 + return $v_result;
  5374 + }
  5375 +
  5376 + // ----- Swap back magic_quotes
  5377 + if ($this->magic_quotes_status == 1) {
  5378 + @set_magic_quotes_runtime($this->magic_quotes_status);
  5379 + }
  5380 +
  5381 + // ----- Return
  5382 + return $v_result;
  5383 + }
  5384 + // --------------------------------------------------------------------------------
  5385 +
  5386 + }
  5387 + // End of class
  5388 + // --------------------------------------------------------------------------------
  5389 +
  5390 + // --------------------------------------------------------------------------------
  5391 + // Function : PclZipUtilPathReduction()
  5392 + // Description :
  5393 + // Parameters :
  5394 + // Return Values :
  5395 + // --------------------------------------------------------------------------------
  5396 + function PclZipUtilPathReduction($p_dir)
  5397 + {
  5398 + $v_result = "";
  5399 +
  5400 + // ----- Look for not empty path
  5401 + if ($p_dir != "") {
  5402 + // ----- Explode path by directory names
  5403 + $v_list = explode("/", $p_dir);
  5404 +
  5405 + // ----- Study directories from last to first
  5406 + $v_skip = 0;
  5407 + for ($i=sizeof($v_list)-1; $i>=0; $i--) {
  5408 + // ----- Look for current path
  5409 + if ($v_list[$i] == ".") {
  5410 + // ----- Ignore this directory
  5411 + // Should be the first $i=0, but no check is done
  5412 + }
  5413 + else if ($v_list[$i] == "..") {
  5414 + $v_skip++;
  5415 + }
  5416 + else if ($v_list[$i] == "") {
  5417 + // ----- First '/' i.e. root slash
  5418 + if ($i == 0) {
  5419 + $v_result = "/".$v_result;
  5420 + if ($v_skip > 0) {
  5421 + // ----- It is an invalid path, so the path is not modified
  5422 + // TBC
  5423 + $v_result = $p_dir;
  5424 + $v_skip = 0;
  5425 + }
  5426 + }
  5427 + // ----- Last '/' i.e. indicates a directory
  5428 + else if ($i == (sizeof($v_list)-1)) {
  5429 + $v_result = $v_list[$i];
  5430 + }
  5431 + // ----- Double '/' inside the path
  5432 + else {
  5433 + // ----- Ignore only the double '//' in path,
  5434 + // but not the first and last '/'
  5435 + }
  5436 + }
  5437 + else {
  5438 + // ----- Look for item to skip
  5439 + if ($v_skip > 0) {
  5440 + $v_skip--;
  5441 + }
  5442 + else {
  5443 + $v_result = $v_list[$i].($i!=(sizeof($v_list)-1)?"/".$v_result:"");
  5444 + }
  5445 + }
  5446 + }
  5447 +
  5448 + // ----- Look for skip
  5449 + if ($v_skip > 0) {
  5450 + while ($v_skip > 0) {
  5451 + $v_result = '../'.$v_result;
  5452 + $v_skip--;
  5453 + }
  5454 + }
  5455 + }
  5456 +
  5457 + // ----- Return
  5458 + return $v_result;
  5459 + }
  5460 + // --------------------------------------------------------------------------------
  5461 +
  5462 + // --------------------------------------------------------------------------------
  5463 + // Function : PclZipUtilPathInclusion()
  5464 + // Description :
  5465 + // This function indicates if the path $p_path is under the $p_dir tree. Or,
  5466 + // said in an other way, if the file or sub-dir $p_path is inside the dir
  5467 + // $p_dir.
  5468 + // The function indicates also if the path is exactly the same as the dir.
  5469 + // This function supports path with duplicated '/' like '//', but does not
  5470 + // support '.' or '..' statements.
  5471 + // Parameters :
  5472 + // Return Values :
  5473 + // 0 if $p_path is not inside directory $p_dir
  5474 + // 1 if $p_path is inside directory $p_dir
  5475 + // 2 if $p_path is exactly the same as $p_dir
  5476 + // --------------------------------------------------------------------------------
  5477 + function PclZipUtilPathInclusion($p_dir, $p_path)
  5478 + {
  5479 + $v_result = 1;
  5480 +
  5481 + // ----- Look for path beginning by ./
  5482 + if ( ($p_dir == '.')
  5483 + || ((strlen($p_dir) >=2) && (substr($p_dir, 0, 2) == './'))) {
  5484 + $p_dir = PclZipUtilTranslateWinPath(getcwd(), FALSE).'/'.substr($p_dir, 1);
  5485 + }
  5486 + if ( ($p_path == '.')
  5487 + || ((strlen($p_path) >=2) && (substr($p_path, 0, 2) == './'))) {
  5488 + $p_path = PclZipUtilTranslateWinPath(getcwd(), FALSE).'/'.substr($p_path, 1);
  5489 + }
  5490 +
  5491 + // ----- Explode dir and path by directory separator
  5492 + $v_list_dir = explode("/", $p_dir);
  5493 + $v_list_dir_size = sizeof($v_list_dir);
  5494 + $v_list_path = explode("/", $p_path);
  5495 + $v_list_path_size = sizeof($v_list_path);
  5496 +
  5497 + // ----- Study directories paths
  5498 + $i = 0;
  5499 + $j = 0;
  5500 + while (($i < $v_list_dir_size) && ($j < $v_list_path_size) && ($v_result)) {
  5501 +
  5502 + // ----- Look for empty dir (path reduction)
  5503 + if ($v_list_dir[$i] == '') {
  5504 + $i++;
  5505 + continue;
  5506 + }
  5507 + if ($v_list_path[$j] == '') {
  5508 + $j++;
  5509 + continue;
  5510 + }
  5511 +
  5512 + // ----- Compare the items
  5513 + if (($v_list_dir[$i] != $v_list_path[$j]) && ($v_list_dir[$i] != '') && ( $v_list_path[$j] != '')) {
  5514 + $v_result = 0;
  5515 + }
  5516 +
  5517 + // ----- Next items
  5518 + $i++;
  5519 + $j++;
  5520 + }
  5521 +
  5522 + // ----- Look if everything seems to be the same
  5523 + if ($v_result) {
  5524 + // ----- Skip all the empty items
  5525 + while (($j < $v_list_path_size) && ($v_list_path[$j] == '')) $j++;
  5526 + while (($i < $v_list_dir_size) && ($v_list_dir[$i] == '')) $i++;
  5527 +
  5528 + if (($i >= $v_list_dir_size) && ($j >= $v_list_path_size)) {
  5529 + // ----- There are exactly the same
  5530 + $v_result = 2;
  5531 + }
  5532 + else if ($i < $v_list_dir_size) {
  5533 + // ----- The path is shorter than the dir
  5534 + $v_result = 0;
  5535 + }
  5536 + }
  5537 +
  5538 + // ----- Return
  5539 + return $v_result;
  5540 + }
  5541 + // --------------------------------------------------------------------------------
  5542 +
  5543 + // --------------------------------------------------------------------------------
  5544 + // Function : PclZipUtilCopyBlock()
  5545 + // Description :
  5546 + // Parameters :
  5547 + // $p_mode : read/write compression mode
  5548 + // 0 : src & dest normal
  5549 + // 1 : src gzip, dest normal
  5550 + // 2 : src normal, dest gzip
  5551 + // 3 : src & dest gzip
  5552 + // Return Values :
  5553 + // --------------------------------------------------------------------------------
  5554 + function PclZipUtilCopyBlock($p_src, $p_dest, $p_size, $p_mode=0)
  5555 + {
  5556 + $v_result = 1;
  5557 +
  5558 + if ($p_mode==0)
  5559 + {
  5560 + while ($p_size != 0)
  5561 + {
  5562 + $v_read_size = ($p_size < PCLZIP_READ_BLOCK_SIZE ? $p_size : PCLZIP_READ_BLOCK_SIZE);
  5563 + $v_buffer = @fread($p_src, $v_read_size);
  5564 + @fwrite($p_dest, $v_buffer, $v_read_size);
  5565 + $p_size -= $v_read_size;
  5566 + }
  5567 + }
  5568 + else if ($p_mode==1)
  5569 + {
  5570 + while ($p_size != 0)
  5571 + {
  5572 + $v_read_size = ($p_size < PCLZIP_READ_BLOCK_SIZE ? $p_size : PCLZIP_READ_BLOCK_SIZE);
  5573 + $v_buffer = @gzread($p_src, $v_read_size);
  5574 + @fwrite($p_dest, $v_buffer, $v_read_size);
  5575 + $p_size -= $v_read_size;
  5576 + }
  5577 + }
  5578 + else if ($p_mode==2)
  5579 + {
  5580 + while ($p_size != 0)
  5581 + {
  5582 + $v_read_size = ($p_size < PCLZIP_READ_BLOCK_SIZE ? $p_size : PCLZIP_READ_BLOCK_SIZE);
  5583 + $v_buffer = @fread($p_src, $v_read_size);
  5584 + @gzwrite($p_dest, $v_buffer, $v_read_size);
  5585 + $p_size -= $v_read_size;
  5586 + }
  5587 + }
  5588 + else if ($p_mode==3)
  5589 + {
  5590 + while ($p_size != 0)
  5591 + {
  5592 + $v_read_size = ($p_size < PCLZIP_READ_BLOCK_SIZE ? $p_size : PCLZIP_READ_BLOCK_SIZE);
  5593 + $v_buffer = @gzread($p_src, $v_read_size);
  5594 + @gzwrite($p_dest, $v_buffer, $v_read_size);
  5595 + $p_size -= $v_read_size;
  5596 + }
  5597 + }
  5598 +
  5599 + // ----- Return
  5600 + return $v_result;
  5601 + }
  5602 + // --------------------------------------------------------------------------------
  5603 +
  5604 + // --------------------------------------------------------------------------------
  5605 + // Function : PclZipUtilRename()
  5606 + // Description :
  5607 + // This function tries to do a simple rename() function. If it fails, it
  5608 + // tries to copy the $p_src file in a new $p_dest file and then unlink the
  5609 + // first one.
  5610 + // Parameters :
  5611 + // $p_src : Old filename
  5612 + // $p_dest : New filename
  5613 + // Return Values :
  5614 + // 1 on success, 0 on failure.
  5615 + // --------------------------------------------------------------------------------
  5616 + function PclZipUtilRename($p_src, $p_dest)
  5617 + {
  5618 + $v_result = 1;
  5619 +
  5620 + // ----- Try to rename the files
  5621 + if (!@rename($p_src, $p_dest)) {
  5622 +
  5623 + // ----- Try to copy & unlink the src
  5624 + if (!@copy($p_src, $p_dest)) {
  5625 + $v_result = 0;
  5626 + }
  5627 + else if (!@unlink($p_src)) {
  5628 + $v_result = 0;
  5629 + }
  5630 + }
  5631 +
  5632 + // ----- Return
  5633 + return $v_result;
  5634 + }
  5635 + // --------------------------------------------------------------------------------
  5636 +
  5637 + // --------------------------------------------------------------------------------
  5638 + // Function : PclZipUtilOptionText()
  5639 + // Description :
  5640 + // Translate option value in text. Mainly for debug purpose.
  5641 + // Parameters :
  5642 + // $p_option : the option value.
  5643 + // Return Values :
  5644 + // The option text value.
  5645 + // --------------------------------------------------------------------------------
  5646 + function PclZipUtilOptionText($p_option)
  5647 + {
  5648 +
  5649 + $v_list = get_defined_constants();
  5650 + for (reset($v_list); $v_key = key($v_list); next($v_list)) {
  5651 + $v_prefix = substr($v_key, 0, 10);
  5652 + if (( ($v_prefix == 'PCLZIP_OPT')
  5653 + || ($v_prefix == 'PCLZIP_CB_')
  5654 + || ($v_prefix == 'PCLZIP_ATT'))
  5655 + && ($v_list[$v_key] == $p_option)) {
  5656 + return $v_key;
  5657 + }
  5658 + }
  5659 +
  5660 + $v_result = 'Unknown';
  5661 +
  5662 + return $v_result;
  5663 + }
  5664 + // --------------------------------------------------------------------------------
  5665 +
  5666 + // --------------------------------------------------------------------------------
  5667 + // Function : PclZipUtilTranslateWinPath()
  5668 + // Description :
  5669 + // Translate windows path by replacing '\' by '/' and optionally removing
  5670 + // drive letter.
  5671 + // Parameters :
  5672 + // $p_path : path to translate.
  5673 + // $p_remove_disk_letter : true | false
  5674 + // Return Values :
  5675 + // The path translated.
  5676 + // --------------------------------------------------------------------------------
  5677 + function PclZipUtilTranslateWinPath($p_path, $p_remove_disk_letter=true)
  5678 + {
  5679 + if (stristr(php_uname(), 'windows')) {
  5680 + // ----- Look for potential disk letter
  5681 + if (($p_remove_disk_letter) && (($v_position = strpos($p_path, ':')) != false)) {
  5682 + $p_path = substr($p_path, $v_position+1);
  5683 + }
  5684 + // ----- Change potential windows directory separator
  5685 + if ((strpos($p_path, '\\') > 0) || (substr($p_path, 0,1) == '\\')) {
  5686 + $p_path = strtr($p_path, '\\', '/');
  5687 + }
  5688 + }
  5689 + return $p_path;
  5690 + }
  5691 + // --------------------------------------------------------------------------------
  5692 +
  5693 +
  5694 +?>
... ...