比较好用的在线压缩类

<?php
/**
* TAR/GZIP/BZIP2/ZIP ARCHIVE CLASSES 2.1
* By Devin Doucette
* Copyright (c) 2005 Devin Doucette
* Email bugs/suggestions to [email protected]
* @link http://www.phpclasses.org/browse/package/945.html
*
*  This script has been created and released under
*  the GNU GPL and is free to use and redistribute
*  only if this copyright statement is not removed
*
*  b2evolution - [email={@link]{@link[/email] http://b2evolution.net/}
*  Released under GNU GPL License - [email={@link]{@link[/email] http://b2evolution.net/about/license.html}
* @copyright (c)2003-2008 by Francois PLANQUE - [email={@link]{@link[/email] http://fplanque.net/}
*
* @author Devin Doucette - [email protected]
*
* @package evocore
*/
//if( !defined('EVO_MAIN_INIT') ) die( 'Please, do not access this page directly.' );

/**
* Class Archive
*
* @author Devin Doucette
* @package evocore
*/
class archive
{
    function archive($name)
    {
        $this->options = array (
            'basedir' => ".",
            'name' => $name,
            'prepend' => "",
            'inmemory' => 0,
            'overwrite' => 0,
            'recurse' => 1,
            'storepaths' => 1,
            'followlinks' => 0,
            'level' => 3,
            'method' => 1,
            'sfx' => "",
            'type' => "",
            'comment' => ""
        );
        $this->files = array ();
        $this->exclude = array ();
        $this->storeonly = array ();
        $this->error = array ();
    }

    function set_options($options)
    {
        foreach ($options as $key => $value)
            $this->options[$key] = $value;
        if (!empty ($this->options['basedir']))
        {
            $this->options['basedir'] = str_replace("\\", "/", $this->options['basedir']);
            $this->options['basedir'] = preg_replace("/\/+/", "/", $this->options['basedir']);
            $this->options['basedir'] = preg_replace("/\/$/", "", $this->options['basedir']);
        }
        if (!empty ($this->options['name']))
        {
            $this->options['name'] = str_replace("\\", "/", $this->options['name']);
            $this->options['name'] = preg_replace("/\/+/", "/", $this->options['name']);
        }
        if (!empty ($this->options['prepend']))
        {
            $this->options['prepend'] = str_replace("\\", "/", $this->options['prepend']);
            $this->options['prepend'] = preg_replace("/^(\.*\/+)+/", "", $this->options['prepend']);
            $this->options['prepend'] = preg_replace("/\/+/", "/", $this->options['prepend']);
            $this->options['prepend'] = preg_replace("/\/$/", "", $this->options['prepend']) . "/";
        }
    }

    function create_archive()
    {
        $this->make_list();

        if ($this->options['inmemory'] == 0)
        {
            $pwd = getcwd();
            chdir($this->options['basedir']);
            if ($this->options['overwrite'] == 0 && file_exists($this->options['name'] . ($this->options['type'] == "gzip" || $this->options['type'] == "bzip" ? ".tmp" : "")))
            {
                $this->error[] = "File {$this->options['name']} already exists.";
                chdir($pwd);
                return 0;
            }
            else if ($this->archive = @fopen($this->options['name'] . ($this->options['type'] == "gzip" || $this->options['type'] == "bzip" ? ".tmp" : ""), "wb+"))
                chdir($pwd);
            else
            {
                $this->error[] = "Could not open {$this->options['name']} for writing.";
                chdir($pwd);
                return 0;
            }
        }
        else
            $this->archive = "";

        switch ($this->options['type'])
        {
        case "zip":
            if (!$this->create_zip())
            {
                $this->error[] = "Could not create zip file.";
                return 0;
            }
            break;
        case "bzip":
            if (!$this->create_tar())
            {
                $this->error[] = "Could not create tar file.";
                return 0;
            }
            if (!$this->create_bzip())
            {
                $this->error[] = "Could not create bzip2 file.";
                return 0;
            }
            break;
        case "gzip":
            if (!$this->create_tar())
            {
                $this->error[] = "Could not create tar file.";
                return 0;
            }
            if (!$this->create_gzip())
            {
                $this->error[] = "Could not create gzip file.";
                return 0;
            }
            break;
        case "tar":
            if (!$this->create_tar())
            {
                $this->error[] = "Could not create tar file.";
                return 0;
            }
        }

        if ($this->options['inmemory'] == 0)
        {
            fclose($this->archive);
            if ($this->options['type'] == "gzip" || $this->options['type'] == "bzip")
                unlink($this->options['basedir'] . "/" . $this->options['name'] . ".tmp");
        }
    }

    function add_data($data)
    {
        if ($this->options['inmemory'] == 0)
            fwrite($this->archive, $data);
        else
            $this->archive .= $data;
    }

    function make_list()
    {
        if (!empty ($this->exclude))
            foreach ($this->files as $key => $value)
                foreach ($this->exclude as $current)
                    if ($value['name'] == $current['name'])
                        unset ($this->files[$key]);
        if (!empty ($this->storeonly))
            foreach ($this->files as $key => $value)
                foreach ($this->storeonly as $current)
                    if ($value['name'] == $current['name'])
                        $this->files[$key]['method'] = 0;
        unset ($this->exclude, $this->storeonly);
    }

    function add_files($list)
    {
        $temp = $this->list_files($list);
        foreach ($temp as $current)
            $this->files[] = $current;
    }

    function exclude_files($list)
    {
        $temp = $this->list_files($list);
        foreach ($temp as $current)
            $this->exclude[] = $current;
    }

    function store_files($list)
    {
        $temp = $this->list_files($list);
        foreach ($temp as $current)
            $this->storeonly[] = $current;
    }

    function list_files($list)
    {
        if (!is_array ($list))
        {
            $temp = $list;
            $list = array ($temp);
            unset ($temp);
        }

        $files = array ();

        $pwd = getcwd();
        chdir($this->options['basedir']);

        foreach ($list as $current)
        {
            $current = str_replace("\\", "/", $current);
            $current = preg_replace("/\/+/", "/", $current);
            $current = preg_replace("/\/$/", "", $current);
            if (strstr($current, "*"))
            {
                $regex = preg_replace("/([\\\^\$\.\[\]\|\(\)\?\+\{\}\/])/", "[url=]\\\\\\1[/url]", $current);
                $regex = str_replace("*", ".*", $regex);
                $dir = strstr($current, "/") ? substr($current, 0, strrpos($current, "/")) : ".";
                $temp = $this->parse_dir($dir);
                foreach ($temp as $current2)
                    if (preg_match("/^{$regex}$/i", $current2['name']))
                        $files[] = $current2;
                unset ($regex, $dir, $temp, $current);
            }
            else if (@is_dir($current))
            {
                $temp = $this->parse_dir($current);
                foreach ($temp as $file)
                    $files[] = $file;
                unset ($temp, $file);
            }
            else if (@file_exists($current))
                $files[] = array ('name' => $current, 'name2' => $this->options['prepend'] .
                    preg_replace("/(\.+\/+)+/", "", ($this->options['storepaths'] == 0 && strstr($current, "/")) ?
                    substr($current, strrpos($current, "/") + 1) : $current),
                    'type' => @is_link($current) && $this->options['followlinks'] == 0 ? 2 : 0,
                    'ext' => substr($current, strrpos($current, ".")), 'stat' => stat($current));
        }

        chdir($pwd);

        unset ($current, $pwd);

        usort($files, array ("archive", "sort_files"));

        return $files;
    }

    function parse_dir($dirname)
    {
        if ($this->options['storepaths'] == 1 && !preg_match("/^(\.+\/*)+$/", $dirname))
            $files = array (array ('name' => $dirname, 'name2' => $this->options['prepend'] .
                preg_replace("/(\.+\/+)+/", "", ($this->options['storepaths'] == 0 && strstr($dirname, "/")) ?
                substr($dirname, strrpos($dirname, "/") + 1) : $dirname), 'type' => 5, 'stat' => stat($dirname)));
        else
            $files = array ();
        $dir = @opendir($dirname);

        while ($file = @readdir($dir))
        {
            $fullname = $dirname . "/" . $file;
            if ($file == "." || $file == "..")
                continue;
            else if (@is_dir($fullname))
            {
                if (empty ($this->options['recurse']))
                    continue;
                $temp = $this->parse_dir($fullname);
                foreach ($temp as $file2)
                    $files[] = $file2;
            }
            else if (@file_exists($fullname))
                $files[] = array ('name' => $fullname, 'name2' => $this->options['prepend'] .
                    preg_replace("/(\.+\/+)+/", "", ($this->options['storepaths'] == 0 && strstr($fullname, "/")) ?
                    substr($fullname, strrpos($fullname, "/") + 1) : $fullname),
                    'type' => @is_link($fullname) && $this->options['followlinks'] == 0 ? 2 : 0,
                    'ext' => substr($file, strrpos($file, ".")), 'stat' => stat($fullname));
        }

        @closedir($dir);

        return $files;
    }

    function sort_files($a, $b)
    {
        if ($a['type'] != $b['type'])
            if ($a['type'] == 5 || $b['type'] == 2)
                return -1;
            else if ($a['type'] == 2 || $b['type'] == 5)
                return 1;
        else if ($a['type'] == 5)
            return strcmp(strtolower($a['name']), strtolower($b['name']));
        else if ($a['ext'] != $b['ext'])
            return strcmp($a['ext'], $b['ext']);
        else if ($a['stat'][7] != $b['stat'][7])
            return $a['stat'][7] > $b['stat'][7] ? -1 : 1;
        else
            return strcmp(strtolower($a['name']), strtolower($b['name']));
        return 0;
    }

    function download_file()
    {
        if ($this->options['inmemory'] == 0)
        {
            $this->error[] = "Can only use download_file() if archive is in memory. Redirect to file otherwise, it is faster.";
            return;
        }
        switch ($this->options['type'])
        {
        case "zip":
            header("Content-Type: application/zip");
            break;
        case "bzip":
            header("Content-Type: application/x-bzip2");
            break;
        case "gzip":
            header("Content-Type: application/x-gzip");
            break;
        case "tar":
            header("Content-Type: application/x-tar");
        }
        $header = "Content-Disposition: attachment; filename=\"";
        $header .= strstr($this->options['name'], "/") ? substr($this->options['name'], strrpos($this->options['name'], "/") + 1) : $this->options['name'];
        $header .= "\"";
        header($header);
        header("Content-Length: " . strlen($this->archive));
        header("Content-Transfer-Encoding: binary");
        header("Cache-Control: no-cache, must-revalidate, max-age=60");
        header("Expires: Sat, 01 Jan 2000 12:00:00 GMT");
        print($this->archive);
    }
}

/**
* Class Tar file
*
* @author Devin Doucette
* @package evocore
*/
class tar_file extends archive
{
    function tar_file($name)
    {
        $this->archive($name);
        $this->options['type'] = "tar";
    }

    function create_tar()
    {
        $pwd = getcwd();
        chdir($this->options['basedir']);

        foreach ($this->files as $current)
        {
            if ($current['name'] == $this->options['name'])
                continue;
            if (strlen($current['name2']) > 99)
            {
                $path = substr($current['name2'], 0, strpos($current['name2'], "/", strlen($current['name2']) - 100) + 1);
                $current['name2'] = substr($current['name2'], strlen($path));
                if (strlen($path) > 154 || strlen($current['name2']) > 99)
                {
                    $this->error[] = "Could not add {$path}{$current['name2']} to archive because the filename is too long.";
                    continue;
                }
            }
            $block = pack("a100a8a8a8a12a12a8a1a100a6a2a32a32a8a8a155a12", $current['name2'], sprintf("%07o",
                $current['stat'][2]), sprintf("%07o", $current['stat'][4]), sprintf("%07o", $current['stat'][5]),
                sprintf("%011o", $current['type'] == 2 ? 0 : $current['stat'][7]), sprintf("%011o", $current['stat'][9]),
                "        ", $current['type'], $current['type'] == 2 ? @readlink($current['name']) : "", "ustar ", " ",
                "Unknown", "Unknown", "", "", !empty ($path) ? $path : "", "");

            $checksum = 0;
            for ($i = 0; $i < 512; $i++)
                $checksum += ord(substr($block, $i, 1));
            $checksum = pack("a8", sprintf("%07o", $checksum));
            $block = substr_replace($block, $checksum, 148, 8);

            if ($current['type'] == 2 || $current['stat'][7] == 0)
                $this->add_data($block);
            else if ($fp = @fopen($current['name'], "rb"))
            {
                $this->add_data($block);
                while ($temp = fread($fp, 1048576))
                    $this->add_data($temp);
                if ($current['stat'][7] % 512 > 0)
                {
                    $temp = "";
                    for ($i = 0; $i < 512 - $current['stat'][7] % 512; $i++)
                        $temp .= "\0";
                    $this->add_data($temp);
                }
                fclose($fp);
            }
            else
                $this->error[] = "Could not open file {$current['name']} for reading. It was not added.";
        }

        $this->add_data(pack("a1024", ""));

        chdir($pwd);

        return 1;
    }

    function extract_files()
    {
        $pwd = getcwd();
        chdir($this->options['basedir']);

        if ($fp = $this->open_archive())
        {
            if ($this->options['inmemory'] == 1)
                $this->files = array ();

            while ($block = fread($fp, 512))
            {
                $temp = unpack("a100name/a8mode/a8uid/a8gid/a12size/a12mtime/a8checksum/a1type/a100symlink/a6magic/a2temp/a32temp/a32temp/a8temp/a8temp/a155prefix/a12temp", $block);
                $file = array (
                    'name' => $temp['prefix'] . $temp['name'],
                    'stat' => array (
                        2 => $temp['mode'],
                        4 => octdec($temp['uid']),
                        5 => octdec($temp['gid']),
                        7 => octdec($temp['size']),
                        9 => octdec($temp['mtime']),
                    ),
                    'checksum' => octdec($temp['checksum']),
                    'type' => $temp['type'],
                    'magic' => $temp['magic'],
                );
                if ($file['checksum'] == 0x00000000)
                    break;
                else if (substr($file['magic'], 0, 5) != "ustar")
                {
                    $this->error[] = "This script does not support extracting this type of tar file.";
                    break;
                }
                $block = substr_replace($block, "        ", 148, 8);
                $checksum = 0;
                for ($i = 0; $i < 512; $i++)
                    $checksum += ord(substr($block, $i, 1));
                if ($file['checksum'] != $checksum)
                    $this->error[] = "Could not extract from {$this->options['name']}, it is corrupt.";

                if ($this->options['inmemory'] == 1)
                {
                    $file['data'] = fread($fp, $file['stat'][7]);
                    fread($fp, (512 - $file['stat'][7] % 512) == 512 ? 0 : (512 - $file['stat'][7] % 512));
                    unset ($file['checksum'], $file['magic']);
                    $this->files[] = $file;
                }
                else if ($file['type'] == 5)
                {
                    if (!is_dir($file['name']))
                        mkdir($file['name'], $file['stat'][2]);
                }
                else if ($this->options['overwrite'] == 0 && file_exists($file['name']))
                {
                    $this->error[] = "{$file['name']} already exists.";
                    continue;
                }
                else if ($file['type'] == 2)
                {
                    symlink($temp['symlink'], $file['name']);
                    chmod($file['name'], $file['stat'][2]);
                }
                else if ($new = @fopen($file['name'], "wb"))
                {
                    fwrite($new, fread($fp, $file['stat'][7]));
                    fread($fp, (512 - $file['stat'][7] % 512) == 512 ? 0 : (512 - $file['stat'][7] % 512));
                    fclose($new);
                    chmod($file['name'], $file['stat'][2]);
                }
                else
                {
                    $this->error[] = "Could not open {$file['name']} for writing.";
                    continue;
                }
                chown($file['name'], $file['stat'][4]);
                chgrp($file['name'], $file['stat'][5]);
                touch($file['name'], $file['stat'][9]);
                unset ($file);
            }
        }
        else
            $this->error[] = "Could not open file {$this->options['name']}";

        chdir($pwd);
    }

    function open_archive()
    {
        return @fopen($this->options['name'], "rb");
    }
}

/**
* Class Gzip_file
*
* @author Devin Doucette
* @package evocore
*/
class gzip_file extends tar_file
{
    function gzip_file($name)
    {
        $this->tar_file($name);
        $this->options['type'] = "gzip";
    }

    function create_gzip()
    {
        if ($this->options['inmemory'] == 0)
        {
            $pwd = getcwd();
            chdir($this->options['basedir']);
            if ($fp = gzopen($this->options['name'], "wb{$this->options['level']}"))
            {
                fseek($this->archive, 0);
                while ($temp = fread($this->archive, 1048576))
                    gzwrite($fp, $temp);
                gzclose($fp);
                chdir($pwd);
            }
            else
            {
                $this->error[] = "Could not open {$this->options['name']} for writing.";
                chdir($pwd);
                return 0;
            }
        }
        else
            $this->archive = gzencode($this->archive, $this->options['level']);

        return 1;
    }

    function open_archive()
    {
        return @gzopen($this->options['name'], "rb");
    }
}

/**
* Class Bzip_file
*
* @author Devin Doucette
* @package evocore
*/
class bzip_file extends tar_file
{
    function bzip_file($name)
    {
        $this->tar_file($name);
        $this->options['type'] = "bzip";
    }

    function create_bzip()
    {
        if ($this->options['inmemory'] == 0)
        {
            $pwd = getcwd();
            chdir($this->options['basedir']);
            if ($fp = bzopen($this->options['name'], "wb"))
            {
                fseek($this->archive, 0);
                while ($temp = fread($this->archive, 1048576))
                    bzwrite($fp, $temp);
                bzclose($fp);
                chdir($pwd);
            }
            else
            {
                $this->error[] = "Could not open {$this->options['name']} for writing.";
                chdir($pwd);
                return 0;
            }
        }
        else
            $this->archive = bzcompress($this->archive, $this->options['level']);

        return 1;
    }

    function open_archive()
    {
        return @bzopen($this->options['name'], "rb");
    }
}

/**
* Class Zip_file
*
* @author Devin Doucette
* @package evocore
*/
class zip_file extends archive
{
    function zip_file($name)
    {
        $this->archive($name);
        $this->options['type'] = "zip";
    }

    function create_zip()
    {
        $files = 0;
        $offset = 0;
        $central = "";

        if (!empty ($this->options['sfx']))
            if ($fp = @fopen($this->options['sfx'], "rb"))
            {
                $temp = fread($fp, filesize($this->options['sfx']));
                fclose($fp);
                $this->add_data($temp);
                $offset += strlen($temp);
                unset ($temp);
            }
            else
                $this->error[] = "Could not open sfx module from {$this->options['sfx']}.";

        $pwd = getcwd();
        chdir($this->options['basedir']);

        foreach ($this->files as $current)
        {
            if ($current['name'] == $this->options['name'])
                continue;

            $timedate = explode(" ", date("Y n j G i s", $current['stat'][9]));
            $timedate = ($timedate[0] - 1980 << 25) | ($timedate[1] << 21) | ($timedate[2] << 16) |
                ($timedate[3] << 11) | ($timedate[4] << 5) | ($timedate[5]);

            $block = pack("VvvvV", 0x04034b50, 0x000A, 0x0000, (isset($current['method']) || $this->options['method'] == 0) ? 0x0000 : 0x0008, $timedate);

            if ($current['stat'][7] == 0 && $current['type'] == 5)
            {
                $block .= pack("VVVvv", 0x00000000, 0x00000000, 0x00000000, strlen($current['name2']) + 1, 0x0000);
                $block .= $current['name2'] . "/";
                $this->add_data($block);
                $central .= pack("VvvvvVVVVvvvvvVV", 0x02014b50, 0x0014, $this->options['method'] == 0 ? 0x0000 : 0x000A, 0x0000,
                    (isset($current['method']) || $this->options['method'] == 0) ? 0x0000 : 0x0008, $timedate,
                    0x00000000, 0x00000000, 0x00000000, strlen($current['name2']) + 1, 0x0000, 0x0000, 0x0000, 0x0000, $current['type'] == 5 ? 0x00000010 : 0x00000000, $offset);
                $central .= $current['name2'] . "/";
                $files++;
                $offset += (31 + strlen($current['name2']));
            }
            else if ($current['stat'][7] == 0)
            {
                $block .= pack("VVVvv", 0x00000000, 0x00000000, 0x00000000, strlen($current['name2']), 0x0000);
                $block .= $current['name2'];
                $this->add_data($block);
                $central .= pack("VvvvvVVVVvvvvvVV", 0x02014b50, 0x0014, $this->options['method'] == 0 ? 0x0000 : 0x000A, 0x0000,
                    (isset($current['method']) || $this->options['method'] == 0) ? 0x0000 : 0x0008, $timedate,
                    0x00000000, 0x00000000, 0x00000000, strlen($current['name2']), 0x0000, 0x0000, 0x0000, 0x0000, $current['type'] == 5 ? 0x00000010 : 0x00000000, $offset);
                $central .= $current['name2'];
                $files++;
                $offset += (30 + strlen($current['name2']));
            }
            else if ($fp = @fopen($current['name'], "rb"))
            {
                $temp = fread($fp, $current['stat'][7]);
                fclose($fp);
                $crc32 = crc32($temp);
                if (!isset($current['method']) && $this->options['method'] == 1)
                {
                    $temp = gzcompress($temp, $this->options['level']);
                    $size = strlen($temp) - 6;
                    $temp = substr($temp, 2, $size);
                }
                else
                    $size = strlen($temp);
                $block .= pack("VVVvv", $crc32, $size, $current['stat'][7], strlen($current['name2']), 0x0000);
                $block .= $current['name2'];
                $this->add_data($block);
                $this->add_data($temp);
                unset ($temp);
                $central .= pack("VvvvvVVVVvvvvvVV", 0x02014b50, 0x0014, $this->options['method'] == 0 ? 0x0000 : 0x000A, 0x0000,
                    (isset($current['method']) || $this->options['method'] == 0) ? 0x0000 : 0x0008, $timedate,
                    $crc32, $size, $current['stat'][7], strlen($current['name2']), 0x0000, 0x0000, 0x0000, 0x0000, 0x00000000, $offset);
                $central .= $current['name2'];
                $files++;
                $offset += (30 + strlen($current['name2']) + $size);
            }
            else
                $this->error[] = "Could not open file {$current['name']} for reading. It was not added.";
        }

        $this->add_data($central);

        $this->add_data(pack("VvvvvVVv", 0x06054b50, 0x0000, 0x0000, $files, $files, strlen($central), $offset,
            !empty ($this->options['comment']) ? strlen($this->options['comment']) : 0x0000));

        if (!empty ($this->options['comment']))
            $this->add_data($this->options['comment']);

        chdir($pwd);

        return 1;
    }
}

/*
* $Log: _zip_archives.php,v $
* Revision 1.2  2008/01/21 09:35:25  fplanque
* (c) 2008
*
* Revision 1.1  2007/06/25 10:59:12  fplanque
* MODULES (refactored MVC)
*
* Revision 1.3  2007/04/26 00:11:12  fplanque
* (c) 2007
*
* Revision 1.2  2006/07/04 17:32:30  fplanque
* no message
*
* Revision 1.1  2006/02/23 21:12:33  fplanque
* File reorganization to MVC (Model View Controller) architecture.
* See index.hml files in folders.
* (Sorry for all the remaining bugs induced by the reorg... :/)
*
* Revision 1.5  2005/09/06 17:14:12  fplanque
* stop processing early if referer spam has been detected
*
* Revision 1.4  2005/08/19 17:20:52  blueyed
* Merged from upstream.
*
* Revision 1.3  2005/02/28 09:06:44  blueyed
* removed constants for DB config (allows to override it from _config_TEST.php), introduced EVO_CONFIG_LOADED
*
* Revision 1.2  2004/10/16 01:31:24  blueyed
* documentation changes
*
* Revision 1.1  2004/10/13 22:46:34  fplanque
* renamed [b2]evocore/*
*
*/
?>

好长哦

没注释 看的累

长1.55米

收藏！！！

标记