mirror of
https://github.com/php/php-src.git
synced 2024-10-13 20:42:38 +00:00
3d95bf927c
* Tar archive is now doing the same work with less overhead
162 lines
5.3 KiB
PHP
162 lines
5.3 KiB
PHP
<?php
|
|
//
|
|
// +----------------------------------------------------------------------+
|
|
// | PHP Version 4 |
|
|
// +----------------------------------------------------------------------+
|
|
// | Copyright (c) 1997-2002 The PHP Group |
|
|
// +----------------------------------------------------------------------+
|
|
// | This source file is subject to version 2.02 of the PHP license, |
|
|
// | that is bundled with this package in the file LICENSE, and is |
|
|
// | available at through the world-wide-web at |
|
|
// | http://www.php.net/license/2_02.txt. |
|
|
// | If you did not receive a copy of the PHP license and are unable to |
|
|
// | obtain it through the world-wide-web, please send a note to |
|
|
// | license@php.net so we can mail you a copy immediately. |
|
|
// +----------------------------------------------------------------------+
|
|
// | Authors: Stig Bakken <ssb@fast.no> |
|
|
// | Tomas V.V.Cox <cox@idecnet.com> |
|
|
// | |
|
|
// +----------------------------------------------------------------------+
|
|
//
|
|
// $Id$
|
|
|
|
require_once 'PEAR/Common.php';
|
|
|
|
/**
|
|
* Administration class used to make a PEAR release tarball.
|
|
*
|
|
* TODO:
|
|
* - add an extra param the dir where to place the created package
|
|
* - finish and test Windows support
|
|
*
|
|
* @since PHP 4.0.2
|
|
* @author Stig Bakken <ssb@fast.no>
|
|
*/
|
|
class PEAR_Packager extends PEAR_Common
|
|
{
|
|
// {{{ properties
|
|
|
|
/** assoc with information about the package */
|
|
var $pkginfo = array();
|
|
|
|
/** name of the package directory, for example Foo-1.0 */
|
|
var $pkgdir;
|
|
|
|
/** directory where PHP code files go */
|
|
var $phpdir;
|
|
|
|
/** directory where PHP extension files go */
|
|
var $extdir;
|
|
|
|
/** directory where documentation goes */
|
|
var $docdir;
|
|
|
|
/** directory where system state information goes */
|
|
var $statedir;
|
|
|
|
/** debug mode (integer) */
|
|
var $debug = 0;
|
|
|
|
/** temporary directory */
|
|
var $tmpdir;
|
|
|
|
/** whether file list is currently being copied */
|
|
var $recordfilelist;
|
|
|
|
/** temporary space for copying file list */
|
|
var $filelist;
|
|
|
|
/** package name and version, for example "HTTP-1.0" */
|
|
var $pkgver;
|
|
|
|
// }}}
|
|
|
|
// {{{ constructor
|
|
|
|
function PEAR_Packager($phpdir = PEAR_INSTALL_DIR,
|
|
$extdir = PEAR_EXTENSION_DIR,
|
|
$docdir = '')
|
|
{
|
|
$this->PEAR();
|
|
$this->phpdir = $phpdir;
|
|
$this->extdir = $extdir;
|
|
$this->docdir = $docdir;
|
|
}
|
|
|
|
// }}}
|
|
// {{{ destructor
|
|
|
|
function _PEAR_Packager()
|
|
{
|
|
chdir($this->orig_pwd);
|
|
$this->_PEAR_Common();
|
|
}
|
|
|
|
// }}}
|
|
|
|
// {{{ package()
|
|
|
|
function package($pkgfile = null)
|
|
{
|
|
$this->orig_pwd = getcwd();
|
|
if (empty($pkgfile)) {
|
|
$pkgfile = 'package.xml';
|
|
}
|
|
$pkginfo = $this->infoFromDescriptionFile($pkgfile);
|
|
if (PEAR::isError($pkginfo)) {
|
|
return $pkginfo;
|
|
}
|
|
// XXX This needs to be checked in infoFromDescriptionFile
|
|
// or at least a helper method to do the proper checks
|
|
if (empty($pkginfo['version'])) {
|
|
return $this->raiseError("No version information found in $pkgfile",
|
|
null, PEAR_ERROR_TRIGGER, E_USER_ERROR);
|
|
}
|
|
// TMP DIR -------------------------------------------------
|
|
// We allow calls like "pear package /home/user/mypack/package.xml"
|
|
if (!@chdir(dirname($pkgfile))) {
|
|
return $this->raiseError('Couldn\'t chdir to package.xml dir',
|
|
null, PEAR_ERROR_TRIGGER, E_USER_ERROR);
|
|
}
|
|
$pwd = getcwd();
|
|
$pkgfile = basename($pkgfile);
|
|
if (isset($pkginfo['release_state']) && $pkginfo['release_state'] == 'snapshot') {
|
|
$pkginfo['version'] = date('Ymd');
|
|
}
|
|
// don't want strange characters
|
|
$pkgname = ereg_replace ('[^a-zA-Z0-9._]', '_', $pkginfo['package']);
|
|
$pkgversion = ereg_replace ('[^a-zA-Z0-9._\-]', '_', $pkginfo['version']);
|
|
$pkgver = $pkgname . '-' . $pkgversion;
|
|
|
|
// ----- Create the package file list
|
|
$filelist = array();
|
|
$i = 0;
|
|
|
|
// ----- Add the package XML file
|
|
$filelist[$i++] = $pkgfile;
|
|
|
|
// Copy files -----------------------------------------------
|
|
foreach ($pkginfo['filelist'] as $fname => $atts) {
|
|
if (!file_exists($fname)) {
|
|
return $this->raiseError("File $fname does not exists");
|
|
} else {
|
|
$filelist[$i++] = $fname;
|
|
}
|
|
}
|
|
// XXX TODO: Rebuild the package file as the old method did?
|
|
|
|
// TAR the Package -------------------------------------------
|
|
$dest_package = $this->orig_pwd . DIRECTORY_SEPARATOR . "{$pkgver}.tgz";
|
|
$tar = new Archive_Tar($dest_package, true);
|
|
$tar->setErrorHandling(PEAR_ERROR_PRINT);
|
|
if (!$tar->createModify($filelist, $pkgver)) {
|
|
return $this->raiseError('an error ocurred during package creation');
|
|
}
|
|
$this->log(1, "Package $dest_package done");
|
|
return $dest_package;
|
|
}
|
|
|
|
// }}}
|
|
}
|
|
|
|
?>
|