pax_global_header00006660000000000000000000000064152413647550014526gustar00rootroot0000000000000052 comment=a0d2c458a2ff6ee8943ac4271b7f57d613529ae0 pear-Archive_Tar-a0d2c45/000077500000000000000000000000001524136475500152465ustar00rootroot00000000000000pear-Archive_Tar-a0d2c45/.github/000077500000000000000000000000001524136475500166065ustar00rootroot00000000000000pear-Archive_Tar-a0d2c45/.github/FUNDING.yml000066400000000000000000000000011524136475500204120ustar00rootroot00000000000000 pear-Archive_Tar-a0d2c45/.github/dependabot.yml000066400000000000000000000007721524136475500214440ustar00rootroot00000000000000# To get started with Dependabot version updates, you'll need to specify which # package ecosystems to update and where the package manifests are located. # Please see the documentation for all configuration options: # https://help.github.com/github/administering-a-repository/configuration-options-for-dependency-updates version: 2 updates: - package-ecosystem: "composer" # See documentation for possible values directory: "/" # Location of package manifests schedule: interval: "daily" pear-Archive_Tar-a0d2c45/.github/workflows/000077500000000000000000000000001524136475500206435ustar00rootroot00000000000000pear-Archive_Tar-a0d2c45/.github/workflows/build.yml000066400000000000000000000022221524136475500224630ustar00rootroot00000000000000on: push: branches: - master pull_request: jobs: test: runs-on: ${{ matrix.operating-system }} strategy: fail-fast: false matrix: operating-system: [ ubuntu-latest ] php: [ '5.6', '7.0', '7.1', '7.2', '7.3', '7.4', '8.0', '8.1', '8.2', '8.3', '8.4', '8.5', '8.6' ] dependencies: [ 'locked' ] name: PHP ${{ matrix.php }} on ${{ matrix.operating-system }} with ${{ matrix.dependencies }} dependencies steps: - uses: actions/checkout@v2 name: Checkout repository - name: Setup PHP uses: shivammathur/setup-php@v2 with: php-version: ${{ matrix.php }} - uses: ramsey/composer-install@v1 with: dependency-versions: ${{ matrix.dependencies }} - name: Install PEAR run: | sudo apt-get --fix-broken install sudo apt-get install php-pear pear list - name: Run tests run: | sudo pear install -f package.xml pear version pear run-tests -qr tests/ || { cat run-tests.log; for i in `find tests/ -name '*.out'`; do echo "$i"; cat "$i"; done; exit 1; } pear-Archive_Tar-a0d2c45/.gitignore000066400000000000000000000002211524136475500172310ustar00rootroot00000000000000# composer related composer.lock composer.phar vendor # IDE .idea # eclipse .buildpath .project .settings # pear .tarballs *.tgz # phpunit build pear-Archive_Tar-a0d2c45/Archive/000077500000000000000000000000001524136475500166275ustar00rootroot00000000000000pear-Archive_Tar-a0d2c45/Archive/Tar.php000066400000000000000000002525271524136475500201030ustar00rootroot00000000000000 * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions are met: * * * Redistributions of source code must retain the above copyright notice, * this list of conditions and the following disclaimer. * * Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. * * @category File_Formats * @package Archive_Tar * @author Vincent Blavet * @copyright 1997-2010 The Authors * @license http://www.opensource.org/licenses/bsd-license.php New BSD License * @version CVS: $Id$ * @link http://pear.php.net/package/Archive_Tar */ // If the PEAR class cannot be loaded via the autoloader, // then try to require_once it from the PHP include path. if (!class_exists('PEAR')) { require_once 'PEAR.php'; } define('ARCHIVE_TAR_ATT_SEPARATOR', 90001); define('ARCHIVE_TAR_END_BLOCK', pack("a512", '')); /** * Creates a (compressed) Tar archive * * @package Archive_Tar * @author Vincent Blavet * @license http://www.opensource.org/licenses/bsd-license.php New BSD License * @version $Revision$ */ class Archive_Tar extends PEAR { /** * @var string Name of the Tar */ public $_tarname = ''; /** * @var boolean if true, the Tar file will be gzipped */ public $_compress = false; /** * @var string Type of compression : 'none', 'gz', 'bz2' or 'lzma2' */ public $_compress_type = 'none'; /** * @var string Explode separator */ public $_separator = ' '; /** * @var file descriptor */ public $_file = 0; /** * @var string Local Tar name of a remote Tar (http:// or ftp://) */ public $_temp_tarname = ''; /** * @var string regular expression for ignoring files or directories */ public $_ignore_regexp = ''; /** * @var object PEAR_Error object */ public $error_object = null; /** * Format for data extraction * * @var string */ public $_fmt = ''; /** * @var int Length of the read buffer in bytes */ protected $buffer_length; /** * Archive_Tar Class constructor. This flavour of the constructor only * declare a new Archive_Tar object, identifying it by the name of the * tar file. * If the compress argument is set the tar will be read or created as a * gzip or bz2 compressed TAR file. * * @param string $p_tarname The name of the tar archive to create * @param string $p_compress can be null, 'gz', 'bz2' or 'lzma2'. This * parameter indicates if gzip, bz2 or lzma2 compression * is required. For compatibility reason the * boolean value 'true' means 'gz'. * @param int $buffer_length Length of the read buffer in bytes * * @return bool */ public function __construct($p_tarname, $p_compress = null, $buffer_length = 512) { parent::__construct(); $this->_compress = false; $this->_compress_type = 'none'; if (($p_compress === null) || ($p_compress == '')) { if (@file_exists($p_tarname)) { if ($fp = @fopen($p_tarname, "rb")) { // look for gzip magic cookie $data = fread($fp, 2); fclose($fp); if ($data == "\37\213") { $this->_compress = true; $this->_compress_type = 'gz'; // No sure it's enought for a magic code .... } elseif ($data == "BZ") { $this->_compress = true; $this->_compress_type = 'bz2'; } elseif (file_get_contents($p_tarname, false, null, 1, 4) == '7zXZ') { $this->_compress = true; $this->_compress_type = 'lzma2'; } } } else { // probably a remote file or some file accessible // through a stream interface if (substr($p_tarname, -2) == 'gz') { $this->_compress = true; $this->_compress_type = 'gz'; } elseif ((substr($p_tarname, -3) == 'bz2') || (substr($p_tarname, -2) == 'bz') ) { $this->_compress = true; $this->_compress_type = 'bz2'; } else { if (substr($p_tarname, -2) == 'xz') { $this->_compress = true; $this->_compress_type = 'lzma2'; } } } } else { if (($p_compress === true) || ($p_compress == 'gz')) { $this->_compress = true; $this->_compress_type = 'gz'; } else { if ($p_compress == 'bz2') { $this->_compress = true; $this->_compress_type = 'bz2'; } else { if ($p_compress == 'lzma2') { $this->_compress = true; $this->_compress_type = 'lzma2'; } else { $this->_error( "Unsupported compression type '$p_compress'\n" . "Supported types are 'gz', 'bz2' and 'lzma2'.\n" ); return; } } } } $this->_tarname = $p_tarname; if ($this->_compress) { // assert zlib or bz2 or xz extension support if ($this->_compress_type == 'gz') { $extname = 'zlib'; } else { if ($this->_compress_type == 'bz2') { $extname = 'bz2'; } else { if ($this->_compress_type == 'lzma2') { $extname = 'xz'; } } } if (!extension_loaded($extname)) { PEAR::loadExtension($extname); } if (!extension_loaded($extname)) { $this->_error( "The extension '$extname' couldn't be found.\n" . "Please make sure your version of PHP was built " . "with '$extname' support.\n" ); return; } } if (version_compare(PHP_VERSION, "5.5.0-dev") < 0) { $this->_fmt = "a100filename/a8mode/a8uid/a8gid/a12size/a12mtime/" . "a8checksum/a1typeflag/a100link/a6magic/a2version/" . "a32uname/a32gname/a8devmajor/a8devminor/a131prefix"; } else { $this->_fmt = "Z100filename/Z8mode/Z8uid/Z8gid/a12size/Z12mtime/" . "Z8checksum/Z1typeflag/Z100link/Z6magic/Z2version/" . "Z32uname/Z32gname/Z8devmajor/Z8devminor/Z131prefix"; } $this->buffer_length = $buffer_length; } public function __destruct() { $this->_close(); // ----- Look for a local copy to delete if ($this->_temp_tarname != '' && (bool) preg_match('/^tar[[:alnum:]]*\.tmp$/', $this->_temp_tarname)) { @unlink($this->_temp_tarname); } } /** * This method creates the archive file and add the files / directories * that are listed in $p_filelist. * If a file with the same name exist and is writable, it is replaced * by the new tar. * The method return false and a PEAR error text. * The $p_filelist parameter can be an array of string, each string * representing a filename or a directory name with their path if * needed. It can also be a single string with names separated by a * single blank. * For each directory added in the archive, the files and * sub-directories are also added. * See also createModify() method for more details. * * @param array $p_filelist An array of filenames and directory names, or a * single string with names separated by a single * blank space. * * @return bool true on success, false on error. * @see createModify() */ public function create($p_filelist) { return $this->createModify($p_filelist, '', ''); } /** * This method add the files / directories that are listed in $p_filelist in * the archive. If the archive does not exist it is created. * The method return false and a PEAR error text. * The files and directories listed are only added at the end of the archive, * even if a file with the same name is already archived. * See also createModify() method for more details. * * @param array $p_filelist An array of filenames and directory names, or a * single string with names separated by a single * blank space. * * @return bool true on success, false on error. * @see createModify() * @access public */ public function add($p_filelist) { return $this->addModify($p_filelist, '', ''); } /** * @param string $p_path * @param bool $p_preserve * @param bool $p_symlinks * @return bool */ public function extract($p_path = '', $p_preserve = false, $p_symlinks = true) { return $this->extractModify($p_path, '', $p_preserve, $p_symlinks); } /** * @return array|int */ public function listContent() { $v_list_detail = array(); if ($this->_openRead()) { if (!$this->_extractList('', $v_list_detail, "list", '', '')) { unset($v_list_detail); $v_list_detail = 0; } $this->_close(); } return $v_list_detail; } /** * This method creates the archive file and add the files / directories * that are listed in $p_filelist. * If the file already exists and is writable, it is replaced by the * new tar. It is a create and not an add. If the file exists and is * read-only or is a directory it is not replaced. The method return * false and a PEAR error text. * The $p_filelist parameter can be an array of string, each string * representing a filename or a directory name with their path if * needed. It can also be a single string with names separated by a * single blank. * The path indicated in $p_remove_dir will be removed from the * memorized path of each file / directory listed when this path * exists. By default nothing is removed (empty path '') * The path indicated in $p_add_dir will be added at the beginning of * the memorized path of each file / directory listed. However it can * be set to empty ''. The adding of a path is done after the removing * of path. * The path add/remove ability enables the user to prepare an archive * for extraction in a different path than the origin files are. * See also addModify() method for file adding properties. * * @param array $p_filelist An array of filenames and directory names, * or a single string with names separated by * a single blank space. * @param string $p_add_dir A string which contains a path to be added * to the memorized path of each element in * the list. * @param string $p_remove_dir A string which contains a path to be * removed from the memorized path of each * element in the list, when relevant. * * @return boolean true on success, false on error. * @see addModify() */ public function createModify($p_filelist, $p_add_dir, $p_remove_dir = '') { $v_result = true; if (!$this->_openWrite()) { return false; } if ($p_filelist != '') { if (is_array($p_filelist)) { $v_list = $p_filelist; } elseif (is_string($p_filelist)) { $v_list = explode($this->_separator, $p_filelist); } else { $this->_cleanFile(); $this->_error('Invalid file list'); return false; } $v_result = $this->_addList($v_list, $p_add_dir, $p_remove_dir); } if ($v_result) { $this->_writeFooter(); $this->_close(); } else { $this->_cleanFile(); } return $v_result; } /** * This method add the files / directories listed in $p_filelist at the * end of the existing archive. If the archive does not yet exists it * is created. * The $p_filelist parameter can be an array of string, each string * representing a filename or a directory name with their path if * needed. It can also be a single string with names separated by a * single blank. * The path indicated in $p_remove_dir will be removed from the * memorized path of each file / directory listed when this path * exists. By default nothing is removed (empty path '') * The path indicated in $p_add_dir will be added at the beginning of * the memorized path of each file / directory listed. However it can * be set to empty ''. The adding of a path is done after the removing * of path. * The path add/remove ability enables the user to prepare an archive * for extraction in a different path than the origin files are. * If a file/dir is already in the archive it will only be added at the * end of the archive. There is no update of the existing archived * file/dir. However while extracting the archive, the last file will * replace the first one. This results in a none optimization of the * archive size. * If a file/dir does not exist the file/dir is ignored. However an * error text is send to PEAR error. * If a file/dir is not readable the file/dir is ignored. However an * error text is send to PEAR error. * * @param array $p_filelist An array of filenames and directory * names, or a single string with names * separated by a single blank space. * @param string $p_add_dir A string which contains a path to be * added to the memorized path of each * element in the list. * @param string $p_remove_dir A string which contains a path to be * removed from the memorized path of * each element in the list, when * relevant. * * @return bool true on success, false on error. */ public function addModify($p_filelist, $p_add_dir, $p_remove_dir = '') { $v_result = true; if (!$this->_isArchive()) { $v_result = $this->createModify( $p_filelist, $p_add_dir, $p_remove_dir ); } else { if (is_array($p_filelist)) { $v_list = $p_filelist; } elseif (is_string($p_filelist)) { $v_list = explode($this->_separator, $p_filelist); } else { $this->_error('Invalid file list'); return false; } $v_result = $this->_append($v_list, $p_add_dir, $p_remove_dir); } return $v_result; } /** * This method add a single string as a file at the * end of the existing archive. If the archive does not yet exists it * is created. * * @param string $p_filename A string which contains the full * filename path that will be associated * with the string. * @param string $p_string The content of the file added in * the archive. * @param bool|int $p_datetime A custom date/time (unix timestamp) * for the file (optional). * @param array $p_params An array of optional params: * stamp => the datetime (replaces * datetime above if it exists) * mode => the permissions on the * file (600 by default) * type => is this a link? See the * tar specification for details. * (default = regular file) * uid => the user ID of the file * (default = 0 = root) * gid => the group ID of the file * (default = 0 = root) * * @return bool true on success, false on error. */ public function addString($p_filename, $p_string, $p_datetime = false, $p_params = array()) { $p_stamp = @$p_params["stamp"] ? $p_params["stamp"] : ($p_datetime ? $p_datetime : time()); $p_mode = @$p_params["mode"] ? $p_params["mode"] : 0600; $p_type = @$p_params["type"] ? $p_params["type"] : ""; $p_uid = @$p_params["uid"] ? $p_params["uid"] : ""; $p_gid = @$p_params["gid"] ? $p_params["gid"] : ""; $v_result = true; if (!$this->_isArchive()) { if (!$this->_openWrite()) { return false; } $this->_close(); } if (!$this->_openAppend()) { return false; } // Need to check the get back to the temporary file ? .... $v_result = $this->_addString($p_filename, $p_string, $p_datetime, $p_params); $this->_writeFooter(); $this->_close(); return $v_result; } /** * This method extract all the content of the archive in the directory * indicated by $p_path. When relevant the memorized path of the * files/dir can be modified by removing the $p_remove_path path at the * beginning of the file/dir path. * While extracting a file, if the directory path does not exists it is * created. * While extracting a file, if the file already exists it is replaced * without looking for last modification date. * While extracting a file, if the file already exists and is write * protected, the extraction is aborted. * While extracting a file, if a directory with the same name already * exists, the extraction is aborted. * While extracting a directory, if a file with the same name already * exists, the extraction is aborted. * While extracting a file/directory if the destination directory exist * and is write protected, or does not exist but can not be created, * the extraction is aborted. * If after extraction an extracted file does not show the correct * stored file size, the extraction is aborted. * When the extraction is aborted, a PEAR error text is set and false * is returned. However the result can be a partial extraction that may * need to be manually cleaned. * * @param string $p_path The path of the directory where the * files/dir need to by extracted. * @param string $p_remove_path Part of the memorized path that can be * removed if present at the beginning of * the file/dir path. * @param boolean $p_preserve Preserve user/group ownership of files * @param boolean $p_symlinks Allow symlinks. * * @return boolean true on success, false on error. * @see extractList() */ public function extractModify($p_path, $p_remove_path, $p_preserve = false, $p_symlinks = true) { $v_result = true; $v_list_detail = array(); if ($v_result = $this->_openRead()) { $v_result = $this->_extractList( $p_path, $v_list_detail, "complete", 0, $p_remove_path, $p_preserve, $p_symlinks ); $this->_close(); } return $v_result; } /** * This method extract from the archive one file identified by $p_filename. * The return value is a string with the file content, or NULL on error. * * @param string $p_filename The path of the file to extract in a string. * * @return a string with the file content or NULL. */ public function extractInString($p_filename) { if ($this->_openRead()) { $v_result = $this->_extractInString($p_filename); $this->_close(); } else { $v_result = null; } return $v_result; } /** * This method extract from the archive only the files indicated in the * $p_filelist. These files are extracted in the current directory or * in the directory indicated by the optional $p_path parameter. * If indicated the $p_remove_path can be used in the same way as it is * used in extractModify() method. * * @param array $p_filelist An array of filenames and directory names, * or a single string with names separated * by a single blank space. * @param string $p_path The path of the directory where the * files/dir need to by extracted. * @param string $p_remove_path Part of the memorized path that can be * removed if present at the beginning of * the file/dir path. * @param boolean $p_preserve Preserve user/group ownership of files * @param boolean $p_symlinks Allow symlinks. * * @return bool true on success, false on error. * @see extractModify() */ public function extractList($p_filelist, $p_path = '', $p_remove_path = '', $p_preserve = false, $p_symlinks = true) { $v_result = true; $v_list_detail = array(); if (is_array($p_filelist)) { $v_list = $p_filelist; } elseif (is_string($p_filelist)) { $v_list = explode($this->_separator, $p_filelist); } else { $this->_error('Invalid string list'); return false; } if ($v_result = $this->_openRead()) { $v_result = $this->_extractList( $p_path, $v_list_detail, "partial", $v_list, $p_remove_path, $p_preserve, $p_symlinks ); $this->_close(); } return $v_result; } /** * This method set specific attributes of the archive. It uses a variable * list of parameters, in the format attribute code + attribute values : * $arch->setAttribute(ARCHIVE_TAR_ATT_SEPARATOR, ','); * * @return bool true on success, false on error. */ public function setAttribute() { $v_result = true; // ----- Get the number of variable list of arguments if (($v_size = func_num_args()) == 0) { return true; } // ----- Get the arguments $v_att_list = func_get_args(); // ----- Read the attributes $i = 0; while ($i < $v_size) { // ----- Look for next option switch ($v_att_list[$i]) { // ----- Look for options that request a string value case ARCHIVE_TAR_ATT_SEPARATOR : // ----- Check the number of parameters if (($i + 1) >= $v_size) { $this->_error( 'Invalid number of parameters for ' . 'attribute ARCHIVE_TAR_ATT_SEPARATOR' ); return false; } // ----- Get the value $this->_separator = $v_att_list[$i + 1]; $i++; break; default : $this->_error('Unknown attribute code ' . $v_att_list[$i] . ''); return false; } // ----- Next attribute $i++; } return $v_result; } /** * This method sets the regular expression for ignoring files and directories * at import, for example: * $arch->setIgnoreRegexp("#CVS|\.svn#"); * * @param string $regexp regular expression defining which files or directories to ignore */ public function setIgnoreRegexp($regexp) { $this->_ignore_regexp = $regexp; } /** * This method sets the regular expression for ignoring all files and directories * matching the filenames in the array list at import, for example: * $arch->setIgnoreList(array('CVS', '.svn', 'bin/tool')); * * @param array $list a list of file or directory names to ignore * * @access public */ public function setIgnoreList($list) { $list = str_replace(array('#', '.', '^', '$'), array('\#', '\.', '\^', '\$'), $list); $regexp = '#/' . join('$|/', $list) . '#'; $this->setIgnoreRegexp($regexp); } /** * @param string $p_message */ public function _error($p_message) { $this->error_object = $this->raiseError($p_message); } /** * @param string $p_message */ public function _warning($p_message) { $this->error_object = $this->raiseError($p_message); } /** * @param string $p_filename * @return bool */ public function _isArchive($p_filename = null) { if ($p_filename == null) { $p_filename = $this->_tarname; } clearstatcache(); return @is_file($p_filename) && !@is_link($p_filename); } /** * @return bool */ public function _openWrite() { if ($this->_compress_type == 'gz' && function_exists('gzopen')) { $this->_file = @gzopen($this->_tarname, "wb9"); } else { if ($this->_compress_type == 'bz2' && function_exists('bzopen')) { $this->_file = @bzopen($this->_tarname, "w"); } else { if ($this->_compress_type == 'lzma2' && function_exists('xzopen')) { $this->_file = @xzopen($this->_tarname, 'w'); } else { if ($this->_compress_type == 'none') { $this->_file = @fopen($this->_tarname, "wb"); } else { $this->_error( 'Unknown or missing compression type (' . $this->_compress_type . ')' ); return false; } } } } if ($this->_file == 0) { $this->_error( 'Unable to open in write mode \'' . $this->_tarname . '\'' ); return false; } return true; } /** * @return bool */ public function _openRead() { if (strtolower(substr($this->_tarname, 0, 7)) == 'http://') { // ----- Look if a local copy need to be done if ($this->_temp_tarname == '') { $this->_temp_tarname = uniqid('tar') . '.tmp'; if (!$v_file_from = @fopen($this->_tarname, 'rb')) { $this->_error( 'Unable to open in read mode \'' . $this->_tarname . '\'' ); $this->_temp_tarname = ''; return false; } if (!$v_file_to = @fopen($this->_temp_tarname, 'wb')) { $this->_error( 'Unable to open in write mode \'' . $this->_temp_tarname . '\'' ); $this->_temp_tarname = ''; return false; } while ($v_data = @fread($v_file_from, 1024)) { @fwrite($v_file_to, $v_data); } @fclose($v_file_from); @fclose($v_file_to); } // ----- File to open if the local copy $v_filename = $this->_temp_tarname; } else { // ----- File to open if the normal Tar file $v_filename = $this->_tarname; } if ($this->_compress_type == 'gz' && function_exists('gzopen')) { $this->_file = @gzopen($v_filename, "rb"); } else { if ($this->_compress_type == 'bz2' && function_exists('bzopen')) { $this->_file = @bzopen($v_filename, "r"); } else { if ($this->_compress_type == 'lzma2' && function_exists('xzopen')) { $this->_file = @xzopen($v_filename, "r"); } else { if ($this->_compress_type == 'none') { $this->_file = @fopen($v_filename, "rb"); } else { $this->_error( 'Unknown or missing compression type (' . $this->_compress_type . ')' ); return false; } } } } if ($this->_file == 0) { $this->_error('Unable to open in read mode \'' . $v_filename . '\''); return false; } return true; } /** * @return bool */ public function _openReadWrite() { if ($this->_compress_type == 'gz') { $this->_file = @gzopen($this->_tarname, "r+b"); } else { if ($this->_compress_type == 'bz2') { $this->_error( 'Unable to open bz2 in read/write mode \'' . $this->_tarname . '\' (limitation of bz2 extension)' ); return false; } else { if ($this->_compress_type == 'lzma2') { $this->_error( 'Unable to open lzma2 in read/write mode \'' . $this->_tarname . '\' (limitation of lzma2 extension)' ); return false; } else { if ($this->_compress_type == 'none') { $this->_file = @fopen($this->_tarname, "r+b"); } else { $this->_error( 'Unknown or missing compression type (' . $this->_compress_type . ')' ); return false; } } } } if ($this->_file == 0) { $this->_error( 'Unable to open in read/write mode \'' . $this->_tarname . '\'' ); return false; } return true; } /** * @return bool */ public function _close() { //if (isset($this->_file)) { if (is_resource($this->_file)) { if ($this->_compress_type == 'gz') { @gzclose($this->_file); } else { if ($this->_compress_type == 'bz2') { @bzclose($this->_file); } else { if ($this->_compress_type == 'lzma2') { @xzclose($this->_file); } else { if ($this->_compress_type == 'none') { @fclose($this->_file); } else { $this->_error( 'Unknown or missing compression type (' . $this->_compress_type . ')' ); } } } } $this->_file = 0; } // ----- Look if a local copy need to be erase // Note that it might be interesting to keep the url for a time : ToDo if ($this->_temp_tarname != '') { @unlink($this->_temp_tarname); $this->_temp_tarname = ''; } return true; } /** * @return bool */ public function _cleanFile() { $this->_close(); // ----- Look for a local copy if ($this->_temp_tarname != '') { // ----- Remove the local copy but not the remote tarname @unlink($this->_temp_tarname); $this->_temp_tarname = ''; } else { // ----- Remove the local tarname file @unlink($this->_tarname); } $this->_tarname = ''; return true; } /** * @param mixed $p_binary_data * @param integer $p_len * @return bool */ public function _writeBlock($p_binary_data, $p_len = null) { if (is_resource($this->_file)) { if ($p_len === null) { switch ($this->_compress_type) { case 'gz': $bytes = @gzwrite($this->_file, $p_binary_data); break; case 'bz2': $bytes = @bzwrite($this->_file, $p_binary_data); break; case 'lzma2': $bytes = @xzwrite($this->_file, $p_binary_data); break; case 'none': $bytes = @fwrite($this->_file, $p_binary_data); break; default: $this->_error('Unknown or missing compression type (' . $this->_compress_type . ')'); return false; } } else { switch ($this->_compress_type) { case 'gz': $bytes = @gzwrite($this->_file, $p_binary_data, $p_len); break; case 'bz2': $bytes = @bzwrite($this->_file, $p_binary_data, $p_len); break; case 'lzma2': $bytes = @xzwrite($this->_file, $p_binary_data, $p_len); break; case 'none': $bytes = @fwrite($this->_file, $p_binary_data, $p_len); break; default: $this->_error('Unknown or missing compression type (' . $this->_compress_type . ')'); return false; } } return $bytes !== false; } return true; } /** * @return null|string */ public function _readBlock() { $v_block = null; if (is_resource($this->_file)) { if ($this->_compress_type == 'gz') { $v_block = @gzread($this->_file, 512); } else { if ($this->_compress_type == 'bz2') { $v_block = @bzread($this->_file, 512); } else { if ($this->_compress_type == 'lzma2') { $v_block = @xzread($this->_file, 512); } else { if ($this->_compress_type == 'none') { $v_block = @fread($this->_file, 512); } else { $this->_error( 'Unknown or missing compression type (' . $this->_compress_type . ')' ); } } } } } return $v_block; } /** * @param null $p_len * @return bool */ public function _jumpBlock($p_len = null) { if (is_resource($this->_file)) { if ($p_len === null) { $p_len = 1; } if ($this->_compress_type == 'gz') { @gzseek($this->_file, gztell($this->_file) + ($p_len * 512)); } else { if ($this->_compress_type == 'bz2') { // ----- Replace missing bztell() and bzseek() for ($i = 0; $i < $p_len; $i++) { $this->_readBlock(); } } else { if ($this->_compress_type == 'lzma2') { // ----- Replace missing xztell() and xzseek() for ($i = 0; $i < $p_len; $i++) { $this->_readBlock(); } } else { if ($this->_compress_type == 'none') { @fseek($this->_file, $p_len * 512, SEEK_CUR); } else { $this->_error( 'Unknown or missing compression type (' . $this->_compress_type . ')' ); } } } } } return true; } /** * @return bool */ public function _writeFooter() { if (is_resource($this->_file)) { // ----- Write the last 0 filled block for end of archive $v_binary_data = pack('a1024', ''); return $this->_writeBlock($v_binary_data); } return true; } /** * @param array $p_list * @param string $p_add_dir * @param string $p_remove_dir * @return bool */ public function _addList($p_list, $p_add_dir, $p_remove_dir) { $v_result = true; $v_header = array(); // ----- Remove potential windows directory separator $p_add_dir = $this->_translateWinPath($p_add_dir); $p_remove_dir = $this->_translateWinPath($p_remove_dir, false); if (!$this->_file) { $this->_error('Invalid file descriptor'); return false; } if (sizeof($p_list) == 0) { return true; } foreach ($p_list as $v_filename) { if (!$v_result) { break; } // ----- Skip the current tar name if ($v_filename == $this->_tarname) { continue; } if ($v_filename == '') { continue; } // ----- ignore files and directories matching the ignore regular expression if ($this->_ignore_regexp && preg_match($this->_ignore_regexp, '/' . $v_filename)) { $this->_warning("File '$v_filename' ignored"); continue; } if (!file_exists($v_filename) && !is_link($v_filename)) { $this->_warning("File '$v_filename' does not exist"); continue; } // ----- Add the file or directory header if (!$this->_addFile($v_filename, $v_header, $p_add_dir, $p_remove_dir)) { return false; } if (@is_dir($v_filename) && !@is_link($v_filename)) { if (!($p_hdir = opendir($v_filename))) { $this->_warning("Directory '$v_filename' can not be read"); continue; } while (false !== ($p_hitem = readdir($p_hdir))) { if (($p_hitem != '.') && ($p_hitem != '..')) { if ($v_filename != ".") { $p_temp_list[0] = $v_filename . '/' . $p_hitem; } else { $p_temp_list[0] = $p_hitem; } $v_result = $this->_addList( $p_temp_list, $p_add_dir, $p_remove_dir ); } } unset($p_temp_list); unset($p_hdir); unset($p_hitem); } } return $v_result; } /** * @param string $p_filename * @param mixed $p_header * @param string $p_add_dir * @param string $p_remove_dir * @param null $v_stored_filename * @return bool */ public function _addFile($p_filename, &$p_header, $p_add_dir, $p_remove_dir, $v_stored_filename = null) { if (!$this->_file) { $this->_error('Invalid file descriptor'); return false; } if ($p_filename == '') { $this->_error('Invalid file name'); return false; } if (is_null($v_stored_filename)) { // ----- Calculate the stored filename $p_filename = $this->_translateWinPath($p_filename, false); $v_stored_filename = $p_filename; if (strcmp($p_filename, $p_remove_dir) == 0) { return true; } if ($p_remove_dir != '') { if (substr($p_remove_dir, -1) != '/') { $p_remove_dir .= '/'; } if (substr($p_filename, 0, strlen($p_remove_dir)) == $p_remove_dir) { $v_stored_filename = substr($p_filename, strlen($p_remove_dir)); } } $v_stored_filename = $this->_translateWinPath($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 = $this->_pathReduction($v_stored_filename); } if ($this->_isArchive($p_filename)) { if (($v_file = @fopen($p_filename, "rb")) == 0) { $this->_warning( "Unable to open file '" . $p_filename . "' in binary read mode" ); return true; } if (!$this->_writeHeader($p_filename, $v_stored_filename)) { return false; } while (($v_buffer = fread($v_file, $this->buffer_length)) != '') { $buffer_length = strlen("$v_buffer"); if ($buffer_length != $this->buffer_length) { $pack_size = ((int)($buffer_length / 512) + ($buffer_length % 512 !== 0 ? 1 : 0)) * 512; $pack_format = sprintf('a%d', $pack_size); } else { $pack_format = sprintf('a%d', $this->buffer_length); } $v_binary_data = pack($pack_format, "$v_buffer"); if(!$this->_writeBlock($v_binary_data)) { return false; } } fclose($v_file); } else { // ----- Only header for dir if (!$this->_writeHeader($p_filename, $v_stored_filename)) { return false; } } return true; } /** * @param string $p_filename * @param string $p_string * @param bool $p_datetime * @param array $p_params * @return bool */ public function _addString($p_filename, $p_string, $p_datetime = false, $p_params = array()) { $p_stamp = @$p_params["stamp"] ? $p_params["stamp"] : ($p_datetime ? $p_datetime : time()); $p_mode = @$p_params["mode"] ? $p_params["mode"] : 0600; $p_type = @$p_params["type"] ? $p_params["type"] : ""; $p_uid = @$p_params["uid"] ? $p_params["uid"] : 0; $p_gid = @$p_params["gid"] ? $p_params["gid"] : 0; if (!$this->_file) { $this->_error('Invalid file descriptor'); return false; } if ($p_filename == '') { $this->_error('Invalid file name'); return false; } // ----- Calculate the stored filename $p_filename = $this->_translateWinPath($p_filename, false); // ----- If datetime is not specified, set current time if ($p_datetime === false) { $p_datetime = time(); } if (!$this->_writeHeaderBlock( $p_filename, strlen($p_string), $p_stamp, $p_mode, $p_type, $p_uid, $p_gid ) ) { return false; } $i = 0; while (($v_buffer = substr($p_string, (($i++) * 512), 512)) != '') { $v_binary_data = pack("a512", $v_buffer); if (!$this->_writeBlock($v_binary_data)) { return false; } } return true; } /** * @param string $p_filename * @param string $p_stored_filename * @return bool */ public function _writeHeader($p_filename, $p_stored_filename) { if ($p_stored_filename == '') { $p_stored_filename = $p_filename; } $v_reduced_filename = $this->_pathReduction($p_stored_filename); if (strlen($v_reduced_filename) > 99) { if (!$this->_writeLongHeader($v_reduced_filename, false)) { return false; } } $v_linkname = ''; if (@is_link($p_filename)) { $v_linkname = readlink($p_filename); } if (strlen($v_linkname) > 99) { if (!$this->_writeLongHeader($v_linkname, true)) { return false; } } $v_info = lstat($p_filename); $v_uid = sprintf("%07s", DecOct($v_info[4])); $v_gid = sprintf("%07s", DecOct($v_info[5])); $v_perms = sprintf("%07s", DecOct($v_info['mode'] & 000777)); $v_mtime = sprintf("%011s", DecOct($v_info['mtime'])); if (@is_link($p_filename)) { $v_typeflag = '2'; $v_size = sprintf("%011s", DecOct(0)); } elseif (@is_dir($p_filename)) { $v_typeflag = "5"; $v_size = sprintf("%011s", DecOct(0)); } else { $v_typeflag = '0'; clearstatcache(); $v_size = sprintf("%011s", DecOct($v_info['size'])); } $v_magic = 'ustar '; $v_version = ' '; $v_uname = ''; $v_gname = ''; if (function_exists('posix_getpwuid')) { $userinfo = posix_getpwuid($v_info[4]); $groupinfo = posix_getgrgid($v_info[5]); if (isset($userinfo['name'])) { $v_uname = $userinfo['name']; } if (isset($groupinfo['name'])) { $v_gname = $groupinfo['name']; } } $v_devmajor = ''; $v_devminor = ''; $v_prefix = ''; $v_binary_data_first = pack( "a100a8a8a8a12a12", $v_reduced_filename, $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, '' ); // ----- Calculate the checksum $v_checksum = 0; // ..... First part of the header for ($i = 0; $i < 148; $i++) { $v_checksum += ord(substr($v_binary_data_first, $i, 1)); } // ..... Ignore the checksum value and replace it by ' ' (space) for ($i = 148; $i < 156; $i++) { $v_checksum += ord(' '); } // ..... Last part of the header for ($i = 156, $j = 0; $i < 512; $i++, $j++) { $v_checksum += ord(substr($v_binary_data_last, $j, 1)); } // ----- Write the first 148 bytes of the header in the archive $this->_writeBlock($v_binary_data_first, 148); // ----- Write the calculated checksum $v_checksum = sprintf("%06s\0 ", DecOct($v_checksum)); $v_binary_data = pack("a8", $v_checksum); $this->_writeBlock($v_binary_data, 8); // ----- Write the last 356 bytes of the header in the archive $this->_writeBlock($v_binary_data_last, 356); return true; } /** * @param string $p_filename * @param int $p_size * @param int $p_mtime * @param int $p_perms * @param string $p_type * @param int $p_uid * @param int $p_gid * @return bool */ public function _writeHeaderBlock( $p_filename, $p_size, $p_mtime = 0, $p_perms = 0, $p_type = '', $p_uid = 0, $p_gid = 0 ) { $p_filename = $this->_pathReduction($p_filename); if (strlen($p_filename) > 99) { if (!$this->_writeLongHeader($p_filename, false)) { return false; } } if ($p_type == "5") { $v_size = sprintf("%011s", DecOct(0)); } else { $v_size = sprintf("%011s", DecOct($p_size)); } $v_uid = sprintf("%07s", DecOct($p_uid)); $v_gid = sprintf("%07s", DecOct($p_gid)); $v_perms = sprintf("%07s", DecOct($p_perms & 000777)); $v_mtime = sprintf("%11s", DecOct($p_mtime)); $v_linkname = ''; $v_magic = 'ustar '; $v_version = ' '; if (function_exists('posix_getpwuid')) { $userinfo = posix_getpwuid($p_uid); $groupinfo = posix_getgrgid($p_gid); if ($userinfo === false || $groupinfo === false) { $v_uname = ''; $v_gname = ''; } else { $v_uname = $userinfo['name']; $v_gname = $groupinfo['name']; } } else { $v_uname = ''; $v_gname = ''; } $v_devmajor = ''; $v_devminor = ''; $v_prefix = ''; $v_binary_data_first = pack( "a100a8a8a8a12A12", $p_filename, $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, '' ); // ----- Calculate the checksum $v_checksum = 0; // ..... First part of the header for ($i = 0; $i < 148; $i++) { $v_checksum += ord(substr($v_binary_data_first, $i, 1)); } // ..... Ignore the checksum value and replace it by ' ' (space) for ($i = 148; $i < 156; $i++) { $v_checksum += ord(' '); } // ..... Last part of the header for ($i = 156, $j = 0; $i < 512; $i++, $j++) { $v_checksum += ord(substr($v_binary_data_last, $j, 1)); } // ----- Write the first 148 bytes of the header in the archive $this->_writeBlock($v_binary_data_first, 148); // ----- Write the calculated checksum $v_checksum = sprintf("%06s ", DecOct($v_checksum)); $v_binary_data = pack("a8", $v_checksum); $this->_writeBlock($v_binary_data, 8); // ----- Write the last 356 bytes of the header in the archive $this->_writeBlock($v_binary_data_last, 356); return true; } /** * @param string $p_filename * @return bool */ public function _writeLongHeader($p_filename, $is_link = false) { $v_uid = sprintf("%07s", 0); $v_gid = sprintf("%07s", 0); $v_perms = sprintf("%07s", 0); $v_size = sprintf("%'011s", DecOct(strlen($p_filename))); $v_mtime = sprintf("%011s", 0); $v_typeflag = ($is_link ? 'K' : 'L'); $v_linkname = ''; $v_magic = 'ustar '; $v_version = ' '; $v_uname = ''; $v_gname = ''; $v_devmajor = ''; $v_devminor = ''; $v_prefix = ''; $v_binary_data_first = pack( "a100a8a8a8a12a12", '././@LongLink', $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, '' ); // ----- Calculate the checksum $v_checksum = 0; // ..... First part of the header for ($i = 0; $i < 148; $i++) { $v_checksum += ord(substr($v_binary_data_first, $i, 1)); } // ..... Ignore the checksum value and replace it by ' ' (space) for ($i = 148; $i < 156; $i++) { $v_checksum += ord(' '); } // ..... Last part of the header for ($i = 156, $j = 0; $i < 512; $i++, $j++) { $v_checksum += ord(substr($v_binary_data_last, $j, 1)); } // ----- Write the first 148 bytes of the header in the archive $this->_writeBlock($v_binary_data_first, 148); // ----- Write the calculated checksum $v_checksum = sprintf("%06s\0 ", DecOct($v_checksum)); $v_binary_data = pack("a8", $v_checksum); $this->_writeBlock($v_binary_data, 8); // ----- Write the last 356 bytes of the header in the archive $this->_writeBlock($v_binary_data_last, 356); // ----- Write the filename as content of the block $i = 0; while (($v_buffer = substr($p_filename, (($i++) * 512), 512)) != '') { $v_binary_data = pack("a512", "$v_buffer"); $this->_writeBlock($v_binary_data); } return true; } /** * @param mixed $v_binary_data * @param mixed $v_header * @return bool */ public function _readHeader($v_binary_data, &$v_header) { if (strlen($v_binary_data) == 0) { $v_header['filename'] = ''; return true; } if (strlen($v_binary_data) != 512) { $v_header['filename'] = ''; $this->_error('Invalid block size : ' . strlen($v_binary_data)); return false; } if (!is_array($v_header)) { $v_header = array(); } // ----- Calculate the checksum $v_checksum = 0; // ..... First part of the header $v_binary_split = str_split($v_binary_data); $v_checksum += array_sum(array_map('ord', array_slice($v_binary_split, 0, 148))); $v_checksum += array_sum(array_map('ord', array(' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ',))); $v_checksum += array_sum(array_map('ord', array_slice($v_binary_split, 156, 512))); $v_data = unpack($this->_fmt, $v_binary_data); if (strlen($v_data["prefix"]) > 0) { $v_data["filename"] = "$v_data[prefix]/$v_data[filename]"; } // ----- Extract the checksum $v_data_checksum = trim($v_data['checksum']); if (!preg_match('/^[0-7]*$/', $v_data_checksum)) { $this->_error( 'Invalid checksum for file "' . $v_data['filename'] . '" : ' . $v_data_checksum . ' extracted' ); return false; } $v_header['checksum'] = OctDec($v_data_checksum); if ($v_header['checksum'] != $v_checksum) { $v_header['filename'] = ''; // ----- Look for last block (empty block) if (($v_checksum == 256) && ($v_header['checksum'] == 0)) { return true; } $this->_error( 'Invalid checksum for file "' . $v_data['filename'] . '" : ' . $v_checksum . ' calculated, ' . $v_header['checksum'] . ' expected' ); return false; } // ----- Extract the properties $v_header['filename'] = rtrim($v_data['filename'], "\0"); if ($this->_isMaliciousFilename($v_header['filename'])) { $this->_error( 'Malicious .tar detected, file "' . $v_header['filename'] . '" will not install in desired directory tree' ); return false; } $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'] = $this->_tarRecToSize($v_data['size']); $v_header['mtime'] = OctDec(trim($v_data['mtime'])); if (($v_header['typeflag'] = $v_data['typeflag']) == "5") { $v_header['size'] = 0; } $v_header['link'] = trim($v_data['link']); /* ----- All these fields are removed form the header because they do not carry interesting info $v_header[magic] = trim($v_data[magic]); $v_header[version] = trim($v_data[version]); $v_header[uname] = trim($v_data[uname]); $v_header[gname] = trim($v_data[gname]); $v_header[devmajor] = trim($v_data[devmajor]); $v_header[devminor] = trim($v_data[devminor]); */ return true; } /** * Convert Tar record size to actual size * * @param string $tar_size * @return size of tar record in bytes */ private function _tarRecToSize($tar_size) { /* * First byte of size has a special meaning if bit 7 is set. * * Bit 7 indicates base-256 encoding if set. * Bit 6 is the sign bit. * Bits 5:0 are most significant value bits. */ $ch = ord($tar_size[0]); if ($ch & 0x80) { // Full 12-bytes record is required. $rec_str = $tar_size . "\x00"; $size = ($ch & 0x40) ? -1 : 0; $size = ($size << 6) | ($ch & 0x3f); for ($num_ch = 1; $num_ch < 12; ++$num_ch) { $size = ($size * 256) + ord($rec_str[$num_ch]); } return $size; } else { return OctDec(trim($tar_size)); } } /** * Detect and report a malicious file name * * @param string $file * * @return bool */ private function _isMaliciousFilename($file) { if (strpos($file, '://') !== false) { return true; } if (strpos($file, '../') !== false || strpos($file, '..\\') !== false) { return true; } return false; } /** * @param $v_header * @return bool */ public function _readLongHeader(&$v_header) { $v_filename = ''; $v_filesize = $v_header['size']; $n = floor($v_header['size'] / 512); for ($i = 0; $i < $n; $i++) { $v_content = $this->_readBlock(); $v_filename .= $v_content; } if (($v_header['size'] % 512) != 0) { $v_content = $this->_readBlock(); $v_filename .= $v_content; } // ----- Read the next header $v_binary_data = $this->_readBlock(); if (!$this->_readHeader($v_binary_data, $v_header)) { return false; } $v_filename = rtrim(substr($v_filename, 0, $v_filesize), "\0"); $v_header['filename'] = $v_filename; if ($this->_isMaliciousFilename($v_filename)) { $this->_error( 'Malicious .tar detected, file "' . $v_filename . '" will not install in desired directory tree' ); return false; } return true; } /** * This method extract from the archive one file identified by $p_filename. * The return value is a string with the file content, or null on error. * * @param string $p_filename The path of the file to extract in a string. * * @return a string with the file content or null. */ private function _extractInString($p_filename) { $v_result_str = ""; while (strlen($v_binary_data = $this->_readBlock()) != 0) { if (!$this->_readHeader($v_binary_data, $v_header)) { return null; } if ($v_header['filename'] == '') { continue; } switch ($v_header['typeflag']) { case 'L': { if (!$this->_readLongHeader($v_header)) { return null; } } break; case 'K': { $v_link_header = $v_header; if (!$this->_readLongHeader($v_link_header)) { return null; } $v_header['link'] = $v_link_header['filename']; } break; } if ($v_header['filename'] == $p_filename) { if ($v_header['typeflag'] == "5") { $this->_error( 'Unable to extract in string a directory ' . 'entry {' . $v_header['filename'] . '}' ); return null; } else { $n = floor($v_header['size'] / 512); for ($i = 0; $i < $n; $i++) { $v_result_str .= $this->_readBlock(); } if (($v_header['size'] % 512) != 0) { $v_content = $this->_readBlock(); $v_result_str .= substr( $v_content, 0, ($v_header['size'] % 512) ); } return $v_result_str; } } else { $this->_jumpBlock(ceil(($v_header['size'] / 512))); } } return null; } /** * @param string $p_path * @param string $p_list_detail * @param string $p_mode * @param string $p_file_list * @param string $p_remove_path * @param bool $p_preserve * @param bool $p_symlinks * @return bool */ public function _extractList( $p_path, &$p_list_detail, $p_mode, $p_file_list, $p_remove_path, $p_preserve = false, $p_symlinks = true ) { $v_result = true; $v_nb = 0; $v_extract_all = true; $v_listing = false; $p_path = $this->_translateWinPath($p_path, false); if ($p_path == '' || (substr($p_path, 0, 1) != '/' && substr($p_path, 0, 3) != "../" && !strpos($p_path, ':')) ) { $p_path = "./" . $p_path; } $p_remove_path = $this->_translateWinPath($p_remove_path); // ----- Look for path to remove format (should end by /) 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->_error('Invalid extract mode (' . $p_mode . ')'); return false; } clearstatcache(); while (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; } switch ($v_header['typeflag']) { case 'L': { if (!$this->_readLongHeader($v_header)) { return null; } } break; case 'K': { $v_link_header = $v_header; if (!$this->_readLongHeader($v_link_header)) { return null; } $v_header['link'] = $v_link_header['filename']; } break; } // ignore extended / pax headers if ($v_header['typeflag'] == 'x' || $v_header['typeflag'] == 'g') { $this->_jumpBlock(ceil(($v_header['size'] / 512))); continue; } 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 < sizeof($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; } } // ----- It is a file, so compare the file names elseif ($p_file_list[$i] == $v_header['filename']) { $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 ($v_header['filename'] == '') { continue; } } 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->_error( 'File ' . $v_header['filename'] . ' already exists as a directory' ); return false; } if (($this->_isArchive($v_header['filename'])) && ($v_header['typeflag'] == "5") ) { $this->_error( 'Directory ' . $v_header['filename'] . ' already exists as a file' ); return false; } if (!is_writeable($v_header['filename'])) { $this->_error( 'File ' . $v_header['filename'] . ' already exists and is write protected' ); return false; } if (filemtime($v_header['filename']) > $v_header['mtime']) { // To be completed : An error or silent no replace ? } } // ----- Check the directory availability and create it if necessary elseif (($v_result = $this->_dirCheck( ($v_header['typeflag'] == "5" ? $v_header['filename'] : dirname($v_header['filename'])) )) != 1 ) { $this->_error('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'], 0775)) { $this->_error( 'Unable to create directory {' . $v_header['filename'] . '}' ); return false; } } } elseif ($v_header['typeflag'] == "2") { if (!$p_symlinks) { $this->_warning('Symbolic links are not allowed. ' . 'Unable to extract {' . $v_header['filename'] . '}' ); return false; } $absolute_link = FALSE; $link_depth = 0; if (strpos($v_header['link'], "/") === 0 || strpos($v_header['link'], ':') !== FALSE) { $absolute_link = TRUE; } else { $s_filename = preg_replace('@^' . preg_quote($p_path) . '@', "", $v_header['filename']); $s_linkname = str_replace('\\', '/', $v_header['link']); foreach (explode("/", $s_filename) as $dir) { if ($dir === "..") { $link_depth--; } elseif ($dir !== "" && $dir !== "." ) { $link_depth++; } } foreach (explode("/", $s_linkname) as $dir){ if ($link_depth <= 0) { break; } if ($dir === "..") { $link_depth--; } elseif ($dir !== "" && $dir !== ".") { $link_depth++; } } } if ($absolute_link || $link_depth <= 0) { $this->_error( 'Out-of-path file extraction {' . $v_header['filename'] . ' --> ' . $v_header['link'] . '}' ); return false; } if (@file_exists($v_header['filename'])) { @unlink($v_header['filename']); } if (!@symlink($v_header['link'], $v_header['filename'])) { $this->_error( 'Unable to extract symbolic link {' . $v_header['filename'] . '}' ); return false; } } else { if (($v_dest_file = @fopen($v_header['filename'], "wb")) == 0) { $this->_error( '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); if ($p_preserve) { @chown($v_header['filename'], $v_header['uid']); @chgrp($v_header['filename'], $v_header['gid']); } // ----- Change the file mode, mtime @touch($v_header['filename'], $v_header['mtime']); if ($v_header['mode'] & 0111) { // make file executable, obey umask $mode = fileperms($v_header['filename']) | (~umask() & 0111); @chmod($v_header['filename'], $mode); } } // ----- Check the file size clearstatcache(); if (!is_file($v_header['filename'])) { $this->_error( 'Extracted file ' . $v_header['filename'] . 'does not exist. Archive may be corrupted.' ); return false; } $filesize = filesize($v_header['filename']); if ($filesize != $v_header['size']) { $this->_error( 'Extracted file ' . $v_header['filename'] . ' does not have the correct file size \'' . $filesize . '\' (' . $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))); } /* TBC : Seems to be unused ... if ($this->_compress) $v_end_of_file = @gzeof($this->_file); else $v_end_of_file = @feof($this->_file); */ if ($v_listing || $v_extract_file || $v_extraction_stopped) { // ----- Log extracted files 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; if (is_array($p_file_list) && (count($p_list_detail) == count($p_file_list))) { return true; } } } return true; } /** * @return bool */ public function _openAppend() { if (filesize($this->_tarname) == 0) { return $this->_openWrite(); } 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 ($this->_compress_type == 'gz') { $v_temp_tar = @gzopen($this->_tarname . ".tmp", "rb"); } elseif ($this->_compress_type == 'bz2') { $v_temp_tar = @bzopen($this->_tarname . ".tmp", "r"); } elseif ($this->_compress_type == 'lzma2') { $v_temp_tar = @xzopen($this->_tarname . ".tmp", "r"); } if ($v_temp_tar == 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; } if ($this->_compress_type == 'gz') { $end_blocks = 0; while (!@gzeof($v_temp_tar)) { $v_buffer = @gzread($v_temp_tar, 512); if ($v_buffer == ARCHIVE_TAR_END_BLOCK || strlen($v_buffer) == 0) { $end_blocks++; // do not copy end blocks, we will re-make them // after appending continue; } elseif ($end_blocks > 0) { for ($i = 0; $i < $end_blocks; $i++) { $this->_writeBlock(ARCHIVE_TAR_END_BLOCK); } $end_blocks = 0; } $v_binary_data = pack("a512", $v_buffer); $this->_writeBlock($v_binary_data); } @gzclose($v_temp_tar); } elseif ($this->_compress_type == 'bz2') { $end_blocks = 0; while (strlen($v_buffer = @bzread($v_temp_tar, 512)) > 0) { if ($v_buffer == ARCHIVE_TAR_END_BLOCK || strlen($v_buffer) == 0) { $end_blocks++; // do not copy end blocks, we will re-make them // after appending continue; } elseif ($end_blocks > 0) { for ($i = 0; $i < $end_blocks; $i++) { $this->_writeBlock(ARCHIVE_TAR_END_BLOCK); } $end_blocks = 0; } $v_binary_data = pack("a512", $v_buffer); $this->_writeBlock($v_binary_data); } @bzclose($v_temp_tar); } elseif ($this->_compress_type == 'lzma2') { $end_blocks = 0; while (strlen($v_buffer = @xzread($v_temp_tar, 512)) > 0) { if ($v_buffer == ARCHIVE_TAR_END_BLOCK || strlen($v_buffer) == 0) { $end_blocks++; // do not copy end blocks, we will re-make them // after appending continue; } elseif ($end_blocks > 0) { for ($i = 0; $i < $end_blocks; $i++) { $this->_writeBlock(ARCHIVE_TAR_END_BLOCK); } $end_blocks = 0; } $v_binary_data = pack("a512", $v_buffer); $this->_writeBlock($v_binary_data); } @xzclose($v_temp_tar); } if (!@unlink($this->_tarname . ".tmp")) { $this->_error( 'Error while deleting temporary file \'' . $this->_tarname . '.tmp\'' ); } } else { // ----- For not compressed tar, just add files before the last // one or two 512 bytes block if (!$this->_openReadWrite()) { return false; } clearstatcache(); $v_size = filesize($this->_tarname); // We might have zero, one or two end blocks. // The standard is two, but we should try to handle // other cases. fseek($this->_file, $v_size - 1024); if (fread($this->_file, 512) == ARCHIVE_TAR_END_BLOCK) { fseek($this->_file, $v_size - 1024); } elseif (fread($this->_file, 512) == ARCHIVE_TAR_END_BLOCK) { fseek($this->_file, $v_size - 512); } } return true; } /** * @param $p_filelist * @param string $p_add_dir * @param string $p_remove_dir * @return bool */ public function _append($p_filelist, $p_add_dir = '', $p_remove_dir = '') { if (!$this->_openAppend()) { return false; } if ($this->_addList($p_filelist, $p_add_dir, $p_remove_dir)) { $this->_writeFooter(); } $this->_close(); return true; } /** * Check if a directory exists and create it (including parent * dirs) if not. * * @param string $p_dir directory to check * * @return bool true if the directory exists or was created */ public function _dirCheck($p_dir) { clearstatcache(); 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, 0775)) { $this->_error("Unable to create directory '$p_dir'"); return false; } return true; } /** * Compress path by changing for example "/dir/foo/../bar" to "/dir/bar", * rand emove double slashes. * * @param string $p_dir path to reduce * * @return string reduced path */ private function _pathReduction($p_dir) { $v_result = ''; // ----- Look for not empty path if ($p_dir != '') { // ----- Explode path by directory names $v_list = explode('/', $p_dir); // ----- Study directories from last to first for ($i = sizeof($v_list) - 1; $i >= 0; $i--) { // ----- Look for current path if ($v_list[$i] == ".") { // ----- Ignore this directory // Should be the first $i=0, but no check is done } else { if ($v_list[$i] == "..") { // ----- Ignore it and ignore the $i-1 $i--; } else { if (($v_list[$i] == '') && ($i != (sizeof($v_list) - 1)) && ($i != 0) ) { // ----- Ignore only the double '//' in path, // but not the first and last / } else { $v_result = $v_list[$i] . ($i != (sizeof($v_list) - 1) ? '/' . $v_result : ''); } } } } } if (defined('OS_WINDOWS') && OS_WINDOWS) { $v_result = strtr($v_result, '\\', '/'); } return $v_result; } /** * @param $p_path * @param bool $p_remove_disk_letter * @return string */ public function _translateWinPath($p_path, $p_remove_disk_letter = true) { if (defined('OS_WINDOWS') && OS_WINDOWS) { // ----- Look for potential disk letter if (($p_remove_disk_letter) && (($v_position = strpos($p_path, ':')) != false) ) { $p_path = substr($p_path, $v_position + 1); } // ----- Change potential windows directory separator if ((strpos($p_path, '\\') > 0) || (substr($p_path, 0, 1) == '\\')) { $p_path = strtr($p_path, '\\', '/'); } } return $p_path; } } pear-Archive_Tar-a0d2c45/README.md000066400000000000000000000015141524136475500165260ustar00rootroot00000000000000Archive_Tar ========== ![.github/workflows/build.yml](https://github.com/pear/Archive_Tar/workflows/.github/workflows/build.yml/badge.svg) This package provides handling of tar files in PHP. It supports creating, listing, extracting and adding to tar files. Gzip support is available if PHP has the zlib extension built-in or loaded. Bz2 compression is also supported with the bz2 extension loaded. Also Lzma2 compressed archives are supported with xz extension. This package is hosted at http://pear.php.net/package/Archive_Tar Please report all new issues via the PEAR bug tracker. Pull requests are welcome! Testing, building ----------------- To test, run either $ phpunit tests/ or $ pear run-tests -r To build, simply $ pear package To install from scratch $ pear install package.xml To upgrade $ pear upgrade -f package.xml pear-Archive_Tar-a0d2c45/SECURITY.md000066400000000000000000000006051524136475500170400ustar00rootroot00000000000000# Reporting Security Issues The Archive_Tar team and PEAR community take security bugs seriously. We appreciate your efforts to responsibly disclose your findings, and will make every effort to acknowledge your contributions. To report a security issue, please use the GitHub Security Advisory ["Report a Vulnerability"](https://github.com/pear/Archive_Tar/security/advisories/new) tab. pear-Archive_Tar-a0d2c45/composer.json000066400000000000000000000025001524136475500177650ustar00rootroot00000000000000{ "name": "pear/archive_tar", "description": "Tar file management class with compression support (gzip, bzip2, lzma2)", "type": "library", "keywords": [ "archive", "tar" ], "homepage": "https://github.com/pear/Archive_Tar", "license": "BSD-2-Clause", "authors": [ { "name": "Vincent Blavet", "email": "vincent@phpconcept.net" }, { "name": "Greg Beaver", "email": "greg@chiaraquartet.net" }, { "name": "Michiel Rook", "email": "mrook@php.net" } ], "require": { "php": ">=5.6.0", "pear/pear-core-minimal": "^1.10.0alpha2" }, "suggest": { "ext-zlib": "Gzip compression support.", "ext-bz2": "Bz2 compression support.", "ext-xz": "Lzma2 compression support." }, "autoload": { "psr-0": { "Archive_Tar": "" } }, "include-path": [ "./" ], "support": { "issues": "http://pear.php.net/bugs/search.php?cmd=display&package_name[]=Archive_Tar", "source": "https://github.com/pear/Archive_Tar" }, "require-dev": { "phpunit/phpunit": "*" }, "extra": { "branch-alias": { "dev-master": "1.6.x-dev" } } } pear-Archive_Tar-a0d2c45/docs/000077500000000000000000000000001524136475500161765ustar00rootroot00000000000000pear-Archive_Tar-a0d2c45/docs/Archive_Tar.txt000066400000000000000000000452461524136475500211410ustar00rootroot00000000000000Documentation for class Archive_Tar =================================== Last update : 2001-08-15 Overview : ---------- The Archive_Tar class helps in creating and managing GNU TAR format files compressed by GNU ZIP or not. The class offers basic functions like creating an archive, adding files in the archive, extracting files from the archive and listing the archive content. It also provide advanced functions that allow the adding and extraction of files with path manipulation. Sample : -------- // ----- Creating the object (uncompressed archive) $tar_object = new Archive_Tar("tarname.tar"); $tar_object->setErrorHandling(PEAR_ERROR_PRINT); // ----- Creating the archive $v_list[0]="file.txt"; $v_list[1]="data/"; $v_list[2]="file.log"; $tar_object->create($v_list); // ----- Adding files $v_list[0]="dev/file.txt"; $v_list[1]="dev/data/"; $v_list[2]="log/file.log"; $tar_object->add($v_list); // ----- Adding more files $tar_object->add("release/newfile.log release/readme.txt"); // ----- Listing the content if (($v_list = $tar_object->listContent()) != 0) for ($i=0; $i"; echo " .size :'".$v_list[$i][size]."'
"; echo " .mtime :'".$v_list[$i][mtime]."' (".date("l dS of F Y h:i:s A", $v_list[$i][mtime]).")
"; echo " .mode :'".$v_list[$i][mode]."'
"; echo " .uid :'".$v_list[$i][uid]."'
"; echo " .gid :'".$v_list[$i][gid]."'
"; echo " .typeflag :'".$v_list[$i][typeflag]."'
"; } // ----- Extracting the archive in directory "install" $tar_object->extract("install"); Public arguments : ------------------ None Public Methods : ---------------- Method : Archive_Tar($p_tarname, $compress = null) Description : Archive_Tar Class constructor. This flavour of the constructor only declare a new Archive_Tar object, identifying it by the name of the tar file. If the compress argument is set the tar will be read or created as a gzip or bz2 compressed TAR file. Arguments : $p_tarname : A valid filename for the tar archive file. $p_compress : can be null, 'gz' or 'bz2'. For compatibility reason it can also be true. This parameter indicates if gzip or bz2 compression is required. Return value : The Archive_Tar object. Sample : $tar_object = new Archive_Tar("tarname.tar"); $tar_object_compressed = new Archive_Tar("tarname.tgz", true); How it works : Initialize the object. Method : create($p_filelist) Description : This method creates the archive file and add the files / directories that are listed in $p_filelist. If the file already exists and is writable, it is replaced by the new tar. It is a create and not an add. If the file exists and is read-only or is a directory it is not replaced. The method return false and a PEAR error text. The $p_filelist parameter can be an array of string, each string representing a filename or a directory name with their path if needed. It can also be a single string with names separated by a single blank. See also createModify() method for more details. Arguments : $p_filelist : An array of filenames and directory names, or a single string with names separated by a single blank space. Return value : true on success, false on error. Sample 1 : $tar_object = new Archive_Tar("tarname.tar"); $tar_object->setErrorHandling(PEAR_ERROR_PRINT); // Optional error handling $v_list[0]="file.txt"; $v_list[1]="data/"; (Optional '/' at the end) $v_list[2]="file.log"; $tar_object->create($v_list); Sample 2 : $tar_object = new Archive_Tar("tarname.tar"); $tar_object->setErrorHandling(PEAR_ERROR_PRINT); // Optional error handling $tar_object->create("file.txt data/ file.log"); How it works : Just calling the createModify() method with the right parameters. Method : createModify($p_filelist, $p_add_dir, $p_remove_dir = "") Description : This method creates the archive file and add the files / directories that are listed in $p_filelist. If the file already exists and is writable, it is replaced by the new tar. It is a create and not an add. If the file exists and is read-only or is a directory it is not replaced. The method return false and a PEAR error text. The $p_filelist parameter can be an array of string, each string representing a filename or a directory name with their path if needed. It can also be a single string with names separated by a single blank. The path indicated in $p_remove_dir will be removed from the memorized path of each file / directory listed when this path exists. By default nothing is removed (empty path "") The path indicated in $p_add_dir will be added at the beginning of the memorized path of each file / directory listed. However it can be set to empty "". The adding of a path is done after the removing of path. The path add/remove ability enables the user to prepare an archive for extraction in a different path than the origin files are. See also addModify() method for file adding properties. Arguments : $p_filelist : An array of filenames and directory names, or a single string with names separated by a single blank space. $p_add_dir : A string which contains a path to be added to the memorized path of each element in the list. $p_remove_dir : A string which contains a path to be removed from the memorized path of each element in the list, when relevant. Return value : true on success, false on error. Sample 1 : $tar_object = new Archive_Tar("tarname.tar"); $tar_object->setErrorHandling(PEAR_ERROR_PRINT); // Optional error handling $v_list[0]="file.txt"; $v_list[1]="data/"; (Optional '/' at the end) $v_list[2]="file.log"; $tar_object->createModify($v_list, "install"); // files are stored in the archive as : // install/file.txt // install/data // install/data/file1.txt // install/data/... all the files and sub-dirs of data/ // install/file.log Sample 2 : $tar_object = new Archive_Tar("tarname.tar"); $tar_object->setErrorHandling(PEAR_ERROR_PRINT); // Optional error handling $v_list[0]="dev/file.txt"; $v_list[1]="dev/data/"; (Optional '/' at the end) $v_list[2]="log/file.log"; $tar_object->createModify($v_list, "install", "dev"); // files are stored in the archive as : // install/file.txt // install/data // install/data/file1.txt // install/data/... all the files and sub-dirs of data/ // install/log/file.log How it works : Open the file in write mode (erasing the existing one if one), call the _addList() method for adding the files in an empty archive, add the tar footer (512 bytes block), close the tar file. Method : addModify($p_filelist, $p_add_dir, $p_remove_dir="") Description : This method add the files / directories listed in $p_filelist at the end of the existing archive. If the archive does not yet exists it is created. The $p_filelist parameter can be an array of string, each string representing a filename or a directory name with their path if needed. It can also be a single string with names separated by a single blank. The path indicated in $p_remove_dir will be removed from the memorized path of each file / directory listed when this path exists. By default nothing is removed (empty path "") The path indicated in $p_add_dir will be added at the beginning of the memorized path of each file / directory listed. However it can be set to empty "". The adding of a path is done after the removing of path. The path add/remove ability enables the user to prepare an archive for extraction in a different path than the origin files are. If a file/dir is already in the archive it will only be added at the end of the archive. There is no update of the existing archived file/dir. However while extracting the archive, the last file will replace the first one. This results in a none optimization of the archive size. If a file/dir does not exist the file/dir is ignored. However an error text is send to PEAR error. If a file/dir is not readable the file/dir is ignored. However an error text is send to PEAR error. If the resulting filename/dirname (after the add/remove option or not) string is greater than 99 char, the file/dir is ignored. However an error text is send to PEAR error. Arguments : $p_filelist : An array of filenames and directory names, or a single string with names separated by a single blank space. $p_add_dir : A string which contains a path to be added to the memorized path of each element in the list. $p_remove_dir : A string which contains a path to be removed from the memorized path of each element in the list, when relevant. Return value : true on success, false on error. Sample 1 : $tar_object = new Archive_Tar("tarname.tar"); [...] $v_list[0]="dev/file.txt"; $v_list[1]="dev/data/"; (Optional '/' at the end) $v_list[2]="log/file.log"; $tar_object->addModify($v_list, "install"); // files are stored in the archive as : // install/file.txt // install/data // install/data/file1.txt // install/data/... all the files and sub-dirs of data/ // install/file.log Sample 2 : $tar_object = new Archive_Tar("tarname.tar"); [...] $v_list[0]="dev/file.txt"; $v_list[1]="dev/data/"; (Optional '/' at the end) $v_list[2]="log/file.log"; $tar_object->addModify($v_list, "install", "dev"); // files are stored in the archive as : // install/file.txt // install/data // install/data/file1.txt // install/data/... all the files and sub-dirs of data/ // install/log/file.log How it works : If the archive does not exists it create it and add the files. If the archive does exists and is not compressed, it open it, jump before the last empty 512 bytes block (tar footer) and add the files at this point. If the archive does exists and is compressed, a temporary copy file is created. This temporary file is then 'gzip' read block by block until the last empty block. The new files are then added in the compressed file. The adding of files is done by going through the file/dir list, adding files per files, in a recursive way through the directory. Each time a path need to be added/removed it is done before writing the file header in the archive. Method : add($p_filelist) Description : This method add the files / directories listed in $p_filelist at the end of the existing archive. If the archive does not yet exists it is created. The $p_filelist parameter can be an array of string, each string representing a filename or a directory name with their path if needed. It can also be a single string with names separated by a single blank. See addModify() method for details and limitations. Arguments : $p_filelist : An array of filenames and directory names, or a single string with names separated by a single blank space. Return value : true on success, false on error. Sample 1 : $tar_object = new Archive_Tar("tarname.tar"); [...] $v_list[0]="dev/file.txt"; $v_list[1]="dev/data/"; (Optional '/' at the end) $v_list[2]="log/file.log"; $tar_object->add($v_list); Sample 2 : $tar_object = new Archive_Tar("tarname.tgz", true); [...] $v_list[0]="dev/file.txt"; $v_list[1]="dev/data/"; (Optional '/' at the end) $v_list[2]="log/file.log"; $tar_object->add($v_list); How it works : Simply call the addModify() method with the right parameters. Method : addString($p_filename, $p_string, $p_datetime, $p_params) Description : This method add a single string as a file at the end of the existing archive. If the archive does not yet exists it is created. Arguments : $p_filename : A string which contains the full filename path that will be associated with the string. $p_string : The content of the file added in the archive. $p_datetime : (Optional) Timestamp of the file (default = now) $p_params : (Optional) Various file metadata: stamp - As above, timestamp of the file mode - UNIX-style permissions (default 0600) type - Is this a regular file or link (see TAR format spec for how to create a hard/symlink) uid - UNIX-style user ID (default 0 = root) gid - UNIX-style group ID (default 0 = root) Return value : true on success, false on error. Sample 1 : $v_archive = & new Archive_Tar($p_filename); $v_archive->setErrorHandling(PEAR_ERROR_PRINT); $v_result = $v_archive->addString('data/test.txt', 'This is the text of the string'); $v_result = $v_archive->addString( 'data/test.sh', "#!/bin/sh\necho 'Hello'", time(), array( "mode" => 0755, "uid" => 34 ) ); Method : extract($p_path = "") Description : This method extract all the content of the archive in the directory indicated by $p_path.If $p_path is optional, if not set the archive is extracted in the current directory. While extracting a file, if the directory path does not exists it is created. See extractModify() for details and limitations. Arguments : $p_path : Optional path where the files/dir need to by extracted. Return value : true on success, false on error. Sample : $tar_object = new Archive_Tar("tarname.tar"); $tar_object->extract(); How it works : Simply call the extractModify() method with appropriate parameters. Method : extractModify($p_path, $p_remove_path) Description : This method extract all the content of the archive in the directory indicated by $p_path. When relevant the memorized path of the files/dir can be modified by removing the $p_remove_path path at the beginning of the file/dir path. While extracting a file, if the directory path does not exists it is created. While extracting a file, if the file already exists it is replaced without looking for last modification date. While extracting a file, if the file already exists and is write protected, the extraction is aborted. While extracting a file, if a directory with the same name already exists, the extraction is aborted. While extracting a directory, if a file with the same name already exists, the extraction is aborted. While extracting a file/directory if the destination directory exist and is write protected, or does not exist but can not be created, the extraction is aborted. If after extraction an extracted file does not show the correct stored file size, the extraction is aborted. When the extraction is aborted, a PEAR error text is set and false is returned. However the result can be a partial extraction that may need to be manually cleaned. Arguments : $p_path : The path of the directory where the files/dir need to by extracted. $p_remove_path : Part of the memorized path that can be removed if present at the beginning of the file/dir path. Return value : true on success, false on error. Sample : // Imagine tarname.tar with files : // dev/data/file.txt // dev/data/log.txt // readme.txt $tar_object = new Archive_Tar("tarname.tar"); $tar_object->extractModify("install", "dev"); // Files will be extracted there : // install/data/file.txt // install/data/log.txt // install/readme.txt How it works : Open the archive and call a more generic function that can extract only a part of the archive or all the archive. See extractList() method for more details. Method : extractInString($p_filename) Description : This method extract from the archive one file identified by $p_filename. The return value is a string with the file content, or NULL on error. Arguments : $p_filename : The path of the file to extract in a string. Return value : a string with the file content or NULL. Sample : // Imagine tarname.tar with files : // dev/data/file.txt // dev/data/log.txt // dev/readme.txt $v_archive = & new Archive_Tar('tarname.tar'); $v_archive->setErrorHandling(PEAR_ERROR_PRINT); $v_string = $v_archive->extractInString('dev/readme.txt'); echo $v_string; Method : listContent() Description : This method returns an array of arrays that describe each file/directory present in the archive. The array is not sorted, so it show the position of the file in the archive. The file informations are : $file[filename] : Name and path of the file/dir. $file[mode] : File permissions (result of fileperms()) $file[uid] : user id $file[gid] : group id $file[size] : filesize $file[mtime] : Last modification time (result of filemtime()) $file[typeflag] : "" for file, "5" for directory Arguments : Return value : An array of arrays or 0 on error. Sample : $tar_object = new Archive_Tar("tarname.tar"); if (($v_list = $tar_object->listContent()) != 0) for ($i=0; $i"; echo " .size :'".$v_list[$i][size]."'
"; echo " .mtime :'".$v_list[$i][mtime]."' (". date("l dS of F Y h:i:s A", $v_list[$i][mtime]).")
"; echo " .mode :'".$v_list[$i][mode]."'
"; echo " .uid :'".$v_list[$i][uid]."'
"; echo " .gid :'".$v_list[$i][gid]."'
"; echo " .typeflag :'".$v_list[$i][typeflag]."'
"; } How it works : Call the same function as an extract however with a flag to only go through the archive without extracting the files. Method : extractList($p_filelist, $p_path = "", $p_remove_path = "") Description : This method extract from the archive only the files indicated in the $p_filelist. These files are extracted in the current directory or in the directory indicated by the optional $p_path parameter. If indicated the $p_remove_path can be used in the same way as it is used in extractModify() method. Arguments : $p_filelist : An array of filenames and directory names, or a single string with names separated by a single blank space. $p_path : The path of the directory where the files/dir need to by extracted. $p_remove_path : Part of the memorized path that can be removed if present at the beginning of the file/dir path. Return value : true on success, false on error. Sample : // Imagine tarname.tar with files : // dev/data/file.txt // dev/data/log.txt // readme.txt $tar_object = new Archive_Tar("tarname.tar"); $tar_object->extractList("dev/data/file.txt readme.txt", "install", "dev"); // Files will be extracted there : // install/data/file.txt // install/readme.txt How it works : Go through the archive and extract only the files present in the list. pear-Archive_Tar-a0d2c45/package.xml000066400000000000000000000530141524136475500173660ustar00rootroot00000000000000 Archive_Tar pear.php.net Tar file management class This class provides handling of tar files in PHP. It supports creating, listing, extracting and adding to tar files. Gzip support is available if PHP has the zlib extension built-in or loaded. Bz2 compression is also supported with the bz2 extension loaded. Also Lzma2 compressed archives are supported with xz extension. Vincent Blavet vblavet vincent@phpconcept.net no Greg Beaver cellog greg@chiaraquartet.net no Michiel Rook mrook mrook@php.net no Drew Webber mcdruid drew@mcdruid.co.uk yes Stig Bakken ssb stig@php.net no 2026-08-19 1.6.1 1.6.0 stable stable New BSD License This release adds PHP 8.6 compatibility. * Update the stale compatible tag in package.xml: Archive_Tar could not be installed without --force on any PEAR newer than 1.10.10 * PR #61: avoid returning values from __construct() and __destruct() * CI: test against PHP 8.4, 8.5 and 8.6 PEAR pear.php.net 1.8.0 1.10.18 5.6.0 1.10.0 1.6.1 1.6.0 stable stable 2026-08-19 New BSD License This release adds PHP 8.6 compatibility. * Update the stale compatible tag in package.xml: Archive_Tar could not be installed without --force on any PEAR newer than 1.10.10 * PR #61: avoid returning values from __construct() and __destruct() * CI: test against PHP 8.4, 8.5 and 8.6 1.6.0 1.6.0 stable stable 2025-07-19 New BSD License This release drops support for PHP 5.4 and 5.5. * PR #51: big file support * PR #53: Fix return value of _writeBlock * PR #58: Remove gzopen/gztell/gzseek shim 1.5.0 1.5.0 stable stable 2024-03-16 New BSD License * PR #42: fix @return true... to @return bool true... on some functions * PR #46: use 775 default for mkdirs, to avoid world-write 1.4.14 1.4.0 stable stable 2021-02-16 New BSD License * Properly fix symbolic link path traversal (CVE-2021-32610) 1.4.13 1.4.0 stable stable 2021-02-16 New BSD License * Fix Bug #27010: Relative symlinks failing (out-of path file extraction) [mrook] 1.4.12 1.4.0 stable stable 2021-01-18 New BSD License * Fix Bug #27008: Symlink out-of-path write vulnerability (CVE-2020-36193) [mrook] 1.4.11 1.4.0 stable stable 2020-11-19 New BSD License * Fix Bug #27002: Filename manipulation vulnerabilities (CVE-2020-28948 / CVE-2020-28949) [mrook] 1.4.10 1.4.0 stable stable 2020-09-15 New BSD License * Fix block padding when the file buffer length is a multiple of 512 and smaller than Archive_Tar buffer length * Don't try to copy username/groupname in chroot jail 1.4.9 1.4.0 stable stable 2019-12-04 New BSD License * Implement Feature #23861: Add option to disallow symlinks [mrook] 1.4.8 1.4.0 stable stable 2019-10-21 New BSD License * Fix Bug #23852: PHP 7.4 - Archive_Tar->_readHeader throws deprecation [mrook] 1.4.7 1.4.0 stable stable 2019-04-08 New BSD License * Improved performance by increasing read buffer size 1.4.6 1.4.0 stable stable 2019-02-01 New BSD License * Improve path traversal detection for forward and backward slashes 1.4.5 1.4.0 stable stable 2019-01-02 New BSD License * Fix Bug #23788: Relative symlinks are broken [mrook] 1.4.4 1.4.0 stable stable 2018-12-20 New BSD License * Fix Bug #21058: Long symlinks are not supported [mrook] * Fix Bug #23782: Prevent phar:// files from being extracted [mrook] 1.4.3 1.4.0 stable stable 2017-06-11 New BSD License * Fix Bug #21218: Cannot use result of built-in function in write context in PHP 7.2.0alpha1 [mrook] 1.4.2 1.4.0 stable stable 2016-02-25 New BSD License * Fix reading of archives with files > 8GB * Performance optimizations * Do not try to call require_once on PEAR.php if it has already been loaded by the autoloader 1.4.1 1.4.0 stable stable 2015-08-05 New BSD License * Update composer.json to use pear-core-minimal 1.10.0alpha2 1.4.0 1.4.0 stable stable 2015-07-20 New BSD License * Add support for PHP 7 * Drop support for PHP 4 * Add visibility declarations to methods and properties 1.3.16 1.3.1 stable stable 2015-04-14 New BSD License * Fix Bug #20514: invalid package.xml; not installable with pyrus [mrook] 1.3.15 1.3.1 stable stable 2015-03-05 New BSD License * Fixes composer.json parse error 1.3.14 1.3.1 stable stable 2015-02-26 New BSD License * Fix Bug #18505: Possible incorrect handling of file names in TAR [mrook] 1.3.13 1.3.1 stable stable 2014-09-02 New BSD License * Fix Bug #20382: gzopen fix [mrook] 1.3.12 1.3.1 stable stable 2014-08-04 New BSD License * Fix Bug #19964: Memory leaking in Archive_Tar [mrook] * Fix Bug #20246: Broken with php 5.5.9 [mrook] * Fix Bug #20275: "pax_global_header" looks like a regular file * [mrook] * Implement Feature #19827: pass filename to _addFile function - downstream * patch [mrook] * Implement Feature #20132: Add custom mode/uid/gid to addString() [mrook] 1.3.11 1.3.1 stable stable 2013-02-09 New BSD License * Fix Bug #19746: Broken with PHP 5.5 [mrook] * Implement Feature #11258: Custom date/time in files added on-the-fly * [mrook] 1.3.10 1.3.1 stable stable 2012-04-10 New BSD License * Fix Bug #13361: Unable to add() some files (ex. mp3) [mrook] * Fix Bug #19330: Class creates incorrect (non-readable) tar.gz file * [mrook] 1.3.9 1.3.1 stable stable 2012-02-27 New BSD License * Fix Bug #16759: No error thrown from missing PHP zlib functions [mrook] * Fix Bug #18877: Incorrect handling of backslashes in filenames on Linux [mrook] * Fix Bug #19085: Error while packaging [mrook] * Fix Bug #19289: Invalid tar file generated [mrook] 1.3.8 1.3.1 stable stable 2011-10-14 New BSD License * Fix Bug #17853: Test failure: dirtraversal.phpt [mrook] * Fix Bug #18512: dead links are not saved in tar file [mrook] * Fix Bug #18702: Unpacks incorrectly on long file names using header prefix [mrook] * Implement Feature #10145: Patch to return a Pear Error Object on failure [mrook] * Implement Feature #17491: Option to preserve permissions [mrook] * Implement Feature #17813: Prevent PHP notice when extracting corrupted archive [mrook] 1.3.7 1.3.1 stable stable 2010-04-26 New BSD License PEAR compatibility update 1.3.6 1.3.1 stable stable 2010-03-09 New BSD License * Fix Bug #16963: extractList can't extract zipped files from big tar [mrook] * Implement Feature #4013: Ignoring files and directories on creating an archive. [mrook] 1.3.5 1.3.1 stable stable 2009-12-31 New BSD License * Fix Bug #16958: Update 'compatible' tag in package.xml [mrook] 1.3.4 1.3.1 stable stable 2009-12-30 New BSD License * Fix Bug #11871: wrong result of ::listContent() if filename begins or ends with space [mrook] * Fix Bug #12462: invalid tar magic [mrook] * Fix Bug #13918: Long filenames may get up to 511 0x00 bytes appended on read [mrook] * Fix Bug #16202: Bogus modification times [mrook] * Implement Feature #16212: Die is not exception [mrook] 1.3.3 1.3.1 stable stable 2009-03-27 New BSD License Change the license to New BSD license minor bugfix release * fix Bug #9921 compression with bzip2 fails [cellog] * fix Bug #11594 _readLongHeader leaves 0 bytes in filename [jamessas] * fix Bug #11769 Incorrect symlink handing [fajar99] 1.3.2 1.3.1 stable stable 2007-01-03 PHP License Correct Bug #4016 Remove duplicate remove error display with '@' Correct Bug #3909 : Check existence of OS_WINDOWS constant Correct Bug #5452 fix for "lone zero block" when untarring packages Change filemode (from pear-core/Archive/Tar.php v.1.21) Correct Bug #6486 Can not extract symlinks Correct Bug #6933 Archive_Tar (Tar file management class) Directory traversal Correct Bug #8114 Files added on-the-fly not storing date Correct Bug #9352 Bug on _dirCheck function over nfs path 1.3.1 1.3.1 stable stable 2005-03-17 PHP License Correct Bug #3855 1.3.0 1.3.0 stable stable 2005-03-06 PHP License Bugs correction (2475, 2488, 2135, 2176) 1.2 1.2 stable stable 2004-05-08 PHP License Add support for other separator than the space char and bug correction 1.1 1.1 stable stable 2003-05-28 PHP License * Add support for BZ2 compression * Add support for add and extract without using temporary files : methods addString() and extractInString() 1.0 1.0 stable stable 2003-01-24 PHP License Change status to stable 0.10-b1 0.10-b1 beta beta 2003-01-08 PHP License Add support for long filenames (greater than 99 characters) 0.9 0.9 stable stable 2002-05-27 PHP License Auto-detect gzip'ed files 0.4 0.4 stable stable 2002-05-20 PHP License Windows bugfix: use forward slashes inside archives 0.2 0.2 stable stable 2002-02-18 PHP License From initial commit to stable 0.3 0.3 stable stable 2002-04-13 PHP License Windows bugfix: used wrong directory separators pear-Archive_Tar-a0d2c45/scripts/000077500000000000000000000000001524136475500167355ustar00rootroot00000000000000pear-Archive_Tar-a0d2c45/scripts/phptar.in000077500000000000000000000117361524136475500205760ustar00rootroot00000000000000#!@prefix@/bin/php -Cq 1) { usage("Only one of -c, -t and -x can be specified at once!"); } if ($op_create + $op_list + $op_extract == 0) { usage("Please specify either -c, -t or -x!"); } if (empty($file)) { if ($op_create) { $file = "php://stdout"; } else { $file = "php://stdin"; } } // }}} $tar = new Archive_Tar($file, $use_gzip); $tar->setErrorHandling(PEAR_ERROR_DIE, "$progname error: %s\n"); if ($op_create) { do_create($tar, $options[1]); $tar->create($options[1]); } elseif ($op_list) { do_list($tar, $verbose); } elseif ($op_extract) { do_extract($tar); } // {{{ getrwx() function getrwx($bits) { $str = ''; $str .= ($bits & 4) ? 'r' : '-'; $str .= ($bits & 2) ? 'w' : '-'; $str .= ($bits & 1) ? 'x' : '-'; return $str; } // }}} // {{{ getfiletype() function getfiletype($bits) { static $map = array( '-' => S_IFREG, 'd' => S_IFDIR, 'l' => S_IFLNK, 'c' => S_IFCHR, 'b' => S_IFBLK, 'p' => S_IFIFO, 's' => S_IFSOCK, ); foreach ($map as $char => $mask) { if ($bits & $mask) { return $char; } } } // }}} // {{{ getuser() function getuser($uid) { static $cache = array(); if (isset($cache[$uid])) { return $cache[$uid]; } if (function_exists("posix_getpwuid")) { if (is_array($user = @posix_getpwuid($uid))) { $cache[$uid] = $user['name']; return $user['name']; } } $cache[$uid] = $uid; return $uid; } // }}} // {{{ getgroup() function getgroup($gid) { static $cache = array(); if (isset($cache[$gid])) { return $cache[$gid]; } if (function_exists("posix_getgrgid")) { if (is_array($group = @posix_getgrgid($gid))) { $cache[$gid] = $group['name']; return $group['name']; } } $cache[$gid] = $gid; return $gid; } // }}} // {{{ do_create() function do_create(&$tar, &$files) { $tar->create($files); } // }}} // {{{ do_list() function do_list(&$tar, $verbose) { static $rwx = array(4 => 'r', 2 => 'w', 1 => 'x'); $files = $tar->listContent(); if (is_array($files) && sizeof($files) > 0) { foreach ($files as $file) { if ($verbose) { $fm = (int)$file['mode']; $mode = sprintf('%s%s%s%s', getfiletype($fm), getrwx(($fm >> 6) & 7), getrwx(($fm >> 3) & 7), getrwx($fm & 7)); $owner = getuser($file['uid']) . '/' . getgroup($file['gid']); printf("%10s %-11s %7d %s %s\n", $mode, $owner, $file['size'], date('Y-m-d H:i:s', $file['mtime']), $file['filename']); } else { printf("%s\n", $file['filename']); } } } } // }}} // {{{ do_extract() function do_extract(&$tar, $destdir = ".") { $tar->extract($destdir); } // }}} // {{{ usage() function usage($errormsg = '') { global $progname; $fp = fopen("php://stderr", "w"); if ($errormsg) { if (PEAR::isError($errormsg)) { fwrite($fp, $errormsg->getMessage() . "\n"); } else { fwrite($fp, "$errormsg\n"); } } fwrite($fp, "$progname [-h|-?] {-c|-t|-x} [-z] [-v] [-f file] [file(s)...] Options: -h, -? Show this screen -c Create archive -t List archive -x Extract archive -z Run input/output through gzip -f file Use as input or output (default is stdin/stdout) "); fclose($fp); exit; } // }}} ?> pear-Archive_Tar-a0d2c45/sync-php4000077500000000000000000000002641524136475500170230ustar00rootroot00000000000000#!/bin/sh rsync -av Archive/Tar.php ../../php4/pear/Archive/. rsync -av package.xml ../../php4/pear/package-Archive_Tar.xml rsync -av docs/Archive_Tar.txt ../../php4/pear/docs/. pear-Archive_Tar-a0d2c45/tests/000077500000000000000000000000001524136475500164105ustar00rootroot00000000000000pear-Archive_Tar-a0d2c45/tests/512nbytesfile.phpt000066400000000000000000000014721524136475500217050ustar00rootroot00000000000000--TEST-- test file size that happens to be 512 * n bytes --SKIPIF-- --FILE-- add($dirname .'/testblock3'); $tar->listContent(); $phpunit->assertNoErrors('after tar archive listing'); $returnval = shell_exec('tar -Ptf ' . $dirname . '/512nbytesfile.tar.gz | sort'); $phpunit->assertNoErrors('after shell tar listing'); $expectedvalue = <<< EOD $dirname/testblock3 $dirname/testblock3/1024bytes.txt $dirname/testblock3/randombytes.txt EOD; $phpunit->assertEquals($expectedvalue, $returnval, 'wrong output for shell tar verification'); echo 'test done' ?> --CLEAN-- --EXPECT-- test donepear-Archive_Tar-a0d2c45/tests/big.phpt000066400000000000000000000010711524136475500200450ustar00rootroot00000000000000--TEST-- tests if files > 8G are supported --SKIPIF-- --FILE-- listContent(); $found_big_file = false; foreach ($content as $item) { if ($item['filename'] === 'big_archive/8.5G_file') { $found_big_file = true; $phpunit->assertEquals(9126805504, $item['size'], 'size of big file correct'); } } $phpunit->assertTrue($found_big_file, 'found the big file in the archive'); echo 'tests done'; ?> --CLEAN-- --EXPECT-- tests done pear-Archive_Tar-a0d2c45/tests/big.tar.bz2000066400000000000000000000147471524136475500203720ustar00rootroot00000000000000BZh91AY&SY@ ~Ԑ@@@0Q )S5M666Ph=F` 44hd@FQ3SzFF4~`vb- QETLW/kbAETLv{?S`b@zz2nM+Z'68zEETfò2=&zɕ8~@g^:E= En6- r:6asVPH/yH]] @=Ss(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k!<[+ T!P(+$k5`%!(!4Ȃ$lQHw$S V=pear-Archive_Tar-a0d2c45/tests/create.phpt000066400000000000000000000017301524136475500205510ustar00rootroot00000000000000--TEST-- tests basic creation of tarballs --SKIPIF-- --FILE-- add(array(__FILE__)); $content = $tar->listContent(); $discovered_self = false; foreach ($content as $item) { if ($item['filename'] === __FILE__) { $discovered_self = true; break; } } $phpunit->assertTrue($discovered_self, 'found the file in the uncompressed archive'); unlink(dirname(__FILE__) . '/no_compression.tar'); $tar_gz = new Archive_Tar(dirname(__FILE__) . '/gzip.tar.gz', 'gz'); $tar_gz->add(array(__FILE__)); $content = $tar_gz->listContent(); $discovered_self = false; foreach ($content as $item) { if ($item['filename'] === __FILE__) { $discovered_self = true; break; } } $phpunit->assertTrue($discovered_self, 'found the file in the gzipped archive'); unlink(dirname(__FILE__) . '/gzip.tar.gz'); echo 'tests done'; ?> --CLEAN-- --EXPECT-- tests done pear-Archive_Tar-a0d2c45/tests/deadlinks.phpt000066400000000000000000000022031524136475500212400ustar00rootroot00000000000000--TEST-- test saving of dead symbolic links --SKIPIF-- --FILE-- '.$item['link']; } //prepare filesystem @mkdir('test'); @mkdir('test/a'); @touch('test/b'); @symlink('a', 'test/dir_link'); @symlink('b', 'test/file_link'); @symlink('dead', 'test/dead_link'); //prepare reference tar system('tar -cf test1.tar test'); $tar1=new Archive_Tar('test1.tar'); $tar1List=array_map('fileName',$tar1->listContent()); //create tar $tar2=new Archive_Tar('test2.tar'); $tar2->create(array('test','nonExisting'));// to make sure we are still report nonExisting $tar2List=array_map('fileName',$tar2->listContent()); $phpunit->assertErrors(array( array('package' => 'PEAR_Error', 'message' => "File 'nonExisting' does not exist")), 'after 1'); $phpunit->assertEquals($tar1List, $tar2List, 'bla'); echo 'tests done'; ?> --CLEAN-- --EXPECT-- tests done pear-Archive_Tar-a0d2c45/tests/dir_permissions.phpt000066400000000000000000000010411524136475500225120ustar00rootroot00000000000000--TEST-- test permissions of created dirs --SKIPIF-- --FILE-- extract('', true); $phpunit->assertNoErrors('after'); echo substr(sprintf('%o', fileperms('dir_permissions')), -4), PHP_EOL; echo 'tests done'; ?> --CLEAN-- --EXPECT-- 0775 tests done pear-Archive_Tar-a0d2c45/tests/dir_permissions.tar000066400000000000000000000240001524136475500223250ustar00rootroot00000000000000dir_permissions/0000775000175000017500000000000014555475740014161 5ustar ashnazgashnazgdir_permissions/b.txt0000664000175000017500000000000314555475740015134 0ustar ashnazgashnazgbB dir_permissions/a.txt0000664000175000017500000000000314555475732015134 0ustar ashnazgashnazgaA pear-Archive_Tar-a0d2c45/tests/dirtraversal.phpt000066400000000000000000000020141524136475500220040ustar00rootroot00000000000000--TEST-- test directory traversal security vulnerability --SKIPIF-- --FILE-- listContent(); $phpunit->assertErrors(array( array('package' => 'PEAR_Error', 'message' => 'Malicious .tar detected, file "/../../../../../../../../../../../../../../AAAAAAAAAAAAAAAAA/BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB.txt" will not install in desired directory tree') ), 'after 1'); $tar->extract(); $phpunit->assertErrors(array( array('package' => 'PEAR_Error', 'message' => 'Malicious .tar detected, file "/../../../../../../../../../../../../../../AAAAAAAAAAAAAAAAA/BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB.txt" will not install in desired directory tree') ), 'after 2'); echo 'tests done'; ?> --CLEAN-- --EXPECT-- tests done pear-Archive_Tar-a0d2c45/tests/evil_symlink_win.phpt000066400000000000000000000017711524136475500226750ustar00rootroot00000000000000--TEST-- tests extraction of out-of-path symlink with a windows path --SKIPIF-- --FILE-- extract($extract_target); // On Windows dirname() will have used backslashes but the error messages do not. $extract_target = str_replace('\\', '/', $extract_target); $phpunit->assertErrors(array(array('package' => 'PEAR_Error', 'message' => 'Out-of-path file extraction {' . $extract_target . '/evil.txt --> C:\windows\system.ini}')), 'after 1'); // N.B. file_exists() typically will not detect a broken symbolic link $phpunit->assertFalse(is_link($extract_target . '/evil.txt'), 'Out-of-path symlink should not have succeeded'); echo 'tests done'; ?> --CLEAN-- --EXPECT-- tests done pear-Archive_Tar-a0d2c45/tests/evil_symlink_win.tar000066400000000000000000000030001524136475500224730ustar00rootroot00000000000000evil.txt0000777000175000017500000000000014046263464016551 2C:\windows\system.iniustar mcdruidmcdruidpear-Archive_Tar-a0d2c45/tests/hamidTARtester2.tar000066400000000000000000000060001524136475500220560ustar00rootroot00000000000000AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAa/ 777 0 0 0 10373671540 13652 5././@LongLink 777 0 0 177 10373671550 6176 L/../../../../../../../../../../../../../../AAAAAAAAAAAAAAAAA/BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB.txtAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAa/BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 777 0 0 0 10373671550 20562 0pear-Archive_Tar-a0d2c45/tests/invalidblock.phpt000066400000000000000000000010141524136475500217420ustar00rootroot00000000000000--TEST-- test files that happen to contain the endblock --SKIPIF-- --FILE-- add(dirname(__FILE__) . '/testblock1'); $tar->add(dirname(__FILE__) . '/testblock2'); $tar = new Archive_Tar(dirname(__FILE__) . '/testblock.tar.gz'); $tar->listContent(); $phpunit->assertNoErrors('after'); echo 'tests done'; ?> --CLEAN-- --EXPECT-- tests done pear-Archive_Tar-a0d2c45/tests/invalidchecksum.phpt000066400000000000000000000016111524136475500224550ustar00rootroot00000000000000--TEST-- test saving of dead symbolic links --SKIPIF-- --FILE-- listContent(); $phpunit->assertErrors(array( array('package' => 'PEAR_Error', 'message' => "Invalid checksum for file \"4&2Vib~Au.=ZqMTw~=}UoF/~5Gs;JTXF*}hm\"#xO7:46y_tg6c-[A&S]z0fke?(B6?$:W$X{E%PO>~UWl8(' . "\n" . '.%RWPjN55)cd&?oJPgFFZj#+U --CLEAN-- --EXPECT-- tests done pear-Archive_Tar-a0d2c45/tests/longfilename.phpt000066400000000000000000000016311524136475500217460ustar00rootroot00000000000000--TEST-- test trimming of characters in long filenames --SKIPIF-- --FILE-- addModify(array($longfilename), '', dirname(__FILE__)); $tar = new Archive_Tar(dirname(__FILE__) . '/testlongfilename.tar'); $files = $tar->listContent(); $file = reset($files); $lastChar = $file['filename'][strlen($file['filename']) - 1]; $phpunit->assertEquals(' ', $lastChar, 'should contain space as last character'); echo 'tests done'; ?> --CLEAN-- --EXPECT-- tests done pear-Archive_Tar-a0d2c45/tests/longsymlinks.phpt000066400000000000000000000016701524136475500220420ustar00rootroot00000000000000--TEST-- test trimming of characters in long symbolic link targets --SKIPIF-- --FILE-- addModify(array($longfilename, $symlinkfilename), '', dirname(__FILE__)); $tar = new Archive_Tar(dirname(__FILE__) . '/testlongsymlink.tar'); $files = $tar->listContent(); $file = end($files); $lastChar = $file['link'][strlen($file['link']) - 1]; $phpunit->assertEquals(' ', $lastChar, 'should contain space as last character'); echo 'tests done'; ?> --CLEAN-- --EXPECT-- tests done pear-Archive_Tar-a0d2c45/tests/out_of_path_fnames.phpt000066400000000000000000000010421524136475500231420ustar00rootroot00000000000000--TEST-- tests writes to out-of-path filenames --SKIPIF-- --FILE-- extract(); $phpunit->assertErrors(array(array('package' => 'PEAR_Error', 'message' => "Out-of-path file extraction {symlink --> /tmp/}")), 'after 1'); $phpunit->assertFileNotExists('symlink/whatever-filename', 'Out-of-path filename should not have succeeded'); echo 'tests done'; ?> --CLEAN-- --EXPECT-- tests done pear-Archive_Tar-a0d2c45/tests/out_of_path_relative.phpt000066400000000000000000000024521524136475500235120ustar00rootroot00000000000000--TEST-- tests extraction of out-of-path symlink --SKIPIF-- --FILE-- extract($extract_target); // On Windows dirname() will have used backslashes but the error messages do not. $extract_target = str_replace('\\', '/', $extract_target); $phpunit->assertErrors(array(array('package' => 'PEAR_Error', 'message' => 'Out-of-path file extraction {' . $extract_target . '/five/six/evil.txt --> ../../../../secret.txt}')), 'after 1'); $phpunit->assertFileNotExists($extract_target . '/five/six/evil.txt', 'Out-of-path symlink should not have succeeded'); echo 'tests done'; ?> --CLEAN-- --EXPECT-- tests done pear-Archive_Tar-a0d2c45/tests/out_of_path_relative.tar000066400000000000000000000240001524136475500233160ustar00rootroot00000000000000five/0000775000175000017500000000000014043005647011654 5ustar mcdruidmcdruidfive/six/0000775000175000017500000000000014043005677012462 5ustar mcdruidmcdruidfive/six/evil.txt0000777000175000017500000000000014043005677017257 2../../../../secret.txtustar mcdruidmcdruidpear-Archive_Tar-a0d2c45/tests/out_of_path_symlink.tar000066400000000000000000000050011524136475500231710ustar00rootroot00000000000000symlink0000777000000000000000000000000013761252476013622 2/tmp/ustar00wheelwheel00000000000000symlink/whatever-filename0000777000000000000000000000001113761252476016346 0ustar00wheelwheel00000000000000it worked pear-Archive_Tar-a0d2c45/tests/pax.phpt000066400000000000000000000005071524136475500200770ustar00rootroot00000000000000--TEST-- tests if pax global / extended headers are ignored --SKIPIF-- --FILE-- assertEquals(1, count($tar->listContent()), "count should be 1"); echo 'tests done'; ?> --CLEAN-- --EXPECT-- tests done pear-Archive_Tar-a0d2c45/tests/permissions.phpt000066400000000000000000000005121524136475500216560ustar00rootroot00000000000000--TEST-- test preserving of permissions --SKIPIF-- --FILE-- extract('', true); $phpunit->assertNoErrors('after'); echo 'tests done'; ?> --CLEAN-- --EXPECT-- tests done pear-Archive_Tar-a0d2c45/tests/phpt_test.php.inc000066400000000000000000000315371524136475500217140ustar00rootroot00000000000000_diffonly = $diffonly; $this->_errors = array(); PEAR::setErrorHandling(PEAR_ERROR_CALLBACK, array($this, 'pearerrorCallback')); if (!$noStackCatch) { PEAR_ErrorStack::setDefaultCallback(array($this, 'pearerrorstackCallback')); } } function pearerrorCallback($err) { PEAR_ErrorStack::staticPush('PEAR_Error', -1, 'error', array('obj' => $err), $err->getMessage()); } function pearerrorstackCallback($err) { $this->_errors[] = $err; } function assertPEARError($err, $message) { if (is_a($err, 'PEAR_Error')) { return true; } $this->_failTest(debug_backtrace(), $message); echo "Not a PEAR_Error\n"; return false; } function assertNoErrors($message, $trace = null) { if (count($this->_errors) == 0) { return true; } if ($trace === null) { $trace = debug_backtrace(); } $this->_failTest($trace, $message); foreach ($this->_errors as $err) { if ($err['package'] == 'PEAR_Error') { echo "Unexpected PEAR_Error:\n"; echo 'message "' . $err['message'] . "\"\n"; } else { echo "Unexpected PEAR_ErrorStack error:\n"; echo 'package "' . $err['package'] . "\"\n"; echo 'message "' . $err['message'] . "\"\n"; } } $this->_errors = array(); return false; } function assertErrors($errors, $message, $trace = null) { if (!count($this->_errors)) { if ($trace === null) { $trace = debug_backtrace(); } $this->_failTest($trace, $message); echo "No errors caught, but errors were expected\n"; return false; } if (!isset($errors[0])) { $errors = array($errors); } $failed = false; foreach ($errors as $err) { $found = false; foreach ($this->_errors as $i => $caughterror) { if ($caughterror['package'] == $err['package']) { if ($caughterror['message'] == $err['message']) { $found = true; break; } } } if ($found) { unset($this->_errors[$i]); continue; } if (!$failed) { if ($trace === null) { $trace = debug_backtrace(); } $failed = true; $this->_failTest($trace, $message); } echo "Unthrown error:\n"; if ($err['package'] == 'PEAR_Error') { echo "PEAR_Error:\n"; } else { echo "error package: \"$err[package]\"\n"; } echo "message: \"$err[message]\"\n"; } if (count($this->_errors)) { if (!$failed) { if ($trace === null) { $trace = debug_backtrace(); } $failed = true; $this->_failTest($trace, $message); } foreach ($this->_errors as $err) { echo "Unexpected error:\n"; if ($err['package'] == 'PEAR_Error') { echo "PEAR_Error:\n"; } else { echo "error package: \"$err[package]\"\n"; } echo "message: \"$err[message]\"\n"; } } $this->_errors = array(); return !$failed; } function assertTrue($test, $message) { $this->assertNoErrors($message, debug_backtrace()); if ($test === true) { return true; } $this->_failTest(debug_backtrace(), $message); echo "Unexpected non-true value: \n"; var_export($test); echo "\n'$message'\n"; return false; } function assertIsa($control, $test, $message) { $this->assertNoErrors($message, debug_backtrace()); if (is_a($test, $control)) { return true; } $this->_failTest(debug_backtrace(), $message); echo "Unexpected non-$control object: \n"; var_export($test); echo "\n'$message'\n"; return false; } function assertNull($test, $message) { $this->assertNoErrors($message, debug_backtrace()); if ($test === null) { return true; } $this->_failTest(debug_backtrace(), $message); echo "Unexpected non-null value: \n"; var_export($test); echo "\n'$message'\n"; return false; } function assertNotNull($test, $message) { $this->assertNoErrors($message, debug_backtrace()); if ($test !== null) { return true; } $this->_failTest(debug_backtrace(), $message); echo "Unexpected null: \n"; var_export($test); echo "\n'$message'\n"; return false; } function assertSame($test, $test1, $message) { $this->assertNoErrors($message, debug_backtrace()); if ($test === $test1) { return true; } $this->_failTest(debug_backtrace(), $message); echo "Unexpectedly two vars are not the same thing: \n"; echo "\n'$message'\n"; return false; } function assertNotSame($test, $test1, $message) { $this->assertNoErrors($message, debug_backtrace()); if ($test !== $test1) { return true; } $this->_failTest(debug_backtrace(), $message); echo "Unexpectedly two vars are the same thing: \n"; echo "\n'$message'\n"; return false; } function assertFalse($test, $message) { $this->assertNoErrors($message, debug_backtrace()); if ($test === false) { return true; } $this->_failTest(debug_backtrace(), $message); echo "Unexpected non-false value: \n"; var_export($test); echo "\n'$message'\n"; return false; } function assertNotTrue($test, $message) { $this->assertNoErrors($message, debug_backtrace()); if (!$test) { return true; } $this->_failTest(debug_backtrace(), $message); echo "Unexpected loose true value: \n"; var_export($test); echo "\n'$message'\n"; return false; } function assertNotFalse($test, $message) { $this->assertNoErrors($message, debug_backtrace()); if ($test) { return true; } $this->_failTest(debug_backtrace(), $message); echo "Unexpected loose false value: \n"; var_export($test); echo "\n'$message'\n"; return false; } function assertEquals($control, $test, $message) { $this->assertNoErrors($message, debug_backtrace()); if (str_replace(array("\r", "\n"), array('', ''), var_export($control, true)) != str_replace(array("\r", "\n"), array('', ''), var_export($test, true))) { $this->_failTest(debug_backtrace(), $message); if (class_exists('Text_Diff')) { echo "Diff of expecting/received:\n"; $diff = new Text_Diff( explode("\n", var_export($control, true)), explode("\n", var_export($test, true))); // Output the diff in unified format. $renderer = new Text_Diff_Renderer_unified(); echo $renderer->render($diff); if ($this->_diffonly) { return false; } } echo "Expecting:\n"; var_export($control); echo "\nReceived:\n"; var_export($test); echo "\n"; return false; } return true; } function assertFileExists($fname, $message) { $this->assertNoErrors($message, debug_backtrace()); if (!@file_exists($fname)) { $this->_failTest(debug_backtrace(), $message); echo "File '$fname' does not exist, and should\n"; return false; } return true; } function assertFileNotExists($fname, $message) { $this->assertNoErrors($message, debug_backtrace()); if (@file_exists($fname)) { $this->_failTest(debug_backtrace(), $message); echo "File '$fname' exists, and should not\n"; return false; } return true; } function assertRegEquals($dump, &$reg, $message) { $actualdump = var_export(trim($this->dumpReg($reg)), true); $testdump = var_export(trim($dump), true); return $this->assertEquals($testdump, $actualdump, $message); } function assertPackageInfoEquals($control, $test, $message) { $this->assertNoErrors($message, debug_backtrace()); if (isset($control[0])) { if (!isset($test[0]) || (count($control) != count($test))) { echo "Invalid packageInfo\n"; $ret = $this->assertEquals($control, $test, $message); } $ret = true; foreach ($control as $i => $packageinfo) { $ret = $ret && $this->assertPackageInfoEquals($packageinfo, $test[$i], $message . $i); } return $ret; } if (isset($control['_lastmodified'])) { if (!isset($test['_lastmodified'])) { echo "_lastmodified is not set in packageInfo() output\n"; $this->_failTest(debug_backtrace(), $message); return false; } } $savecontrol = sort($control); $savetest = sort($test); unset($control['_lastmodified']); unset($test['_lastmodified']); if (var_export($control, true) != var_export($test, true)) { $this->_failTest(debug_backtrace(), $message); if (class_exists('Text_Diff')) { echo "Diff of expecting/received:\n"; $diff = new Text_Diff( explode("\n", var_export($control, true)), explode("\n", var_export($test, true))); // Output the diff in unified format. $renderer = new Text_Diff_Renderer_unified(); echo $renderer->render($diff); if ($this->_diffonly) { return false; } } echo "Expecting:\n"; var_export($savecontrol); echo "\nReceived:\n"; var_export($savetest); return false; } return true; } function _sortRegEntries($a, $b) { return strnatcasecmp($a['name'], $b['name']); } function dumpReg(&$reg) { ob_start(); print "dumping registry...\n"; $infos = $reg->packageInfo(null, null, null); ksort($infos); foreach ($infos as $channel => $info) { echo "channel $channel:\n"; usort($info, array($this, '_sortRegEntries')); foreach ($info as $pkg) { print $pkg["name"] . ":"; unset($pkg["name"]); foreach ($pkg as $k => $v) { if ($k == '_lastmodified') { print " _lastmodified is set"; continue; } if (is_array($v) && $k == 'filelist') { print " $k=array("; $i = 0; foreach ($v as $k2 => $v2) { if ($i++ > 0) print ","; print "{$k2}["; $j = 0; foreach ($v2 as $k3 => $v3) { if ($j++ > 0) print ","; print "$k3=$v3"; } print "]"; } print ")"; } else { print " $k=\"$v\""; } } print "\n"; } } print "dump done\n"; $ret = ob_get_contents(); ob_end_clean(); return $ret; } function _failTest($trace, $message) { echo 'Test Failure: "' . $message . "\"\n in " . $trace[0]['file'] . ' line ' . $trace[0]['line'] . "\n"; } function showAll() { $this->_diffonly = false; } } ?>pear-Archive_Tar-a0d2c45/tests/relativesymlink.phpt000066400000000000000000000012611524136475500225270ustar00rootroot00000000000000--TEST-- test symbolic links --SKIPIF-- --FILE-- extract(); $phpunit->assertNoErrors('after'); $phpunit->assertFileExists('testme', 'dir'); $phpunit->assertFileExists('testme/a/file1.txt', 'file1.txt'); $phpunit->assertFileExists('testme/b/symlink.txt', 'symlink.txt'); $phpunit->assertTrue(is_link('testme/b/symlink.txt'), 'is link'); echo 'tests done'; ?> --CLEAN-- --EXPECT-- tests done pear-Archive_Tar-a0d2c45/tests/relativesymlink.tar000066400000000000000000000240001524136475500223360ustar00rootroot00000000000000testme/0000700000175000017500000000000014006336350011341 5ustar woefewoefetestme/b/0000700000175000017500000000000014006336415011564 5ustar woefewoefetestme/b/symlink.txt0000777000175000017500000000000014006336415016216 2../a/file1.txtustar woefewoefetestme/a/0000700000175000017500000000000014006336363011565 5ustar woefewoefetestme/a/file1.txt0000600000175000017500000000000514006336363013323 0ustar woefewoefetest pear-Archive_Tar-a0d2c45/tests/setup.php.inc000066400000000000000000000005571524136475500210400ustar00rootroot00000000000000extract(); $phpunit->assertNoErrors('after'); $phpunit->assertFileExists('testme', 'dir'); $phpunit->assertFileExists('testme/file1.txt', 'file1.txt'); $phpunit->assertFileExists('testme/symlink.txt', 'symlink.txt'); $phpunit->assertTrue(is_link('testme/symlink.txt'), 'is link'); echo 'tests done'; ?> --CLEAN-- --EXPECT-- tests done pear-Archive_Tar-a0d2c45/tests/symlink_disallow.phpt000066400000000000000000000013651524136475500226760ustar00rootroot00000000000000--TEST-- test symbolic links --SKIPIF-- --FILE-- extract('', false, false); $phpunit->assertErrors(array( array( 'package' => 'PEAR_Error', 'message' => 'Symbolic links are not allowed. Unable to extract {testme/symlink.txt}' ), ), 'Warning thrown'); $phpunit->assertFileExists('testme', 'dir'); $phpunit->assertFileNotExists('testme/file1.txt', 'file1.txt'); $phpunit->assertFileNotExists('testme/symlink.txt', 'symlink.txt'); echo 'tests done'; ?> --CLEAN-- --EXPECT-- tests done pear-Archive_Tar-a0d2c45/tests/testblock1/000077500000000000000000000000001524136475500204635ustar00rootroot00000000000000pear-Archive_Tar-a0d2c45/tests/testblock1/a.txt000066400000000000000000000000041524136475500214360ustar00rootroot00000000000000abc pear-Archive_Tar-a0d2c45/tests/testblock1/bugTriggeringPng.png000066400000000000000000000415021524136475500244370ustar00rootroot00000000000000PNG  IHDR5؂Z IDATxwxwfH ЫXQEZ D\ "`7!kWDtJ mwf~ 1 KH6l~?O5j>x<>MZYG5辂sܭmխs:kx<}ZX8eO#+G`q=I)KV$lݶ(!@h6iUSTq۲2rO>FַveSv( 4vgfMMHO͚]^^]o?&::yNKQs V>ug_|c.9~ۅWY9xj݃?[8욦?H@1]Q.UUqֵޕyy5EQZhѵ=CSUMkvMSx(64 ͖;1}6͛^."[mFGm60:QeE$=#O?KJNM"o<չCeQo&/7O=6Y,Y FDD>0OcEd=o,ZN/"Ng-[0lP뭷 :S@=}p0E$3Nq=~w)PƪqLnk6MUSDLWUcrsEF(W^)5W8K6mvny)̪ CTUzI_F8*Q1nx<Y|Mڛg_nkSdyti96˥"0e=-[\)""B:wlM_}4nԠMׅx<"{Mӊ,UZ7]wIZ'"M_ܾcwNNVh[֝[G+Q#jjUKW1 lؠlݶ˚δx|uz-;]Բs<>)WujxuS{:ֶ[ժFYTeX\Lt\Ncۥ=nOZH_6Q_wC۟vVKGOt\Nt8p4{tr9۴nfj޾Mkh=6^dȈ[]_F5ʺ]F[]"b)7|&"Ctz)"{6㐷DD{[uTEQa~=bW䋏O.ΉTd /zĝt:Tѵهj*'}U%!kY #m9FuáYMx?FGYKTEևm-LK9([ee}M}U9g=CN|>ٲuǂKV _t͢y/J@ZzDds HJN]b*+l=/sN6n,<%V?3)@<9@E4ޱUQ${zt]DXSMIB;ĝ@PQ&"{iii٧stðu]=9T6f4ͦiZ)jHj(_ c7۳}~({U۝wStC7 ã{DDUt:UiͧK_V9xpRRr 3.Zv|ɾ(~=3Oar'NܿfuC*!!.Wdggegd4f|TeTV1[׫wIdd>-i:Td%gm랜ogϾ"bE 7v暩xuF5w׬7?0"~[+ p'i'5dh5W[bϓxts\5ju:Oʕq8EVWe6iw"VEOΛKko'O}ﾭth5XwM}WdG6E ?X5'xgIv׷poN,NS_{A罳A翻b3罳:6 @JJx47]1sxoݽ&Lzy_v7p3F3z9rd) _`[x Gv ClnԮ]K|=8vZTfYciz<_60b p)9s1@4~.rn;++WDB]Ǚ`8T/zwPXx|MxU5FNf(U)F?/o\mX?};!!a¸ zLbƨ={o#vfקO> ~3F͞BwϞ5r`*g7w=nb^R8Y;ܪUCB\"bf͚?-".WHʕ9JHVjtVV6Me+W1?VlrdVOnٺȑ.W$s{֩kE䫯?xîy\pidoY\&(܎(%TI,lӏ6|7˯-߻ŌQVͷ߿F%h3!!!ֽuֿ?gnIHX-ώr兗eC('93Sv{­y?MS Ck~Gi]vjf%aa99ޑ`y^@p޿?D">vT|0%нK͛71cTWOn?^`gt™Veտuࢄ]HHXu"Ұɣ61+9NMܐPgC<#=mNۋ?l>n{HK=:o#[VUU֯/?v版E̓i)(+"i6lTf~,"Z^'q"۝[Ğiy9Ǿ^;wߤ.rOd\WNnޏ?mپ3 ;v%vzkj/J*:ONI[s-ˆaV\)zcTZrSv)e^9P%3.VY YF ⌹w}+G |պSF뫧u΁w9#X>oxkKMMvůʷ?=k>ٱ3K,̒Rn'QCG?E9hp8vj&*z鈈ӧO[KOUUxyj632үuHhXHhص׵H߱cf.+zeM~ySV鬬o]˛eK4UD$"{f_胣~޷wo)#u]>l`ܶ#Ѿ:q\\܇ޱrNWO? yCA V/й_]-.]%sj۸S9G*t\a-veV7nܸqc˖v)"rNՂ/PVU%1qwbb5kW]4͌v)(۝㏛32L_V=|T."Pd8t䙫{8h및<|2T:5+;vᣚ`Qz!.g>{lic[F`8ΛR9u/5Z*"ͪ_e+)*shͺ+L+6uJnݺu&9W衽9@w6ֽ5趮>^6鶮ֽ5Ȼx8E`* uCUE0kժk׮䤔]vժU4LEUQt u8t(*#_êWY*֟)b""fӴeM弯;[_~ݦ(VRD<z%MSۺNիEvo_DtÌmPnMJYp邅K& )&" 幍FE$)9MU; 1MsDvL4+ޯtdf%WMmg+?9a-[e˖''F;Ƒ=<7ʩ/{#n񑙧1+/۹soٲ'8~` jv}jZ -]ֵ_u$9ȝt:#"u0 QD?؛^MSE0t'""cӱ`vCl6u^mVNCMmIszդ9_xwCl6[%͇ u9t9aAE.)=X TPQ n6mpCVni׮Do-<0L]0u#mth)n@TMOʿ-{IKKoh=&L8\q3xgxh}ewWDLޠEːXu#x׼hG6DŽk^㑩k_ziTݝUֵφ;6q6>嶮CѢW֮Y𒳕-N,@̴iSۜRrʕ+vmf "(x<UrCv(i)55M4Eia7nuѝgîYm@14Y9姳f*?/yCC=>e=}DŽ'=?DŽ'=^=}d{kZ`ԅ>^n;Otuf+Oc .s "a9|PU՘*U*RJLLwO~N˪zr{w(99,\g-@Y EWvyBm~h+ {??&xaHϏ*q}o*f .p ˆ<%(ӧwlVKVT)++s"bvGhhvNgMOOc߾r> (\ =4mͿix^=swʃzOD6|j(D$ԥy6ADE.EzXq躞gOJrr*EFEU^)4rh#$$4%.kFvvΉ'R23~j7Y4̙ ?>JJ6lYpݯ _e]RIkTD/9Zۜo%%|;U_ՆW~RE7+P~ )cz?Xuk^xTlB;P)|Ex9ESpPq)d%{HR֡Z/[WGV͕]YE9*0X,<瑧^<~Ox1oH(r+V+ݯi7bÿ/~ŗſw"q6ƚ_vɻA{(eܴw.} L (1<[-R3+8O`/X|`ռ?$8cqm(ck}bGg&Ja .6w~V5lPe&yò s ET81TX>YK7U_ȋ.iԢwʮ=;x$akn[E&NZӰB*V¤{EGVZ _KGL}ei7⧟wʟ obˉO IDAT{uW}Ѵ/&"Nc7Nc@߻ZpYWXxv{<_^>ݐi Q5v'm.2"1,7 C* q@?;ՇPDf[\e Ќ;ؾ|ʤ{<2*rՕGvYx䔌ukXխzQZM]XxC;Vz+/rTLTn5x_o2ew?~t@|(2ݻ8\gj"VU6ȲU_^Zŕ|lz]xw}ؿa{]GYCz|\ SDѡ8c* l؀ҮUZ ?C=p~;WG?;!mkTVekIիU~Կϭ.c@O>waM}p]ȋlzzc۵.>y7W ݻ8\5'Wxylqpݜ7MJ7 l?bǰYo 8/1T\  mv/̚ZDh`ޱ2c?Yln%d'&>F;o~d99yW|8›Qw|֨a%+?}4w _pyJaY)Ws[E*pkھr[OY7Ƚ.#?EQ'A3B$XC/_e+rZto=ܿvW~u.y~ޏJixUy ?9<k}?szm7^.k/+2ݻ8\=8'm7ʞ{~wS/z[a{}^_C.(CWJ $Q@I<}#G tmܬEme܁m/u+?S_ x9rMZ\튥XXjZڦMuwtg g0nxz: \[@0&kWjGZj>  @I] q3ʫEEqd E.uρ3|_V0&>ԝvOD䷭ڱ&8dȒeQc{gА{ );1T\6n֢u_~۪XEv٫]"]5z}{OΝ:&|soǽz[;vܩ򴩺maw퓔<"2o;6rĽޫ2@V g?@@:[i`=ױ{eM\-͛5;|ȉ'._9m5km۶}Ԙq"-" iۻS~g-&=(iIg3BCCΞ)"mSO/ /^lK:uʺd򗦿"">u?>}^zmx| 2he?ᑇ>`i/wpQ`qGz2k@iC-͞;o9~Rs( @Z59@h;>^4hpws?/q8 ~Jv-֭Y7[[yI6m6lrK7o6w 3ȯGJʋ3'y&)= @jgn=zO^zWs Dkƌ{͛4i4CijFƱys^k(v=q-y4?8 ,~Co%O| 1M4/9^*>9wN$] ̘?ܩyW8Csc~L 0idC ͉Y`Ƥ>}~J[j줧Llެ(f=aϲ-uP wN1)<åӏL! ؑ"0lWY)"kVK@4?[~:f܃W4oޤIG;ws.M,d'W+t._+}%B#lw#"q]1{ Y۽nʜܛoеs Xҽ[\nq>4;+E  1tu4/kf2͛ݾ}o1~ *$44tf:k劢B+ w&'%'Oq\QKSRƌ{ݷ 1M ~G91M]:m;z1}Z%/N{Ed= @P#D7 P͚5?hUUΞg&ۜYxK/PEJ!@IUXQo"9s 2R[|@""aO(s:`$a~'F#1 =džq#M t@ufX.K\@oHR=&K\˖:2%{@G3xؽΐ@Rr</4E{ B A"$@! Dx t .~W_wCC(/Hp;  DH B A"$@͘5FL՞:ݪg̚(@MD>54mvEP~Z'&: PZՋ(`Պ"BRཕM=8 uCIDAT^tIENDB`pear-Archive_Tar-a0d2c45/tests/testblock2/000077500000000000000000000000001524136475500204645ustar00rootroot00000000000000pear-Archive_Tar-a0d2c45/tests/testblock2/.gitignore000066400000000000000000000000001524136475500224420ustar00rootroot00000000000000pear-Archive_Tar-a0d2c45/tests/testblock3/000077500000000000000000000000001524136475500204655ustar00rootroot00000000000000pear-Archive_Tar-a0d2c45/tests/testblock3/1024bytes.txt000066400000000000000000000020001524136475500226530ustar00rootroot00000000000000194 210 54 166 74 179 115 216 109 21 220 29 144 242 90 206 240 73 172 14 153 163 43 16 233 20 186 91 95 150 60 61 180 187 233 126 130 154 116 206 213 231 202 148 148 12 125 24 6 139 32 235 117 240 56 96 23 1 182 167 116 64 92 73 250 177 157 119 121 148 112 50 89 24 37 214 81 88 201 75 162 108 60 114 137 227 170 186 231 213 177 33 44 143 243 98 14 28 226 77 152 241 243 62 103 237 187 235 227 73 9 119 162 64 127 74 73 90 112 200 39 6 173 251 12 191 166 18 235 100 74 184 126 153 23 118 27 25 128 222 234 246 165 159 170 127 236 199 91 67 96 185 108 159 172 2 245 202 161 177 147 188 0 151 251 230 251 100 226 67 212 38 72 32 44 117 10 39 163 159 0 197 160 225 25 177 16 0 240 16 137 105 187 132 129 98 24 210 169 33 246 77 217 145 242 118 181 47 160 61 62 129 71 52 253 85 2 215 174 241 55 32 236 27 160 120 145 188 132 37 161 178 45 227 209 57 142 19 88 175 230 238 104 128 26 196 126 118 214 122 201 123 pear-Archive_Tar-a0d2c45/tests/testblock3/randombytes.txt000066400000000000000000000001721524136475500235550ustar00rootroot00000000000000250 97 98 194 5 149 229 27 58 62 133 73 95 230 219 128 224 98 210 250 162 58 240 80 202 249 173 203 125 186 pear-Archive_Tar-a0d2c45/tests/testpax.tar000066400000000000000000000240001524136475500206040ustar00rootroot00000000000000/tmp/GlobalHead.27927.10000644000000000000000000000001712342071120011475 gustar0015 key1=value1 ./PaxHeaders.27927/pax_test0000644000000000000000000000013212342067713012541 xustar0030 mtime=1401450443.615478614 30 atime=1401450443.615478614 30 ctime=1401450443.615478614 pax_test0000664000175000017500000000000012342067713013733 0ustar00michielmichiel00000000000000pear-Archive_Tar-a0d2c45/tests/testperms.tar000066400000000000000000000240001524136475500211420ustar00rootroot00000000000000a0000644000175000000410000000000011571433130010621 0ustar druidwww-datab0000777000175000000410000000000011571433131010632 0ustar druidwww-datapear-Archive_Tar-a0d2c45/tests/testsymlink.tar000066400000000000000000000240001524136475500215020ustar00rootroot00000000000000testme/0000775000077300007730000000000010543023332012540 5ustar chiaraquchiaraqutestme/symlink.txt0000777000077300007730000000000010543023332016523 2file1.txtustar chiaraquchiaraqutestme/file1.txt0000664000077300007730000000001010543023320014265 0ustar chiaraquchiaraqufile #1 pear-Archive_Tar-a0d2c45/tests/text-0.txt000066400000000000000000000020001524136475500202620ustar00rootroot00000000000000a8,.vT[$Fe;>}hm\"#xO7:46y_tg6c-[A&S]z0fke?(B6?$:W$X{E%PO>~UWl8( .%RWPjN55)cd&?oJPgFFZj#+UT~!xcu46(QhbViq%FShbsm5Qt:8}[V1 ov!|iNrfBH)JBa)G?P*v!@=?:Y^2!)v `wxPQ^xT[~W6&q^Un@"c#g3=M++ 0.x ]^Lo4{|}Q]YN?GSaA/*s,Az>04&2Vib~Au.=ZqMTw~=}UoF/~5Gs;JTXF*C#&Vx%>lw9AdZ_eM{s8B# II*pD'_4H[LivE(4!$@Ak^ =|U/{r5n)I{(01wGUM53800-aIdiv1U_HDvgp2q}X,v-{O! 'u$8RJbBO]lJSI3L"hj=z .Bfl)waj* 8.G,qEubj;:xJc@Y14nZ`V|%dIk$GAks_MI|y^0R3)rIY9I.DfD,kZ9ap{z Xn