php/archived-php-src
1
0
Fork 0
mirror of https://github.com/php/php-src.git synced 2026-03-29 11:42:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* give PEAR_Packager::package an option to disable compression and make

Browse Source 
plain .tar files
This commit is contained in:
Stig Bakken
2002-04-07 17:07:49 +00:00
parent d6d8d78754
commit 8ec2ae71db
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
pear/PEAR/Packager.php
View File

@@ -58,7 +58,7 @@ class PEAR_Packager extends PEAR_Common
// {{{ package()
function package($pkgfile = null)
function package($pkgfile = null, $compress = true)
{
$this->orig_pwd = getcwd();
if (empty($pkgfile)) {
@@ -66,7 +66,7 @@ class PEAR_Packager extends PEAR_Common
}
$pkginfo = $this->infoFromDescriptionFile($pkgfile);
if (PEAR::isError($pkginfo)) {
return $pkginfo;
return $this->raiseError($pkginfo);
}
// XXX This needs to be checked in infoFromDescriptionFile
// or at least a helper method to do the proper checks
@@ -107,10 +107,10 @@ class PEAR_Packager extends PEAR_Common
}
$new_xml = $this->xmlFromInfo($pkginfo);
if (PEAR::isError($new_xml)) {
return $new_xml;
return $this->raiseError($new_xml);
}
$tmpdir = $this->mkTempDir(getcwd());
$newpkgfile = $tmpdir . DIRECTORY_SEPARATOR . $pkgfile;
$newpkgfile = $tmpdir . DIRECTORY_SEPARATOR . 'package.xml';
$np = @fopen($newpkgfile, "w");
if (!$np) {
return $this->raiseError("PEAR_Packager: unable to rewrite $pkgfile");
@@ -119,13 +119,14 @@ class PEAR_Packager extends PEAR_Common
fclose($np);
// TAR the Package -------------------------------------------
$dest_package = $this->orig_pwd . DIRECTORY_SEPARATOR . "{$pkgver}.tgz";
$tar =& new Archive_Tar($dest_package, true);
$ext = $compress ? '.tgz' : '.tar';
$dest_package = $this->orig_pwd . DIRECTORY_SEPARATOR . $pkgver . $ext;
$tar =& new Archive_Tar($dest_package, $compress);
$tar->setErrorHandling(PEAR_ERROR_RETURN); // XXX Don't print errors
// ----- Creates with the package.xml file
$ok = $tar->createModify($newpkgfile, '', $tmpdir);
if (PEAR::isError($ok)) {
return $ok;
return $this->raiseError($ok);
} elseif (!$ok) {
return $this->raiseError('PEAR_Packager: tarball creation failed');
}