Your IP : 172.28.240.42
<?
if (!defined("BX_DIR_PERMISSIONS"))
define("BX_DIR_PERMISSIONS", 0755);
if (!defined("BX_FILE_PERMISSIONS"))
define("BX_FILE_PERMISSIONS", 0644);
class CArchiver
{
var $_strArchiveName = "";
var $_bCompress = false;
var $_strSeparator = " ";
var $_dFile = 0;
var $_arErrors = array();
var $start_time = 0;
var $max_exec_time = 0;
var $file_pos = 0;
var $stepped = false;
function CArchiver($strArchiveName, $bCompress = false, $start_time = -1, $max_exec_time = -1, $pos = 0, $stepped = false)
{
$this->start_time = $start_time;
$this->max_exec_time = $max_exec_time;
$this->file_pos = $pos;
$this->_bCompress = false;
$this->stepped = $stepped;
if (!$bCompress)
{
if (@file_exists($strArchiveName))
{
if ($fp = @fopen($strArchiveName, "rb"))
{
$data = fread($fp, 2);
fclose($fp);
if ($data == "\37\213")
{
$this->_bCompress = True;
}
}
}
else
{
if (substr($strArchiveName, -2) == 'gz')
{
$this->_bCompress = True;
}
}
}
else
{
$this->_bCompress = True;
}
$this->_strArchiveName = $strArchiveName;
$this->_arErrors = array();
}
function Add($vFileList, $strAddPath = false, $strRemovePath = false)
{
$this->_arErrors = array();
$bNewArchive = True;
if (file_exists($this->_strArchiveName)
&& is_file($this->_strArchiveName))
{
$bNewArchive = False;
}
if ($bNewArchive)
{
if (!$this->_openWrite())
return false;
}
else
{
if (!$this->_openAppend())
return false;
}
$res = false;
$arFileList = &$this->_parseFileParams($vFileList);
if (is_array($arFileList) && count($arFileList)>0)
$res = $this->_addFileList($arFileList, $strAddPath, $strRemovePath);
if ($res)
$this->_writeFooter();
$this->_close();
if ($bNewArchive && !$res)
{
$this->_cleanFile();
}
return $res;
}
function addFile($strFilename, $strAddPath, $strRemovePath)
{
$v_result = true;
$arHeaders = array();
$strAddPath = str_replace("\\", "/", $strAddPath);
$strRemovePath = str_replace("\\", "/", $strRemovePath);
if (!$this->_dFile)
{
$this->_arErrors[] = array("ERR_DFILE", "Invalid file descriptor");
return false;
}
if (strlen($strFilename)<=0)
return false;
if (!file_exists($strFilename))
{
$this->_arErrors[] = array("NO_FILE", "File '".$strFilename."' does not exist");
return false;
}
if (!$this->_addFile($strFilename, $arHeaders, $strAddPath, $strRemovePath))
return false;
return true;
}
function addString($strFilename, $strFileContent)
{
$this->_arErrors = array();
if (!file_exists($this->_strArchiveName)
|| !is_file($this->_strArchiveName))
{
if (!$this->_openWrite())
return false;
$this->_close();
}
if (!$this->_openAppend())
return false;
$res = $this->_addString($strFilename, $strFileContent);
$this->_writeFooter();
$this->_close();
return $res;
}
function extractFiles($strPath, $vFileList = false)
{
$this->_arErrors = array();
$v_result = true;
$v_list_detail = array();
$strExtrType = "complete";
$arFileList = 0;
if ($vFileList!==false)
{
$arFileList = &$this->_parseFileParams($vFileList);
$strExtrType = "partial";
}
if ($v_result = $this->_openRead())
{
$v_result = $this->_extractList($strPath, $v_list_detail, $strExtrType, $arFileList, '');
$this->_close();
}
return $v_result;
}
function extractContent()
{
$this->_arErrors = array();
$arRes = array();
if ($this->_openRead())
{
if (!$this->_extractList('', $arRes, "list", '', ''))
{
unset($arRes);
$arRes = false;
}
$this->_close();
}
return $arRes;
}
function &GetErrors()
{
return $this->_arErrors;
}
function _addFileList($arFileList, $strAddPath, $strRemovePath)
{
$v_result = true;
$arHeaders = array();
$strAddPath = str_replace("\\", "/", $strAddPath);
$strRemovePath = str_replace("\\", "/", $strRemovePath);
if (!$this->_dFile)
{
$this->_arErrors[] = array("ERR_DFILE", "Invalid file descriptor");
return false;
}
if (!is_array($arFileList) || count($arFileList)<=0)
return true;
for ($j = 0; ($j<count($arFileList)) && ($v_result); $j++)
{
$strFilename = $arFileList[$j];
if ($strFilename == $this->_strArchiveName)
continue;
if (strlen($strFilename)<=0)
continue;
if (!file_exists($strFilename))
{
$this->_arErrors[] = array("NO_FILE", "File '".$strFilename."' does not exist");
continue;
}
if (!$this->_addFile($strFilename, $arHeaders, $strAddPath, $strRemovePath))
return false;
if (@is_dir($strFilename))
{
if (!($handle = opendir($strFilename)))
{
$this->_arErrors[] = array("NO_READ", "Directory '".$strFilename."' can not be read");
continue;
}
while (false !== ($dir = readdir($handle)))
{
if ($dir!="." && $dir!="..")
{
$arFileList_tmp = array();
if ($strFilename != ".")
$arFileList_tmp[] = $strFilename.'/'.$dir;
else
$arFileList_tmp[] = $dir;
$v_result = $this->_addFileList($arFileList_tmp, $strAddPath, $strRemovePath);
}
}
unset($arFileList_tmp);
unset($dir);
unset($handle);
}
}
return $v_result;
}
function _addFile($strFilename, &$arHeaders, $strAddPath, $strRemovePath)
{
if (!$this->_dFile)
{
$this->_arErrors[] = array("ERR_DFILE", "Invalid file descriptor");
return false;
}
if (strlen($strFilename)<=0)
{
$this->_arErrors[] = array("NO_FILENAME", "Invalid file name");
return false;
}
$strFilename = str_replace("\\", "/", $strFilename);
$strFilename_stored = $strFilename;
if (strcmp($strFilename, $strRemovePath) == 0)
return true;
if (strlen($strRemovePath)>0)
{
if (substr($strRemovePath, -1) != '/')
$strRemovePath .= '/';
if (substr($strFilename, 0, strlen($strRemovePath)) == $strRemovePath)
$strFilename_stored = substr($strFilename, strlen($strRemovePath));
}
if (strlen($strAddPath)>0)
{
if (substr($strAddPath, -1) == '/')
$strFilename_stored = $strAddPath.$strFilename_stored;
else
$strFilename_stored = $strAddPath.'/'.$strFilename_stored;
}
$strFilename_stored = $this->_normalizePath($strFilename_stored);
if (is_file($strFilename))
{
if (($dfile = @fopen($strFilename, "rb")) == 0)
{
$this->_arErrors[] = array("ERR_OPEN", "Unable to open file '".$strFilename."' in binary read mode");
return true;
}
$istime = ((getmicrotime() - $this->start_time) < round($this->max_exec_time)) || !$this->stepped;
if ($istime)
{
if(($this->file_pos == 0))
{
if(!$this->_writeHeader($strFilename, $strFilename_stored))
return false;
}
if(($this->file_pos > 0) && $this->stepped)
{
if ($this->_bCompress)
@gzseek($dfile, $this->file_pos);
else
@fseek($dfile, $this->file_pos);
}
while ($istime && ($v_buffer = fread($dfile, 512)) != '')
{
$v_binary_data = pack("a512", "$v_buffer");
$this->_writeBlock($v_binary_data);
$istime = ((getmicrotime() - $this->start_time) < round($this->max_exec_time)) || !$this->stepped;
}
}
if($istime && $this->stepped)
$this->file_pos = 0;
elseif($this->stepped)
{
if ($this->_bCompress)
$this->file_pos = @gztell($dfile);
else
$this->file_pos = @ftell($dfile);
}
fclose($dfile);
}
elseif (!$this->_writeHeader($strFilename, $strFilename_stored))
return false;
return true;
}
function getFilePos()
{
return $this->file_pos;
}
function _addString($strFilename, $strFileContent)
{
if (!$this->_dFile)
{
$this->_arErrors[] = array("ERR_DFILE", "Invalid file descriptor");
return false;
}
if (strlen($strFilename)<=0)
{
$this->_arErrors[] = array("NO_FILENAME", "Invalid file name");
return false;
}
$strFilename = str_replace("\\", "/", $strFilename);
$bMbstring = extension_loaded("mbstring");
if (!$this->_writeHeaderBlock($strFilename, ($bMbstring? mb_strlen($strFileContent, "latin1") : strlen($strFileContent)), 0, 0, "", 0, 0))
return false;
$i = 0;
while (($v_buffer = ($bMbstring? mb_substr($strFileContent, (($i++)*512), 512, "latin1") : substr($strFileContent, (($i++)*512), 512))) != '')
{
$v_binary_data = pack("a512", $v_buffer);
$this->_writeBlock($v_binary_data);
}
return true;
}
function _extractList($p_path, &$p_list_detail, $p_mode, $p_file_list, $p_remove_path)
{
$v_result = true;
$v_nb = 0;
$v_extract_all = true;
$v_listing = false;
$p_path = str_replace("\\", "/", $p_path);
if ($p_path == ''
|| (substr($p_path, 0, 1) != '/'
&& substr($p_path, 0, 3) != "../"
&& !strpos($p_path, ':')))
{
$p_path = "./".$p_path;
}
$p_remove_path = str_replace("\\", "/", $p_remove_path);
if (($p_remove_path != '') && (substr($p_remove_path, -1) != '/'))
$p_remove_path .= '/';
$p_remove_path_size = strlen($p_remove_path);
switch ($p_mode)
{
case "complete" :
$v_extract_all = TRUE;
$v_listing = FALSE;
break;
case "partial" :
$v_extract_all = FALSE;
$v_listing = FALSE;
break;
case "list" :
$v_extract_all = FALSE;
$v_listing = TRUE;
break;
default :
$this->_arErrors[] = array("ERR_PARAM", "Invalid extract mode (".$p_mode.")");
return false;
}
clearstatcache();
while((extension_loaded("mbstring")? mb_strlen($v_binary_data = $this->_readBlock(), "latin1") : strlen($v_binary_data = $this->_readBlock())) != 0)
{
$v_extract_file = FALSE;
$v_extraction_stopped = 0;
if (!$this->_readHeader($v_binary_data, $v_header))
return false;
if ($v_header['filename'] == '')
continue;
// ----- Look for long filename
if ($v_header['typeflag'] == 'L')
{
if (!$this->_readLongHeader($v_header))
return false;
}
if ((!$v_extract_all) && (is_array($p_file_list)))
{
// ----- By default no unzip if the file is not found
$v_extract_file = false;
for ($i = 0; $i < count($p_file_list); $i++)
{
// ----- Look if it is a directory
if (substr($p_file_list[$i], -1) == '/')
{
// ----- Look if the directory is in the filename path
if ((strlen($v_header['filename']) > strlen($p_file_list[$i]))
&& (substr($v_header['filename'], 0, strlen($p_file_list[$i])) == $p_file_list[$i]))
{
$v_extract_file = TRUE;
break;
}
}
elseif ($p_file_list[$i] == $v_header['filename'])
{
// ----- It is a file, so compare the file names
$v_extract_file = TRUE;
break;
}
}
}
else
{
$v_extract_file = TRUE;
}
// ----- Look if this file need to be extracted
if (($v_extract_file) && (!$v_listing))
{
if (($p_remove_path != '')
&& (substr($v_header['filename'], 0, $p_remove_path_size) == $p_remove_path))
{
$v_header['filename'] = substr($v_header['filename'], $p_remove_path_size);
}
if (($p_path != './') && ($p_path != '/'))
{
while (substr($p_path, -1) == '/')
$p_path = substr($p_path, 0, strlen($p_path)-1);
if (substr($v_header['filename'], 0, 1) == '/')
$v_header['filename'] = $p_path.$v_header['filename'];
else
$v_header['filename'] = $p_path.'/'.$v_header['filename'];
}
if (file_exists($v_header['filename']))
{
if ((@is_dir($v_header['filename'])) && ($v_header['typeflag'] == ''))
{
$this->_arErrors[] = array("DIR_EXISTS", "File '".$v_header['filename']."' already exists as a directory");
return false;
}
if ((is_file($v_header['filename'])) && ($v_header['typeflag'] == "5"))
{
$this->_arErrors[] = array("FILE_EXISTS", "Directory '".$v_header['filename']."' already exists as a file");
return false;
}
if (!is_writeable($v_header['filename']))
{
$this->_arErrors[] = array("FILE_PERMS", "File '".$v_header['filename']."' already exists and is write protected");
return false;
}
}
elseif (($v_result = $this->_dirCheck(($v_header['typeflag'] == "5" ? $v_header['filename'] : dirname($v_header['filename'])))) != 1)
{
$this->_arErrors[] = array("NO_DIR", "Unable to create path for '".$v_header['filename']."'");
return false;
}
if ($v_extract_file)
{
if ($v_header['typeflag'] == "5")
{
if (!@file_exists($v_header['filename']))
{
if (!@mkdir($v_header['filename'], BX_DIR_PERMISSIONS))
{
$this->_arErrors[] = array("ERR_CREATE_DIR", "Unable to create directory '".$v_header['filename']."'");
return false;
}
}
}
else
{
if (($v_dest_file = @fopen($v_header['filename'], "wb")) == 0)
{
$this->_arErrors[] = array("ERR_CREATE_FILE", "Error while opening '".$v_header['filename']."' in write binary mode");
return false;
}
else
{
$n = floor($v_header['size']/512);
for ($i = 0; $i < $n; $i++)
{
$v_content = $this->_readBlock();
fwrite($v_dest_file, $v_content, 512);
}
if (($v_header['size'] % 512) != 0)
{
$v_content = $this->_readBlock();
fwrite($v_dest_file, $v_content, ($v_header['size'] % 512));
}
@fclose($v_dest_file);
@chmod($v_header['filename'], BX_FILE_PERMISSIONS);
@touch($v_header['filename'], $v_header['mtime']);
}
clearstatcache();
if (filesize($v_header['filename']) != $v_header['size'])
{
$this->_arErrors[] = array("ERR_SIZE_CHECK", "Extracted file '".$v_header['filename']."' have incorrect file size '".filesize($v_filename)."' (".$v_header['size']." expected). Archive may be corrupted");
return false;
}
}
}
else
{
$this->_jumpBlock(ceil(($v_header['size']/512)));
}
}
else
{
$this->_jumpBlock(ceil(($v_header['size']/512)));
}
if ($v_listing || $v_extract_file || $v_extraction_stopped)
{
if (($v_file_dir = dirname($v_header['filename'])) == $v_header['filename'])
$v_file_dir = '';
if ((substr($v_header['filename'], 0, 1) == '/') && ($v_file_dir == ''))
$v_file_dir = '/';
$p_list_detail[$v_nb++] = $v_header;
}
}
return true;
}
function _writeHeader($strFilename, $strFilename_stored)
{
if (strlen($strFilename_stored)<=0)
$strFilename_stored = $strFilename;
$strFilename_ready = $this->_normalizePath($strFilename_stored);
if (strlen($strFilename_ready) > 99)
{
if (!$this->_writeLongHeader($strFilename_ready))
return false;
}
$v_info = stat($strFilename);
$v_uid = sprintf("%6s ", DecOct($v_info[4]));
$v_gid = sprintf("%6s ", DecOct($v_info[5]));
$v_perms = sprintf("%6s ", DecOct(fileperms($strFilename)));
$v_mtime = sprintf("%11s", DecOct(filemtime($strFilename)));
if (@is_dir($strFilename))
{
$v_typeflag = "5";
$v_size = sprintf("%11s ", DecOct(0));
}
else
{
$v_typeflag = '';
clearstatcache();
$v_size = sprintf("%11s ", DecOct(filesize($strFilename)));
}
$v_linkname = '';
$v_magic = '';
$v_version = '';
$v_uname = '';
$v_gname = '';
$v_devmajor = '';
$v_devminor = '';
$v_prefix = '';
$v_binary_data_first = pack("a100a8a8a8a12A12", $strFilename_ready, $v_perms, $v_uid, $v_gid, $v_size, $v_mtime);
$v_binary_data_last = pack("a1a100a6a2a32a32a8a8a155a12", $v_typeflag, $v_linkname, $v_magic, $v_version, $v_uname, $v_gname, $v_devmajor, $v_devminor, $v_prefix, '');
$bMbstring = extension_loaded("mbstring");
$v_checksum = 0;
for ($i = 0; $i < 148; $i++)
$v_checksum += ord(($bMbstring? mb_substr($v_binary_data_first, $i, 1, "latin1") : substr($v_binary_data_first, $i, 1)));
for ($i = 148; $i < 156; $i++)
$v_checksum += ord(' ');
for ($i = 156, $j = 0; $i < 512; $i++, $j++)
$v_checksum += ord(($bMbstring? mb_substr($v_binary_data_last, $j, 1, "latin1") : substr($v_binary_data_last, $j, 1)));
$this->_writeBlock($v_binary_data_first, 148);
$v_checksum = sprintf("%6s ", DecOct($v_checksum));
$v_binary_data = pack("a8", $v_checksum);
$this->_writeBlock($v_binary_data, 8);
$this->_writeBlock($v_binary_data_last, 356);
return true;
}
function _writeLongHeader($strFilename)
{
$v_size = sprintf("%11s ", DecOct(strlen($strFilename)));
$v_typeflag = 'L';
$v_linkname = '';
$v_magic = '';
$v_version = '';
$v_uname = '';
$v_gname = '';
$v_devmajor = '';
$v_devminor = '';
$v_prefix = '';
$v_binary_data_first = pack("a100a8a8a8a12A12", '././@LongLink', 0, 0, 0, $v_size, 0);
$v_binary_data_last = pack("a1a100a6a2a32a32a8a8a155a12", $v_typeflag, $v_linkname, $v_magic, $v_version, $v_uname, $v_gname, $v_devmajor, $v_devminor, $v_prefix, '');
$bMbstring = extension_loaded("mbstring");
$v_checksum = 0;
for ($i = 0; $i < 148; $i++)
$v_checksum += ord(($bMbstring? mb_substr($v_binary_data_first, $i, 1, "latin1") : substr($v_binary_data_first, $i, 1)));
for ($i = 148; $i < 156; $i++)
$v_checksum += ord(' ');
for ($i = 156, $j=0; $i < 512; $i++, $j++)
$v_checksum += ord(($bMbstring? mb_substr($v_binary_data_last, $j, 1, "latin1") : substr($v_binary_data_last, $j, 1)));
$this->_writeBlock($v_binary_data_first, 148);
$v_checksum = sprintf("%6s ", DecOct($v_checksum));
$v_binary_data = pack("a8", $v_checksum);
$this->_writeBlock($v_binary_data, 8);
$this->_writeBlock($v_binary_data_last, 356);
$p_filename = $this->_normalizePath($strFilename);
$i = 0;
while (($v_buffer = ($bMbstring? mb_substr($p_filename, (($i++)*512), 512, "latin1") : substr($p_filename, (($i++)*512), 512))) != '')
{
$v_binary_data = pack("a512", "$v_buffer");
$this->_writeBlock($v_binary_data);
}
return true;
}
function _writeHeaderBlock($strFilename, $iSize, $p_mtime=0, $p_perms=0, $p_type='', $p_uid=0, $p_gid=0)
{
$strFilename = $this->_normalizePath($strFilename);
if (strlen($strFilename) > 99)
{
if (!$this->_writeLongHeader($strFilename))
return false;
}
if ($p_type == "5")
$v_size = sprintf("%11s ", DecOct(0));
else
$v_size = sprintf("%11s ", DecOct($iSize));
$v_uid = sprintf("%6s ", DecOct($p_uid));
$v_gid = sprintf("%6s ", DecOct($p_gid));
$v_perms = sprintf("%6s ", DecOct($p_perms));
$v_mtime = sprintf("%11s", DecOct($p_mtime));
$v_linkname = '';
$v_magic = '';
$v_version = '';
$v_uname = '';
$v_gname = '';
$v_devmajor = '';
$v_devminor = '';
$v_prefix = '';
$v_binary_data_first = pack("a100a8a8a8a12A12", $strFilename, $v_perms, $v_uid, $v_gid, $v_size, $v_mtime);
$v_binary_data_last = pack("a1a100a6a2a32a32a8a8a155a12", $p_type, $v_linkname, $v_magic, $v_version, $v_uname, $v_gname, $v_devmajor, $v_devminor, $v_prefix, '');
$bMbstring = extension_loaded("mbstring");
$v_checksum = 0;
for ($i = 0; $i < 148; $i++)
$v_checksum += ord(($bMbstring? mb_substr($v_binary_data_first, $i, 1, "latin1") : substr($v_binary_data_first, $i, 1)));
for ($i = 148; $i < 156; $i++)
$v_checksum += ord(' ');
for ($i = 156, $j = 0; $i < 512; $i++, $j++)
$v_checksum += ord(($bMbstring? mb_substr($v_binary_data_last, $j, 1, "latin1") : substr($v_binary_data_last, $j, 1)));
$this->_writeBlock($v_binary_data_first, 148);
$v_checksum = sprintf("%6s ", DecOct($v_checksum));
$v_binary_data = pack("a8", $v_checksum);
$this->_writeBlock($v_binary_data, 8);
$this->_writeBlock($v_binary_data_last, 356);
return true;
}
function _readBlock()
{
$v_block = "";
if (is_resource($this->_dFile))
{
if ($this->_bCompress)
$v_block = @gzread($this->_dFile, 512);
else
$v_block = @fread($this->_dFile, 512);
}
return $v_block;
}
function _readHeader($v_binary_data, &$v_header)
{
$bMbstring = extension_loaded("mbstring");
if (($bMbstring? mb_strlen($v_binary_data, "latin1") : strlen($v_binary_data)) == 0)
{
$v_header['filename'] = '';
return true;
}
if (($bMbstring? mb_strlen($v_binary_data, "latin1") : strlen($v_binary_data)) != 512)
{
$v_header['filename'] = '';
$this->_arErrors[] = array("INV_BLOCK_SIZE", "Invalid block size : ".($bMbstring? mb_strlen($v_binary_data, "latin1") : strlen($v_binary_data)));
return false;
}
$v_checksum = 0;
for ($i = 0; $i < 148; $i++)
$v_checksum+=ord(($bMbstring? mb_substr($v_binary_data, $i, 1, "latin1") : substr($v_binary_data, $i, 1)));
for ($i = 148; $i < 156; $i++)
$v_checksum += ord(' ');
for ($i = 156; $i < 512; $i++)
$v_checksum+=ord(($bMbstring? mb_substr($v_binary_data, $i, 1, "latin1") : substr($v_binary_data, $i, 1)));
$v_data = unpack("a100filename/a8mode/a8uid/a8gid/a12size/a12mtime/a8checksum/a1typeflag/a100link/a6magic/a2version/a32uname/a32gname/a8devmajor/a8devminor/a155prefix/a12temp", $v_binary_data);
$v_header['checksum'] = OctDec(trim($v_data['checksum']));
if ($v_header['checksum'] != $v_checksum)
{
$v_header['filename'] = '';
if (($v_checksum == 256) && ($v_header['checksum'] == 0))
return true;
$this->_arErrors[] = array("INV_BLOCK_CHECK", "Invalid checksum for file '".$v_data['filename']."' : ".$v_checksum." calculated, ".$v_header['checksum']." expected");
return false;
}
// ----- Extract the properties
$v_header['filename'] = trim($v_data['prefix']."/".$v_data['filename']);
$v_header['mode'] = OctDec(trim($v_data['mode']));
$v_header['uid'] = OctDec(trim($v_data['uid']));
$v_header['gid'] = OctDec(trim($v_data['gid']));
$v_header['size'] = OctDec(trim($v_data['size']));
$v_header['mtime'] = OctDec(trim($v_data['mtime']));
if (($v_header['typeflag'] = $v_data['typeflag']) == "5")
$v_header['size'] = 0;
return true;
}
function _readLongHeader(&$v_header)
{
$v_filename = '';
$n = floor($v_header['size']/512);
for ($i = 0; $i < $n; $i++)
{
$v_content = $this->_readBlock();
$v_filename .= $v_content;
}
if (($tail = $v_header['size'] % 512) != 0)
{
$v_content = $this->_readBlock();
$bMbstring = extension_loaded("mbstring");
$v_filename .= ($bMbstring? mb_substr($v_content, 0, $tail, "latin1") : substr($v_content, 0, $tail));
}
$v_binary_data = $this->_readBlock();
if (!$this->_readHeader($v_binary_data, $v_header))
return false;
$v_header['filename'] = $v_filename;
return true;
}
function _jumpBlock($p_len = false)
{
if (is_resource($this->_dFile))
{
if ($p_len === false)
$p_len = 1;
if ($this->_bCompress)
@gzseek($this->_dFile, @gztell($this->_dFile)+($p_len*512));
else
@fseek($this->_dFile, @ftell($this->_dFile)+($p_len*512));
}
return true;
}
function &_parseFileParams(&$vFileList)
{
if (isset($vFileList) && is_array($vFileList))
return $vFileList;
if (isset($vFileList) && strlen($vFileList)>0)
{
if(strpos($vFileList, "\"")===0)
return Array(Trim($vFileList, "\""));
return explode($this->_strSeparator, $vFileList);
}
return array();
}
function _openWrite()
{
if ($this->_bCompress)
$this->_dFile = @gzopen($this->_strArchiveName, "wb9f");
else
$this->_dFile = @fopen($this->_strArchiveName, "wb");
if (!($this->_dFile))
{
$this->_arErrors[] = array("ERR_OPEN_WRITE", "Unable to open '".$this->_strArchiveName."' in write mode");
return false;
}
return true;
}
function _openAppendFast()
{
if ($this->_bCompress)
$this->_dFile = @gzopen($this->_strArchiveName, "ab9f");
else
$this->_dFile = @fopen($this->_strArchiveName, "ab");
if (!($this->_dFile))
{
$this->_arErrors[] = array("ERR_OPEN_WRITE", "Unable to open '".$Arc->_strArchiveName."' in write mode");
return false;
}
return true;
}
function _openAppend()
{
if (filesize($this->_strArchiveName) == 0)
return $this->_openWrite();
if ($this->_bCompress)
{
$this->_close();
if (!@rename($this->_strArchiveName, $this->_strArchiveName.".tmp"))
{
$this->_arErrors[] = array("ERR_RENAME", "Error while renaming '".$this->_strArchiveName."' to temporary file '".$this->_strArchiveName.".tmp'");
return false;
}
$dTarArch_tmp = @gzopen($this->_strArchiveName.".tmp", "rb");
if (!$dTarArch_tmp)
{
$this->_arErrors[] = array("ERR_OPEN", "Unable to open file '".$this->_strArchiveName.".tmp' in binary read mode");
@rename($this->_strArchiveName.".tmp", $this->_strArchiveName);
return false;
}
if (!$this->_openWrite())
{
@rename($this->_strArchiveName.".tmp", $this->_strArchiveName);
return false;
}
$v_buffer = @gzread($dTarArch_tmp, 512);
if (!@gzeof($dTarArch_tmp))
{
do
{
$v_binary_data = pack("a512", $v_buffer);
$this->_writeBlock($v_binary_data);
$v_buffer = @gzread($dTarArch_tmp, 512);
}
while (!@gzeof($dTarArch_tmp));
}
@gzclose($dTarArch_tmp);
@unlink($this->_strArchiveName.".tmp");
}
else
{
if (!$this->_openReadWrite())
return false;
clearstatcache();
$iSize = filesize($this->_strArchiveName);
fseek($this->_dFile, $iSize-512);
}
return true;
}
function _openReadWrite()
{
if ($this->_bCompress)
$this->_dFile = @gzopen($this->_strArchiveName, "r+b");
else
$this->_dFile = @fopen($this->_strArchiveName, "r+b");
if (!$this->_dFile)
return false;
return true;
}
function _openRead()
{
if ($this->_bCompress)
$this->_dFile = @gzopen($this->_strArchiveName, "rb");
else
$this->_dFile = @fopen($this->_strArchiveName, "rb");
if (!$this->_dFile)
{
$this->_arErrors[] = array("ERR_OPEN", "Unable to open '".$this->_strArchiveName."' in read mode");
return false;
}
return true;
}
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;
}
function _writeFooter()
{
if (is_resource($this->_dFile))
{
$v_binary_data = pack("a512", '');
$this->_writeBlock($v_binary_data);
}
return true;
}
function _cleanFile()
{
$this->_close();
@unlink($this->_strArchiveName);
return true;
}
function _close()
{
if (is_resource($this->_dFile))
{
if ($this->_bCompress)
@gzclose($this->_dFile);
else
@fclose($this->_dFile);
$this->_dFile = 0;
}
return true;
}
function _normalizePath($strPath)
{
$strResult = "";
if (strlen($strPath)>0)
{
$strPath = str_replace("\\", "/", $strPath);
$arPath = explode('/', $strPath);
for ($i = count($arPath)-1; $i>=0; $i--)
{
if ($arPath[$i] == ".")
;
elseif ($arPath[$i] == "..")
$i--;
elseif (($arPath[$i] == '') && ($i!=(count($arPath)-1)) && ($i!=0))
;
else
$strResult = $arPath[$i].($i!=(count($arPath)-1) ? '/'.$strResult : '');
}
}
return $strResult;
}
function _dirCheck($p_dir)
{
if ((@is_dir($p_dir)) || ($p_dir == ''))
return true;
$p_parent_dir = dirname($p_dir);
if (($p_parent_dir != $p_dir) &&
($p_parent_dir != '') &&
(!$this->_dirCheck($p_parent_dir)))
return false;
if (!@mkdir($p_dir, BX_DIR_PERMISSIONS))
{
$this->_arErrors[] = array("CANT_CREATE_PATH", "Unable to create directory '".$p_dir."'");
return false;
}
return true;
}
}
?>