Subversion-Projekte lars-tiefland.php_share

<?php

/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */

/**

 * ZIP archive writer

 *

 * PHP versions 4 and 5

 *

 * This library is free software; you can redistribute it and/or

 * modify it under the terms of the GNU Lesser General Public

 * License as published by the Free Software Foundation; either

 * version 2.1 of the License, or (at your option) any later version.

 *

 * This library is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

 * Lesser General Public License for more details.

 *

 * You should have received a copy of the GNU Lesser General Public

 * License along with this library; if not, write to the Free Software

 * Foundation, Inc., 59 Temple Place, Suite 330,Boston,MA 02111-1307 USA

 *

 * @category   File Formats

 * @package    File_Archive

 * @author     Vincent Lascaux <vincentlascaux@php.net>

 * @copyright  1997-2005 The PHP Group

 * @license    http://www.gnu.org/copyleft/lesser.html  LGPL

 * @version    CVS: $Id: Zip.php,v 1.20 2005/08/15 18:03:03 vincentlascaux Exp $

 * @link       http://pear.php.net/package/File_Archive

 */

require_once "File/Archive/Writer/MemoryArchive.php";

/**

 * ZIP archive writer

 */

class File_Archive_Writer_Zip extends File_Archive_Writer_MemoryArchive

{

    /**

     * @var int Compression level

     * @access private

     */

    var $compressionLevel;

    /**

     * @var int Current position in the writer

     * @access private

     */

    var $offset = 0;

    /**

     * @var string Optionnal comment to add to the zip

     * @access private

     */

    var $comment = "";

    /**

     * @var string Data written at the end of the ZIP file

     * @access private

     */

    var $central = "";

    function File_Archive_Writer_Zip($filename, &$innerWriter,

                                     $stat=array(), $autoClose = true)

    {

        global $_File_Archive_Options;

        parent::File_Archive_Writer_MemoryArchive(

                    $filename, $innerWriter, $stat, $autoClose

                );

        $this->compressionLevel = File_Archive::getOption('zipCompressionLevel', 9);

    }

    /**

     * Change the level of the compression. This may be done between two files

     *

     * @param Int $compressionLevel New compression level from 0 to 9

     */

    function setCompressionLevel($compressionLevel)

    {

        $this->compressionLevel = $compressionLevel;

    }

    /**

     * Set a comment on the ZIP file

     */

    function setComment($comment) { $this->comment = $comment; }

    /**

     * @param int $time Unix timestamp of the date to convert

     * @return the date formated as a ZIP date

     */

    function getMTime($time)

    {

        $mtime = ($time !== null ? getdate($time) : getdate());

        $mtime = preg_replace(

                     "/(..){1}(..){1}(..){1}(..){1}/",

                     "\\x\\4\\x\\3\\x\\2\\x\\1",

                     dechex(($mtime['year']-1980<<25)|

                            ($mtime['mon'    ]<<21)|

                            ($mtime['mday'   ]<<16)|

                            ($mtime['hours'  ]<<11)|

                            ($mtime['minutes']<<5)|

                            ($mtime['seconds']>>1)));

        eval('$mtime = "'.$mtime.'";');

        return $mtime;

    }

    /**

     * Inform the archive that $filename is present.

     * Consequences are the same as appendFileData, but no data is output

     * to the inner writer.

     * This is used by File_Archive_Reader_Zip::makeWriter()

     *

     * @param string $filename name of the file

     * @param array $stat stats of the file, indexes 9 and 7 must be present

     * @param int $crc32 checksum of the file

     * @param int $compLength length of the compressed data

     */

    function alreadyWrittenFile($filename, $stat, $crc32, $complength)

    {

        $filename = preg_replace("/^(\.{1,2}(\/|\\\))+/","",$filename);

        $mtime = $this->getMTime(isset($stat[9]) ? $stat[9] : null);

        $normlength = $stat[7];

        $this->nbFiles++;

        $this->central .= "\x50\x4b\x01\x02\x00\x00\x14\x00\x00\x00\x08\x00".

                   $mtime.

                   pack("VVVvvvvvVV",

                       $crc32, $complength, $normlength,

                       strlen($filename), 0x00,0x00,0x00,0x00,

                       0x0000,$this->offset).

                   $filename;

        $this->offset += 30 + strlen($filename) + $complength;

    }

    /**

     * @see    File_Archive_Writer_MemoryArchive::appendFileData()

     * @access protected

     */

    function appendFileData($filename, $stat, $data)

    {

        $crc32 = crc32($data);

        $normlength = strlen($data);

        $data = gzcompress($data,$this->compressionLevel);

        $data = substr($data,2,strlen($data)-6);

        return $this->appendCompressedData($filename, $stat, $data, $crc32, $normlength);

    }

    function appendCompressedData($filename, $stat, $data, $crc32, $normlength)

    {

        $filename = preg_replace("/^(\.{1,2}(\/|\\\))+/","",$filename);

        $mtime = $this->getMTime(isset($stat[9]) ? $stat[9] : null);

        $complength = strlen($data);

        $zipData = "\x50\x4b\x03\x04\x14\x00\x00\x00\x08\x00".

                   $mtime.

                   pack("VVVvv",

                        $crc32,

                        $complength,

                        $normlength,

                        strlen($filename),

                        0x00).

                   $filename.

                   $data;

        $error = $this->innerWriter->writeData($zipData);

        if (PEAR::isError($error)) {

            return $error;

        }

        $this->central .= "\x50\x4b\x01\x02\x00\x00\x14\x00\x00\x00\x08\x00".

                   $mtime.

                   pack("VVVvvvvvVV",

                       $crc32, $complength, $normlength,

                       strlen($filename), 0x00,0x00,0x00,0x00,

                       0x0000,$this->offset).

                   $filename;

        $this->offset += strlen($zipData);

    }

    function appendFile($filename, $dataFilename)

    {

        //Try to read from the cache

        $cache = File_Archive::getOption('cache', null);

        if ($cache !== null && $this->compressionLevel > 0) {

            $id = realpath($dataFilename);

            $id = urlencode($id);

            $id = str_replace('_', '%5F', $id);

            $group = 'FileArchiveZip'.$this->compressionLevel;

            $mtime = filemtime($dataFilename);

            //Tries to read from cache

            if (($data = $cache->get($id, $group)) !== false) {

                $info = unpack('Vmtime/Vcrc/Vnlength', substr($data, 0, 12));

                $data = substr($data, 12);

            }

            //If cache failed or file modified since then

            if ($data === false ||

                $info['mtime'] != $mtime) {

                $data = file_get_contents($dataFilename);

                $info = array(

                        'crc' => crc32($data),

                        'nlength' => strlen($data),

                        'mtime' => $mtime

                       );

                $data = gzcompress($data,$this->compressionLevel);

                $data = substr($data,2,strlen($data)-6);

                $data = pack('VVV', $info['mtime'], $info['crc'], $info['nlength']).$data;

                $cache->save($data, $id, $group);

            }

            return $this->appendCompressedData(

                                    $filename,

                                    stat($dataFilename),

                                    $data,

                                    $info['crc'],

                                    $info['nlength']

                   );

        }

        //If no cache system, use the standard way

        return parent::appendFile($filename, $dataFilename);

    }

    /**

     * @see    File_Archive_Writer_MemoryArchive::sendFooter()

     * @access protected

     */

    function sendFooter()

    {

        return $this->innerWriter->writeData(

            $this->central.

            "\x50\x4b\x05\x06\x00\x00\x00\x00".

            pack("vvVVv",

                $this->nbFiles,$this->nbFiles,

                strlen($this->central),$this->offset,

                strlen($this->comment)).

            $this->comment

        );

    }

    /**

     * @see File_Archive_Writer::getMime()

     */

    function getMime() { return "application/zip"; }

}

?>