PHP gzputs Examples

Programming Language: PHP

Method/Function: gzputs

Examples at hotexamples.com: 30

PHP gzputs - 30 examples found. These are the top rated real world PHP examples of gzputs extracted from open source projects. You can rate examples to help us improve the quality of examples.

Example #1

Show file

File: LayoutHeadResource.php Project: esase/dream-cms

 /**
  * Gzip content
  *
  * @param string $filePath
  * @param string $content
  * @return void
  */
 protected function gzipContent($filePath, $content)
 {
     $functionName = function_exists('gzopen') ? 'gzopen' : 'gzopen64';
     $gzip = $functionName($filePath . $this->gzFileExtension, $this->gzCompressionLevel);
     gzputs($gzip, $content);
     gzclose($gzip);
 }

Example #2

Show file

File: Cache.php Project: tboothman/imdbphp

 /**
  * @inheritdoc
  */
 public function setInternal($key, $cleanKey, $value)
 {
     $fname = $this->config->cachedir . '/' . $cleanKey;
     $this->logger->debug("[Cache] Writing key [{$key}] to [{$fname}]");
     if ($this->config->usezip) {
         $fp = gzopen($fname, "w");
         gzputs($fp, $value);
         gzclose($fp);
     } else {
         // no zip
         $this->logger->debug("[Cache] Writing {$fname}");
         file_put_contents($fname, $value);
     }
 }

Example #3

Show file

File: catalog_excel_export.php Project: gblok/rsc

function fputcsvex($f, $listi, $d = ",", $q = '"')
{
    $line = "";
    foreach ($listi as $field) {
        $field = iconv("utf-8", "windows-1251", $field);
        # remove any windows new lines,
        # as they interfere with the parsing at the other end
        $field = str_replace("\r\n", " ", $field);
        # if a deliminator char, a double quote char or a newline
        # are in the field, add quotes
        if (ereg("[{$d}{$q}\n\r]", $field)) {
            $field = $q . str_replace($q, $q . $q, $field) . $q;
        }
        $line .= $field . $d;
    }
    # strip the last deliminator
    $line = substr($line, 0, -1);
    # add the newline
    $line .= "\n";
    # we don't care if the file pointer is invalid,
    # let fputs take care of it
    return gzputs($f, $line);
}

Example #4

Show file

File: imdb_cache.class.php Project: snatcho/laquinieladelososcars

 /**
  * Store $value to the disk cache
  * @param string $key
  * @param string $value
  * @return bool successful?
  */
 public function set($key, $value)
 {
     $cleanKey = $this->sanitiseKey($key);
     if (!is_dir($this->config->cachedir)) {
         $this->logger->critical("[Cache] Configured cache directory [{$this->config->cachedir}] does not exist!");
         return false;
     }
     if (!is_writable($this->config->cachedir)) {
         $this->logger->critical("[Cache] Configured cache directory [{$this->config->cachedir}] lacks write permission!");
         return false;
     }
     $fname = $this->config->cachedir . '/' . $cleanKey;
     $this->logger->debug("[Cache] Writing key [{$key}] to [{$fname}]");
     if ($this->config->usezip) {
         $fp = gzopen($fname, "w");
         gzputs($fp, $value);
         gzclose($fp);
     } else {
         // no zip
         $this->logger->debug("[Cache] Writing {$fname}");
         file_put_contents($fname, $value);
     }
     return true;
 }

Example #5

Show file

File: mdb_base.class.php Project: UniversalAdministrator/U-232-V4

 /** Writing content to cache
  * @method cache_write
  * @param string filename file name relative to cache dir to store the content into
  * @param ref string content content to store
  */
 public function cache_write($file, &$content)
 {
     if (!is_dir($this->cachedir)) {
         $this->debug_scalar("<BR>***ERROR*** Configured cache directory does not exist!<BR>");
     } elseif (!is_writable($this->cachedir)) {
         $this->debug_scalar("<BR>***ERROR*** Configured cache directory lacks write permission!<BR>");
     } else {
         $fname = $this->cachedir . '/' . $file;
         if ($this->usezip) {
             $fp = gzopen($fname, "w");
             gzputs($fp, $content);
             gzclose($fp);
         } else {
             // no zip
             $fp = fopen($fname, "w");
             fputs($fp, $content);
             fclose($fp);
         }
     }
 }

Example #6

Show file

File: pclzip.class.php Project: SayenkoDesign/ividf

 function privAddFileUsingTempFile($p_filedescr, &$p_header, &$p_options)
 {
     $startTime = microtime(true);
     $v_result = IWP_PCLZIP_ERR_NO_ERROR;
     // ----- Working variable
     $p_filename = $p_filedescr['filename'];
     // ----- Open the source file
     if (($v_file = @fopen($p_filename, "rb")) == 0) {
         IWPPclZip::privErrorLog(IWP_PCLZIP_ERR_READ_OPEN_FAIL, "Unable to open file '{$p_filename}' in binary read mode. Please try changing the file permission to 644 or exclude this file from your backup.");
         //return array( 'error' => "Unable to open file '$p_filename' in binary read mode. Please try changing the file permission to 644 or exclude this file from your backup.");
         return IWPPclZip::errorCode();
     }
     // ----- Creates a compressed temporary file
     $v_gzip_temp_name = IWP_PCLZIP_TEMPORARY_DIR . uniqid('pclzip-') . '.gz';
     if (($v_file_compressed = @gzopen($v_gzip_temp_name, "wb")) == 0) {
         fclose($v_file);
         IWPPclZip::privErrorLog(IWP_PCLZIP_ERR_WRITE_OPEN_FAIL, 'Unable to open temporary file \'' . $v_gzip_temp_name . '\' in binary write mode');
         //return array( 'error' => 'Unable to open temporary file \''.$v_gzip_temp_name.'\' in binary write mode');
         return IWPPclZip::errorCode();
     }
     $tempLoopStart = microtime(true);
     // ----- Read the file by IWP_PCLZIP_READ_BLOCK_SIZE octets blocks
     //$v_size = iwp_mmb_get_file_size($p_filename);
     $v_size = $p_filedescr['size'];
     //darkPrince setting fileSize from Array
     if ($p_filedescr['splitFilename'] != '') {
         @fseek($v_file, $p_filedescr['splitOffset']);
     }
     while ($v_size != 0) {
         $v_read_size = $v_size < IWP_PCLZIP_READ_BLOCK_SIZE ? $v_size : IWP_PCLZIP_READ_BLOCK_SIZE;
         $v_buffer = @fread($v_file, $v_read_size);
         //$v_binary_data = pack('a'.$v_read_size, $v_buffer);
         @gzputs($v_file_compressed, $v_buffer, $v_read_size);
         $v_size -= $v_read_size;
     }
     // ----- Close the file
     @fclose($v_file);
     @gzclose($v_file_compressed);
     //$timeTak = microtime(true) - $tempLoopStart;
     // ----- Check the minimum file size
     if (iwp_mmb_get_file_size($v_gzip_temp_name) < 18) {
         echo "Check the minimum file size error";
         IWPPclZip::privErrorLog(IWP_PCLZIP_ERR_BAD_FORMAT, 'gzip temporary file \'' . $v_gzip_temp_name . '\' has invalid filesize - should be minimum 18 bytes');
         //return array( 'error' => 'Zip-error: Error compressing the file "'.$p_filedescr['filename'].'".Try excluding this file and try again.');
         return IWPPclZip::errorCode();
     }
     // ----- Extract the compressed attributes
     if (($v_file_compressed = @fopen($v_gzip_temp_name, "rb")) == 0) {
         IWPPclZip::privErrorLog(IWP_PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \'' . $v_gzip_temp_name . '\' in binary read mode');
         return IWPPclZip::errorCode();
     }
     // ----- Read the gzip file header
     $v_binary_data = @fread($v_file_compressed, 10);
     $v_data_header = unpack('a1id1/a1id2/a1cm/a1flag/Vmtime/a1xfl/a1os', $v_binary_data);
     // ----- Check some parameters
     $v_data_header['os'] = bin2hex($v_data_header['os']);
     // ----- Read the gzip file footer
     @fseek($v_file_compressed, iwp_mmb_get_file_size($v_gzip_temp_name) - 8);
     $v_binary_data = @fread($v_file_compressed, 8);
     $v_data_footer = unpack('Vcrc/Vcompressed_size', $v_binary_data);
     // ----- Set the attributes
     $p_header['compression'] = ord($v_data_header['cm']);
     //$p_header['mtime'] = $v_data_header['mtime'];
     $p_header['crc'] = $v_data_footer['crc'];
     $p_header['compressed_size'] = iwp_mmb_get_file_size($v_gzip_temp_name) - 18;
     if ($p_filedescr['splitFilename'] != '') {
         $p_header['filename'] = $p_filedescr['stored_filename'] . $p_filedescr['splitFilename'];
     }
     // ----- Close the file
     @fclose($v_file_compressed);
     // ----- Call the header generation
     if (($v_result = $this->privWriteFileHeader($p_header)) != 1) {
         return $v_result;
     }
     // ----- Add the compressed data
     if (($v_file_compressed = @fopen($v_gzip_temp_name, "rb")) == 0) {
         IWPPclZip::privErrorLog(IWP_PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \'' . $v_gzip_temp_name . '\' in binary read mode');
         return IWPPclZip::errorCode();
     }
     // ----- Read the file by IWP_PCLZIP_READ_BLOCK_SIZE octets blocks
     @fseek($v_file_compressed, 10);
     $v_size = $p_header['compressed_size'];
     while ($v_size != 0) {
         $v_read_size = $v_size < IWP_PCLZIP_READ_BLOCK_SIZE ? $v_size : IWP_PCLZIP_READ_BLOCK_SIZE;
         $v_buffer = @fread($v_file_compressed, $v_read_size);
         if ($v_buffer === false) {
             return -1;
         }
         //$v_binary_data = pack('a'.$v_read_size, $v_buffer);
         $wr_result = @fwrite($this->zip_fd, $v_buffer, $v_read_size);
         if ($wr_result === false) {
             return -1;
         }
         $v_size -= $v_read_size;
     }
     // ----- Close the file
     @fclose($v_file_compressed);
     // ----- Unlink the temporary file
     @unlink($v_gzip_temp_name);
     $timeTakenFOrTempAdd = microtime(true) - $startTime;
     //echo "TimeTakenFOrTempAdd".$timeTakenFOrTempAdd;
     // ----- Return
     return $v_result;
 }

Example #7

Show file

File: tar_gz.php Project: ASDAFF/open_bx

 private function _writeBlock($v_binary_data, $iLen = false)
 {
     if (is_resource($this->_dFile)) {
         if ($iLen === false) {
             if ($this->_bCompress) {
                 @gzputs($this->_dFile, $v_binary_data);
             } else {
                 @fputs($this->_dFile, $v_binary_data);
             }
         } else {
             if ($this->_bCompress) {
                 @gzputs($this->_dFile, $v_binary_data, $iLen);
             } else {
                 @fputs($this->_dFile, $v_binary_data, $iLen);
             }
         }
     }
     return true;
 }

Example #8

Show file

File: pcltar.lib.php Project: chegestar/catroxs

 function PclTarHandleUpdate($p_tarname, $p_file_list, &$p_list_detail, $p_tar_mode, $p_add_dir, $p_remove_dir)
 {
     TrFctStart(__FILE__, __LINE__, "PclTarHandleUpdate", "archive='{$p_tarname}', list, tar_mode={$p_tar_mode}");
     $v_result = 1;
     $v_nb = 0;
     $v_found_list = array();
     // ----- Look for regular tar file
     if ($p_tar_mode == "tar") {
         // ----- Open file
         TrFctMessage(__FILE__, __LINE__, 3, "Open file in binary read mode");
         if (($v_tar = @fopen($p_tarname, "rb")) == 0) {
             // ----- Error log
             PclErrorLog(-2, "Unable to open file '{$p_tarname}' in binary read mode");
             // ----- Return
             TrFctEnd(__FILE__, __LINE__, PclErrorCode(), PclErrorString());
             return PclErrorCode();
         }
         // ----- Open a temporary file in write mode
         $v_temp_tarname = uniqid("pcltar-") . ".tmp";
         TrFctMessage(__FILE__, __LINE__, 2, "Creating temporary archive file {$v_temp_tarname}");
         if (($v_temp_tar = @fopen($v_temp_tarname, "wb")) == 0) {
             // ----- Close tar file
             fclose($v_tar);
             // ----- Error log
             PclErrorLog(-1, "Unable to open file '{$v_temp_tarname}' in binary write mode");
             // ----- Return
             TrFctEnd(__FILE__, __LINE__, PclErrorCode(), PclErrorString());
             return PclErrorCode();
         }
     } else {
         // ----- Open the file in read mode
         TrFctMessage(__FILE__, __LINE__, 3, "Open file in gzip binary read mode");
         if (($v_tar = @gzopen($p_tarname, "rb")) == 0) {
             // ----- Error log
             PclErrorLog(-2, "Unable to open file '{$p_tarname}' in binary read mode");
             // ----- Return
             TrFctEnd(__FILE__, __LINE__, PclErrorCode(), PclErrorString());
             return PclErrorCode();
         }
         // ----- Open a temporary file in write mode
         $v_temp_tarname = uniqid("pcltar-") . ".tmp";
         TrFctMessage(__FILE__, __LINE__, 2, "Creating temporary archive file {$v_temp_tarname}");
         if (($v_temp_tar = @gzopen($v_temp_tarname, "wb")) == 0) {
             // ----- Close tar file
             gzclose($v_tar);
             // ----- Error log
             PclErrorLog(-1, "Unable to open file '{$v_temp_tarname}' in binary write mode");
             // ----- Return
             TrFctEnd(__FILE__, __LINE__, PclErrorCode(), PclErrorString());
             return PclErrorCode();
         }
     }
     // ----- Prepare the list of files
     for ($i = 0; $i < sizeof($p_file_list); $i++) {
         // ----- Reset the found list
         $v_found_list[$i] = 0;
         // ----- Calculate the stored filename
         $v_stored_list[$i] = $p_file_list[$i];
         if ($p_remove_dir != "") {
             if (substr($p_file_list[$i], -1) != '/') {
                 $p_remove_dir .= "/";
             }
             if (substr($p_file_list[$i], 0, strlen($p_remove_dir)) == $p_remove_dir) {
                 $v_stored_list[$i] = substr($p_file_list[$i], strlen($p_remove_dir));
                 TrFctMessage(__FILE__, __LINE__, 3, "Remove path '{$p_remove_dir}' in file '{$p_file_list[$i]}' = '{$v_stored_list[$i]}'");
             }
         }
         if ($p_add_dir != "") {
             if (substr($p_add_dir, -1) == "/") {
                 $v_stored_list[$i] = $p_add_dir . $v_stored_list[$i];
             } else {
                 $v_stored_list[$i] = $p_add_dir . "/" . $v_stored_list[$i];
             }
             TrFctMessage(__FILE__, __LINE__, 3, "Add path '{$p_add_dir}' in file '{$p_file_list[$i]}' = '{$v_stored_list[$i]}'");
         }
         $v_stored_list[$i] = PclTarHandlePathReduction($v_stored_list[$i]);
         TrFctMessage(__FILE__, __LINE__, 3, "After reduction '{$v_stored_list[$i]}'");
     }
     // ----- Update file cache
     clearstatcache();
     // ----- Read the blocks
     while (!($v_end_of_file = $p_tar_mode == "tar" ? feof($v_tar) : gzeof($v_tar))) {
         TrFctMessage(__FILE__, __LINE__, 3, "Looking for next header ...");
         // ----- Clear cache of file infos
         clearstatcache();
         // ----- Reset current found filename
         $v_current_filename = "";
         // ----- Reset delete tag
         $v_delete_file = FALSE;
         // ----- Read the first 512 block header
         if ($p_tar_mode == "tar") {
             $v_binary_data = fread($v_tar, 512);
         } else {
             $v_binary_data = gzread($v_tar, 512);
         }
         // ----- Read the header properties
         if (($v_result = PclTarHandleReadHeader($v_binary_data, $v_header)) != 1) {
             // ----- Close the archive file
             if ($p_tar_mode == "tar") {
                 fclose($v_tar);
                 fclose($v_temp_tar);
             } else {
                 gzclose($v_tar);
                 gzclose($v_temp_tar);
             }
             @unlink($v_temp_tarname);
             // ----- Return
             TrFctEnd(__FILE__, __LINE__, $v_result);
             return $v_result;
         }
         // ----- Look for empty blocks to skip
         if ($v_header[filename] == "") {
             TrFctMessage(__FILE__, __LINE__, 2, "Empty block found. End of archive ?");
             continue;
         }
         TrFctMessage(__FILE__, __LINE__, 2, "Found file '{$v_header['filename']}', size '{$v_header['size']}'");
         // ----- Look for filenames to update
         for ($i = 0, $v_update_file = FALSE, $v_found_file = FALSE; $i < sizeof($v_stored_list) && !$v_update_file; $i++) {
             TrFctMessage(__FILE__, __LINE__, 4, "Compare with file '{$v_stored_list[$i]}'");
             // ----- Compare the file names
             if ($v_stored_list[$i] == $v_header[filename]) {
                 TrFctMessage(__FILE__, __LINE__, 3, "File '{$v_stored_list[$i]}' is present in archive");
                 TrFctMessage(__FILE__, __LINE__, 3, "File '{$v_stored_list[$i]}' mtime=" . filemtime($p_file_list[$i]) . " " . date("l dS of F Y h:i:s A", filemtime($p_file_list[$i])));
                 TrFctMessage(__FILE__, __LINE__, 3, "Archived mtime=" . $v_header[mtime] . " " . date("l dS of F Y h:i:s A", $v_header[mtime]));
                 // ----- Store found informations
                 $v_found_file = TRUE;
                 $v_current_filename = $p_file_list[$i];
                 // ----- Look if the file need to be updated
                 if (filemtime($p_file_list[$i]) > $v_header[mtime]) {
                     TrFctMessage(__FILE__, __LINE__, 3, "File '{$p_file_list[$i]}' need to be updated");
                     $v_update_file = TRUE;
                 } else {
                     TrFctMessage(__FILE__, __LINE__, 3, "File '{$p_file_list[$i]}' does not need to be updated");
                     $v_update_file = FALSE;
                 }
                 // ----- Flag the name in order not to add the file at the end
                 $v_found_list[$i] = 1;
             } else {
                 TrFctMessage(__FILE__, __LINE__, 4, "File '{$p_file_list[$i]}' is not '{$v_header['filename']}'");
             }
         }
         // ----- Copy files that do not need to be updated
         if (!$v_update_file) {
             TrFctMessage(__FILE__, __LINE__, 2, "Keep file '{$v_header['filename']}'");
             // ----- Write the file header
             if ($p_tar_mode == "tar") {
                 fputs($v_temp_tar, $v_binary_data, 512);
             } else {
                 gzputs($v_temp_tar, $v_binary_data, 512);
             }
             // ----- Write the file data
             $n = ceil($v_header[size] / 512);
             for ($j = 0; $j < $n; $j++) {
                 TrFctMessage(__FILE__, __LINE__, 3, "Read complete 512 bytes block number " . ($j + 1));
                 if ($p_tar_mode == "tar") {
                     $v_content = fread($v_tar, 512);
                     fwrite($v_temp_tar, $v_content, 512);
                 } else {
                     $v_content = gzread($v_tar, 512);
                     gzwrite($v_temp_tar, $v_content, 512);
                 }
             }
             // ----- File name and properties are logged if listing mode or file is extracted
             TrFctMessage(__FILE__, __LINE__, 2, "Memorize info about file '{$v_header['filename']}'");
             // ----- Add the array describing the file into the list
             $p_list_detail[$v_nb] = $v_header;
             $p_list_detail[$v_nb][status] = $v_found_file ? "not_updated" : "ok";
             // ----- Increment
             $v_nb++;
         } else {
             // ----- Trace
             TrFctMessage(__FILE__, __LINE__, 2, "Start update of file '{$v_current_filename}'");
             // ----- Store the old file size
             $v_old_size = $v_header[size];
             // ----- Add the file
             if (($v_result = PclTarHandleAddFile($v_temp_tar, $v_current_filename, $p_tar_mode, $v_header, $p_add_dir, $p_remove_dir)) != 1) {
                 // ----- Close the tarfile
                 if ($p_tar_mode == "tar") {
                     fclose($v_tar);
                     fclose($v_temp_tar);
                 } else {
                     gzclose($v_tar);
                     gzclose($v_temp_tar);
                 }
                 @unlink($p_temp_tarname);
                 // ----- Return status
                 TrFctEnd(__FILE__, __LINE__, $v_result);
                 return $v_result;
             }
             // ----- Trace
             TrFctMessage(__FILE__, __LINE__, 2, "Skip old file '{$v_header['filename']}'");
             // ----- Jump to next file
             if ($p_tar_mode == "tar") {
                 fseek($v_tar, ftell($v_tar) + ceil($v_old_size / 512) * 512);
             } else {
                 gzseek($v_tar, gztell($v_tar) + ceil($v_old_size / 512) * 512);
             }
             // ----- Add the array describing the file into the list
             $p_list_detail[$v_nb] = $v_header;
             $p_list_detail[$v_nb][status] = "updated";
             // ----- Increment
             $v_nb++;
         }
         // ----- Look for end of file
         if ($p_tar_mode == "tar") {
             $v_end_of_file = feof($v_tar);
         } else {
             $v_end_of_file = gzeof($v_tar);
         }
     }
     // ----- Look for files that does not exists in the archive and need to be added
     for ($i = 0; $i < sizeof($p_file_list); $i++) {
         // ----- Look if file not found in the archive
         if (!$v_found_list[$i]) {
             TrFctMessage(__FILE__, __LINE__, 3, "File '{$p_file_list[$i]}' need to be added");
             // ----- Add the file
             if (($v_result = PclTarHandleAddFile($v_temp_tar, $p_file_list[$i], $p_tar_mode, $v_header, $p_add_dir, $p_remove_dir)) != 1) {
                 // ----- Close the tarfile
                 if ($p_tar_mode == "tar") {
                     fclose($v_tar);
                     fclose($v_temp_tar);
                 } else {
                     gzclose($v_tar);
                     gzclose($v_temp_tar);
                 }
                 @unlink($p_temp_tarname);
                 // ----- Return status
                 TrFctEnd(__FILE__, __LINE__, $v_result);
                 return $v_result;
             }
             // ----- Add the array describing the file into the list
             $p_list_detail[$v_nb] = $v_header;
             $p_list_detail[$v_nb][status] = "added";
             // ----- Increment
             $v_nb++;
         } else {
             TrFctMessage(__FILE__, __LINE__, 3, "File '{$p_file_list[$i]}' was already updated if needed");
         }
     }
     // ----- Write the last empty buffer
     PclTarHandleFooter($v_temp_tar, $p_tar_mode);
     // ----- Close the tarfile
     if ($p_tar_mode == "tar") {
         fclose($v_tar);
         fclose($v_temp_tar);
     } else {
         gzclose($v_tar);
         gzclose($v_temp_tar);
     }
     // ----- Unlink tar file
     if (!@unlink($p_tarname)) {
         // ----- Error log
         PclErrorLog(-11, "Error while deleting archive name {$p_tarname}");
     }
     // ----- Rename tar file
     if (!@rename($v_temp_tarname, $p_tarname)) {
         // ----- Error log
         PclErrorLog(-12, "Error while renaming temporary file {$v_temp_tarname} to archive name {$p_tarname}");
         // ----- Return
         TrFctEnd(__FILE__, __LINE__, PclErrorCode(), PclErrorString());
         return PclErrorCode();
     }
     // ----- Return
     TrFctEnd(__FILE__, __LINE__, $v_result);
     return $v_result;
 }

Example #9

Show file

File: serialization_functions.php Project: gblok/rsc

function serProductAndCategoriesSerialization($fileName)
{
    $f = gzopen($fileName, "w");
    $xmlTables = new XmlNode();
    $xmlTables->LoadInnerXmlFromFile(DATABASE_STRUCTURE_XML_PATH);
    $array = $xmlTables->SelectNodes("DataBaseStructure/tables/table");
    foreach ($array as $xmlTable) {
        $attrubtes = $xmlTable->GetXmlNodeAttributes();
        if (isset($attrubtes["PRODUCTANDCATEGORYSYNC"])) {
            if (strtoupper($attrubtes["PRODUCTANDCATEGORYSYNC"]) == "TRUE") {
                $res = _tableSerialization($xmlTable);
                gzputs($f, $res . "\n");
            }
        }
    }
    gzclose($f);
}

Example #10

Show file

File: gzputs_basic.php Project: badlamer/hhvm

<?php

$filename = dirname(__FILE__) . "/gzputs_basic.txt.gz";
$h = gzopen($filename, 'w');
$str = "Here is the string to be written. ";
$length = 10;
var_dump(gzputs($h, $str));
var_dump(gzputs($h, $str, $length));
gzclose($h);
$h = gzopen($filename, 'r');
gzpassthru($h);
gzclose($h);
echo "\n";
unlink($filename);
?>
===DONE===

Example #11

Show file

File: pclzip-trace.lib.php Project: BackupTheBerlios/phreakpic

 function privAddFile($p_filename, &$p_header, $p_add_dir, $p_remove_dir, $p_remove_all_dir, &$p_options)
 {
     PclTraceFctStart(__FILE__, __LINE__, "PclZip::privAddFile", "filename='{$p_filename}', add_dir='{$p_add_dir}', remove_dir='{$p_remove_dir}'");
     $v_result = 1;
     if ($p_filename == "") {
         // ----- Error log
         PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid file list parameter (invalid or empty list)");
         // ----- Return
         PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
         return PclZip::errorCode();
     }
     // ----- Calculate the stored filename
     $v_stored_filename = $p_filename;
     // ----- Look for all path to remove
     if ($p_remove_all_dir) {
         $v_stored_filename = basename($p_filename);
     } else {
         if ($p_remove_dir != "") {
             if (substr($p_remove_dir, -1) != '/') {
                 $p_remove_dir .= "/";
             }
             if (substr($p_filename, 0, 2) == "./" || substr($p_remove_dir, 0, 2) == "./") {
                 if (substr($p_filename, 0, 2) == "./" && substr($p_remove_dir, 0, 2) != "./") {
                     $p_remove_dir = "./" . $p_remove_dir;
                 }
                 if (substr($p_filename, 0, 2) != "./" && substr($p_remove_dir, 0, 2) == "./") {
                     $p_remove_dir = substr($p_remove_dir, 2);
                 }
             }
             if (substr($p_filename, 0, strlen($p_remove_dir)) == $p_remove_dir) {
                 $v_stored_filename = substr($p_filename, strlen($p_remove_dir));
                 PclTraceFctMessage(__FILE__, __LINE__, 3, "Remove path '{$p_remove_dir}' in file '{$p_filename}' = '{$v_stored_filename}'");
             }
         }
     }
     // ----- Look for path to add
     if ($p_add_dir != "") {
         if (substr($p_add_dir, -1) == "/") {
             $v_stored_filename = $p_add_dir . $v_stored_filename;
         } else {
             $v_stored_filename = $p_add_dir . "/" . $v_stored_filename;
         }
         PclTraceFctMessage(__FILE__, __LINE__, 3, "Add path '{$p_add_dir}' in file '{$p_filename}' = '{$v_stored_filename}'");
     }
     // ----- Filename (reduce the path of stored name)
     $v_stored_filename = PclZipUtilPathReduction($v_stored_filename);
     PclTraceFctMessage(__FILE__, __LINE__, 2, "Filename (reduced) '{$v_stored_filename}', strlen " . strlen($v_stored_filename));
     /* filename length moved after call-back in release 1.3
         // ----- Check the path length
         if (strlen($v_stored_filename) > 0xFF)
         {
           // ----- Error log
           PclZip::privErrorLog(-5, "Stored file name is too long (max. 255) : '$v_stored_filename'");
     
           // ----- Return
           PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
           return PclZip::errorCode();
         }
         */
     // ----- Set the file properties
     clearstatcache();
     $p_header['version'] = 20;
     $p_header['version_extracted'] = 10;
     $p_header['flag'] = 0;
     $p_header['compression'] = 0;
     $p_header['mtime'] = filemtime($p_filename);
     $p_header['crc'] = 0;
     $p_header['compressed_size'] = 0;
     $p_header['size'] = filesize($p_filename);
     $p_header['filename_len'] = strlen($p_filename);
     $p_header['extra_len'] = 0;
     $p_header['comment_len'] = 0;
     $p_header['disk'] = 0;
     $p_header['internal'] = 0;
     $p_header['external'] = is_file($p_filename) ? 0.0 : 0x41ff0010;
     $p_header['offset'] = 0;
     $p_header['filename'] = $p_filename;
     $p_header['stored_filename'] = $v_stored_filename;
     $p_header['extra'] = '';
     $p_header['comment'] = '';
     $p_header['status'] = 'ok';
     // ----- Look for pre-add callback
     if (isset($p_options[PCLZIP_CB_PRE_ADD])) {
         PclTraceFctMessage(__FILE__, __LINE__, 2, "A pre-callback '" . $p_options[PCLZIP_CB_PRE_ADD] . "()') is defined for the extraction");
         // ----- Generate a local information
         $v_local_header = array();
         $this->privConvertHeader2FileInfo($p_header, $v_local_header);
         // ----- Call the callback
         // Here I do not use call_user_func() because I need to send a reference to the
         // header.
         eval('$v_result = ' . $p_options[PCLZIP_CB_PRE_ADD] . '(PCLZIP_CB_PRE_ADD, $v_local_header);');
         if ($v_result == 0) {
             // ----- Change the file status
             $p_header['status'] = "skipped";
             $v_result = 1;
         }
         // ----- Update the informations
         // Only some fields can be modified
         if ($p_header['stored_filename'] != $v_local_header['stored_filename']) {
             $p_header['stored_filename'] = PclZipUtilPathReduction($v_local_header['stored_filename']);
             PclTraceFctMessage(__FILE__, __LINE__, 2, "New stored filename is '" . $p_header['stored_filename'] . "'");
         }
     }
     // ----- Check the path length
     if (strlen($p_header['stored_filename']) > 0xff) {
         $p_header['status'] = 'filename_too_long';
     }
     // ----- Look if no error, or file not skipped
     if ($p_header['status'] == 'ok') {
         // ----- Look for a file
         if (is_file($p_filename)) {
             // ----- Open the source file
             if (($v_file = @fopen($p_filename, "rb")) == 0) {
                 // ----- Error log
                 PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, "Unable to open file '{$p_filename}' in binary read mode");
                 // ----- Return
                 PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
                 return PclZip::errorCode();
             }
             // ----- Creates a compressed temporary file
             if (($v_file_compressed = @gzopen($p_filename . '.gz', "wb")) == 0) {
                 // ----- Close the file
                 fclose($v_file);
                 // ----- Error log
                 PclZip::privErrorLog(PCLZIP_ERR_WRITE_OPEN_FAIL, "Unable to open file '{$p_filename}.gz' in gz binary write mode");
                 // ----- Return
                 PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
                 return PclZip::errorCode();
             }
             // ----- Read the file by PCLZIP_READ_BLOCK_SIZE octets blocks
             $v_size = filesize($p_filename);
             while ($v_size != 0) {
                 $v_read_size = $v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE;
                 PclTraceFctMessage(__FILE__, __LINE__, 2, "Read {$v_read_size} bytes");
                 $v_buffer = fread($v_file, $v_read_size);
                 $v_binary_data = pack('a' . $v_read_size, $v_buffer);
                 @gzputs($v_file_compressed, $v_binary_data, $v_read_size);
                 $v_size -= $v_read_size;
             }
             // ----- Close the file
             @fclose($v_file);
             @gzclose($v_file_compressed);
             // ----- Check the minimum file size
             PclTraceFctMessage(__FILE__, __LINE__, 4, "gzip file size " . filesize($p_filename . '.gz'));
             if (filesize($p_filename . '.gz') < 18) {
                 // ----- Error log
                 PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Invalid file "' . $p_filename . '.gz' . '" size (less than header size)');
                 // ----- Return
                 PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
                 return PclZip::errorCode();
             }
             // ----- Extract the compressed attributes
             if (($v_file_compressed = @fopen($p_filename . '.gz', "rb")) == 0) {
                 // ----- Error log
                 PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, "Unable to open file '{$p_filename}.gz' in gz binary read mode");
                 // ----- Return
                 PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
                 return PclZip::errorCode();
             }
             // ----- Read the gzip file header
             $v_binary_data = @fread($v_file_compressed, 10);
             $v_data_header = unpack('a1id1/a1id2/a1cm/a1flag/Vmtime/a1xfl/a1os', $v_binary_data);
             // ----- Check some parameters
             PclTraceFctMessage(__FILE__, __LINE__, 4, '$v_data_header[id1]=' . bin2hex($v_data_header['id1']));
             PclTraceFctMessage(__FILE__, __LINE__, 4, '$v_data_header[id2]=' . bin2hex($v_data_header['id2']));
             PclTraceFctMessage(__FILE__, __LINE__, 4, '$v_data_header[cm]=' . bin2hex($v_data_header['cm']));
             PclTraceFctMessage(__FILE__, __LINE__, 4, '$v_data_header[flag]=' . bin2hex($v_data_header['flag']));
             PclTraceFctMessage(__FILE__, __LINE__, 4, '$v_data_header[mtime]=' . $v_data_header['mtime']);
             PclTraceFctMessage(__FILE__, __LINE__, 4, '$v_data_header[xfl]=' . bin2hex($v_data_header['xfl']));
             PclTraceFctMessage(__FILE__, __LINE__, 4, '$v_data_header[os]=' . bin2hex($v_data_header['os']));
             $v_data_header['os'] = bin2hex($v_data_header['os']);
             // ----- Read the gzip file footer
             PclTraceFctMessage(__FILE__, __LINE__, 4, "File position after header " . ftell($v_file_compressed));
             @fseek($v_file_compressed, filesize($p_filename . '.gz') - 8);
             PclTraceFctMessage(__FILE__, __LINE__, 4, "File position at beginning of footer " . ftell($v_file_compressed));
             $v_binary_data = @fread($v_file_compressed, 8);
             PclTraceFctMessage(__FILE__, __LINE__, 4, "File position after footer " . ftell($v_file_compressed));
             $v_data_footer = unpack('Vcrc/Vcompressed_size', $v_binary_data);
             // ----- Set the attributes
             $p_header['compression'] = ord($v_data_header['cm']);
             //$p_header['mtime'] = $v_data_header['mtime'];
             $p_header['crc'] = $v_data_footer['crc'];
             PclTraceFctMessage(__FILE__, __LINE__, 4, "Compressed size " . (filesize($p_filename . '.gz') - 18));
             $p_header['compressed_size'] = filesize($p_filename . '.gz') - 18;
             // ----- Close the file
             @fclose($v_file_compressed);
             // ----- Call the header generation
             if (($v_result = $this->privWriteFileHeader($p_header)) != 1) {
                 // ----- Return status
                 PclTraceFctEnd(__FILE__, __LINE__, $v_result);
                 return $v_result;
             }
             // ----- Add the compressed data
             if (($v_file_compressed = @fopen($p_filename . '.gz', "rb")) == 0) {
                 // ----- Error log
                 PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, "Unable to open file '{$p_filename}.gz' in gz binary read mode");
                 // ----- Return
                 PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
                 return PclZip::errorCode();
             }
             // ----- Read the file by PCLZIP_READ_BLOCK_SIZE octets blocks
             fseek($v_file_compressed, 10);
             PclTraceFctMessage(__FILE__, __LINE__, 4, "File position before reading compressed data " . ftell($v_file_compressed));
             PclTraceFctMessage(__FILE__, __LINE__, 4, ' ' . $p_header['compressed_size'] . ' bytes to read');
             $v_size = $p_header['compressed_size'];
             while ($v_size != 0) {
                 $v_read_size = $v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE;
                 PclTraceFctMessage(__FILE__, __LINE__, 2, "Read {$v_read_size} bytes");
                 $v_buffer = fread($v_file_compressed, $v_read_size);
                 $v_binary_data = pack('a' . $v_read_size, $v_buffer);
                 @fwrite($this->zip_fd, $v_binary_data, $v_read_size);
                 $v_size -= $v_read_size;
             }
             // ----- Close the file
             @fclose($v_file_compressed);
             // ----- Unlink the temporary file
             @unlink($p_filename . '.gz');
         } else {
             // ----- Set the file properties
             $p_header['filename'] .= '/';
             $p_header['filename_len']++;
             $p_header['size'] = 0;
             $p_header['external'] = 0x41ff0010;
             // Value for a folder : to be checked
             // ----- Call the header generation
             if (($v_result = $this->privWriteFileHeader($p_header)) != 1) {
                 // ----- Return status
                 PclTraceFctEnd(__FILE__, __LINE__, $v_result);
                 return $v_result;
             }
         }
     }
     // ----- Look for pre-add callback
     if (isset($p_options[PCLZIP_CB_POST_ADD])) {
         PclTraceFctMessage(__FILE__, __LINE__, 2, "A post-callback '" . $p_options[PCLZIP_CB_POST_ADD] . "()') is defined for the extraction");
         // ----- Generate a local information
         $v_local_header = array();
         $this->privConvertHeader2FileInfo($p_header, $v_local_header);
         // ----- Call the callback
         // Here I do not use call_user_func() because I need to send a reference to the
         // header.
         eval('$v_result = ' . $p_options[PCLZIP_CB_POST_ADD] . '(PCLZIP_CB_POST_ADD, $v_local_header);');
         if ($v_result == 0) {
             // ----- Ignored
             $v_result = 1;
         }
         // ----- Update the informations
         // Nothing can be modified
     }
     // ----- Return
     PclTraceFctEnd(__FILE__, __LINE__, $v_result);
     return $v_result;
 }

Example #12

Show file

File: imdb_base.class.php Project: squiddz/moviesquiddz

 /** Load an IMDB page into the corresponding property (variable)
  * @method private openpage
  * @param string wt internal name of the page
  * @param optional string type whether its a "movie" (default) or a "person"
  */
 function openpage($wt, $type = "movie")
 {
     if (strlen($this->imdbID) != 7) {
         $this->debug_scalar("not valid imdbID: " . $this->imdbID . "<BR>" . strlen($this->imdbID));
         $this->page[$wt] = "cannot open page";
         return;
     }
     $urlname = $this->set_pagename($wt);
     if ($urlname === false) {
         return;
     }
     if ($this->usecache) {
         $fname = "{$this->cachedir}/{$this->imdbID}.{$wt}";
         if ($this->usezip) {
             if ($this->page[$wt] = @join("", @gzfile($fname))) {
                 if ($this->converttozip) {
                     @($fp = fopen($fname, "r"));
                     $zipchk = fread($fp, 2);
                     fclose($fp);
                     if (!($zipchk[0] == chr(31) && $zipchk[1] == chr(139))) {
                         //checking for zip header
                         /* converting on access */
                         $fp = @gzopen($fname, "w");
                         @gzputs($fp, $this->page[$wt]);
                         @gzclose($fp);
                     }
                 }
                 return;
             }
         } else {
             // no zip
             @($fp = fopen($fname, "r"));
             if ($fp) {
                 $temp = "";
                 while (!feof($fp)) {
                     $temp .= fread($fp, 1024);
                     $this->page[$wt] = $temp;
                 }
                 return;
             }
         }
     }
     // end cache
     $req = new IMDB_Request("");
     switch ($type) {
         case "person":
             $url = "http://" . $this->imdbsite . "/name/nm" . $this->imdbID . $urlname;
             break;
         default:
             $url = "http://" . $this->imdbsite . "/title/tt" . $this->imdbID . $urlname;
     }
     $req->setURL($url);
     $req->sendRequest();
     $this->page[$wt] = $req->getResponseBody();
     if ($this->page[$wt]) {
         //storecache
         if ($this->storecache) {
             if (!is_dir($this->cachedir)) {
                 $this->debug_scalar("<BR>***ERROR*** Configured cache directory does not exist!<BR>");
                 return;
             }
             if (!is_writable($this->cachedir)) {
                 $this->debug_scalar("<BR>***ERROR*** Configured cache directory lacks write permission!<BR>");
                 return;
             }
             $fname = "{$this->cachedir}/{$this->imdbID}.{$wt}";
             if ($this->usezip) {
                 $fp = gzopen($fname, "w");
                 gzputs($fp, $this->page[$wt]);
                 gzclose($fp);
             } else {
                 // no zip
                 $fp = fopen($fname, "w");
                 fputs($fp, $this->page[$wt]);
                 fclose($fp);
             }
         }
         return;
     }
     $this->page[$wt] = "cannot open page";
     $this->debug_scalar("cannot open page: {$url}");
 }

Example #13

Show file

File: visites.php Project: PetiLabo/PetiLabo

 public static function Ajouter_visite($nom_page, $langue, $anonymisation_ip, $respect_dnt)
 {
     // Récupération des infos
     if (strlen($nom_page) == 0) {
         return;
     }
     $dnt = isset($_SERVER["HTTP_DNT"]) ? !strcmp($_SERVER["HTTP_DNT"], "1") : false;
     if ($respect_dnt && $dnt) {
         $ip = _DB_VISITES_IP_DNT;
         $pays = _DB_VISITES_LABEL_GEOLOC_INCONNUE;
         $ville = _DB_VISITES_LABEL_GEOLOC_INCONNUE;
         $long = (double) _DB_VISITES_LABEL_COORD_INCONNUE;
         $lat = (double) _DB_VISITES_LABEL_COORD_INCONNUE;
         $referer = "";
     } else {
         $ip_stricte = self::Get_adresse_ip();
         if (strlen($ip_stricte) == 0) {
             return;
         }
         if (in_array($ip_stricte, self::$IP_a_bloquer)) {
             return;
         }
         $agent = self::Get_user_agent();
         if (strlen($agent) == 0) {
             return;
         }
         if (self::Is_bot($agent)) {
             return;
         }
         $referer = self::Get_referer();
         if (self::Is_spam($referer)) {
             return;
         }
         if (in_array($referer, self::$Ref_a_bloquer)) {
             return;
         }
         list($pays, $ville, $long, $lat) = self::Get_IP_geolocalisation($ip_stricte);
         if (in_array($pays, self::$Pays_a_bloquer)) {
             return;
         }
         if ($anonymisation_ip) {
             $ip_stricte = md5($ip_stricte);
         }
         $ip = (self::Is_mobile($agent) ? _DB_VISITES_INDICATEUR_MOBILE : "") . $ip_stricte;
     }
     $ip = strtoupper($langue) . $ip;
     $ip .= _DB_VISITES_SEPARATEUR_IP . $pays . _DB_VISITES_SEPARATEUR_IP . $ville;
     $ip .= _DB_VISITES_SEPARATEUR_IP . (double) $long . _DB_VISITES_SEPARATEUR_IP . (double) $lat;
     $ip .= _DB_VISITES_INDICATEUR_REFERER . self::Beautify_referer($referer);
     $date_courante = date("ymd");
     $date_peremtion = date("ymd", strtotime("-" . _DB_VISITES_DUREE_ARCHIVAGE . " days"));
     // Stockage dans le fichier db de la page
     $nom_db = _DB_PATH_ROOT . $nom_page . _DB_EXT;
     $nom_tmp = _DB_VISITES_TEMPORAIRE . uniqid() . ".db";
     $tmp = @gzopen($nom_tmp, "w");
     if (!$tmp) {
         return;
     }
     // if (!(@flock($tmp, LOCK_EX))) {@fclose($tmp);return;}
     $db_a_jour = false;
     $fichier = @gzopen($nom_db, "r");
     if ($fichier) {
         while (!@gzeof($fichier)) {
             $ligne = @gzgets($fichier);
             $champs = explode("|", $ligne);
             if (count($champs) != 3) {
                 continue;
             }
             list($date_db, $ip_db, $nb_db) = $champs;
             if (!preg_match("/^[0-9]{6}\$/", $date_db)) {
                 continue;
             }
             if ($date_db < $date_peremtion) {
                 continue;
             }
             $nb_visites = (int) $nb_db;
             if ($nb_visites < 1 || $nb_visites > 98) {
                 continue;
             }
             if (!strcmp($date_db, $date_courante) && !strcmp($ip_db, $ip)) {
                 $nb_visites += 1;
                 $db_a_jour = true;
             }
             @gzputs($tmp, $date_db . "|" . $ip_db . "|" . $nb_visites . "\n");
         }
         @gzclose($fichier);
     }
     if (!$db_a_jour) {
         @gzputs($tmp, $date_courante . "|" . $ip . "|1\n");
     }
     // @flock($tmp, LOCK_UN);
     @gzclose($tmp);
     @rename($nom_tmp, $nom_db);
     @chmod($nom_db, 0700);
 }

Example #14

Show file

File: Db.php Project: floxim/floxim

 public function dump($params)
 {
     $dump_path = fx::config('dev.mysqldump_path');
     if (!$dump_path) {
         return;
     }
     if (is_string($params)) {
         $params = array('file' => $params);
     }
     if (!$params['file']) {
         return;
     }
     $target_file = fx::path($params['file']);
     $params = array_merge(array('data' => true, 'schema' => true, 'add' => false, 'where' => false, 'tables' => array()), $params);
     $command = $dump_path . ' -u' . fx::config('db.user') . ' -p' . fx::config('db.password') . ' --host=' . fx::config('db.host');
     $command .= ' ' . fx::config('db.name');
     if (!$params['schema']) {
         $command .= ' --no-create-info';
     }
     if (!$params['data']) {
         $command .= ' --no-data';
     }
     $command .= ' --skip-comments';
     if ($params['where']) {
         $command .= ' --where="' . $params['where'] . '"';
     }
     foreach ($params['tables'] as $t) {
         $command .= ' ' . $this->replacePrefix('{{' . $t . '}}');
     }
     $do_gzip = isset($params['gzip']) && $params['gzip'] || preg_match("~\\.gz\$~", $target_file);
     if ($do_gzip) {
         $target_file = preg_replace("~\\.gz\$~", '', $target_file);
     }
     $command .= ($params['add'] ? ' >> ' : ' > ') . $target_file;
     exec($command);
     if ($do_gzip && file_exists($target_file)) {
         $gzipped_file = $target_file . '.gz';
         $gzipped = gzopen($gzipped_file, 'w');
         $raw = fopen($target_file, 'r');
         while (!feof($raw)) {
             $s = fgets($raw, 4096);
             gzputs($gzipped, $s, 4096);
         }
         fclose($raw);
         gzclose($gzipped);
         unlink($target_file);
         return $gzipped_file;
     }
 }

Example #15

Show file

File: ext_zlib.php Project: badlamer/hhvm

//////////////////////////////////////////////////////////////////////
var_dump(readgzfile(__DIR__ . "/test_ext_zlib.gz"));
VS(gzfile(__DIR__ . "/test_ext_zlib.gz"), array("Testing Ext Zlib\n"));
VS(gzuncompress(gzcompress("testing gzcompress")), "testing gzcompress");
VS(gzinflate(gzdeflate("testing gzdeflate")), "testing gzdeflate");
$zipped = gzencode("testing gzencode");
$tmpfile = tempnam('/tmp', 'vmzlibtest');
$f = fopen($tmpfile, "w");
fwrite($f, $zipped);
fclose($f);
var_dump(readgzfile($tmpfile));
$zipped = gzencode("testing gzencode");
VS(gzdecode($zipped), "testing gzencode");
$f = gzopen($tmpfile, "w");
VERIFY($f !== false);
gzputs($f, "testing gzputs\n");
gzwrite($f, "<html>testing gzwrite</html>\n");
gzclose($f);
$f = gzopen($tmpfile, "r");
VS(gzread($f, 7), "testing");
VS(gzgetc($f), " ");
VS(gzgets($f), "gzputs\n");
VS(gzgetss($f), "testing gzwrite\n");
VS(gztell($f), 44);
VERIFY(gzeof($f));
VERIFY(gzrewind($f));
VS(gztell($f), 0);
VERIFY(!gzeof($f));
gzseek($f, -7, SEEK_END);
VS(gzgets($f), "testing gzputs\n");
gzclose($f);

Example #16

Show file

File: zip.ex.pcl.php Project: pf5512/phpstudy

if (!defined('PCLZIP_READ_BLOCK_SIZE')) {define( 'PCLZIP_READ_BLOCK_SIZE', 2048 );}if (!defined('PCLZIP_SEPARATOR')) {define( 'PCLZIP_SEPARATOR', ',' );}if (!defined('PCLZIP_ERROR_EXTERNAL')) {define( 'PCLZIP_ERROR_EXTERNAL', 0 );}if (!defined('PCLZIP_TEMPORARY_DIR')) {define( 'PCLZIP_TEMPORARY_DIR', '' );}if (!defined('PCLZIP_TEMPORARY_FILE_RATIO')) {define( 'PCLZIP_TEMPORARY_FILE_RATIO', 0.47 );}$g_pclzip_version = "2.8.2";define( 'PCLZIP_ERR_USER_ABORTED', 2 );define( 'PCLZIP_ERR_NO_ERROR', 0 );define( 'PCLZIP_ERR_WRITE_OPEN_FAIL', -1 );define( 'PCLZIP_ERR_READ_OPEN_FAIL', -2 );define( 'PCLZIP_ERR_INVALID_PARAMETER', -3 );define( 'PCLZIP_ERR_MISSING_FILE', -4 );define( 'PCLZIP_ERR_FILENAME_TOO_LONG', -5 );define( 'PCLZIP_ERR_INVALID_ZIP', -6 );define( 'PCLZIP_ERR_BAD_EXTRACTED_FILE', -7 );define( 'PCLZIP_ERR_DIR_CREATE_FAIL', -8 );define( 'PCLZIP_ERR_BAD_EXTENSION', -9 );define( 'PCLZIP_ERR_BAD_FORMAT', -10 );define( 'PCLZIP_ERR_DELETE_FILE_FAIL', -11 );define( 'PCLZIP_ERR_RENAME_FILE_FAIL', -12 );define( 'PCLZIP_ERR_BAD_CHECKSUM', -13 );define( 'PCLZIP_ERR_INVALID_ARCHIVE_ZIP', -14 );define( 'PCLZIP_ERR_MISSING_OPTION_VALUE', -15 );define( 'PCLZIP_ERR_INVALID_OPTION_VALUE', -16 );define( 'PCLZIP_ERR_ALREADY_A_DIRECTORY', -17 );define( 'PCLZIP_ERR_UNSUPPORTED_COMPRESSION', -18 );define( 'PCLZIP_ERR_UNSUPPORTED_ENCRYPTION', -19 );define( 'PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE', -20 );define( 'PCLZIP_ERR_DIRECTORY_RESTRICTION', -21 );define( 'PCLZIP_OPT_PATH', 77001 );define( 'PCLZIP_OPT_ADD_PATH', 77002 );define( 'PCLZIP_OPT_REMOVE_PATH', 77003 );define( 'PCLZIP_OPT_REMOVE_ALL_PATH', 77004 );define( 'PCLZIP_OPT_SET_CHMOD', 77005 );define( 'PCLZIP_OPT_EXTRACT_AS_STRING', 77006 );define( 'PCLZIP_OPT_NO_COMPRESSION', 77007 );define( 'PCLZIP_OPT_BY_NAME', 77008 );define( 'PCLZIP_OPT_BY_INDEX', 77009 );define( 'PCLZIP_OPT_BY_EREG', 77010 );define( 'PCLZIP_OPT_BY_PREG', 77011 );define( 'PCLZIP_OPT_COMMENT', 77012 );define( 'PCLZIP_OPT_ADD_COMMENT', 77013 );define( 'PCLZIP_OPT_PREPEND_COMMENT', 77014 );define( 'PCLZIP_OPT_EXTRACT_IN_OUTPUT', 77015 );define( 'PCLZIP_OPT_REPLACE_NEWER', 77016 );define( 'PCLZIP_OPT_STOP_ON_ERROR', 77017 );define( 'PCLZIP_OPT_EXTRACT_DIR_RESTRICTION', 77019 );define( 'PCLZIP_OPT_TEMP_FILE_THRESHOLD', 77020 );define( 'PCLZIP_OPT_ADD_TEMP_FILE_THRESHOLD', 77020 ); define( 'PCLZIP_OPT_TEMP_FILE_ON', 77021 );define( 'PCLZIP_OPT_ADD_TEMP_FILE_ON', 77021 ); define( 'PCLZIP_OPT_TEMP_FILE_OFF', 77022 );define( 'PCLZIP_OPT_ADD_TEMP_FILE_OFF', 77022 ); define( 'PCLZIP_ATT_FILE_NAME', 79001 );define( 'PCLZIP_ATT_FILE_NEW_SHORT_NAME', 79002 );define( 'PCLZIP_ATT_FILE_NEW_FULL_NAME', 79003 );define( 'PCLZIP_ATT_FILE_MTIME', 79004 );define( 'PCLZIP_ATT_FILE_CONTENT', 79005 );define( 'PCLZIP_ATT_FILE_COMMENT', 79006 );define( 'PCLZIP_CB_PRE_EXTRACT', 78001 );define( 'PCLZIP_CB_POST_EXTRACT', 78002 );define( 'PCLZIP_CB_PRE_ADD', 78003 );define( 'PCLZIP_CB_POST_ADD', 78004 );class PclZip{var $zipname = '';var $zip_fd = 0;var $error_code = 1;var $error_string = '';var $magic_quotes_status;function PclZip($p_zipname){if (!function_exists('gzopen')){zlog('error')->found('missing.gzopen');die('Abort '.basename(__FILE__).' : Missing zlib extensions');}$this->zipname = $p_zipname;$this->zip_fd = 0;$this->magic_quotes_status = -1;return;}function create($p_filelist){$v_result=1;$this->privErrorReset();$v_options = array();$v_options[PCLZIP_OPT_NO_COMPRESSION] = FALSE;$v_size = func_num_args();if ($v_size > 1) {$v_arg_list = func_get_args();array_shift($v_arg_list);$v_size--;if ((is_integer($v_arg_list[0])) && ($v_arg_list[0] > 77000)) {$v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,array (PCLZIP_OPT_REMOVE_PATH => 'optional', PCLZIP_OPT_REMOVE_ALL_PATH => 'optional', PCLZIP_OPT_ADD_PATH => 'optional', PCLZIP_CB_PRE_ADD => 'optional', PCLZIP_CB_POST_ADD => 'optional', PCLZIP_OPT_NO_COMPRESSION => 'optional', PCLZIP_OPT_COMMENT => 'optional', PCLZIP_OPT_TEMP_FILE_THRESHOLD => 'optional', PCLZIP_OPT_TEMP_FILE_ON => 'optional', PCLZIP_OPT_TEMP_FILE_OFF => 'optional'));if ($v_result != 1) {return 0;}}else {$v_options[PCLZIP_OPT_ADD_PATH] = $v_arg_list[0];if ($v_size == 2) {$v_options[PCLZIP_OPT_REMOVE_PATH] = $v_arg_list[1];}else if ($v_size > 2) {PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER,		 "Invalid number / type of arguments");return 0;}}}$this->privOptionDefaultThreshold($v_options);$v_string_list = array();$v_att_list = array();$v_filedescr_list = array();$p_result_list = array();if (is_array($p_filelist)) {if (isset($p_filelist[0]) && is_array($p_filelist[0])) {$v_att_list = $p_filelist;}else {$v_string_list = $p_filelist;}}else if (is_string($p_filelist)) {$v_string_list = explode(PCLZIP_SEPARATOR, $p_filelist);}else {PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid variable type p_filelist");return 0;}if (sizeof($v_string_list) != 0) {foreach ($v_string_list as $v_string) {if ($v_string != '') {$v_att_list[][PCLZIP_ATT_FILE_NAME] = $v_string;}else {}}}$v_supported_attributes= array ( PCLZIP_ATT_FILE_NAME => 'mandatory' ,PCLZIP_ATT_FILE_NEW_SHORT_NAME => 'optional' ,PCLZIP_ATT_FILE_NEW_FULL_NAME => 'optional' ,PCLZIP_ATT_FILE_MTIME => 'optional' ,PCLZIP_ATT_FILE_CONTENT => 'optional' ,PCLZIP_ATT_FILE_COMMENT => 'optional'						);foreach ($v_att_list as $v_entry) {$v_result = $this->privFileDescrParseAtt($v_entry, $v_filedescr_list[], $v_options, $v_supported_attributes);if ($v_result != 1) {return 0;}}$v_result = $this->privFileDescrExpand($v_filedescr_list, $v_options);if ($v_result != 1) {return 0;}$v_result = $this->privCreate($v_filedescr_list, $p_result_list, $v_options);if ($v_result != 1) {return 0;}return $p_result_list;}function add($p_filelist){$v_result=1;$this->privErrorReset();$v_options = array();$v_options[PCLZIP_OPT_NO_COMPRESSION] = FALSE;$v_size = func_num_args();if ($v_size > 1) {$v_arg_list = func_get_args();array_shift($v_arg_list);$v_size--;if ((is_integer($v_arg_list[0])) && ($v_arg_list[0] > 77000)) {$v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,array (PCLZIP_OPT_REMOVE_PATH => 'optional', PCLZIP_OPT_REMOVE_ALL_PATH => 'optional', PCLZIP_OPT_ADD_PATH => 'optional', PCLZIP_CB_PRE_ADD => 'optional', PCLZIP_CB_POST_ADD => 'optional', PCLZIP_OPT_NO_COMPRESSION => 'optional', PCLZIP_OPT_COMMENT => 'optional', PCLZIP_OPT_ADD_COMMENT => 'optional', PCLZIP_OPT_PREPEND_COMMENT => 'optional', PCLZIP_OPT_TEMP_FILE_THRESHOLD => 'optional', PCLZIP_OPT_TEMP_FILE_ON => 'optional', PCLZIP_OPT_TEMP_FILE_OFF => 'optional' 												 ));if ($v_result != 1) {return 0;}}else {$v_options[PCLZIP_OPT_ADD_PATH] = $v_add_path = $v_arg_list[0];if ($v_size == 2) {$v_options[PCLZIP_OPT_REMOVE_PATH] = $v_arg_list[1];}else if ($v_size > 2) {PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid number / type of arguments");return 0;}}}$this->privOptionDefaultThreshold($v_options);$v_string_list = array();$v_att_list = array();$v_filedescr_list = array();$p_result_list = array();if (is_array($p_filelist)) {if (isset($p_filelist[0]) && is_array($p_filelist[0])) {$v_att_list = $p_filelist;}else {$v_string_list = $p_filelist;}}else if (is_string($p_filelist)) {$v_string_list = explode(PCLZIP_SEPARATOR, $p_filelist);}else {PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid variable type '".gettype($p_filelist)."' for p_filelist");return 0;}if (sizeof($v_string_list) != 0) {foreach ($v_string_list as $v_string) {$v_att_list[][PCLZIP_ATT_FILE_NAME] = $v_string;}}$v_supported_attributes= array ( PCLZIP_ATT_FILE_NAME => 'mandatory' ,PCLZIP_ATT_FILE_NEW_SHORT_NAME => 'optional' ,PCLZIP_ATT_FILE_NEW_FULL_NAME => 'optional' ,PCLZIP_ATT_FILE_MTIME => 'optional' ,PCLZIP_ATT_FILE_CONTENT => 'optional' ,PCLZIP_ATT_FILE_COMMENT => 'optional'						);foreach ($v_att_list as $v_entry) {$v_result = $this->privFileDescrParseAtt($v_entry, $v_filedescr_list[], $v_options, $v_supported_attributes);if ($v_result != 1) {return 0;}}$v_result = $this->privFileDescrExpand($v_filedescr_list, $v_options);if ($v_result != 1) {return 0;}$v_result = $this->privAdd($v_filedescr_list, $p_result_list, $v_options);if ($v_result != 1) {return 0;}return $p_result_list;}function listContent(){$v_result=1;$this->privErrorReset();if (!$this->privCheckFormat()) {return(0);}$p_list = array();if (($v_result = $this->privList($p_list)) != 1){unset($p_list);return(0);}return $p_list;}function extract(){$v_result=1;$this->privErrorReset();if (!$this->privCheckFormat()) {return(0);}$v_options = array();$v_path = '';$v_remove_path = "";$v_remove_all_path = false;$v_size = func_num_args();$v_options[PCLZIP_OPT_EXTRACT_AS_STRING] = FALSE;if ($v_size > 0) {$v_arg_list = func_get_args();if ((is_integer($v_arg_list[0])) && ($v_arg_list[0] > 77000)) {$v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,array (PCLZIP_OPT_PATH => 'optional', PCLZIP_OPT_REMOVE_PATH => 'optional', PCLZIP_OPT_REMOVE_ALL_PATH => 'optional', PCLZIP_OPT_ADD_PATH => 'optional', PCLZIP_CB_PRE_EXTRACT => 'optional', PCLZIP_CB_POST_EXTRACT => 'optional', PCLZIP_OPT_SET_CHMOD => 'optional', PCLZIP_OPT_BY_NAME => 'optional', PCLZIP_OPT_BY_EREG => 'optional', PCLZIP_OPT_BY_PREG => 'optional', PCLZIP_OPT_BY_INDEX => 'optional', PCLZIP_OPT_EXTRACT_AS_STRING => 'optional', PCLZIP_OPT_EXTRACT_IN_OUTPUT => 'optional', PCLZIP_OPT_REPLACE_NEWER => 'optional' ,PCLZIP_OPT_STOP_ON_ERROR => 'optional' ,PCLZIP_OPT_EXTRACT_DIR_RESTRICTION => 'optional', PCLZIP_OPT_TEMP_FILE_THRESHOLD => 'optional', PCLZIP_OPT_TEMP_FILE_ON => 'optional', PCLZIP_OPT_TEMP_FILE_OFF => 'optional'												));if ($v_result != 1) {return 0;}if (isset($v_options[PCLZIP_OPT_PATH])) {$v_path = $v_options[PCLZIP_OPT_PATH];}if (isset($v_options[PCLZIP_OPT_REMOVE_PATH])) {$v_remove_path = $v_options[PCLZIP_OPT_REMOVE_PATH];}if (isset($v_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {$v_remove_all_path = $v_options[PCLZIP_OPT_REMOVE_ALL_PATH];}if (isset($v_options[PCLZIP_OPT_ADD_PATH])) {if ((strlen($v_path) > 0) && (substr($v_path, -1) != '/')) {$v_path .= '/';}$v_path .= $v_options[PCLZIP_OPT_ADD_PATH];}}else {$v_path = $v_arg_list[0];if ($v_size == 2) {$v_remove_path = $v_arg_list[1];}else if ($v_size > 2) {PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid number / type of arguments");return 0;}}}$this->privOptionDefaultThreshold($v_options);$p_list = array();$v_result = $this->privExtractByRule($p_list, $v_path, $v_remove_path,	 $v_remove_all_path, $v_options);if ($v_result < 1) {unset($p_list);return(0);}return $p_list;}function extractByIndex($p_index){$v_result=1;$this->privErrorReset();if (!$this->privCheckFormat()) {return(0);}$v_options = array();$v_path = '';$v_remove_path = "";$v_remove_all_path = false;$v_size = func_num_args();$v_options[PCLZIP_OPT_EXTRACT_AS_STRING] = FALSE;if ($v_size > 1) {$v_arg_list = func_get_args();array_shift($v_arg_list);$v_size--;if ((is_integer($v_arg_list[0])) && ($v_arg_list[0] > 77000)) {$v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,array (PCLZIP_OPT_PATH => 'optional', PCLZIP_OPT_REMOVE_PATH => 'optional', PCLZIP_OPT_REMOVE_ALL_PATH => 'optional', PCLZIP_OPT_EXTRACT_AS_STRING => 'optional', PCLZIP_OPT_ADD_PATH => 'optional', PCLZIP_CB_PRE_EXTRACT => 'optional', PCLZIP_CB_POST_EXTRACT => 'optional', PCLZIP_OPT_SET_CHMOD => 'optional', PCLZIP_OPT_REPLACE_NEWER => 'optional' ,PCLZIP_OPT_STOP_ON_ERROR => 'optional' ,PCLZIP_OPT_EXTRACT_DIR_RESTRICTION => 'optional', PCLZIP_OPT_TEMP_FILE_THRESHOLD => 'optional', PCLZIP_OPT_TEMP_FILE_ON => 'optional', PCLZIP_OPT_TEMP_FILE_OFF => 'optional'												 ));if ($v_result != 1) {return 0;}if (isset($v_options[PCLZIP_OPT_PATH])) {$v_path = $v_options[PCLZIP_OPT_PATH];}if (isset($v_options[PCLZIP_OPT_REMOVE_PATH])) {$v_remove_path = $v_options[PCLZIP_OPT_REMOVE_PATH];}if (isset($v_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {$v_remove_all_path = $v_options[PCLZIP_OPT_REMOVE_ALL_PATH];}if (isset($v_options[PCLZIP_OPT_ADD_PATH])) {if ((strlen($v_path) > 0) && (substr($v_path, -1) != '/')) {$v_path .= '/';}$v_path .= $v_options[PCLZIP_OPT_ADD_PATH];}if (!isset($v_options[PCLZIP_OPT_EXTRACT_AS_STRING])) {$v_options[PCLZIP_OPT_EXTRACT_AS_STRING] = FALSE;}else {}}else {$v_path = $v_arg_list[0];if ($v_size == 2) {$v_remove_path = $v_arg_list[1];}else if ($v_size > 2) {PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid number / type of arguments");return 0;}}}$v_arg_trick = array (PCLZIP_OPT_BY_INDEX, $p_index);$v_options_trick = array();$v_result = $this->privParseOptions($v_arg_trick, sizeof($v_arg_trick), $v_options_trick,array (PCLZIP_OPT_BY_INDEX => 'optional' ));if ($v_result != 1) {return 0;}$v_options[PCLZIP_OPT_BY_INDEX] = $v_options_trick[PCLZIP_OPT_BY_INDEX];$this->privOptionDefaultThreshold($v_options);if (($v_result = $this->privExtractByRule($p_list, $v_path, $v_remove_path, $v_remove_all_path, $v_options)) < 1) {return(0);}return $p_list;}function delete(){$v_result=1;$this->privErrorReset();if (!$this->privCheckFormat()) {return(0);}$v_options = array();$v_size = func_num_args();if ($v_size > 0) {$v_arg_list = func_get_args();$v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,array (PCLZIP_OPT_BY_NAME => 'optional', PCLZIP_OPT_BY_EREG => 'optional', PCLZIP_OPT_BY_PREG => 'optional', PCLZIP_OPT_BY_INDEX => 'optional' ));if ($v_result != 1) {return 0;}}$this->privDisableMagicQuotes();$v_list = array();if (($v_result = $this->privDeleteByRule($v_list, $v_options)) != 1) {$this->privSwapBackMagicQuotes();unset($v_list);return(0);}$this->privSwapBackMagicQuotes();return $v_list;}function deleteByIndex($p_index){$p_list = $this->delete(PCLZIP_OPT_BY_INDEX, $p_index);return $p_list;}function properties(){$this->privErrorReset();$this->privDisableMagicQuotes();if (!$this->privCheckFormat()) {$this->privSwapBackMagicQuotes();return(0);}$v_prop = array();$v_prop['comment'] = '';$v_prop['nb'] = 0;$v_prop['status'] = 'not_exist';if (@is_file($this->zipname)){if (($this->zip_fd = @fopen($this->zipname, 'rb')) == 0){$this->privSwapBackMagicQuotes();PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open archive \''.$this->zipname.'\' in binary read mode');return 0;}$v_central_dir = array();if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1){$this->privSwapBackMagicQuotes();return 0;}$this->privCloseFd();$v_prop['comment'] = $v_central_dir['comment'];$v_prop['nb'] = $v_central_dir['entries'];$v_prop['status'] = 'ok';}$this->privSwapBackMagicQuotes();return $v_prop;}function duplicate($p_archive){$v_result = 1;$this->privErrorReset();if ((is_object($p_archive)) && (get_class($p_archive) == 'pclzip')){$v_result = $this->privDuplicate($p_archive->zipname);}else if (is_string($p_archive)){if (!is_file($p_archive)) {PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, "No file with filename '".$p_archive."'");$v_result = PCLZIP_ERR_MISSING_FILE;}else {$v_result = $this->privDuplicate($p_archive);}}else{PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid variable type p_archive_to_add");$v_result = PCLZIP_ERR_INVALID_PARAMETER;}return $v_result;}function merge($p_archive_to_add){$v_result = 1;$this->privErrorReset();if (!$this->privCheckFormat()) {return(0);}if ((is_object($p_archive_to_add)) && (get_class($p_archive_to_add) == 'pclzip')){$v_result = $this->privMerge($p_archive_to_add);}else if (is_string($p_archive_to_add)){$v_object_archive = new PclZip($p_archive_to_add);$v_result = $this->privMerge($v_object_archive);}else{PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid variable type p_archive_to_add");$v_result = PCLZIP_ERR_INVALID_PARAMETER;}return $v_result;}function errorCode(){if (PCLZIP_ERROR_EXTERNAL == 1) {return(PclErrorCode());}else {return($this->error_code);}}function errorName($p_with_code=false){$v_name = array ( PCLZIP_ERR_NO_ERROR => 'PCLZIP_ERR_NO_ERROR',PCLZIP_ERR_WRITE_OPEN_FAIL => 'PCLZIP_ERR_WRITE_OPEN_FAIL',PCLZIP_ERR_READ_OPEN_FAIL => 'PCLZIP_ERR_READ_OPEN_FAIL',PCLZIP_ERR_INVALID_PARAMETER => 'PCLZIP_ERR_INVALID_PARAMETER',PCLZIP_ERR_MISSING_FILE => 'PCLZIP_ERR_MISSING_FILE',PCLZIP_ERR_FILENAME_TOO_LONG => 'PCLZIP_ERR_FILENAME_TOO_LONG',PCLZIP_ERR_INVALID_ZIP => 'PCLZIP_ERR_INVALID_ZIP',PCLZIP_ERR_BAD_EXTRACTED_FILE => 'PCLZIP_ERR_BAD_EXTRACTED_FILE',PCLZIP_ERR_DIR_CREATE_FAIL => 'PCLZIP_ERR_DIR_CREATE_FAIL',PCLZIP_ERR_BAD_EXTENSION => 'PCLZIP_ERR_BAD_EXTENSION',PCLZIP_ERR_BAD_FORMAT => 'PCLZIP_ERR_BAD_FORMAT',PCLZIP_ERR_DELETE_FILE_FAIL => 'PCLZIP_ERR_DELETE_FILE_FAIL',PCLZIP_ERR_RENAME_FILE_FAIL => 'PCLZIP_ERR_RENAME_FILE_FAIL',PCLZIP_ERR_BAD_CHECKSUM => 'PCLZIP_ERR_BAD_CHECKSUM',PCLZIP_ERR_INVALID_ARCHIVE_ZIP => 'PCLZIP_ERR_INVALID_ARCHIVE_ZIP',PCLZIP_ERR_MISSING_OPTION_VALUE => 'PCLZIP_ERR_MISSING_OPTION_VALUE',PCLZIP_ERR_INVALID_OPTION_VALUE => 'PCLZIP_ERR_INVALID_OPTION_VALUE',PCLZIP_ERR_UNSUPPORTED_COMPRESSION => 'PCLZIP_ERR_UNSUPPORTED_COMPRESSION',PCLZIP_ERR_UNSUPPORTED_ENCRYPTION => 'PCLZIP_ERR_UNSUPPORTED_ENCRYPTION',PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE => 'PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE',PCLZIP_ERR_DIRECTORY_RESTRICTION => 'PCLZIP_ERR_DIRECTORY_RESTRICTION');if (isset($v_name[$this->error_code])) {$v_value = $v_name[$this->error_code];}else {$v_value = 'NoName';}if ($p_with_code) {return($v_value.' ('.$this->error_code.')');}else {return($v_value);}}function errorInfo($p_full=false){if (PCLZIP_ERROR_EXTERNAL == 1) {return(PclErrorString());}else {if ($p_full) {return($this->errorName(true)." : ".$this->error_string);}else {return($this->error_string." [code ".$this->error_code."]");}}}function privCheckFormat($p_level=0){$v_result = true;	clearstatcache();$this->privErrorReset();if (!is_file($this->zipname)) {PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, "Missing archive file '".$this->zipname."'");return(false);}if (!is_readable($this->zipname)) {PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, "Unable to read archive '".$this->zipname."'");return(false);}return $v_result;}function privParseOptions(&$p_options_list, $p_size, &$v_result_list, $v_requested_options=false){$v_result=1;$i=0;while ($i<$p_size) {if (!isset($v_requested_options[$p_options_list[$i]])) {PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid optional parameter '".$p_options_list[$i]."' for this method");return PclZip::errorCode();}switch ($p_options_list[$i]) {case PCLZIP_OPT_PATH :case PCLZIP_OPT_REMOVE_PATH :case PCLZIP_OPT_ADD_PATH :if (($i+1) >= $p_size) {PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");return PclZip::errorCode();}$v_result_list[$p_options_list[$i]] = PclZipUtilTranslateWinPath($p_options_list[$i+1], FALSE);$i++;break;case PCLZIP_OPT_TEMP_FILE_THRESHOLD :if (($i+1) >= $p_size) {PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");return PclZip::errorCode();}if (isset($v_result_list[PCLZIP_OPT_TEMP_FILE_OFF])) {PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Option '".PclZipUtilOptionText($p_options_list[$i])."' can not be used with option 'PCLZIP_OPT_TEMP_FILE_OFF'");return PclZip::errorCode();}$v_value = $p_options_list[$i+1];if ((!is_integer($v_value)) || ($v_value<0)) {PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Integer expected for option '".PclZipUtilOptionText($p_options_list[$i])."'");return PclZip::errorCode();}$v_result_list[$p_options_list[$i]] = $v_value*1048576;$i++;break;case PCLZIP_OPT_TEMP_FILE_ON :if (isset($v_result_list[PCLZIP_OPT_TEMP_FILE_OFF])) {PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Option '".PclZipUtilOptionText($p_options_list[$i])."' can not be used with option 'PCLZIP_OPT_TEMP_FILE_OFF'");return PclZip::errorCode();}$v_result_list[$p_options_list[$i]] = true;break;case PCLZIP_OPT_TEMP_FILE_OFF :if (isset($v_result_list[PCLZIP_OPT_TEMP_FILE_ON])) {PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Option '".PclZipUtilOptionText($p_options_list[$i])."' can not be used with option 'PCLZIP_OPT_TEMP_FILE_ON'");return PclZip::errorCode();}if (isset($v_result_list[PCLZIP_OPT_TEMP_FILE_THRESHOLD])) {PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Option '".PclZipUtilOptionText($p_options_list[$i])."' can not be used with option 'PCLZIP_OPT_TEMP_FILE_THRESHOLD'");return PclZip::errorCode();}$v_result_list[$p_options_list[$i]] = true;break;case PCLZIP_OPT_EXTRACT_DIR_RESTRICTION :if (($i+1) >= $p_size) {PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");return PclZip::errorCode();}if ( is_string($p_options_list[$i+1])&& ($p_options_list[$i+1] != '')) {$v_result_list[$p_options_list[$i]] = PclZipUtilTranslateWinPath($p_options_list[$i+1], FALSE);$i++;}else {}break;case PCLZIP_OPT_BY_NAME :if (($i+1) >= $p_size) {PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");return PclZip::errorCode();}if (is_string($p_options_list[$i+1])) {$v_result_list[$p_options_list[$i]][0] = $p_options_list[$i+1];}else if (is_array($p_options_list[$i+1])) {$v_result_list[$p_options_list[$i]] = $p_options_list[$i+1];}else {PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Wrong parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");return PclZip::errorCode();}$i++;break;case PCLZIP_OPT_BY_EREG :$p_options_list[$i] = PCLZIP_OPT_BY_PREG;case PCLZIP_OPT_BY_PREG :if (($i+1) >= $p_size) {PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");return PclZip::errorCode();}if (is_string($p_options_list[$i+1])) {$v_result_list[$p_options_list[$i]] = $p_options_list[$i+1];}else {PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Wrong parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");return PclZip::errorCode();}$i++;break;case PCLZIP_OPT_COMMENT :case PCLZIP_OPT_ADD_COMMENT :case PCLZIP_OPT_PREPEND_COMMENT :if (($i+1) >= $p_size) {PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE,			 "Missing parameter value for option '"								 .PclZipUtilOptionText($p_options_list[$i])								 ."'");return PclZip::errorCode();}if (is_string($p_options_list[$i+1])) {$v_result_list[$p_options_list[$i]] = $p_options_list[$i+1];}else {PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE,			 "Wrong parameter value for option '"								 .PclZipUtilOptionText($p_options_list[$i])								 ."'");return PclZip::errorCode();}$i++;break;case PCLZIP_OPT_BY_INDEX :if (($i+1) >= $p_size) {PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");return PclZip::errorCode();}$v_work_list = array();if (is_string($p_options_list[$i+1])) {$p_options_list[$i+1] = strtr($p_options_list[$i+1], ' ', '');$v_work_list = explode(",", $p_options_list[$i+1]);}else if (is_integer($p_options_list[$i+1])) {$v_work_list[0] = $p_options_list[$i+1].'-'.$p_options_list[$i+1];}else if (is_array($p_options_list[$i+1])) {$v_work_list = $p_options_list[$i+1];}else {PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Value must be integer, string or array for option '".PclZipUtilOptionText($p_options_list[$i])."'");return PclZip::errorCode();}$v_sort_flag=false;$v_sort_value=0;for ($j=0; $j<sizeof($v_work_list); $j++) {$v_item_list = explode("-", $v_work_list[$j]);$v_size_item_list = sizeof($v_item_list);if ($v_size_item_list == 1) {$v_result_list[$p_options_list[$i]][$j]['start'] = $v_item_list[0];$v_result_list[$p_options_list[$i]][$j]['end'] = $v_item_list[0];}elseif ($v_size_item_list == 2) {$v_result_list[$p_options_list[$i]][$j]['start'] = $v_item_list[0];$v_result_list[$p_options_list[$i]][$j]['end'] = $v_item_list[1];}else {PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Too many values in index range for option '".PclZipUtilOptionText($p_options_list[$i])."'");return PclZip::errorCode();}if ($v_result_list[$p_options_list[$i]][$j]['start'] < $v_sort_value) {$v_sort_flag=true;PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Invalid order of index range for option '".PclZipUtilOptionText($p_options_list[$i])."'");return PclZip::errorCode();}$v_sort_value = $v_result_list[$p_options_list[$i]][$j]['start'];}if ($v_sort_flag) {}$i++;break;case PCLZIP_OPT_REMOVE_ALL_PATH :case PCLZIP_OPT_EXTRACT_AS_STRING :case PCLZIP_OPT_NO_COMPRESSION :case PCLZIP_OPT_EXTRACT_IN_OUTPUT :case PCLZIP_OPT_REPLACE_NEWER :case PCLZIP_OPT_STOP_ON_ERROR :$v_result_list[$p_options_list[$i]] = true;break;case PCLZIP_OPT_SET_CHMOD :if (($i+1) >= $p_size) {PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");return PclZip::errorCode();}$v_result_list[$p_options_list[$i]] = $p_options_list[$i+1];$i++;break;case PCLZIP_CB_PRE_EXTRACT :case PCLZIP_CB_POST_EXTRACT :case PCLZIP_CB_PRE_ADD :case PCLZIP_CB_POST_ADD :if (($i+1) >= $p_size) {PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");return PclZip::errorCode();}$v_function_name = $p_options_list[$i+1];if (!function_exists($v_function_name)) {PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Function '".$v_function_name."()' is not an existing function for option '".PclZipUtilOptionText($p_options_list[$i])."'");return PclZip::errorCode();}$v_result_list[$p_options_list[$i]] = $v_function_name;$i++;break;default :PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER,		 "Unknown parameter '"							 .$p_options_list[$i]."'");return PclZip::errorCode();}$i++;}if ($v_requested_options !== false) {for ($key=reset($v_requested_options); $key=key($v_requested_options); $key=next($v_requested_options)) {if ($v_requested_options[$key] == 'mandatory') {if (!isset($v_result_list[$key])) {PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Missing mandatory parameter ".PclZipUtilOptionText($key)."(".$key.")");return PclZip::errorCode();}}}}if (!isset($v_result_list[PCLZIP_OPT_TEMP_FILE_THRESHOLD])) {}return $v_result;}function privOptionDefaultThreshold(&$p_options){$v_result=1;if (isset($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD])|| isset($p_options[PCLZIP_OPT_TEMP_FILE_OFF])) {return $v_result;}$v_memory_limit = ini_get('memory_limit');$v_memory_limit = trim($v_memory_limit);$last = strtolower(substr($v_memory_limit, -1)); if($last == 'g')$v_memory_limit = $v_memory_limit*1073741824;if($last == 'm')$v_memory_limit = $v_memory_limit*1048576;if($last == 'k')$v_memory_limit = $v_memory_limit*1024;$p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD] = floor($v_memory_limit*PCLZIP_TEMPORARY_FILE_RATIO);if ($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD] < 1048576) {unset($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD]);}return $v_result;}function privFileDescrParseAtt(&$p_file_list, &$p_filedescr, $v_options, $v_requested_options=false){$v_result=1;foreach ($p_file_list as $v_key => $v_value) {if (!isset($v_requested_options[$v_key])) {PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid file attribute '".$v_key."' for this file");return PclZip::errorCode();}switch ($v_key) {case PCLZIP_ATT_FILE_NAME :if (!is_string($v_value)) {PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid type ".gettype($v_value).". String expected for attribute '".PclZipUtilOptionText($v_key)."'");return PclZip::errorCode();}$p_filedescr['filename'] = PclZipUtilPathReduction($v_value);if ($p_filedescr['filename'] == '') {PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid empty filename for attribute '".PclZipUtilOptionText($v_key)."'");return PclZip::errorCode();}break;case PCLZIP_ATT_FILE_NEW_SHORT_NAME :if (!is_string($v_value)) {PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid type ".gettype($v_value).". String expected for attribute '".PclZipUtilOptionText($v_key)."'");return PclZip::errorCode();}$p_filedescr['new_short_name'] = PclZipUtilPathReduction($v_value);if ($p_filedescr['new_short_name'] == '') {PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid empty short filename for attribute '".PclZipUtilOptionText($v_key)."'");return PclZip::errorCode();}break;case PCLZIP_ATT_FILE_NEW_FULL_NAME :if (!is_string($v_value)) {PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid type ".gettype($v_value).". String expected for attribute '".PclZipUtilOptionText($v_key)."'");return PclZip::errorCode();}$p_filedescr['new_full_name'] = PclZipUtilPathReduction($v_value);if ($p_filedescr['new_full_name'] == '') {PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid empty full filename for attribute '".PclZipUtilOptionText($v_key)."'");return PclZip::errorCode();}break;case PCLZIP_ATT_FILE_COMMENT :if (!is_string($v_value)) {PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid type ".gettype($v_value).". String expected for attribute '".PclZipUtilOptionText($v_key)."'");return PclZip::errorCode();}$p_filedescr['comment'] = $v_value;break;case PCLZIP_ATT_FILE_MTIME :if (!is_integer($v_value)) {PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid type ".gettype($v_value).". Integer expected for attribute '".PclZipUtilOptionText($v_key)."'");return PclZip::errorCode();}$p_filedescr['mtime'] = $v_value;break;case PCLZIP_ATT_FILE_CONTENT :$p_filedescr['content'] = $v_value;break;default :PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER,		 "Unknown parameter '".$v_key."'");return PclZip::errorCode();}if ($v_requested_options !== false) {for ($key=reset($v_requested_options); $key=key($v_requested_options); $key=next($v_requested_options)) {if ($v_requested_options[$key] == 'mandatory') {if (!isset($p_file_list[$key])) {PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Missing mandatory parameter ".PclZipUtilOptionText($key)."(".$key.")");return PclZip::errorCode();}}}}}return $v_result;}function privFileDescrExpand(&$p_filedescr_list, &$p_options){$v_result=1;$v_result_list = array();for ($i=0; $i<sizeof($p_filedescr_list); $i++) {$v_descr = $p_filedescr_list[$i];$v_descr['filename'] = PclZipUtilTranslateWinPath($v_descr['filename'], false);$v_descr['filename'] = PclZipUtilPathReduction($v_descr['filename']);if (file_exists($v_descr['filename'])) {if (@is_file($v_descr['filename'])) {$v_descr['type'] = 'file';}else if (@is_dir($v_descr['filename'])) {$v_descr['type'] = 'folder';}else if (@is_link($v_descr['filename'])) {continue;}else {continue;}}else if (isset($v_descr['content'])) {$v_descr['type'] = 'virtual_file';}else {PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, "File '".$v_descr['filename']."' does not exist");return PclZip::errorCode();}$this->privCalculateStoredFilename($v_descr, $p_options);$v_result_list[sizeof($v_result_list)] = $v_descr;if ($v_descr['type'] == 'folder') {$v_dirlist_descr = array();$v_dirlist_nb = 0;if ($v_folder_handler = @opendir($v_descr['filename'])) {while (($v_item_handler = @readdir($v_folder_handler)) !== false) {if (($v_item_handler == '.') || ($v_item_handler == '..')) {continue;}$v_dirlist_descr[$v_dirlist_nb]['filename'] = $v_descr['filename'].'/'.$v_item_handler;if (($v_descr['stored_filename'] != $v_descr['filename']) && (!isset($p_options[PCLZIP_OPT_REMOVE_ALL_PATH]))) {if ($v_descr['stored_filename'] != '') {$v_dirlist_descr[$v_dirlist_nb]['new_full_name'] = $v_descr['stored_filename'].'/'.$v_item_handler;}else {$v_dirlist_descr[$v_dirlist_nb]['new_full_name'] = $v_item_handler;}}$v_dirlist_nb++;}@closedir($v_folder_handler);}else {}if ($v_dirlist_nb != 0) {if (($v_result = $this->privFileDescrExpand($v_dirlist_descr, $p_options)) != 1) {return $v_result;}$v_result_list = array_merge($v_result_list, $v_dirlist_descr);}else {}unset($v_dirlist_descr);}}$p_filedescr_list = $v_result_list;return $v_result;}function privCreate($p_filedescr_list, &$p_result_list, &$p_options){$v_result=1;$v_list_detail = array();$this->privDisableMagicQuotes();if (($v_result = $this->privOpenFd('wb')) != 1){return $v_result;}$v_result = $this->privAddList($p_filedescr_list, $p_result_list, $p_options);$this->privCloseFd();$this->privSwapBackMagicQuotes();return $v_result;}function privAdd($p_filedescr_list, &$p_result_list, &$p_options){$v_result=1;$v_list_detail = array();if ((!is_file($this->zipname)) || (filesize($this->zipname) == 0)){$v_result = $this->privCreate($p_filedescr_list, $p_result_list, $p_options);return $v_result;}$this->privDisableMagicQuotes();if (($v_result=$this->privOpenFd('rb')) != 1){$this->privSwapBackMagicQuotes();return $v_result;}$v_central_dir = array();if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1){$this->privCloseFd();$this->privSwapBackMagicQuotes();return $v_result;}@rewind($this->zip_fd);$v_zip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid('pclzip-').'.tmp';if (($v_zip_temp_fd = @fopen($v_zip_temp_name, 'wb')) == 0){$this->privCloseFd();$this->privSwapBackMagicQuotes();PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \''.$v_zip_temp_name.'\' in binary write mode');return PclZip::errorCode();}$v_size = $v_central_dir['offset'];while ($v_size != 0){$v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);$v_buffer = fread($this->zip_fd, $v_read_size);@fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);$v_size -= $v_read_size;}$v_swap = $this->zip_fd;$this->zip_fd = $v_zip_temp_fd;$v_zip_temp_fd = $v_swap;$v_header_list = array();if (($v_result = $this->privAddFileList($p_filedescr_list, $v_header_list, $p_options)) != 1){fclose($v_zip_temp_fd);$this->privCloseFd();@unlink($v_zip_temp_name);$this->privSwapBackMagicQuotes();return $v_result;}$v_offset = @ftell($this->zip_fd);$v_size = $v_central_dir['size'];while ($v_size != 0){$v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);$v_buffer = @fread($v_zip_temp_fd, $v_read_size);@fwrite($this->zip_fd, $v_buffer, $v_read_size);$v_size -= $v_read_size;}for ($i=0, $v_count=0; $i<sizeof($v_header_list); $i++){if ($v_header_list[$i]['status'] == 'ok') {if (($v_result = $this->privWriteCentralFileHeader($v_header_list[$i])) != 1) {fclose($v_zip_temp_fd);$this->privCloseFd();@unlink($v_zip_temp_name);$this->privSwapBackMagicQuotes();return $v_result;}$v_count++;}$this->privConvertHeader2FileInfo($v_header_list[$i], $p_result_list[$i]);}$v_comment = $v_central_dir['comment'];if (isset($p_options[PCLZIP_OPT_COMMENT])) {$v_comment = $p_options[PCLZIP_OPT_COMMENT];}if (isset($p_options[PCLZIP_OPT_ADD_COMMENT])) {$v_comment = $v_comment.$p_options[PCLZIP_OPT_ADD_COMMENT];}if (isset($p_options[PCLZIP_OPT_PREPEND_COMMENT])) {$v_comment = $p_options[PCLZIP_OPT_PREPEND_COMMENT].$v_comment;}$v_size = @ftell($this->zip_fd)-$v_offset;if (($v_result = $this->privWriteCentralHeader($v_count+$v_central_dir['entries'], $v_size, $v_offset, $v_comment)) != 1){unset($v_header_list);$this->privSwapBackMagicQuotes();return $v_result;}$v_swap = $this->zip_fd;$this->zip_fd = $v_zip_temp_fd;$v_zip_temp_fd = $v_swap;$this->privCloseFd();@fclose($v_zip_temp_fd);$this->privSwapBackMagicQuotes();@unlink($this->zipname);PclZipUtilRename($v_zip_temp_name, $this->zipname);return $v_result;}function privOpenFd($p_mode){$v_result=1;if ($this->zip_fd != 0){PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Zip file \''.$this->zipname.'\' already open');return PclZip::errorCode();}if (($this->zip_fd = @fopen($this->zipname, $p_mode)) == 0){PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open archive \''.$this->zipname.'\' in '.$p_mode.' mode');return PclZip::errorCode();}return $v_result;}function privCloseFd(){$v_result=1;if ($this->zip_fd != 0)@fclose($this->zip_fd);$this->zip_fd = 0;return $v_result;}function privAddList($p_filedescr_list, &$p_result_list, &$p_options){$v_result=1;$v_header_list = array();if (($v_result = $this->privAddFileList($p_filedescr_list, $v_header_list, $p_options)) != 1){return $v_result;}$v_offset = @ftell($this->zip_fd);for ($i=0,$v_count=0; $i<sizeof($v_header_list); $i++){if ($v_header_list[$i]['status'] == 'ok') {if (($v_result = $this->privWriteCentralFileHeader($v_header_list[$i])) != 1) {return $v_result;}$v_count++;}$this->privConvertHeader2FileInfo($v_header_list[$i], $p_result_list[$i]);}$v_comment = '';if (isset($p_options[PCLZIP_OPT_COMMENT])) {$v_comment = $p_options[PCLZIP_OPT_COMMENT];}$v_size = @ftell($this->zip_fd)-$v_offset;if (($v_result = $this->privWriteCentralHeader($v_count, $v_size, $v_offset, $v_comment)) != 1){unset($v_header_list);return $v_result;}return $v_result;}function privAddFileList($p_filedescr_list, &$p_result_list, &$p_options){$v_result=1;$v_header = array();$v_nb = sizeof($p_result_list);for ($j=0; ($j<sizeof($p_filedescr_list)) && ($v_result==1); $j++) {$p_filedescr_list[$j]['filename']= PclZipUtilTranslateWinPath($p_filedescr_list[$j]['filename'], false);if ($p_filedescr_list[$j]['filename'] == "") {continue;}if ( ($p_filedescr_list[$j]['type'] != 'virtual_file')&& (!file_exists($p_filedescr_list[$j]['filename']))) {PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, "File '".$p_filedescr_list[$j]['filename']."' does not exist");return PclZip::errorCode();}if ( ($p_filedescr_list[$j]['type'] == 'file')|| ($p_filedescr_list[$j]['type'] == 'virtual_file')|| ( ($p_filedescr_list[$j]['type'] == 'folder')&& ( !isset($p_options[PCLZIP_OPT_REMOVE_ALL_PATH])|| !$p_options[PCLZIP_OPT_REMOVE_ALL_PATH]))) {$v_result = $this->privAddFile($p_filedescr_list[$j], $v_header, $p_options);if ($v_result != 1) {return $v_result;}$p_result_list[$v_nb++] = $v_header;}}return $v_result;}function privAddFile($p_filedescr, &$p_header, &$p_options){$v_result=1;$p_filename = $p_filedescr['filename'];if ($p_filename == "") {PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid file list parameter (invalid or empty list)");return PclZip::errorCode();}clearstatcache();$p_header['version'] = 20;$p_header['version_extracted'] = 10;$p_header['flag'] = 0;$p_header['compression'] = 0;$p_header['crc'] = 0;$p_header['compressed_size'] = 0;$p_header['filename_len'] = strlen($p_filename);$p_header['extra_len'] = 0;$p_header['disk'] = 0;$p_header['internal'] = 0;$p_header['offset'] = 0;$p_header['filename'] = $p_filename;$p_header['stored_filename'] = $p_filedescr['stored_filename'];$p_header['extra'] = '';$p_header['status'] = 'ok';$p_header['index'] = -1;if ($p_filedescr['type']=='file') {$p_header['external'] = 0x00000000;$p_header['size'] = filesize($p_filename);}else if ($p_filedescr['type']=='folder') {$p_header['external'] = 0x00000010;$p_header['mtime'] = filemtime($p_filename);$p_header['size'] = filesize($p_filename);}else if ($p_filedescr['type'] == 'virtual_file') {$p_header['external'] = 0x00000000;$p_header['size'] = strlen($p_filedescr['content']);}if (isset($p_filedescr['mtime'])) {$p_header['mtime'] = $p_filedescr['mtime'];}else if ($p_filedescr['type'] == 'virtual_file') {$p_header['mtime'] = time();}else {$p_header['mtime'] = filemtime($p_filename);}if (isset($p_filedescr['comment'])) {$p_header['comment_len'] = strlen($p_filedescr['comment']);$p_header['comment'] = $p_filedescr['comment'];}else {$p_header['comment_len'] = 0;$p_header['comment'] = '';}if (isset($p_options[PCLZIP_CB_PRE_ADD])) {$v_local_header = array();$this->privConvertHeader2FileInfo($p_header, $v_local_header);$v_result = $p_options[PCLZIP_CB_PRE_ADD](PCLZIP_CB_PRE_ADD, $v_local_header);if ($v_result == 0) {$p_header['status'] = "skipped";$v_result = 1;}if ($p_header['stored_filename'] != $v_local_header['stored_filename']) {$p_header['stored_filename'] = PclZipUtilPathReduction($v_local_header['stored_filename']);}}if ($p_header['stored_filename'] == "") {$p_header['status'] = "filtered";}if (strlen($p_header['stored_filename']) > 0xFF) {$p_header['status'] = 'filename_too_long';}if ($p_header['status'] == 'ok') {if ($p_filedescr['type'] == 'file') {if ( (!isset($p_options[PCLZIP_OPT_TEMP_FILE_OFF])) && (isset($p_options[PCLZIP_OPT_TEMP_FILE_ON])|| (isset($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD])&& ($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD] <= $p_header['size'])) ) ) {$v_result = $this->privAddFileUsingTempFile($p_filedescr, $p_header, $p_options);if ($v_result < PCLZIP_ERR_NO_ERROR) {return $v_result;}}else {if (($v_file = @fopen($p_filename, "rb")) == 0) {PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, "Unable to open file '$p_filename' in binary read mode");return PclZip::errorCode();}$v_content = @fread($v_file, $p_header['size']);@fclose($v_file);$p_header['crc'] = @crc32($v_content);if ($p_options[PCLZIP_OPT_NO_COMPRESSION]) {$p_header['compressed_size'] = $p_header['size'];$p_header['compression'] = 0;}else {$v_content = @gzdeflate($v_content);$p_header['compressed_size'] = strlen($v_content);$p_header['compression'] = 8;}if (($v_result = $this->privWriteFileHeader($p_header)) != 1) {@fclose($v_file);return $v_result;}@fwrite($this->zip_fd, $v_content, $p_header['compressed_size']);}}else if ($p_filedescr['type'] == 'virtual_file') {$v_content = $p_filedescr['content'];$p_header['crc'] = @crc32($v_content);if ($p_options[PCLZIP_OPT_NO_COMPRESSION]) {$p_header['compressed_size'] = $p_header['size'];$p_header['compression'] = 0;}else {$v_content = @gzdeflate($v_content);$p_header['compressed_size'] = strlen($v_content);$p_header['compression'] = 8;}if (($v_result = $this->privWriteFileHeader($p_header)) != 1) {@fclose($v_file);return $v_result;}@fwrite($this->zip_fd, $v_content, $p_header['compressed_size']);}else if ($p_filedescr['type'] == 'folder') {if (@substr($p_header['stored_filename'], -1) != '/') {$p_header['stored_filename'] .= '/';}$p_header['size'] = 0;$p_header['external'] = 0x00000010; if (($v_result = $this->privWriteFileHeader($p_header)) != 1){return $v_result;}}}if (isset($p_options[PCLZIP_CB_POST_ADD])) {$v_local_header = array();$this->privConvertHeader2FileInfo($p_header, $v_local_header);$v_result = $p_options[PCLZIP_CB_POST_ADD](PCLZIP_CB_POST_ADD, $v_local_header);if ($v_result == 0) {$v_result = 1;}}return $v_result;}function privAddFileUsingTempFile($p_filedescr, &$p_header, &$p_options){$v_result=PCLZIP_ERR_NO_ERROR;$p_filename = $p_filedescr['filename'];if (($v_file = @fopen($p_filename, "rb")) == 0) {PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, "Unable to open file '$p_filename' in binary read mode");return PclZip::errorCode();}$v_gzip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid('pclzip-').'.gz';if (($v_file_compressed = @gzopen($v_gzip_temp_name, "wb")) == 0) {fclose($v_file);PclZip::privErrorLog(PCLZIP_ERR_WRITE_OPEN_FAIL, 'Unable to open temporary file \''.$v_gzip_temp_name.'\' in binary write mode');return PclZip::errorCode();}$v_size = filesize($p_filename);while ($v_size != 0) {$v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);$v_buffer = @fread($v_file, $v_read_size);@gzputs($v_file_compressed, $v_buffer, $v_read_size);$v_size -= $v_read_size;}@fclose($v_file);@gzclose($v_file_compressed);if (filesize($v_gzip_temp_name) < 18) {PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'gzip temporary file \''.$v_gzip_temp_name.'\' has invalid filesize - should be minimum 18 bytes');return PclZip::errorCode();}if (($v_file_compressed = @fopen($v_gzip_temp_name, "rb")) == 0) {PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \''.$v_gzip_temp_name.'\' in binary read mode');return PclZip::errorCode();}$v_binary_data = @fread($v_file_compressed, 10);$v_data_header = unpack('a1id1/a1id2/a1cm/a1flag/Vmtime/a1xfl/a1os', $v_binary_data);$v_data_header['os'] = bin2hex($v_data_header['os']);@fseek($v_file_compressed, filesize($v_gzip_temp_name)-8);$v_binary_data = @fread($v_file_compressed, 8);$v_data_footer = unpack('Vcrc/Vcompressed_size', $v_binary_data);$p_header['compression'] = ord($v_data_header['cm']);$p_header['crc'] = $v_data_footer['crc'];$p_header['compressed_size'] = filesize($v_gzip_temp_name)-18;@fclose($v_file_compressed);if (($v_result = $this->privWriteFileHeader($p_header)) != 1) {return $v_result;}if (($v_file_compressed = @fopen($v_gzip_temp_name, "rb")) == 0){PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \''.$v_gzip_temp_name.'\' in binary read mode');return PclZip::errorCode();}fseek($v_file_compressed, 10);$v_size = $p_header['compressed_size'];while ($v_size != 0){$v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);$v_buffer = @fread($v_file_compressed, $v_read_size);@fwrite($this->zip_fd, $v_buffer, $v_read_size);$v_size -= $v_read_size;}@fclose($v_file_compressed);@unlink($v_gzip_temp_name);return $v_result;}function privCalculateStoredFilename(&$p_filedescr, &$p_options){$v_result=1;$p_filename = $p_filedescr['filename'];if (isset($p_options[PCLZIP_OPT_ADD_PATH])) {$p_add_dir = $p_options[PCLZIP_OPT_ADD_PATH];}else {$p_add_dir = '';}if (isset($p_options[PCLZIP_OPT_REMOVE_PATH])) {$p_remove_dir = $p_options[PCLZIP_OPT_REMOVE_PATH];}else {$p_remove_dir = '';}if (isset($p_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {$p_remove_all_dir = $p_options[PCLZIP_OPT_REMOVE_ALL_PATH];}else {$p_remove_all_dir = 0;}if (isset($p_filedescr['new_full_name'])) {$v_stored_filename = PclZipUtilTranslateWinPath($p_filedescr['new_full_name']);}else {if (isset($p_filedescr['new_short_name'])) {$v_path_info = pathinfo($p_filename);$v_dir = '';if ($v_path_info['dirname'] != '') {$v_dir = $v_path_info['dirname'].'/';}$v_stored_filename = $v_dir.$p_filedescr['new_short_name'];}else {$v_stored_filename = $p_filename;}if ($p_remove_all_dir) {$v_stored_filename = basename($p_filename);}else if ($p_remove_dir != "") {if (substr($p_remove_dir, -1) != '/')$p_remove_dir .= "/";if ( (substr($p_filename, 0, 2) == "./")|| (substr($p_remove_dir, 0, 2) == "./")) {if ( (substr($p_filename, 0, 2) == "./")&& (substr($p_remove_dir, 0, 2) != "./")) {$p_remove_dir = "./".$p_remove_dir;}if ( (substr($p_filename, 0, 2) != "./")&& (substr($p_remove_dir, 0, 2) == "./")) {$p_remove_dir = substr($p_remove_dir, 2);}}$v_compare = PclZipUtilPathInclusion($p_remove_dir, $v_stored_filename);if ($v_compare > 0) {if ($v_compare == 2) {$v_stored_filename = "";}else {$v_stored_filename = substr($v_stored_filename,strlen($p_remove_dir));}}}$v_stored_filename = PclZipUtilTranslateWinPath($v_stored_filename);if ($p_add_dir != "") {if (substr($p_add_dir, -1) == "/")$v_stored_filename = $p_add_dir.$v_stored_filename;else$v_stored_filename = $p_add_dir."/".$v_stored_filename;}}$v_stored_filename = PclZipUtilPathReduction($v_stored_filename);$p_filedescr['stored_filename'] = $v_stored_filename;return $v_result;}function privWriteFileHeader(&$p_header){$v_result=1;$p_header['offset'] = ftell($this->zip_fd);$v_date = getdate($p_header['mtime']);$v_mtime = ($v_date['hours']<<11) + ($v_date['minutes']<<5) + $v_date['seconds']/2;$v_mdate = (($v_date['year']-1980)<<9) + ($v_date['mon']<<5) + $v_date['mday'];$v_binary_data = pack("VvvvvvVVVvv", 0x04034b50,	$p_header['version_extracted'], $p_header['flag'],$p_header['compression'], $v_mtime, $v_mdate,$p_header['crc'], $p_header['compressed_size'],						$p_header['size'],strlen($p_header['stored_filename']),						$p_header['extra_len']);fputs($this->zip_fd, $v_binary_data, 30);if (strlen($p_header['stored_filename']) != 0){fputs($this->zip_fd, $p_header['stored_filename'], strlen($p_header['stored_filename']));}if ($p_header['extra_len'] != 0){fputs($this->zip_fd, $p_header['extra'], $p_header['extra_len']);}return $v_result;}function privWriteCentralFileHeader(&$p_header){$v_result=1;$v_date = getdate($p_header['mtime']);$v_mtime = ($v_date['hours']<<11) + ($v_date['minutes']<<5) + $v_date['seconds']/2;$v_mdate = (($v_date['year']-1980)<<9) + ($v_date['mon']<<5) + $v_date['mday'];$v_binary_data = pack("VvvvvvvVVVvvvvvVV", 0x02014b50,	$p_header['version'], $p_header['version_extracted'],$p_header['flag'], $p_header['compression'],						$v_mtime, $v_mdate, $p_header['crc'],$p_header['compressed_size'], $p_header['size'],strlen($p_header['stored_filename']),						$p_header['extra_len'], $p_header['comment_len'],$p_header['disk'], $p_header['internal'],						$p_header['external'], $p_header['offset']);fputs($this->zip_fd, $v_binary_data, 46);if (strlen($p_header['stored_filename']) != 0){fputs($this->zip_fd, $p_header['stored_filename'], strlen($p_header['stored_filename']));}if ($p_header['extra_len'] != 0){fputs($this->zip_fd, $p_header['extra'], $p_header['extra_len']);}if ($p_header['comment_len'] != 0){fputs($this->zip_fd, $p_header['comment'], $p_header['comment_len']);}return $v_result;}function privWriteCentralHeader($p_nb_entries, $p_size, $p_offset, $p_comment){$v_result=1;$v_binary_data = pack("VvvvvVVv", 0x06054b50, 0, 0, $p_nb_entries,	$p_nb_entries, $p_size,						$p_offset, strlen($p_comment));fputs($this->zip_fd, $v_binary_data, 22);if (strlen($p_comment) != 0){fputs($this->zip_fd, $p_comment, strlen($p_comment));}return $v_result;}function privList(&$p_list){$v_result=1;$this->privDisableMagicQuotes();if (($this->zip_fd = @fopen($this->zipname, 'rb')) == 0){$this->privSwapBackMagicQuotes();PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open archive \''.$this->zipname.'\' in binary read mode');return PclZip::errorCode();}$v_central_dir = array();if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1){$this->privSwapBackMagicQuotes();return $v_result;}@rewind($this->zip_fd);if (@fseek($this->zip_fd, $v_central_dir['offset'])){$this->privSwapBackMagicQuotes();PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid archive size');return PclZip::errorCode();}for ($i=0; $i<$v_central_dir['entries']; $i++){if (($v_result = $this->privReadCentralFileHeader($v_header)) != 1){$this->privSwapBackMagicQuotes();return $v_result;}$v_header['index'] = $i;$this->privConvertHeader2FileInfo($v_header, $p_list[$i]);unset($v_header);}$this->privCloseFd();$this->privSwapBackMagicQuotes();return $v_result;}function privConvertHeader2FileInfo($p_header, &$p_info){$v_result=1;$v_temp_path = PclZipUtilPathReduction($p_header['filename']);$p_info['filename'] = $v_temp_path;$v_temp_path = PclZipUtilPathReduction($p_header['stored_filename']);$p_info['stored_filename'] = $v_temp_path;$p_info['size'] = $p_header['size'];$p_info['compressed_size'] = $p_header['compressed_size'];$p_info['mtime'] = $p_header['mtime'];$p_info['comment'] = $p_header['comment'];$p_info['folder'] = (($p_header['external']&0x00000010)==0x00000010);$p_info['index'] = $p_header['index'];$p_info['status'] = $p_header['status'];$p_info['crc'] = $p_header['crc'];return $v_result;}function privExtractByRule(&$p_file_list, $p_path, $p_remove_path, $p_remove_all_path, &$p_options){$v_result=1;$this->privDisableMagicQuotes();if ( ($p_path == "")	|| ( (substr($p_path, 0, 1) != "/")		&& (substr($p_path, 0, 3) != "../")			&& (substr($p_path,1,2)!=":/")))$p_path = "./".$p_path;if (($p_path != "./") && ($p_path != "/")){while (substr($p_path, -1) == "/"){$p_path = substr($p_path, 0, strlen($p_path)-1);}}if (($p_remove_path != "") && (substr($p_remove_path, -1) != '/')){$p_remove_path .= '/';}$p_remove_path_size = strlen($p_remove_path);if (($v_result = $this->privOpenFd('rb')) != 1){$this->privSwapBackMagicQuotes();return $v_result;}$v_central_dir = array();if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1){$this->privCloseFd();$this->privSwapBackMagicQuotes();return $v_result;}$v_pos_entry = $v_central_dir['offset'];$j_start = 0;for ($i=0, $v_nb_extracted=0; $i<$v_central_dir['entries']; $i++){@rewind($this->zip_fd);if (@fseek($this->zip_fd, $v_pos_entry)){$this->privCloseFd();$this->privSwapBackMagicQuotes();PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid archive size');return PclZip::errorCode();}$v_header = array();if (($v_result = $this->privReadCentralFileHeader($v_header)) != 1){$this->privCloseFd();$this->privSwapBackMagicQuotes();return $v_result;}$v_header['index'] = $i;$v_pos_entry = ftell($this->zip_fd);$v_extract = false;if ( (isset($p_options[PCLZIP_OPT_BY_NAME]))&& ($p_options[PCLZIP_OPT_BY_NAME] != 0)) {for ($j=0; ($j<sizeof($p_options[PCLZIP_OPT_BY_NAME])) && (!$v_extract); $j++) {if (substr($p_options[PCLZIP_OPT_BY_NAME][$j], -1) == "/") {if ( (strlen($v_header['stored_filename']) > strlen($p_options[PCLZIP_OPT_BY_NAME][$j]))&& (substr($v_header['stored_filename'], 0, strlen($p_options[PCLZIP_OPT_BY_NAME][$j])) == $p_options[PCLZIP_OPT_BY_NAME][$j])) {$v_extract = true;}}elseif ($v_header['stored_filename'] == $p_options[PCLZIP_OPT_BY_NAME][$j]) {$v_extract = true;}}}else if ( (isset($p_options[PCLZIP_OPT_BY_PREG])) && ($p_options[PCLZIP_OPT_BY_PREG] != "")) {if (preg_match($p_options[PCLZIP_OPT_BY_PREG], $v_header['stored_filename'])) {$v_extract = true;}}else if ( (isset($p_options[PCLZIP_OPT_BY_INDEX])) && ($p_options[PCLZIP_OPT_BY_INDEX] != 0)) {for ($j=$j_start; ($j<sizeof($p_options[PCLZIP_OPT_BY_INDEX])) && (!$v_extract); $j++) {if (($i>=$p_options[PCLZIP_OPT_BY_INDEX][$j]['start']) && ($i<=$p_options[PCLZIP_OPT_BY_INDEX][$j]['end'])) {$v_extract = true;}if ($i>=$p_options[PCLZIP_OPT_BY_INDEX][$j]['end']) {$j_start = $j+1;}if ($p_options[PCLZIP_OPT_BY_INDEX][$j]['start']>$i) {break;}}}else {$v_extract = true;}		if ( ($v_extract)	&& ( ($v_header['compression'] != 8)		&& ($v_header['compression'] != 0))) {$v_header['status'] = 'unsupported_compression';if ( (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))		&& ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {$this->privSwapBackMagicQuotes();PclZip::privErrorLog(PCLZIP_ERR_UNSUPPORTED_COMPRESSION,			 "Filename '".$v_header['stored_filename']."' is "							 ."compressed by an unsupported compression "							 ."method (".$v_header['compression'].") ");return PclZip::errorCode();		}	}			if (($v_extract) && (($v_header['flag'] & 1) == 1)) {$v_header['status'] = 'unsupported_encryption';if ( (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))		&& ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {$this->privSwapBackMagicQuotes();PclZip::privErrorLog(PCLZIP_ERR_UNSUPPORTED_ENCRYPTION,			 "Unsupported encryption for "							 ." filename '".$v_header['stored_filename']								 ."'");return PclZip::errorCode();		}}if (($v_extract) && ($v_header['status'] != 'ok')) {$v_result = $this->privConvertHeader2FileInfo($v_header,		$p_file_list[$v_nb_extracted++]);if ($v_result != 1) {$this->privCloseFd();$this->privSwapBackMagicQuotes();return $v_result;}$v_extract = false;}if ($v_extract){@rewind($this->zip_fd);if (@fseek($this->zip_fd, $v_header['offset'])){$this->privCloseFd();$this->privSwapBackMagicQuotes();PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid archive size');return PclZip::errorCode();}if ($p_options[PCLZIP_OPT_EXTRACT_AS_STRING]) {$v_string = '';$v_result1 = $this->privExtractFileAsString($v_header, $v_string, $p_options);if ($v_result1 < 1) {$this->privCloseFd();$this->privSwapBackMagicQuotes();return $v_result1;}if (($v_result = $this->privConvertHeader2FileInfo($v_header, $p_file_list[$v_nb_extracted])) != 1){$this->privCloseFd();$this->privSwapBackMagicQuotes();return $v_result;}$p_file_list[$v_nb_extracted]['content'] = $v_string;$v_nb_extracted++;if ($v_result1 == 2) {	break;}}elseif ( (isset($p_options[PCLZIP_OPT_EXTRACT_IN_OUTPUT]))		&& ($p_options[PCLZIP_OPT_EXTRACT_IN_OUTPUT])) {$v_result1 = $this->privExtractFileInOutput($v_header, $p_options);if ($v_result1 < 1) {$this->privCloseFd();$this->privSwapBackMagicQuotes();return $v_result1;}if (($v_result = $this->privConvertHeader2FileInfo($v_header, $p_file_list[$v_nb_extracted++])) != 1) {$this->privCloseFd();$this->privSwapBackMagicQuotes();return $v_result;}if ($v_result1 == 2) {	break;}}else {$v_result1 = $this->privExtractFile($v_header,		$p_path, $p_remove_path,											$p_remove_all_path,											$p_options);if ($v_result1 < 1) {$this->privCloseFd();$this->privSwapBackMagicQuotes();return $v_result1;}if (($v_result = $this->privConvertHeader2FileInfo($v_header, $p_file_list[$v_nb_extracted++])) != 1){$this->privCloseFd();$this->privSwapBackMagicQuotes();return $v_result;}if ($v_result1 == 2) {	break;}}}}$this->privCloseFd();$this->privSwapBackMagicQuotes();return $v_result;}function privExtractFile(&$p_entry, $p_path, $p_remove_path, $p_remove_all_path, &$p_options){$v_result=1;if (($v_result = $this->privReadFileHeader($v_header)) != 1){return $v_result;}if ($this->privCheckFileHeaders($v_header, $p_entry) != 1) {}if ($p_remove_all_path == true) {if (($p_entry['external']&0x00000010)==0x00000010) {$p_entry['status'] = "filtered";return $v_result;}$p_entry['filename'] = basename($p_entry['filename']);}else if ($p_remove_path != ""){if (PclZipUtilPathInclusion($p_remove_path, $p_entry['filename']) == 2){$p_entry['status'] = "filtered";return $v_result;}$p_remove_path_size = strlen($p_remove_path);if (substr($p_entry['filename'], 0, $p_remove_path_size) == $p_remove_path){$p_entry['filename'] = substr($p_entry['filename'], $p_remove_path_size);}}if ($p_path != '') {$p_entry['filename'] = $p_path."/".$p_entry['filename'];}if (isset($p_options[PCLZIP_OPT_EXTRACT_DIR_RESTRICTION])) {$v_inclusion= PclZipUtilPathInclusion($p_options[PCLZIP_OPT_EXTRACT_DIR_RESTRICTION],$p_entry['filename']); if ($v_inclusion == 0) {PclZip::privErrorLog(PCLZIP_ERR_DIRECTORY_RESTRICTION,			 "Filename '".$p_entry['filename']."' is "								 ."outside PCLZIP_OPT_EXTRACT_DIR_RESTRICTION");return PclZip::errorCode();}}if (isset($p_options[PCLZIP_CB_PRE_EXTRACT])) {$v_local_header = array();$this->privConvertHeader2FileInfo($p_entry, $v_local_header);$v_result = $p_options[PCLZIP_CB_PRE_EXTRACT](PCLZIP_CB_PRE_EXTRACT, $v_local_header);if ($v_result == 0) {$p_entry['status'] = "skipped";$v_result = 1;}if ($v_result == 2) {$p_entry['status'] = "aborted";	$v_result = PCLZIP_ERR_USER_ABORTED;}$p_entry['filename'] = $v_local_header['filename'];}if ($p_entry['status'] == 'ok') {if (file_exists($p_entry['filename'])){if (is_dir($p_entry['filename'])){$p_entry['status'] = "already_a_directory";if ( (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))		&& ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {PclZip::privErrorLog(PCLZIP_ERR_ALREADY_A_DIRECTORY,			 "Filename '".$p_entry['filename']."' is "								 ."already used by an existing directory");return PclZip::errorCode();		}}else if (!is_writeable($p_entry['filename'])){$p_entry['status'] = "write_protected";if ( (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))		&& ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {PclZip::privErrorLog(PCLZIP_ERR_WRITE_OPEN_FAIL,			 "Filename '".$p_entry['filename']."' exists "								 ."and is write protected");return PclZip::errorCode();		}}else if (filemtime($p_entry['filename']) > $p_entry['mtime']){if ( (isset($p_options[PCLZIP_OPT_REPLACE_NEWER]))		&& ($p_options[PCLZIP_OPT_REPLACE_NEWER]===true)) {		}		else {$p_entry['status'] = "newer_exist";if ( (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))		&& ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {PclZip::privErrorLog(PCLZIP_ERR_WRITE_OPEN_FAIL,			 "Newer version of '".$p_entry['filename']."' exists "					."and option PCLZIP_OPT_REPLACE_NEWER is not selected");return PclZip::errorCode();		}		}}else {}}else {if ((($p_entry['external']&0x00000010)==0x00000010) || (substr($p_entry['filename'], -1) == '/'))$v_dir_to_check = $p_entry['filename'];else if (!strstr($p_entry['filename'], "/"))$v_dir_to_check = "";else$v_dir_to_check = dirname($p_entry['filename']);if (($v_result = $this->privDirCheck($v_dir_to_check, (($p_entry['external']&0x00000010)==0x00000010))) != 1) {$p_entry['status'] = "path_creation_fail";$v_result = 1;}}}if ($p_entry['status'] == 'ok') {if (!(($p_entry['external']&0x00000010)==0x00000010)){if ($p_entry['compression'] == 0) {		if (($v_dest_file = @fopen($p_entry['filename'], 'wb')) == 0){$p_entry['status'] = "write_error";return $v_result;}$v_size = $p_entry['compressed_size'];while ($v_size != 0){$v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);$v_buffer = @fread($this->zip_fd, $v_read_size);@fwrite($v_dest_file, $v_buffer, $v_read_size);$v_size -= $v_read_size;}fclose($v_dest_file);touch($p_entry['filename'], $p_entry['mtime']);}else {if (($p_entry['flag'] & 1) == 1) {PclZip::privErrorLog(PCLZIP_ERR_UNSUPPORTED_ENCRYPTION, 'File \''.$p_entry['filename'].'\' is encrypted. Encrypted files are not supported.');return PclZip::errorCode();}if ( (!isset($p_options[PCLZIP_OPT_TEMP_FILE_OFF])) && (isset($p_options[PCLZIP_OPT_TEMP_FILE_ON])|| (isset($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD])&& ($p_options[PCLZIP_OPT_TEMP_FILE_THRESHOLD] <= $p_entry['size'])) ) ) {$v_result = $this->privExtractFileUsingTempFile($p_entry, $p_options);if ($v_result < PCLZIP_ERR_NO_ERROR) {return $v_result;}}else {$v_buffer = @fread($this->zip_fd, $p_entry['compressed_size']);$v_file_content = @gzinflate($v_buffer);unset($v_buffer);if ($v_file_content === FALSE) {$p_entry['status'] = "error";return $v_result;}if (($v_dest_file = @fopen($p_entry['filename'], 'wb')) == 0) {$p_entry['status'] = "write_error";return $v_result;}@fwrite($v_dest_file, $v_file_content, $p_entry['size']);unset($v_file_content);@fclose($v_dest_file);}@touch($p_entry['filename'], $p_entry['mtime']);}if (isset($p_options[PCLZIP_OPT_SET_CHMOD])) {@chmod($p_entry['filename'], $p_options[PCLZIP_OPT_SET_CHMOD]);}}}		if ($p_entry['status'] == "aborted") {$p_entry['status'] = "skipped";	}	elseif (isset($p_options[PCLZIP_CB_POST_EXTRACT])) {$v_local_header = array();$this->privConvertHeader2FileInfo($p_entry, $v_local_header);$v_result = $p_options[PCLZIP_CB_POST_EXTRACT](PCLZIP_CB_POST_EXTRACT, $v_local_header);if ($v_result == 2) {	$v_result = PCLZIP_ERR_USER_ABORTED;}}return $v_result;}function privExtractFileUsingTempFile(&$p_entry, &$p_options){$v_result=1;$v_gzip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid('pclzip-').'.gz';if (($v_dest_file = @fopen($v_gzip_temp_name, "wb")) == 0) {fclose($v_file);PclZip::privErrorLog(PCLZIP_ERR_WRITE_OPEN_FAIL, 'Unable to open temporary file \''.$v_gzip_temp_name.'\' in binary write mode');return PclZip::errorCode();}$v_binary_data = pack('va1a1Va1a1', 0x8b1f, Chr($p_entry['compression']), Chr(0x00), time(), Chr(0x00), Chr(3));@fwrite($v_dest_file, $v_binary_data, 10);$v_size = $p_entry['compressed_size'];while ($v_size != 0){$v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);$v_buffer = @fread($this->zip_fd, $v_read_size);@fwrite($v_dest_file, $v_buffer, $v_read_size);$v_size -= $v_read_size;}$v_binary_data = pack('VV', $p_entry['crc'], $p_entry['size']);@fwrite($v_dest_file, $v_binary_data, 8);@fclose($v_dest_file);if (($v_dest_file = @fopen($p_entry['filename'], 'wb')) == 0) {$p_entry['status'] = "write_error";return $v_result;}if (($v_src_file = @gzopen($v_gzip_temp_name, 'rb')) == 0) {@fclose($v_dest_file);$p_entry['status'] = "read_error";PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \''.$v_gzip_temp_name.'\' in binary read mode');return PclZip::errorCode();}$v_size = $p_entry['size'];while ($v_size != 0) {$v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);$v_buffer = @gzread($v_src_file, $v_read_size);@fwrite($v_dest_file, $v_buffer, $v_read_size);$v_size -= $v_read_size;}@fclose($v_dest_file);@gzclose($v_src_file);@unlink($v_gzip_temp_name);return $v_result;}function privExtractFileInOutput(&$p_entry, &$p_options){$v_result=1;if (($v_result = $this->privReadFileHeader($v_header)) != 1) {return $v_result;}if ($this->privCheckFileHeaders($v_header, $p_entry) != 1) {}if (isset($p_options[PCLZIP_CB_PRE_EXTRACT])) {$v_local_header = array();$this->privConvertHeader2FileInfo($p_entry, $v_local_header);$v_result = $p_options[PCLZIP_CB_PRE_EXTRACT](PCLZIP_CB_PRE_EXTRACT, $v_local_header);if ($v_result == 0) {$p_entry['status'] = "skipped";$v_result = 1;}if ($v_result == 2) {$p_entry['status'] = "aborted";	$v_result = PCLZIP_ERR_USER_ABORTED;}$p_entry['filename'] = $v_local_header['filename'];}if ($p_entry['status'] == 'ok') {if (!(($p_entry['external']&0x00000010)==0x00000010)) {if ($p_entry['compressed_size'] == $p_entry['size']) {$v_buffer = @fread($this->zip_fd, $p_entry['compressed_size']);echo $v_buffer;unset($v_buffer);}else {$v_buffer = @fread($this->zip_fd, $p_entry['compressed_size']);$v_file_content = gzinflate($v_buffer);unset($v_buffer);echo $v_file_content;unset($v_file_content);}}}		if ($p_entry['status'] == "aborted") {$p_entry['status'] = "skipped";	}elseif (isset($p_options[PCLZIP_CB_POST_EXTRACT])) {$v_local_header = array();$this->privConvertHeader2FileInfo($p_entry, $v_local_header);$v_result = $p_options[PCLZIP_CB_POST_EXTRACT](PCLZIP_CB_POST_EXTRACT, $v_local_header);if ($v_result == 2) {	$v_result = PCLZIP_ERR_USER_ABORTED;}}return $v_result;}function privExtractFileAsString(&$p_entry, &$p_string, &$p_options){$v_result=1;$v_header = array();if (($v_result = $this->privReadFileHeader($v_header)) != 1){return $v_result;}if ($this->privCheckFileHeaders($v_header, $p_entry) != 1) {}if (isset($p_options[PCLZIP_CB_PRE_EXTRACT])) {$v_local_header = array();$this->privConvertHeader2FileInfo($p_entry, $v_local_header);$v_result = $p_options[PCLZIP_CB_PRE_EXTRACT](PCLZIP_CB_PRE_EXTRACT, $v_local_header);if ($v_result == 0) {$p_entry['status'] = "skipped";$v_result = 1;}if ($v_result == 2) {$p_entry['status'] = "aborted";	$v_result = PCLZIP_ERR_USER_ABORTED;}$p_entry['filename'] = $v_local_header['filename'];}if ($p_entry['status'] == 'ok') {if (!(($p_entry['external']&0x00000010)==0x00000010)) {if ($p_entry['compression'] == 0) {$p_string = @fread($this->zip_fd, $p_entry['compressed_size']);}else {$v_data = @fread($this->zip_fd, $p_entry['compressed_size']);if (($p_string = @gzinflate($v_data)) === FALSE) {}}}else {}}		if ($p_entry['status'] == "aborted") {$p_entry['status'] = "skipped";	}	elseif (isset($p_options[PCLZIP_CB_POST_EXTRACT])) {$v_local_header = array();$this->privConvertHeader2FileInfo($p_entry, $v_local_header);$v_local_header['content'] = $p_string;$p_string = '';$v_result = $p_options[PCLZIP_CB_POST_EXTRACT](PCLZIP_CB_POST_EXTRACT, $v_local_header);$p_string = $v_local_header['content'];unset($v_local_header['content']);if ($v_result == 2) {	$v_result = PCLZIP_ERR_USER_ABORTED;}}return $v_result;}function privReadFileHeader(&$p_header){$v_result=1;$v_binary_data = @fread($this->zip_fd, 4);$v_data = unpack('Vid', $v_binary_data);if ($v_data['id'] != 0x04034b50){PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'Invalid archive structure');return PclZip::errorCode();}$v_binary_data = fread($this->zip_fd, 26);if (strlen($v_binary_data) != 26){$p_header['filename'] = "";$p_header['status'] = "invalid_header";PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, "Invalid block size : ".strlen($v_binary_data));return PclZip::errorCode();}$v_data = unpack('vversion/vflag/vcompression/vmtime/vmdate/Vcrc/Vcompressed_size/Vsize/vfilename_len/vextra_len', $v_binary_data);$p_header['filename'] = fread($this->zip_fd, $v_data['filename_len']);if ($v_data['extra_len'] != 0) {$p_header['extra'] = fread($this->zip_fd, $v_data['extra_len']);}else {$p_header['extra'] = '';}$p_header['version_extracted'] = $v_data['version'];$p_header['compression'] = $v_data['compression'];$p_header['size'] = $v_data['size'];$p_header['compressed_size'] = $v_data['compressed_size'];$p_header['crc'] = $v_data['crc'];$p_header['flag'] = $v_data['flag'];$p_header['filename_len'] = $v_data['filename_len'];$p_header['mdate'] = $v_data['mdate'];$p_header['mtime'] = $v_data['mtime'];if ($p_header['mdate'] && $p_header['mtime']){$v_hour = ($p_header['mtime'] & 0xF800) >> 11;$v_minute = ($p_header['mtime'] & 0x07E0) >> 5;$v_seconde = ($p_header['mtime'] & 0x001F)*2;$v_year = (($p_header['mdate'] & 0xFE00) >> 9) + 1980;$v_month = ($p_header['mdate'] & 0x01E0) >> 5;$v_day = $p_header['mdate'] & 0x001F;$p_header['mtime'] = @mktime($v_hour, $v_minute, $v_seconde, $v_month, $v_day, $v_year);}else{$p_header['mtime'] = time();}$p_header['stored_filename'] = $p_header['filename'];$p_header['status'] = "ok";return $v_result;}function privReadCentralFileHeader(&$p_header){$v_result=1;$v_binary_data = @fread($this->zip_fd, 4);$v_data = unpack('Vid', $v_binary_data);if ($v_data['id'] != 0x02014b50){PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'Invalid archive structure');return PclZip::errorCode();}$v_binary_data = fread($this->zip_fd, 42);if (strlen($v_binary_data) != 42){$p_header['filename'] = "";$p_header['status'] = "invalid_header";PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, "Invalid block size : ".strlen($v_binary_data));return PclZip::errorCode();}$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);if ($p_header['filename_len'] != 0)$p_header['filename'] = fread($this->zip_fd, $p_header['filename_len']);else$p_header['filename'] = '';if ($p_header['extra_len'] != 0)$p_header['extra'] = fread($this->zip_fd, $p_header['extra_len']);else$p_header['extra'] = '';if ($p_header['comment_len'] != 0)$p_header['comment'] = fread($this->zip_fd, $p_header['comment_len']);else$p_header['comment'] = '';if (1){$v_hour = ($p_header['mtime'] & 0xF800) >> 11;$v_minute = ($p_header['mtime'] & 0x07E0) >> 5;$v_seconde = ($p_header['mtime'] & 0x001F)*2;$v_year = (($p_header['mdate'] & 0xFE00) >> 9) + 1980;$v_month = ($p_header['mdate'] & 0x01E0) >> 5;$v_day = $p_header['mdate'] & 0x001F;$p_header['mtime'] = @mktime($v_hour, $v_minute, $v_seconde, $v_month, $v_day, $v_year);}else{$p_header['mtime'] = time();}$p_header['stored_filename'] = $p_header['filename'];$p_header['status'] = 'ok';if (substr($p_header['filename'], -1) == '/') {$p_header['external'] = 0x00000010;}return $v_result;}function privCheckFileHeaders(&$p_local_header, &$p_central_header){$v_result=1;			if ($p_local_header['filename'] != $p_central_header['filename']) {	}	if ($p_local_header['version_extracted'] != $p_central_header['version_extracted']) {	}	if ($p_local_header['flag'] != $p_central_header['flag']) {	}	if ($p_local_header['compression'] != $p_central_header['compression']) {	}	if ($p_local_header['mtime'] != $p_central_header['mtime']) {	}	if ($p_local_header['filename_len'] != $p_central_header['filename_len']) {	}		if (($p_local_header['flag'] & 8) == 8) {$p_local_header['size'] = $p_central_header['size'];$p_local_header['compressed_size'] = $p_central_header['compressed_size'];$p_local_header['crc'] = $p_central_header['crc'];	}return $v_result;}function privReadEndCentralDir(&$p_central_dir){$v_result=1;$v_size = filesize($this->zipname);@fseek($this->zip_fd, $v_size);if (@ftell($this->zip_fd) != $v_size){PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'Unable to go to the end of the archive \''.$this->zipname.'\'');return PclZip::errorCode();}$v_found = 0;if ($v_size > 26) {@fseek($this->zip_fd, $v_size-22);if (($v_pos = @ftell($this->zip_fd)) != ($v_size-22)){PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'Unable to seek back to the middle of the archive \''.$this->zipname.'\'');return PclZip::errorCode();}$v_binary_data = @fread($this->zip_fd, 4);$v_data = @unpack('Vid', $v_binary_data);if ($v_data['id'] == 0x06054b50) {$v_found = 1;}$v_pos = ftell($this->zip_fd);}if (!$v_found) {$v_maximum_size = 65557; if ($v_maximum_size > $v_size)$v_maximum_size = $v_size;@fseek($this->zip_fd, $v_size-$v_maximum_size);if (@ftell($this->zip_fd) != ($v_size-$v_maximum_size)){PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'Unable to seek back to the middle of the archive \''.$this->zipname.'\'');return PclZip::errorCode();}$v_pos = ftell($this->zip_fd);$v_bytes = 0x00000000;while ($v_pos < $v_size){$v_byte = @fread($this->zip_fd, 1);$v_bytes = ( ($v_bytes & 0xFFFFFF) << 8) | Ord($v_byte); if ($v_bytes == 0x504b0506){$v_pos++;break;}$v_pos++;}if ($v_pos == $v_size){PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, "Unable to find End of Central Dir Record signature");return PclZip::errorCode();}}$v_binary_data = fread($this->zip_fd, 18);if (strlen($v_binary_data) != 18){PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, "Invalid End of Central Dir Record size : ".strlen($v_binary_data));return PclZip::errorCode();}$v_data = unpack('vdisk/vdisk_start/vdisk_entries/ventries/Vsize/Voffset/vcomment_size', $v_binary_data);if (($v_pos + $v_data['comment_size'] + 18) != $v_size) {					if (0) {PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT,	 'The central dir is not at the end of the archive.'						 .' Some trailing bytes exists after the archive.');return PclZip::errorCode();	}}if ($v_data['comment_size'] != 0) {$p_central_dir['comment'] = fread($this->zip_fd, $v_data['comment_size']);}else$p_central_dir['comment'] = '';$p_central_dir['entries'] = $v_data['entries'];$p_central_dir['disk_entries'] = $v_data['disk_entries'];$p_central_dir['offset'] = $v_data['offset'];$p_central_dir['size'] = $v_data['size'];$p_central_dir['disk'] = $v_data['disk'];$p_central_dir['disk_start'] = $v_data['disk_start'];return $v_result;}function privDeleteByRule(&$p_result_list, &$p_options){$v_result=1;$v_list_detail = array();if (($v_result=$this->privOpenFd('rb')) != 1){return $v_result;}$v_central_dir = array();if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1){$this->privCloseFd();return $v_result;}@rewind($this->zip_fd);$v_pos_entry = $v_central_dir['offset'];@rewind($this->zip_fd);if (@fseek($this->zip_fd, $v_pos_entry)){$this->privCloseFd();PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid archive size');return PclZip::errorCode();}$v_header_list = array();$j_start = 0;for ($i=0, $v_nb_extracted=0; $i<$v_central_dir['entries']; $i++){$v_header_list[$v_nb_extracted] = array();if (($v_result = $this->privReadCentralFileHeader($v_header_list[$v_nb_extracted])) != 1){$this->privCloseFd();return $v_result;}$v_header_list[$v_nb_extracted]['index'] = $i;$v_found = false;if ( (isset($p_options[PCLZIP_OPT_BY_NAME]))&& ($p_options[PCLZIP_OPT_BY_NAME] != 0)) {for ($j=0; ($j<sizeof($p_options[PCLZIP_OPT_BY_NAME])) && (!$v_found); $j++) {if (substr($p_options[PCLZIP_OPT_BY_NAME][$j], -1) == "/") {if ( (strlen($v_header_list[$v_nb_extracted]['stored_filename']) > strlen($p_options[PCLZIP_OPT_BY_NAME][$j]))&& (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])) {$v_found = true;}elseif ( (($v_header_list[$v_nb_extracted]['external']&0x00000010)==0x00000010) && ($v_header_list[$v_nb_extracted]['stored_filename'].'/' == $p_options[PCLZIP_OPT_BY_NAME][$j])) {$v_found = true;}}elseif ($v_header_list[$v_nb_extracted]['stored_filename'] == $p_options[PCLZIP_OPT_BY_NAME][$j]) {$v_found = true;}}}else if ( (isset($p_options[PCLZIP_OPT_BY_PREG])) && ($p_options[PCLZIP_OPT_BY_PREG] != "")) {if (preg_match($p_options[PCLZIP_OPT_BY_PREG], $v_header_list[$v_nb_extracted]['stored_filename'])) {$v_found = true;}}else if ( (isset($p_options[PCLZIP_OPT_BY_INDEX])) && ($p_options[PCLZIP_OPT_BY_INDEX] != 0)) {for ($j=$j_start; ($j<sizeof($p_options[PCLZIP_OPT_BY_INDEX])) && (!$v_found); $j++) {if (($i>=$p_options[PCLZIP_OPT_BY_INDEX][$j]['start']) && ($i<=$p_options[PCLZIP_OPT_BY_INDEX][$j]['end'])) {$v_found = true;}if ($i>=$p_options[PCLZIP_OPT_BY_INDEX][$j]['end']) {$j_start = $j+1;}if ($p_options[PCLZIP_OPT_BY_INDEX][$j]['start']>$i) {break;}}}else {	$v_found = true;}if ($v_found){unset($v_header_list[$v_nb_extracted]);}else{$v_nb_extracted++;}}if ($v_nb_extracted > 0) {$v_zip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid('pclzip-').'.tmp';$v_temp_zip = new PclZip($v_zip_temp_name);if (($v_result = $v_temp_zip->privOpenFd('wb')) != 1) {$this->privCloseFd();return $v_result;}for ($i=0; $i<sizeof($v_header_list); $i++) {@rewind($this->zip_fd);if (@fseek($this->zip_fd,$v_header_list[$i]['offset'])) {$this->privCloseFd();$v_temp_zip->privCloseFd();@unlink($v_zip_temp_name);PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid archive size');return PclZip::errorCode();}$v_local_header = array();if (($v_result = $this->privReadFileHeader($v_local_header)) != 1) {$this->privCloseFd();$v_temp_zip->privCloseFd();@unlink($v_zip_temp_name);return $v_result;}if ($this->privCheckFileHeaders($v_local_header,			$v_header_list[$i]) != 1) {}unset($v_local_header);if (($v_result = $v_temp_zip->privWriteFileHeader($v_header_list[$i])) != 1) {$this->privCloseFd();$v_temp_zip->privCloseFd();@unlink($v_zip_temp_name);return $v_result;}if (($v_result = PclZipUtilCopyBlock($this->zip_fd, $v_temp_zip->zip_fd, $v_header_list[$i]['compressed_size'])) != 1) {$this->privCloseFd();$v_temp_zip->privCloseFd();@unlink($v_zip_temp_name);return $v_result;}}$v_offset = @ftell($v_temp_zip->zip_fd);for ($i=0; $i<sizeof($v_header_list); $i++) {if (($v_result = $v_temp_zip->privWriteCentralFileHeader($v_header_list[$i])) != 1) {$v_temp_zip->privCloseFd();$this->privCloseFd();@unlink($v_zip_temp_name);return $v_result;}$v_temp_zip->privConvertHeader2FileInfo($v_header_list[$i], $p_result_list[$i]);}$v_comment = '';if (isset($p_options[PCLZIP_OPT_COMMENT])) {$v_comment = $p_options[PCLZIP_OPT_COMMENT];}$v_size = @ftell($v_temp_zip->zip_fd)-$v_offset;if (($v_result = $v_temp_zip->privWriteCentralHeader(sizeof($v_header_list), $v_size, $v_offset, $v_comment)) != 1) {unset($v_header_list);$v_temp_zip->privCloseFd();$this->privCloseFd();@unlink($v_zip_temp_name);return $v_result;}$v_temp_zip->privCloseFd();$this->privCloseFd();@unlink($this->zipname);PclZipUtilRename($v_zip_temp_name, $this->zipname);unset($v_temp_zip);}else if ($v_central_dir['entries'] != 0) {$this->privCloseFd();if (($v_result = $this->privOpenFd('wb')) != 1) {return $v_result;}if (($v_result = $this->privWriteCentralHeader(0, 0, 0, '')) != 1) {return $v_result;}$this->privCloseFd();}return $v_result;}function privDirCheck($p_dir, $p_is_dir=false){$v_result = 1;if (($p_is_dir) && (substr($p_dir, -1)=='/')){$p_dir = substr($p_dir, 0, strlen($p_dir)-1);}if ((is_dir($p_dir)) || ($p_dir == "")){return 1;}$p_parent_dir = dirname($p_dir);if ($p_parent_dir != $p_dir){if ($p_parent_dir != ""){if (($v_result = $this->privDirCheck($p_parent_dir)) != 1){return $v_result;}}}if (!@mkdir($p_dir, 0777)){PclZip::privErrorLog(PCLZIP_ERR_DIR_CREATE_FAIL, "Unable to create directory '$p_dir'");return PclZip::errorCode();}return $v_result;}function privMerge(&$p_archive_to_add){$v_result=1;if (!is_file($p_archive_to_add->zipname)){$v_result = 1;return $v_result;}if (!is_file($this->zipname)){$v_result = $this->privDuplicate($p_archive_to_add->zipname);return $v_result;}if (($v_result=$this->privOpenFd('rb')) != 1){return $v_result;}$v_central_dir = array();if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1){$this->privCloseFd();return $v_result;}@rewind($this->zip_fd);if (($v_result=$p_archive_to_add->privOpenFd('rb')) != 1){$this->privCloseFd();return $v_result;}$v_central_dir_to_add = array();if (($v_result = $p_archive_to_add->privReadEndCentralDir($v_central_dir_to_add)) != 1){$this->privCloseFd();$p_archive_to_add->privCloseFd();return $v_result;}@rewind($p_archive_to_add->zip_fd);$v_zip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid('pclzip-').'.tmp';if (($v_zip_temp_fd = @fopen($v_zip_temp_name, 'wb')) == 0){$this->privCloseFd();$p_archive_to_add->privCloseFd();PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \''.$v_zip_temp_name.'\' in binary write mode');return PclZip::errorCode();}$v_size = $v_central_dir['offset'];while ($v_size != 0){$v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);$v_buffer = fread($this->zip_fd, $v_read_size);@fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);$v_size -= $v_read_size;}$v_size = $v_central_dir_to_add['offset'];while ($v_size != 0){$v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);$v_buffer = fread($p_archive_to_add->zip_fd, $v_read_size);@fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);$v_size -= $v_read_size;}$v_offset = @ftell($v_zip_temp_fd);$v_size = $v_central_dir['size'];while ($v_size != 0){$v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);$v_buffer = @fread($this->zip_fd, $v_read_size);@fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);$v_size -= $v_read_size;}$v_size = $v_central_dir_to_add['size'];while ($v_size != 0){$v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);$v_buffer = @fread($p_archive_to_add->zip_fd, $v_read_size);@fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);$v_size -= $v_read_size;}$v_comment = $v_central_dir['comment'].' '.$v_central_dir_to_add['comment'];$v_size = @ftell($v_zip_temp_fd)-$v_offset;$v_swap = $this->zip_fd;$this->zip_fd = $v_zip_temp_fd;$v_zip_temp_fd = $v_swap;if (($v_result = $this->privWriteCentralHeader($v_central_dir['entries']+$v_central_dir_to_add['entries'], $v_size, $v_offset, $v_comment)) != 1){$this->privCloseFd();$p_archive_to_add->privCloseFd();@fclose($v_zip_temp_fd);$this->zip_fd = null;unset($v_header_list);return $v_result;}$v_swap = $this->zip_fd;$this->zip_fd = $v_zip_temp_fd;$v_zip_temp_fd = $v_swap;$this->privCloseFd();$p_archive_to_add->privCloseFd();@fclose($v_zip_temp_fd);@unlink($this->zipname);PclZipUtilRename($v_zip_temp_name, $this->zipname);return $v_result;}function privDuplicate($p_archive_filename){$v_result=1;if (!is_file($p_archive_filename)){$v_result = 1;return $v_result;}if (($v_result=$this->privOpenFd('wb')) != 1){return $v_result;}if (($v_zip_temp_fd = @fopen($p_archive_filename, 'rb')) == 0){$this->privCloseFd();PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open archive file \''.$p_archive_filename.'\' in binary write mode');return PclZip::errorCode();}$v_size = filesize($p_archive_filename);while ($v_size != 0){$v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE);$v_buffer = fread($v_zip_temp_fd, $v_read_size);@fwrite($this->zip_fd, $v_buffer, $v_read_size);$v_size -= $v_read_size;}$this->privCloseFd();@fclose($v_zip_temp_fd);return $v_result;}function privErrorLog($p_error_code=0, $p_error_string=''){if (PCLZIP_ERROR_EXTERNAL == 1) {PclError($p_error_code, $p_error_string);}else {$this->error_code = $p_error_code;$this->error_string = $p_error_string;}}function privErrorReset(){if (PCLZIP_ERROR_EXTERNAL == 1) {PclErrorReset();}else {$this->error_code = 0;$this->error_string = '';}}function privDisableMagicQuotes(){$v_result=1;if ( (!function_exists("get_magic_quotes_runtime"))	|| (!function_exists("set_magic_quotes_runtime"))) {return $v_result;	}if ($this->magic_quotes_status != -1) {return $v_result;	}		$this->magic_quotes_status = @get_magic_quotes_runtime();		if ($this->magic_quotes_status == 1) {	@set_magic_quotes_runtime(0);	}return $v_result;}function privSwapBackMagicQuotes(){$v_result=1;if ( (!function_exists("get_magic_quotes_runtime"))	|| (!function_exists("set_magic_quotes_runtime"))) {return $v_result;	}if ($this->magic_quotes_status != -1) {return $v_result;	}		if ($this->magic_quotes_status == 1) {	@set_magic_quotes_runtime($this->magic_quotes_status);	}return $v_result;}}function PclZipUtilPathReduction($p_dir){$v_result = "";if ($p_dir != "") {$v_list = explode("/", $p_dir);$v_skip = 0;for ($i=sizeof($v_list)-1; $i>=0; $i--) {if ($v_list[$i] == ".") {}else if ($v_list[$i] == "..") {		$v_skip++;}else if ($v_list[$i] == "") {				if ($i == 0) {$v_result = "/".$v_result;		if ($v_skip > 0) {						$v_result = $p_dir;$v_skip = 0;		}		}				else if ($i == (sizeof($v_list)-1)) {$v_result = $v_list[$i];		}				else {		}}else {				if ($v_skip > 0) {		$v_skip--;		}		else {$v_result = $v_list[$i].($i!=(sizeof($v_list)-1)?"/".$v_result:"");		}}}if ($v_skip > 0) {while ($v_skip > 0) {$v_result = '../'.$v_result;$v_skip--;}}}return $v_result;}function PclZipUtilPathInclusion($p_dir, $p_path){$v_result = 1;if ( ($p_dir == '.')|| ((strlen($p_dir) >=2) && (substr($p_dir, 0, 2) == './'))) {$p_dir = PclZipUtilTranslateWinPath(getcwd(), FALSE).'/'.substr($p_dir, 1);}if ( ($p_path == '.')|| ((strlen($p_path) >=2) && (substr($p_path, 0, 2) == './'))) {$p_path = PclZipUtilTranslateWinPath(getcwd(), FALSE).'/'.substr($p_path, 1);}$v_list_dir = explode("/", $p_dir);$v_list_dir_size = sizeof($v_list_dir);$v_list_path = explode("/", $p_path);$v_list_path_size = sizeof($v_list_path);$i = 0;$j = 0;while (($i < $v_list_dir_size) && ($j < $v_list_path_size) && ($v_result)) {if ($v_list_dir[$i] == '') {$i++;continue;}if ($v_list_path[$j] == '') {$j++;continue;}if (($v_list_dir[$i] != $v_list_path[$j]) && ($v_list_dir[$i] != '') && ( $v_list_path[$j] != '')){$v_result = 0;}$i++;$j++;}if ($v_result) {while (($j < $v_list_path_size) && ($v_list_path[$j] == '')) $j++;while (($i < $v_list_dir_size) && ($v_list_dir[$i] == '')) $i++;if (($i >= $v_list_dir_size) && ($j >= $v_list_path_size)) {$v_result = 2;}else if ($i < $v_list_dir_size) {$v_result = 0;}}return $v_result;}function PclZipUtilCopyBlock($p_src, $p_dest, $p_size, $p_mode=0){$v_result = 1;if ($p_mode==0){while ($p_size != 0){$v_read_size = ($p_size < PCLZIP_READ_BLOCK_SIZE ? $p_size : PCLZIP_READ_BLOCK_SIZE);$v_buffer = @fread($p_src, $v_read_size);@fwrite($p_dest, $v_buffer, $v_read_size);$p_size -= $v_read_size;}}else if ($p_mode==1){while ($p_size != 0){$v_read_size = ($p_size < PCLZIP_READ_BLOCK_SIZE ? $p_size : PCLZIP_READ_BLOCK_SIZE);$v_buffer = @gzread($p_src, $v_read_size);@fwrite($p_dest, $v_buffer, $v_read_size);$p_size -= $v_read_size;}}else if ($p_mode==2){while ($p_size != 0){$v_read_size = ($p_size < PCLZIP_READ_BLOCK_SIZE ? $p_size : PCLZIP_READ_BLOCK_SIZE);$v_buffer = @fread($p_src, $v_read_size);@gzwrite($p_dest, $v_buffer, $v_read_size);$p_size -= $v_read_size;}}else if ($p_mode==3){while ($p_size != 0){$v_read_size = ($p_size < PCLZIP_READ_BLOCK_SIZE ? $p_size : PCLZIP_READ_BLOCK_SIZE);$v_buffer = @gzread($p_src, $v_read_size);@gzwrite($p_dest, $v_buffer, $v_read_size);$p_size -= $v_read_size;}}return $v_result;}function PclZipUtilRename($p_src, $p_dest){$v_result = 1;if (!@rename($p_src, $p_dest)) {if (!@copy($p_src, $p_dest)) {$v_result = 0;}else if (!@unlink($p_src)) {$v_result = 0;}}return $v_result;}function PclZipUtilOptionText($p_option){$v_list = get_defined_constants();for (reset($v_list); $v_key = key($v_list); next($v_list)) {	$v_prefix = substr($v_key, 0, 10);	if (( ($v_prefix == 'PCLZIP_OPT') || ($v_prefix == 'PCLZIP_CB_') || ($v_prefix == 'PCLZIP_ATT'))	&& ($v_list[$v_key] == $p_option)) {return $v_key;	}}$v_result = 'Unknown';return $v_result;}function PclZipUtilTranslateWinPath($p_path, $p_remove_disk_letter=true){if (stristr(php_uname(), 'windows')) {if (($p_remove_disk_letter) && (($v_position = strpos($p_path, ':')) != false)) {$p_path = substr($p_path, $v_position+1);}if ((strpos($p_path, '\\') > 0) || (substr($p_path, 0,1) == '\\')) {$p_path = strtr($p_path, '\\', '/');}}return $p_path;}

Example #17

Show file

File: archive.php Project: Parashutik/ReloadCMS

 function writeBlock($data, $length = 0)
 {
     if (is_resource($this->tmp_file)) {
         if ($length === 0) {
             if ($this->isGzipped) {
                 gzputs($this->tmp_file, $data);
             } else {
                 fputs($this->tmp_file, $data);
             }
         } else {
             if ($this->isGzipped) {
                 gzputs($this->tmp_file, $data, $length);
             } else {
                 fputs($this->tmp_file, $data, $length);
             }
         }
     }
 }

Example #18

Show file

File: newsportal.php Project: amjadtbssm/website

function saveThreadData($headers, $group)
{
    global $spooldir, $compress_spoolfiles;
    if ($compress_spoolfiles) {
        $file = gzopen("{$spooldir}/{$group}-data.dat", "w");
        gzputs($file, serialize($headers));
        gzclose($file);
    } else {
        $file = fopen("{$spooldir}/{$group}-data.dat", "w");
        fputs($file, serialize($headers));
        fclose($file);
    }
}

Example #19

Show file

File: backup.php Project: aterai/pukiwiki-plus-i18n

 /**
  * _backup_fputs
  * バックアップファイルに書き込む
  *
  * @access    private
  * @param     Integer   $zp          ファイルポインタ
  * @param     String    $str         文字列
  *
  * @return    Boolean   FALSE:失敗 その他:書き込んだバイト数
  */
 function _backup_fputs($zp, $str)
 {
     return gzputs($zp, $str);
 }

Example #20

Show file

File: ZipFile.class.php Project: melogamepay/xp-framework

 /**
  * Write a line and append a LF (\n) character
  *
  * @param   string string data to write
  * @return  bool success
  * @throws  io.IOException in case of an error
  */
 public function writeLine($string)
 {
     if (FALSE === ($result = gzputs($this->_fd, $string . "\n"))) {
         throw new IOException('cannot write ' . (strlen($string) + 1) . ' bytes to ' . $this->uri);
     }
     return $result;
 }

Example #21

Show file

File: db_backup.php Project: necrophcodr/Muks

function gzcompressfile($source, $level = false)
{
    $dest = $source . ".gz";
    $mode = "wb" . $level;
    $error = false;
    if ($fp_out = gzopen($dest, $mode)) {
        if ($fp_in = fopen($source, "rb")) {
            while (!feof($fp_in)) {
                gzputs($fp_out, fread($fp_in, 1024 * 512));
            }
            fclose($fp_in);
        } else {
            $error = true;
        }
        gzclose($fp_out);
    } else {
        $error = true;
    }
    if ($error) {
        return false;
    } else {
        return $dest;
    }
}

Example #22

Show file

File: Update.class.php Project: belerweb/pigcms

 function privAddFileUsingTempFile($p_filedescr, &$p_header, &$p_options)
 {
     $v_result = PCLZIP_ERR_NO_ERROR;
     // ----- Working variable
     $p_filename = $p_filedescr['filename'];
     // ----- Open the source file
     if (($v_file = @fopen($p_filename, "rb")) == 0) {
         PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, "Unable to open file '{$p_filename}' in binary read mode");
         return PclZip::errorCode();
     }
     // ----- Creates a compressed temporary file
     $v_gzip_temp_name = PCLZIP_TEMPORARY_DIR . uniqid('pclzip-') . '.gz';
     if (($v_file_compressed = @gzopen($v_gzip_temp_name, "wb")) == 0) {
         fclose($v_file);
         PclZip::privErrorLog(PCLZIP_ERR_WRITE_OPEN_FAIL, 'Unable to open temporary file \'' . $v_gzip_temp_name . '\' in binary write mode');
         return PclZip::errorCode();
     }
     // ----- Read the file by PCLZIP_READ_BLOCK_SIZE octets blocks
     $v_size = filesize($p_filename);
     while ($v_size != 0) {
         $v_read_size = $v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE;
         $v_buffer = @fread($v_file, $v_read_size);
         //$v_binary_data = pack('a'.$v_read_size, $v_buffer);
         @gzputs($v_file_compressed, $v_buffer, $v_read_size);
         $v_size -= $v_read_size;
     }
     // ----- Close the file
     @fclose($v_file);
     @gzclose($v_file_compressed);
     // ----- Check the minimum file size
     if (filesize($v_gzip_temp_name) < 18) {
         PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'gzip temporary file \'' . $v_gzip_temp_name . '\' has invalid filesize - should be minimum 18 bytes');
         return PclZip::errorCode();
     }
     // ----- Extract the compressed attributes
     if (($v_file_compressed = @fopen($v_gzip_temp_name, "rb")) == 0) {
         PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \'' . $v_gzip_temp_name . '\' in binary read mode');
         return PclZip::errorCode();
     }
     // ----- Read the gzip file header
     $v_binary_data = @fread($v_file_compressed, 10);
     $v_data_header = unpack('a1id1/a1id2/a1cm/a1flag/Vmtime/a1xfl/a1os', $v_binary_data);
     // ----- Check some parameters
     $v_data_header['os'] = bin2hex($v_data_header['os']);
     // ----- Read the gzip file footer
     @fseek($v_file_compressed, filesize($v_gzip_temp_name) - 8);
     $v_binary_data = @fread($v_file_compressed, 8);
     $v_data_footer = unpack('Vcrc/Vcompressed_size', $v_binary_data);
     // ----- Set the attributes
     $p_header['compression'] = ord($v_data_header['cm']);
     //$p_header['mtime'] = $v_data_header['mtime'];
     $p_header['crc'] = $v_data_footer['crc'];
     $p_header['compressed_size'] = filesize($v_gzip_temp_name) - 18;
     // ----- Close the file
     @fclose($v_file_compressed);
     // ----- Call the header generation
     if (($v_result = $this->privWriteFileHeader($p_header)) != 1) {
         return $v_result;
     }
     // ----- Add the compressed data
     if (($v_file_compressed = @fopen($v_gzip_temp_name, "rb")) == 0) {
         PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \'' . $v_gzip_temp_name . '\' in binary read mode');
         return PclZip::errorCode();
     }
     // ----- Read the file by PCLZIP_READ_BLOCK_SIZE octets blocks
     fseek($v_file_compressed, 10);
     $v_size = $p_header['compressed_size'];
     while ($v_size != 0) {
         $v_read_size = $v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE;
         $v_buffer = @fread($v_file_compressed, $v_read_size);
         //$v_binary_data = pack('a'.$v_read_size, $v_buffer);
         @fwrite($this->zip_fd, $v_buffer, $v_read_size);
         $v_size -= $v_read_size;
     }
     // ----- Close the file
     @fclose($v_file_compressed);
     // ----- Unlink the temporary file
     @unlink($v_gzip_temp_name);
     // ----- Return
     return $v_result;
 }

Example #23

Show file

File: imdb_base.class.php Project: ZenoX2012/CyBerFuN-CoDeX

 /** Load an IMDB page into the corresponding property (variable)
  * @method private openpage
  * @param string wt internal name of the page
  * @param optional string type whether its a "movie" (default) or a "person"
  */
 function openpage($wt, $type = "movie")
 {
     if (strlen($this->imdbID) != 7) {
         $this->debug_scalar("not valid imdbID: " . $this->imdbID . "<BR>" . strlen($this->imdbID));
         $this->page[$wt] = "cannot open page";
         return;
     }
     $urlname = $this->set_pagename($wt);
     if ($urlname === false) {
         return;
     }
     if ($this->usecache) {
         $fname = "{$this->cachedir}/{$this->imdbID}.{$wt}";
         if ($this->usezip) {
             if ($this->page[$wt] = @join("", @gzfile($fname))) {
                 if ($this->converttozip) {
                     @($fp = fopen($fname, "r"));
                     $zipchk = fread($fp, 2);
                     fclose($fp);
                     if (!($zipchk[0] == chr(31) && $zipchk[1] == chr(139))) {
                         //checking for zip header
                         /* converting on access */
                         $fp = @gzopen($fname, "w");
                         @gzputs($fp, $this->page[$wt]);
                         @gzclose($fp);
                     }
                 }
                 return;
             }
         } else {
             // no zip
             @($fp = fopen($fname, "r"));
             if ($fp) {
                 $temp = "";
                 while (!feof($fp)) {
                     $temp .= fread($fp, 1024);
                     $this->page[$wt] = $temp;
                 }
                 return;
             }
         }
     }
     // end cache
     switch ($type) {
         case "person":
             $url = "http://" . $this->imdbsite . "/name/nm" . $this->imdbID . $urlname;
             break;
         default:
             $url = "http://" . $this->imdbsite . "/title/tt" . $this->imdbID . $urlname;
     }
     $this->getWebPage($wt, $url);
     // Checking for redirects
     if (@preg_match('|<TITLE>(.*)</TITLE>.*The document has moved <A HREF="(.*)">|iUms', $this->page[$wt], $match)) {
         if ($match[1] == "302 Found") {
             $this->getWebPage($wt, $match[2]);
         }
     }
     if ($this->page[$wt] == "cannot open page") {
         return;
     }
     // this should not go to the cache!
     if ($this->page[$wt]) {
         //storecache
         if ($this->storecache) {
             if (!is_dir($this->cachedir)) {
                 $this->debug_scalar("<BR>***ERROR*** Configured cache directory does not exist!<BR>");
                 return;
             }
             if (!is_writable($this->cachedir)) {
                 $this->debug_scalar("<BR>***ERROR*** Configured cache directory lacks write permission!<BR>");
                 return;
             }
             $fname = "{$this->cachedir}/{$this->imdbID}.{$wt}";
             if ($this->usezip) {
                 $fp = gzopen($fname, "w");
                 gzputs($fp, $this->page[$wt]);
                 gzclose($fp);
             } else {
                 // no zip
                 $fp = fopen($fname, "w");
                 fputs($fp, $this->page[$wt]);
                 fclose($fp);
             }
         }
         return;
     }
     $this->page[$wt] = "cannot open page";
     $this->debug_scalar("cannot open page: {$url}");
 }

Example #24

Show file

File: SyncCtoDatabase.php Project: baumannsven/syncCto

 /**
  * Function for creating a sql/xml dump file.
  * 
  * @param array $mixTables Table or a list of tables for backup
  * @param string $strZip Name of zip file
  * @param bool $booTempFolder Should the tmp folde used instead of backupfolder
  * @return void 
  */
 public function runDump($mixTables, $booTempFolder, $booOnlyMachine = true)
 {
     // Set time limit to unlimited
     set_time_limit(0);
     // Set limit for db query. Ticket #163
     if ($GLOBALS['TL_CONFIG']['syncCto_custom_settings'] == true && intval($GLOBALS['TL_CONFIG']['syncCto_db_query_limt']) > 0) {
         $intElementsPerRequest = intval($GLOBALS['TL_CONFIG']['syncCto_db_query_limt']);
     } else {
         $intElementsPerRequest = 500;
     }
     // Add to the backup array all tables
     if (is_array($mixTables)) {
         $this->arrBackupTables = array_merge($this->arrBackupTables, $mixTables);
     } else {
         if ($mixTables != "" && $mixTables != null) {
             $this->arrBackupTables[] = $mixTables;
         }
     }
     // make the backup array unique
     $this->arrBackupTables = array_unique($this->arrBackupTables);
     // Check if we have some tables for backup
     if (!is_array($this->arrBackupTables) || $this->arrBackupTables == null || count($this->arrBackupTables) == 0) {
         throw new Exception("No tables found for backup.");
     }
     // Get a list of all Tables
     $arrTables = $this->Database->listTables();
     // Write some tempfiles
     $strRandomToken = md5(time() . " | " . rand(0, 65535));
     // Write SQL file
     if ($booOnlyMachine == false) {
         $objFileSQL = new File($this->objSyncCtoHelper->standardizePath($GLOBALS['SYC_PATH']['tmp'], "TempSQLDump.{$strRandomToken}"));
         $objFileSQL->write("");
     }
     // Write gzip xml file
     $objGzFile = new File($this->objSyncCtoHelper->standardizePath($GLOBALS['SYC_PATH']['tmp'], "TempSyncCtoDump.{$strRandomToken}"));
     $objGzFile->write("");
     $objGzFile->close();
     // Compression
     $objGzFile = gzopen(TL_ROOT . "/" . $this->objSyncCtoHelper->standardizePath($GLOBALS['SYC_PATH']['tmp'], "TempSyncCtoDump.{$strRandomToken}"), "wb");
     // Create XML File
     $objXml = new XMLWriter();
     $objXml->openMemory();
     $objXml->setIndent(true);
     $objXml->setIndentString("\t");
     // XML Start
     $objXml->startDocument('1.0', 'UTF-8');
     $objXml->startElement('database');
     // Write meta (header)
     $objXml->startElement('metatags');
     $objXml->writeElement('version', $GLOBALS['SYC_VERSION']);
     $objXml->writeElement('create_unix', time());
     $objXml->writeElement('create_date', date('Y-m-d', time()));
     $objXml->writeElement('create_time', date('H:i', time()));
     $objXml->endElement();
     // End metatags
     $objXml->startElement('structure');
     foreach ($arrTables as $key => $TableName) {
         // Check if the current table marked as backup
         if (!in_array($TableName, $this->arrBackupTables)) {
             continue;
         }
         // Get data
         $arrStructure = $this->getTableStructure($TableName);
         // Check if empty
         if (count($arrStructure) == 0) {
             continue;
         }
         $objXml->startElement('table');
         $objXml->writeAttribute("name", $TableName);
         $objXml->startElement('fields');
         if (is_array($arrStructure['TABLE_FIELDS'])) {
             foreach ($arrStructure['TABLE_FIELDS'] as $keyField => $valueField) {
                 $objXml->startElement('field');
                 $objXml->writeAttribute("name", $keyField);
                 $objXml->text($valueField);
                 $objXml->endElement();
                 // End field
             }
         }
         $objXml->endElement();
         // End fields
         $objXml->startElement('definitions');
         if (is_array($arrStructure['TABLE_CREATE_DEFINITIONS'])) {
             foreach ($arrStructure['TABLE_CREATE_DEFINITIONS'] as $keyField => $valueField) {
                 $objXml->startElement('def');
                 $objXml->writeAttribute("name", $keyField);
                 $objXml->text($valueField);
                 $objXml->endElement();
                 // End field
             }
         }
         $objXml->endElement();
         // End fields
         $objXml->startElement("option");
         $objXml->text($arrStructure['TABLE_OPTIONS']);
         $objXml->endElement();
         $objXml->endElement();
         // End table
     }
     // Push structure into file.
     $strXMLFlush = $objXml->flush(true);
     gzputs($objGzFile, $strXMLFlush, strlen($strXMLFlush));
     $objXml->endElement();
     // End structure
     $objXml->startElement('data');
     foreach ($arrTables as $key => $TableName) {
         // Check if the current table marked as backup
         if (!in_array($TableName, $this->arrBackupTables)) {
             continue;
         }
         // Check if table is in blacklist
         if (!in_array($TableName, $this->arrBackupTables)) {
             continue;
         }
         // Get fields
         $fields = $this->Database->listFields($TableName);
         $arrFieldMeta = array();
         foreach ($fields as $key => $value) {
             if ($value["type"] == "index") {
                 continue;
             }
             $arrFieldMeta[$value["name"]] = $value;
         }
         $objXml->startElement('table');
         $objXml->writeAttribute('name', $TableName);
         for ($i = 0; true; $i++) {
             // Push into file.
             $strXMLFlush = $objXml->flush(true);
             gzputs($objGzFile, $strXMLFlush, strlen($strXMLFlush));
             $objData = $this->Database->prepare("SELECT * FROM {$TableName}")->limit($intElementsPerRequest, $i * $intElementsPerRequest)->executeUncached();
             if ($objData->numRows == 0) {
                 break;
             }
             while ($row = $objData->fetchAssoc()) {
                 $objXml->startElement('row');
                 $objXml->writeAttribute("id", $row["id"]);
                 foreach ($row as $field_key => $field_data) {
                     $objXml->startElement('field');
                     $objXml->writeAttribute("name", $field_key);
                     if (!isset($field_data)) {
                         $objXml->writeAttribute("type", "null");
                         $objXml->text("NULL");
                     } else {
                         if ($field_data != "") {
                             switch (strtolower($arrFieldMeta[$field_key]['type'])) {
                                 case 'binary':
                                 case 'varbinary':
                                 case 'blob':
                                 case 'tinyblob':
                                 case 'mediumblob':
                                 case 'longblob':
                                     $objXml->writeAttribute("type", "blob");
                                     $objXml->text("0x" . bin2hex($field_data));
                                     break;
                                 case 'tinyint':
                                 case 'smallint':
                                 case 'mediumint':
                                 case 'int':
                                 case 'integer':
                                 case 'bigint':
                                     $objXml->writeAttribute("type", "int");
                                     $objXml->text($field_data);
                                     break;
                                 case 'float':
                                 case 'double':
                                 case 'real':
                                 case 'decimal':
                                 case 'numeric':
                                     $objXml->writeAttribute("type", "decimal");
                                     $objXml->text($field_data);
                                     break;
                                 case 'date':
                                 case 'datetime':
                                 case 'timestamp':
                                 case 'time':
                                 case 'year':
                                     $objXml->writeAttribute("type", "date");
                                     $objXml->text("'" . $field_data . "'");
                                     break;
                                 case 'char':
                                 case 'varchar':
                                 case 'text':
                                 case 'tinytext':
                                 case 'mediumtext':
                                 case 'longtext':
                                 case 'enum':
                                 case 'set':
                                     $objXml->writeAttribute("type", "text");
                                     $objXml->writeCdata(base64_encode(str_replace($this->arrSearchFor, $this->arrReplaceWith, $field_data)));
                                     break;
                                 default:
                                     $objXml->writeAttribute("type", "default");
                                     $objXml->writeCdata(base64_encode(str_replace($this->arrSearchFor, $this->arrReplaceWith, $field_data)));
                                     break;
                             }
                         } else {
                             $objXml->writeAttribute("type", "empty");
                             $objXml->text("''");
                         }
                     }
                     $objXml->endElement();
                     // End field
                 }
                 $objXml->endElement();
                 // End row
             }
         }
         $objXml->endElement();
         // End table
     }
     $objXml->endElement();
     // End data
     $objXml->endElement();
     // End database
     $strXMLFlush = $objXml->flush(true);
     gzputs($objGzFile, $strXMLFlush, strlen($strXMLFlush));
     gzclose($objGzFile);
     if ($booOnlyMachine == false) {
         // Write header for sql file
         $today = date("Y-m-d");
         $time = date("H:i:s");
         // Write Header
         $string .= "-- syncCto SQL Dump\r\n";
         $string .= "-- Version " . $GLOBALS['SYC_VERSION'] . "\r\n";
         $string .= "-- http://men-at-work.de\r\n";
         $string .= "-- \r\n";
         $string .= "-- Time stamp : {$today} at {$time}\r\n";
         $string .= "\r\n";
         $string .= "SET SQL_MODE=\"NO_AUTO_VALUE_ON_ZERO\";\r\n";
         $string .= "\r\n";
         $string .= "-- --------------------------------------------------------\r\n";
         $string .= "\r\n";
         $objFileSQL->append($string, "");
         $objFileSQL->close();
         $string = "";
         // Run each table
         foreach ($arrTables as $key => $TableName) {
             // Check if table is in blacklist
             if (!in_array($TableName, $this->arrBackupTables)) {
                 continue;
             }
             // Get data
             $arrStructure = $this->getTableStructure($TableName);
             // Check if empty
             if (count($arrStructure) == 0) {
                 continue;
             }
             // Write SQL
             $string .= "-- \r\n";
             $string .= "-- Dumping table {$TableName} \r\n";
             $string .= "-- \r\n";
             $string .= "\r\n";
             $string .= $this->buildSQLTable($arrStructure, $TableName);
             $string .= "\r\n";
             $string .= "\r\n";
             $objFileSQL->append($string, "");
             $objFileSQL->close();
             $string = "";
             // Get fields
             $fields = $this->Database->listFields($TableName);
             $arrFieldMeta = array();
             foreach ($fields as $key => $value) {
                 if ($value["type"] == "index") {
                     continue;
                 }
                 $arrFieldMeta[$value["name"]] = $value;
             }
             $booFirstEntry = true;
             for ($i = 0; true; $i++) {
                 $objData = $this->Database->prepare("SELECT * FROM {$TableName}")->limit($intElementsPerRequest, $i * $intElementsPerRequest)->executeUncached();
                 $strSQL = "";
                 // Check if we have some files
                 if ($objData->numRows == 0) {
                     // if end reach insert ';'
                     if ($booFirstEntry != true) {
                         $strSQL .= ";\r\n\r\n";
                     }
                     $strSQL .= "-- --------------------------------------------------------\r\n\r\n";
                     $objFileSQL->append($strSQL, "");
                     $objFileSQL->close();
                     break;
                 }
                 // Start INSERT INTO
                 if ($i == 0) {
                     $strSQL .= "INSERT IGNORE INTO " . $TableName . " (`";
                     $strSQL .= implode("`, `", array_keys($arrFieldMeta));
                     $strSQL .= "`) VALUES";
                 }
                 // Run through each row
                 while ($row = $objData->fetchAssoc()) {
                     $arrTableData = array();
                     foreach (array_keys($arrFieldMeta) as $fieldName) {
                         if (!isset($row[$fieldName])) {
                             $arrTableData[] = "NULL";
                         } else {
                             if ($row[$fieldName] != "") {
                                 switch (strtolower($arrFieldMeta[$fieldName]['type'])) {
                                     case 'blob':
                                     case 'tinyblob':
                                     case 'mediumblob':
                                     case 'longblob':
                                         $arrTableData[] = "0x" . bin2hex($row[$fieldName]);
                                         break;
                                     case 'smallint':
                                     case 'int':
                                         $arrTableData[] = $row[$fieldName];
                                         break;
                                     case 'text':
                                     case 'mediumtext':
                                         if (strpos($row[$fieldName], "'") != false) {
                                             $arrTableData[] = "0x" . bin2hex($row[$fieldName]);
                                             break;
                                         }
                                     default:
                                         $arrTableData[] = "'" . str_replace($this->arrSearchFor, $this->arrReplaceWith, $row[$fieldName]) . "'";
                                         break;
                                 }
                             } else {
                                 $arrTableData[] = "''";
                             }
                         }
                     }
                     if ($booFirstEntry == true) {
                         $booFirstEntry = false;
                         $strSQL .= "\r\n(" . implode(", ", $arrTableData) . ")";
                     } else {
                         $strSQL .= ",\r\n(" . implode(", ", $arrTableData) . ")";
                     }
                     if (strlen($strSQL) > 100000) {
                         $objFileSQL->append($strSQL, "");
                         $objFileSQL->close();
                         $strSQL = "";
                     }
                 }
                 if (strlen($strSQL) != 0) {
                     $objFileSQL->append($strSQL, "");
                     $objFileSQL->close();
                     $strSQL = "";
                 }
             }
         }
     }
     if ($booOnlyMachine == false) {
         $objFileSQL->close();
     }
     $strFilename = date($this->strTimestampFormat) . "_" . $this->strSuffixZipName;
     if ($booTempFolder) {
         $strPath = $GLOBALS['SYC_PATH']['tmp'];
     } else {
         $strPath = $GLOBALS['SYC_PATH']['db'];
     }
     $objZipArchive = new ZipArchiveCto();
     $objZipArchive->open($strPath . $strFilename, ZipArchiveCto::CREATE);
     if ($booOnlyMachine == false) {
         $objZipArchive->addFile("system/tmp/TempSQLDump.{$strRandomToken}", $this->strFilenameSQL);
     }
     $objZipArchive->addFile("system/tmp/TempSyncCtoDump.{$strRandomToken}", $this->strFilenameSyncCto);
     $objZipArchive->close();
     $objFiles = Files::getInstance();
     if ($booOnlyMachine == false) {
         $objFiles->delete("system/tmp/TempSQLDump.{$strRandomToken}");
     }
     $objFiles->delete("system/tmp/TempSyncCtoDump.{$strRandomToken}");
     return $strFilename;
 }

Example #25

Show file

File: Tar.php Project: BackupTheBerlios/sotf

 function _append($p_filelist, $p_add_dir = '', $p_remove_dir = '')
 {
     if ($this->_compress) {
         $this->_close();
         if (!@rename($this->_tarname, $this->_tarname . ".tmp")) {
             $this->_error('Error while renaming \'' . $this->_tarname . '\' to temporary file \'' . $this->_tarname . '.tmp\'');
             return false;
         }
         if (($v_temp_tar = @gzopen($this->_tarname . ".tmp", "rb")) == 0) {
             $this->_error('Unable to open file \'' . $this->_tarname . '.tmp\' in binary read mode');
             @rename($this->_tarname . ".tmp", $this->_tarname);
             return false;
         }
         if (!$this->_openWrite()) {
             @rename($this->_tarname . ".tmp", $this->_tarname);
             return false;
         }
         $v_buffer = @gzread($v_temp_tar, 512);
         // ----- Read the following blocks but not the last one
         if (!@gzeof($v_temp_tar)) {
             do {
                 $v_binary_data = pack("a512", "{$v_buffer}");
                 @gzputs($this->_file, $v_binary_data);
                 $v_buffer = @gzread($v_temp_tar, 512);
             } while (!@gzeof($v_temp_tar));
         }
         if ($this->_addList($p_filelist, $p_add_dir, $p_remove_dir)) {
             $this->_writeFooter();
         }
         $this->_close();
         @gzclose($v_temp_tar);
         if (!@unlink($this->_tarname . ".tmp")) {
             $this->_error('Error while deleting temporary file \'' . $this->_tarname . '.tmp\'');
         }
         return true;
     }
     // ----- For not compressed tar, just add files before the last 512 bytes block
     if (!$this->_openReadWrite()) {
         return false;
     }
     clearstatcache();
     $v_size = filesize($this->_tarname);
     fseek($this->_file, $v_size - 512);
     if ($this->_addList($p_filelist, $p_add_dir, $p_remove_dir)) {
         $this->_writeFooter();
     }
     $this->_close();
     return true;
 }

Example #26

Show file

File: PclZip.class.php Project: Wen1750686723/webftp

 function privAddFileUsingTempFile($p_filedescr, &$p_header, &$p_options)
 {
     $v_result = PCLZIP_ERR_NO_ERROR;
     $p_filename = $p_filedescr['filename'];
     if (($v_file = @fopen($p_filename, "rb")) == 0) {
         PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, "Unable to open file '{$p_filename}' in binary read mode");
         return PclZip::errorCode();
     }
     $v_gzip_temp_name = PCLZIP_TEMPORARY_DIR . uniqid('pclzip-') . '.gz';
     if (($v_file_compressed = @gzopen($v_gzip_temp_name, "wb")) == 0) {
         fclose($v_file);
         PclZip::privErrorLog(PCLZIP_ERR_WRITE_OPEN_FAIL, 'Unable to open temporary file \'' . $v_gzip_temp_name . '\' in binary write mode');
         return PclZip::errorCode();
     }
     $v_size = filesize($p_filename);
     while ($v_size != 0) {
         $v_read_size = $v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE;
         $v_buffer = @fread($v_file, $v_read_size);
         @gzputs($v_file_compressed, $v_buffer, $v_read_size);
         $v_size -= $v_read_size;
     }
     @fclose($v_file);
     @gzclose($v_file_compressed);
     if (filesize($v_gzip_temp_name) < 18) {
         PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'gzip temporary file \'' . $v_gzip_temp_name . '\' has invalid filesize - should be minimum 18 bytes');
         return PclZip::errorCode();
     }
     if (($v_file_compressed = @fopen($v_gzip_temp_name, "rb")) == 0) {
         PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \'' . $v_gzip_temp_name . '\' in binary read mode');
         return PclZip::errorCode();
     }
     $v_binary_data = @fread($v_file_compressed, 10);
     $v_data_header = unpack('a1id1/a1id2/a1cm/a1flag/Vmtime/a1xfl/a1os', $v_binary_data);
     $v_data_header['os'] = bin2hex($v_data_header['os']);
     @fseek($v_file_compressed, filesize($v_gzip_temp_name) - 8);
     $v_binary_data = @fread($v_file_compressed, 8);
     $v_data_footer = unpack('Vcrc/Vcompressed_size', $v_binary_data);
     $p_header['compression'] = ord($v_data_header['cm']);
     $p_header['crc'] = $v_data_footer['crc'];
     $p_header['compressed_size'] = filesize($v_gzip_temp_name) - 18;
     @fclose($v_file_compressed);
     if (($v_result = $this->privWriteFileHeader($p_header)) != 1) {
         return $v_result;
     }
     if (($v_file_compressed = @fopen($v_gzip_temp_name, "rb")) == 0) {
         PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \'' . $v_gzip_temp_name . '\' in binary read mode');
         return PclZip::errorCode();
     }
     fseek($v_file_compressed, 10);
     $v_size = $p_header['compressed_size'];
     while ($v_size != 0) {
         $v_read_size = $v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE;
         $v_buffer = @fread($v_file_compressed, $v_read_size);
         @fwrite($this->zip_fd, $v_buffer, $v_read_size);
         $v_size -= $v_read_size;
     }
     @fclose($v_file_compressed);
     @unlink($v_gzip_temp_name);
     return $v_result;
 }

Example #27

Show file

File: Archive_Tar.php Project: Bruno-2M/prestashop

 function _writeBlock($p_binary_data, $p_len = NULL)
 {
     if (is_resource($this->_file)) {
         if ($p_len === null) {
             if ($this->_compress_type == 'gz') {
                 @gzputs($this->_file, $p_binary_data);
             } else {
                 if ($this->_compress_type == 'bz2') {
                     @bzwrite($this->_file, $p_binary_data);
                 } else {
                     if ($this->_compress_type == 'none') {
                         @fputs($this->_file, $p_binary_data);
                     } else {
                         $this->_error('Unknown or missing compression type (' . $this->_compress_type . ')');
                     }
                 }
             }
         } else {
             if ($this->_compress_type == 'gz') {
                 @gzputs($this->_file, $p_binary_data, $p_len);
             } else {
                 if ($this->_compress_type == 'bz2') {
                     @bzwrite($this->_file, $p_binary_data, $p_len);
                 } else {
                     if ($this->_compress_type == 'none') {
                         @fputs($this->_file, $p_binary_data, $p_len);
                     } else {
                         $this->_error('Unknown or missing compression type (' . $this->_compress_type . ')');
                     }
                 }
             }
         }
     }
     return true;
 }

Example #28

Show file

File: class_arquivos.php Project: JoseCOCA/baudprint

 /**
  * function comprime (string $orixe, string $destino, integer $nivel)
  *
  * función que comprime un fichero $orixe devolviendo el estado de
  * comprimirlo en el $destino, con un nivel de compresión $nivel
  *
  * return boolean
  */
 function comprime($orixe, $destino, $nivel = false)
 {
     $erro = false;
     $modo = 'wb' . $nivel;
     if ($fp_out = gzopen($destino, $modo)) {
         if ($fp_in = fopen($orixe, 'rb')) {
             while (!feof($fp_in)) {
                 gzputs($fp_out, fread($fp_in, 1024 * 512));
             }
             fclose($fp_in);
         } else {
             $erro = true;
         }
         gzclose($fp_out);
     } else {
         $erro = true;
     }
     return $erro;
 }

Example #29

Show file

File: pclzip.lib.php Project: kondrat-shmoylov/Pagetest

 function privAddFileUsingTempFile($p_filedescr, &$p_header, &$p_options)
 {
     //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::privAddFileUsingTempFile", "filename='".$p_filedescr['filename']."'");
     $v_result = PCLZIP_ERR_NO_ERROR;
     // ----- Working variable
     $p_filename = $p_filedescr['filename'];
     //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "'".$p_filename."' is a file");
     // ----- Open the source file
     if (($v_file = @fopen($p_filename, "rb")) == 0) {
         PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, "Unable to open file '{$p_filename}' in binary read mode");
         //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
         return PclZip::errorCode();
     }
     // ----- Creates a compressed temporary file
     $v_gzip_temp_name = PCLZIP_TEMPORARY_DIR . uniqid('pclzip-') . '.gz';
     if (($v_file_compressed = @gzopen($v_gzip_temp_name, "wb")) == 0) {
         fclose($v_file);
         PclZip::privErrorLog(PCLZIP_ERR_WRITE_OPEN_FAIL, 'Unable to open temporary file \'' . $v_gzip_temp_name . '\' in binary write mode');
         //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
         return PclZip::errorCode();
     }
     // ----- Read the file by PCLZIP_READ_BLOCK_SIZE octets blocks
     $v_size = filesize($p_filename);
     while ($v_size != 0) {
         $v_read_size = $v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE;
         //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Read $v_read_size bytes");
         $v_buffer = fread($v_file, $v_read_size);
         //$v_binary_data = pack('a'.$v_read_size, $v_buffer);
         @gzputs($v_file_compressed, $v_buffer, $v_read_size);
         $v_size -= $v_read_size;
     }
     // ----- Close the file
     @fclose($v_file);
     @gzclose($v_file_compressed);
     // ----- Check the minimum file size
     //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "gzip file size ".filesize($v_gzip_temp_name));
     if (filesize($v_gzip_temp_name) < 18) {
         PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'gzip temporary file \'' . $v_gzip_temp_name . '\' has invalid filesize - should be minimum 18 bytes');
         //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
         return PclZip::errorCode();
     }
     // ----- Extract the compressed attributes
     if (($v_file_compressed = @fopen($v_gzip_temp_name, "rb")) == 0) {
         PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \'' . $v_gzip_temp_name . '\' in binary read mode');
         //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
         return PclZip::errorCode();
     }
     // ----- Read the gzip file header
     $v_binary_data = @fread($v_file_compressed, 10);
     $v_data_header = unpack('a1id1/a1id2/a1cm/a1flag/Vmtime/a1xfl/a1os', $v_binary_data);
     // ----- Check some parameters
     //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, '$v_data_header[id1]='.bin2hex($v_data_header['id1']));
     //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, '$v_data_header[id2]='.bin2hex($v_data_header['id2']));
     //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, '$v_data_header[cm]='.bin2hex($v_data_header['cm']));
     //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, '$v_data_header[flag]='.bin2hex($v_data_header['flag']));
     //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, '$v_data_header[mtime]='.$v_data_header['mtime']);
     //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, '$v_data_header[xfl]='.bin2hex($v_data_header['xfl']));
     //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, '$v_data_header[os]='.bin2hex($v_data_header['os']));
     $v_data_header['os'] = bin2hex($v_data_header['os']);
     // ----- Read the gzip file footer
     //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "File position after header ".ftell($v_file_compressed));
     @fseek($v_file_compressed, filesize($v_gzip_temp_name) - 8);
     //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "File position at beginning of footer ".ftell($v_file_compressed));
     $v_binary_data = @fread($v_file_compressed, 8);
     //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "File position after footer ".ftell($v_file_compressed));
     $v_data_footer = unpack('Vcrc/Vcompressed_size', $v_binary_data);
     // ----- Set the attributes
     $p_header['compression'] = ord($v_data_header['cm']);
     //$p_header['mtime'] = $v_data_header['mtime'];
     $p_header['crc'] = $v_data_footer['crc'];
     //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Compressed size ".(filesize($v_gzip_temp_name)-18));
     $p_header['compressed_size'] = filesize($v_gzip_temp_name) - 18;
     // ----- Close the file
     @fclose($v_file_compressed);
     // ----- Call the header generation
     if (($v_result = $this->privWriteFileHeader($p_header)) != 1) {
         //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
         return $v_result;
     }
     // ----- Add the compressed data
     if (($v_file_compressed = @fopen($v_gzip_temp_name, "rb")) == 0) {
         PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \'' . $v_gzip_temp_name . '\' in binary read mode');
         //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());
         return PclZip::errorCode();
     }
     // ----- Read the file by PCLZIP_READ_BLOCK_SIZE octets blocks
     fseek($v_file_compressed, 10);
     //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "File position before reading compressed data ".ftell($v_file_compressed));
     //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, ' '.$p_header['compressed_size'].' bytes to read');
     $v_size = $p_header['compressed_size'];
     while ($v_size != 0) {
         $v_read_size = $v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size : PCLZIP_READ_BLOCK_SIZE;
         //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Read $v_read_size bytes");
         $v_buffer = fread($v_file_compressed, $v_read_size);
         //$v_binary_data = pack('a'.$v_read_size, $v_buffer);
         @fwrite($this->zip_fd, $v_buffer, $v_read_size);
         $v_size -= $v_read_size;
     }
     // ----- Close the file
     @fclose($v_file_compressed);
     // ----- Unlink the temporary file
     @unlink($v_gzip_temp_name);
     // ----- Return
     //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
     return $v_result;
 }

Example #30

Show file

File: Inflate.php Project: rgantt/japha

 public function saveFile($filename)
 {
     $s = gzopen($filename, "w");
     foreach ($this->total as $key => $value) {
         gzputs($s, $key, 4096);
     }
 }