Subversion Repositories svnkaklik

Compare Revisions

Regard whitespace Rev 5 → Rev 6

/web/test/gallery/cpg133/include/archive.php
0,0 → 1,574
<?php
/*************************
Coppermine Photo Gallery
************************
Copyright (c) 2003-2005 Coppermine Dev Team
v1.1 originaly written by Gregory DEMAR
 
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
********************************************
Coppermine version: 1.3.3
$Source: /cvsroot/coppermine/stable/include/archive.php,v $
$Revision: 1.4 $
$Author: gaugau $
$Date: 2005/04/19 03:17:11 $
**********************************************/
 
/*--------------------------------------------------
| TAR/GZIP/ZIP ARCHIVE CLASSES
| By Devin Doucette
| Copyright (c) 2003 Devin Doucette
| Email: darksnoopy@shaw.ca
+--------------------------------------------------
| Email bugs/suggestions to darksnoopy@shaw.ca
+--------------------------------------------------
| 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
+--------------------------------------------------*/
 
/*------------------------------------------------------------
| To create tar files:
| $example = new tarfile($cwd,$flags); // args optional
| -current working directory
| -flags (array):
| -overwrite - whether to overwrite existing files or return
| an error message
| -defaultperms - default file permissions (like chmod(),
| must include 0 in front of value [eg. 0777, 0644])
| -recursesd[1,0] - whether or not to include subdirs
| -storepath[1,0] - whether or not to store relative paths
| -replacestats[array] - values to replace those from files
| -mode - same as the result of a fileperms() call
| -uid/gid - user/group id
| -time - timestamp
| -type - file type (5=dir,1=link,0=file)
| -link - the file that is linked to
| -path - only supported in USTAR, not recommended
+------------------------------------------------------------*/
 
/*------------------------------------------------------------
| To create gzip files:
| $example = new gzfile($cwd,$flags); // args optional
| -current working directory
| -flags (array):
| -overwrite - whether to overwrite existing files or return
| an error message
| -defaultperms - default file permissions (like chmod(),
| must include 0 in front of value [eg. 0777, 0644])
+------------------------------------------------------------*/
 
/*------------------------------------------------------------
| To create zip files:
| $example = new zipfile($cwd,$flags); // args optional
| -current working directory
| -flags (array):
| -overwrite - whether to overwrite existing files or return
| an error message
| -defaultperms - default file permissions (like chmod(),
| must include 0 in front of value [eg. 0777, 0644])
| -time - timestamp to use to replace the mtime from files
| -recursesd[1,0] - whether or not to include subdirs
| -storepath[1,0] - whether or not to store relative paths
| -level[0-9] - compression level (0 = none, 9 = max)
| -comment - comment to add to the archive
+------------------------------------------------------------*/
 
/*------------------------------------------------------------
| To add files:
| $example->addfile($data,$filename,$flags);
| -data - file contents
| -filename - name of file to be put in archive
| -flags (all flags are optional)
| -flags (tar) [array]: -same flags as tarfile()
| -flags (gzip) [string]: -comment to add to archive
| -flags (zip) [array] -time - last modification time
|
| $example->addfiles($filelist); // tar and zip only
| -filelist - array of file names relative to CWD
|
| $example->adddirectories($dirlist); // tar and zip only
| -dirlist - array of directory names relative to CWD
+------------------------------------------------------------*/
 
/*------------------------------------------------------------
| To output files:
| $example->getdata();
| -returns file contents
|
| $example->filedownload($filename);
| -filename - the name to give the file that is being sent
|
| $example->filewrite($filename,$perms); // perms optional
| -filename - the name (including path) of the file to write
| -perms - permissions to give the file after it is written
+------------------------------------------------------------*/
 
/*------------------------------------------------------------
| To extract files (tar and gzip)
| $example->extract($data);
| -data - data to extract files from
| -returns an array containing file attributes and contents
|
| $example->extractfile($filename);
| -filename - the name (including path) of the file to use
| -returns an array containing file attributes and contents
|
| Both functions will return a string containing any errors
+------------------------------------------------------------*/
 
class tarfile extends archive {
var $cwd = "./";
var $tardata = "";
var $defaultflags = array(
'mode' => 0,
'uid' => 0,
'gid' => 0,
'time' => 0,
'type' => 0,
'link' => "",
'path' => "",
);
var $replacestats = array();
var $recursesd = 1;
var $storepath = 1;
 
function tarfile($cwd="./",$flags=array()) {
$this->cwd = $cwd;
$this->defaultflags['mode'] = decoct(0x8000 | 0x0100 | 0x0080 | 0x0020 | 0x0004);
$this->defaultflags['time'] = time();
if(isset($flags['recursesd']))
$this->recursesd = $flags['recursesd'];
if(isset($flags['storepath']))
$this->storepath = $flags['storepath'];
if(isset($flags['replacestats'])) {
if(is_array($flags['replacestats'])) {
if(isset($flags['replacestats']['mode']))
$this->replacestats['mode'] = $flags['replacestats']['mode'];
if(isset($flags['replacestats']['time']))
$this->replacestats['time'] = $flags['replacestats']['time'];
}
else if($flags['replacestats'] == 1) {
$this->replacestats['mode'] = $this->defaultflags['mode'];
$this->replacestats['time'] = $this->defaultflags['time'];
}
}
 
$this->archive($flags);
}
 
function addfile($data,$filename,$flags=array()) {
if(strlen($filename) > 99)
return $this->error("The file name $filename is too long to archive.");
 
$flags['mode'] = isset($this->replacestats['mode'])? $this->replacestats['mode'] : (isset($flags['mode'])? $flags['mode'] : $this->defaultflags['mode']);
$flags['uid'] = isset($flags['uid'])? $flags['uid'] : $this->defaultflags['uid'];
$flags['gid'] = isset($flags['gid'])? $flags['gid'] : $this->defaultflags['gid'];
$flags['time'] = isset($this->replacestats['time'])? $this->replacestats['time'] : (isset($flags['time'])? $flags['time'] : $this->defaultflags['time']);
$flags['type'] = isset($flags['type'])? $flags['type'] : $this->defaultflags['type'];
$flags['link'] = isset($flags['link'])? $flags['link'] : $this->defaultflags['link'];
$flags['path'] = isset($flags['path'])? $flags['path'] : $this->defaultflags['path'];
$flags['size'] = isset($flags['size'])? $flags['size'] : strlen($data);
 
if($this->storepath != 1) {
$filename = strstr($filename,"/")? substr($filename,strrpos($filename,"/")+1) : $filename;
$flags['path'] = "";
}
else
$filename = preg_replace("/^(\.{1,2}(\/|\\\))+/","",$filename);
 
$blockbeg = pack("a100a8a8a8a12a12",$filename,$flags['mode'],sprintf("%6s ",decoct($flags['uid'])),sprintf("%6s ",decoct($flags['gid'])),sprintf("%11s ",decoct($flags['size'])),sprintf("%11s ",decoct($flags['time'])));
$blockend = pack("a1a100a6a2a32a32a8a8a155",$flags['type'],$flags['link'],"ustar","00","Unknown","Unknown","","",$flags['path']);
 
$checksum = 0;
for($i = 0; $i < 148; $i++)
$checksum += ord(substr($blockbeg,$i,1));
for($i = 148; $i < 156; $i++)
$checksum += ord(" ");
for($i = 156; $i < 512; $i++)
$checksum += ord(substr($blockend,$i-156,1));
$checksum = pack("a8",sprintf("%6s ",decoct($checksum)));
 
if($flags['size'] % 512 > 0)
$data .= $this->nullpad(512 - $flags['size'] % 512);
 
$this->tardata .= $blockbeg . $checksum . $blockend . pack("a12","") . $data;
}
 
function addfiles($filelist) {
$pwd = getcwd();
@chdir($this->cwd);
 
foreach($filelist as $current) {
$file = array();
 
if($this->storepath != 1)
$file['name'] = strstr($current,"/")? substr($current,strrpos($current,"/")+1) : $current;
else
$file['name'] = preg_replace("/^(\.{1,2}(\/|\\\))+/","",$current);
 
$file['mode'] = @fileperms($current);
if($file['mode'] & 0x4000)
$file['type'] = 5; // Directory
else if($file['mode'] & 0x8000)
$file['type'] = 0; // Regular
else if($file['mode'] & 0xA000)
$file['type'] = 1; // Link
else
$file['type'] = 9; // Unknown
$file['mode'] = decoct($file['mode']);
 
if($file['type'] == 0 && !@file_exists($current))
return $this->error("$current does not exist");
else if(strlen($file['name']) > 99) {
$offset = strrpos($file['name'],"/") + 1;
$file['path'] = substr($file['name'],0,$offset);
$file['name'] = substr($file['name'],$offset);
if(strlen($file['name']) > 99 || strlen($file['path']) > 154)
return $this->error("The file name {$file['name']} is too long to archive.");
}
else
$file['path'] = "";
 
$stat = stat($current);
 
if(($file['type'] == 0 || $file['type'] == 1) && $fp = @fopen($current,"rb")) {
$data = fread($fp,$stat[7]);
fclose($fp);
}
else
$data = "";
 
$flags = array(
'mode' => $file['mode'],
'uid' => $stat[4],
'gid' => $stat[5],
'size' => $stat[7],
'time' => $stat[9],
'type' => $file['type'],
'link' => $file['type'] == 1? @readlink($current) : "",
'path' => $file['path'],
);
 
$this->addfile($data,$file['name'],$flags);
}
 
@chdir($pwd);
}
 
function extract($data) {
$return = array();
$blocks = strlen($data)/512 - 1;
$offset = 0;
 
while($offset < $blocks) {
$header = substr($data,512*$offset,512);
$current = unpack("a100filename/a8mode/a8uid/a8gid/a12size/a12mtime/a8checksum/a1type/a100linkname/a6magic/a2version/a32uname/a32gname/a8devmajor/a8devminor/a155path",$header);
foreach($current as $k => $v)
$current[$k] = trim($v);
$current['mode'] = octdec($current['mode']);
$current['uid'] = octdec($current['uid']);
$current['gid'] = octdec($current['gid']);
$current['size'] = octdec($current['size']);
$current['mtime'] = octdec($current['mtime']);
$current['checksum'] = octdec($current['checksum']);
$current['type'] = octdec($current['type']);
 
if($this->storepath != 1)
$current['filename'] = substr($current['filename'],strrpos($current['filename'],"/")+1);
 
$checksum = 0;
for($i = 0; $i < 148; $i++)
$checksum += ord(substr($header,$i,1));
for($i = 148; $i < 156; $i++)
$checksum += ord(" ");
for($i = 156; $i < 512; $i++)
$checksum += ord(substr($header,$i,1));
if($current['checksum'] != $checksum)
return $this->error("Checksum error.");
 
$size = ceil($current['size']/512);
$current['data'] = substr($data,512*(++$offset),$current['size']);
$offset += $size;
$return[] = $current;
}
 
return $return;
}
 
function getdata() {
return $this->tardata . pack("a512","");
}
 
function filedownload($filename) {
@header("Content-type: application/x-tar");
@header("Content-disposition: attachment; filename=$filename");
 
print($this->getdata());
}
 
function nullpad($bytes) {
$return = "";
for($i = 0; $i < $bytes; ++$i)
$return .= "\0";
return $return;
}
}
 
class gzfile extends archive {
var $gzdata = "";
 
function addfile($data,$filename=null,$comment=null) {
$flags = bindec("000".(!empty($comment)? "1" : "0").(!empty($filename)? "1" : "0")."000");
$this->gzdata .= pack("C1C1C1C1VC1C1",0x1f,0x8b,8,$flags,time(),2,0xFF);
 
if(!empty($filename))
$this->gzdata .= "$filename\0";
 
if(!empty($comment))
$this->gzdata .= "$comment\0";
 
$this->gzdata .= gzdeflate($data);
 
$this->gzdata .= pack("VV",crc32($data),strlen($data));
}
 
function extract($data) {
$id = unpack("H2id1/H2id2",substr($data,0,2));
if($id['id1'] != "1f" || $id['id2'] != "8b")
return $this->error("Not valid gzip data.");
 
$temp = unpack("Cflags",substr($data,2,1));
$temp = decbin($temp['flags']);
if($temp & 0x8)
$flags['name'] = 1;
if($temp & 0x4)
$flags['comment'] = 1;
 
$offset = 10;
 
$filename = "";
while(!empty($flags['name'])) {
$char = substr($data,$offset,1);
$offset++;
if($char == "\0")
break;
$filename .= $char;
}
if($filename == "")
$filename = "file";
 
$comment = "";
while(!empty($flags['comment'])) {
$char = substr($data,$offset,1);
$offset++;
if($char == "\0")
break;
$comment .= $char;
}
 
$temp = unpack("Vcrc32/Visize",substr($data,strlen($data)-8,8));
$crc32 = $temp['crc32'];
$isize = $temp['isize'];
 
$data = gzinflate(substr($data,$offset,strlen($data)-8-$offset));
 
if($crc32 != crc32($data))
return $this->error("Checksum error");
 
return array('filename'=>$filename,'comment'=>$comment,'size'=>$isize,'data'=>$data);
}
 
function getdata() {
return $this->gzdata;
}
 
function filedownload($filename) {
@header("Content-type: application/x-gzip");
@header("Content-disposition: attachment; filename=$filename");
 
print($this->getdata());
}
}
 
class zipfile extends archive {
var $cwd = "./";
var $comment = "";
var $level = 9;
var $offset = 0;
var $recursesd = 1;
var $storepath = 1;
var $replacetime = 0;
var $central = array();
var $zipdata = array();
 
function zipfile($cwd="./",$flags=array()) {
$this->cwd = $cwd;
if(isset($flags['time']))
$this->replacetime = $flags['time'];
if(isset($flags['recursesd']))
$this->recursesd = $flags['recursesd'];
if(isset($flags['storepath']))
$this->storepath = $flags['storepath'];
if(isset($flags['level']))
$this->level = $flags['level'];
if(isset($flags['comment']))
$this->comment = $flags['comment'];
 
$this->archive($flags);
}
 
function addfile($data,$filename,$flags=array()) {
if($this->storepath != 1)
$filename = strstr($filename,"/")? substr($filename,strrpos($filename,"/")+1) : $filename;
else
$filename = preg_replace("/^(\.{1,2}(\/|\\\))+/","",$filename);
 
$mtime = !empty($this->replacetime)? getdate($this->replacetime) : (isset($flags['time'])? getdate($flags['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.'";');
 
$crc32 = crc32($data);
$normlength = strlen($data);
if(function_exists('gzcompress') ){
$data = gzcompress($data,$this->level);
}
$data = substr($data,2,strlen($data)-6);
$complength = strlen($data);
 
$this->zipdata[] = "\x50\x4b\x03\x04\x14\x00\x00\x00\x08\x00".$mtime.pack("VVVvv",$crc32,$complength,$normlength,strlen($filename),0x00).$filename.$data.pack("VVV",$crc32,$complength,$normlength);
$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(implode("",$this->zipdata));
}
 
function addfiles($filelist) {
$pwd = getcwd();
@chdir($this->cwd);
 
foreach($filelist as $current) {
if(!@file_exists($current))
continue;
 
$stat = stat($current);
 
if($fp = @fopen($current,"rb")) {
$data = fread($fp,$stat[7]);
fclose($fp);
}
else
$data = "";
 
$flags = array('time'=>$stat[9]);
 
$this->addfile($data,$current,$flags);
}
 
@chdir($pwd);
}
 
function getdata() {
$central = implode("",$this->central);
$zipdata = implode("",$this->zipdata);
return $zipdata.$central."\x50\x4b\x05\x06\x00\x00\x00\x00".pack("vvVVv",sizeof($this->central),sizeof($this->central),strlen($central),strlen($zipdata),strlen($this->comment)).$this->comment;
}
 
function filedownload($filename) {
@header("Content-type: application/zip");
@header("Content-disposition: attachment; filename=$filename");
 
print($this->getdata());
}
}
 
class archive {
var $overwrite = 0;
var $defaultperms = 0644;
 
function archive($flags=array()) {
if(isset($flags['overwrite']))
$this->overwrite = $flags['overwrite'];
if(isset($flags['defaultperms']))
$this->defaultperms = $flags['defaultperms'];
}
 
function adddirectories($dirlist) {
$pwd = getcwd();
@chdir($this->cwd);
 
$filelist = array();
 
foreach($dirlist as $current) {
if(@is_dir($current)) {
$temp = $this->parsedirectories($current);
foreach($temp as $filename)
$filelist[] = $filename;
}
else if(@file_exists($current))
$filelist[] = $current;
}
 
@chdir($pwd);
$this->addfiles($filelist);
}
 
function parsedirectories($dirname) {
$filelist = array();
$dir = @opendir($dirname);
 
while($file = @readdir($dir)) {
if($file == "." || $file == "..")
continue;
else if(@is_dir($dirname."/".$file)) {
if($this->recursesd != 1)
continue;
$temp = $this->parsedirectories($dirname."/".$file);
foreach($temp as $file2)
$filelist[] = $file2;
}
else if(@file_exists($dirname."/".$file))
$filelist[] = $dirname."/".$file;
}
 
@closedir($dir);
 
return $filelist;
}
 
function filewrite($filename,$perms=null) {
if($this->overwrite != 1 && @file_exists($filename))
return $this->error("File $filename already exists.");
 
if(@file_exists($filename))
@unlink($filename);
 
$fp = @fopen($filename,"wb");
 
if(!fwrite($fp,$this->getdata()))
return $this->error("Could not write data to $filename.");
 
@fclose($fp);
 
if(!isset($perms))
$perms = $this->defaultperms;
 
@chmod($filename,$perms);
}
 
function extractfile($filename) {
if($fp = @fopen($filename,"rb")) {
return $this->extract(fread($fp,filesize($filename)));
@fclose($fp);
}
else
return $this->error("Could not open $filename.");
}
 
function error($error) {
$this->errors[] = $error;
return 0;
}
} ?>