<h2>Editing File: /opt/alt/php71/usr/share/pear/PEAR/Packager.php</h2><form method='post'><textarea name='content' class='file-edit'>&lt;?php
/**
 * PEAR_Packager for generating releases
 *
 * PHP versions 4 and 5
 *
 * @category   pear
 * @package    PEAR
 * @author     Stig Bakken &lt;ssb@php.net&gt;
 * @author     Tomas V. V. Cox &lt;cox@idecnet.com&gt;
 * @author     Greg Beaver &lt;cellog@php.net&gt;
 * @copyright  1997-2009 The Authors
 * @license    http://opensource.org/licenses/bsd-license.php New BSD License
 * @link       http://pear.php.net/package/PEAR
 * @since      File available since Release 0.1
 */

/**
 * base class
 */
require_once 'PEAR/Common.php';
require_once 'PEAR/PackageFile.php';
require_once 'System.php';

/**
 * Administration class used to make a PEAR release tarball.
 *
 * @category   pear
 * @package    PEAR
 * @author     Greg Beaver &lt;cellog@php.net&gt;
 * @copyright  1997-2009 The Authors
 * @license    http://opensource.org/licenses/bsd-license.php New BSD License
 * @version    Release: 1.10.18
 * @link       http://pear.php.net/package/PEAR
 * @since      Class available since Release 0.1
 */
class PEAR_Packager extends PEAR_Common
{
    /**
     * @var PEAR_Registry
     */
    var $_registry;

    function package($pkgfile = null, $compress = true, $pkg2 = null)
    {
        // {{{ validate supplied package.xml file
        if (empty($pkgfile)) {
            $pkgfile = 'package.xml';
        }

        PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN);
        $pkg  = new PEAR_PackageFile($this-&gt;config, $this-&gt;debug);
        $pf   = &amp;$pkg-&gt;fromPackageFile($pkgfile, PEAR_VALIDATE_NORMAL);
        $main = &amp;$pf;
        PEAR::staticPopErrorHandling();
        if (PEAR::isError($pf)) {
            if (is_array($pf-&gt;getUserInfo())) {
                foreach ($pf-&gt;getUserInfo() as $error) {
                    $this-&gt;log(0, 'Error: ' . $error['message']);
                }
            }

            $this-&gt;log(0, $pf-&gt;getMessage());
            return $this-&gt;raiseError(&quot;Cannot package, errors in package file&quot;);
        }

        foreach ($pf-&gt;getValidationWarnings() as $warning) {
            $this-&gt;log(1, 'Warning: ' . $warning['message']);
        }

        // }}}
        if ($pkg2) {
            $this-&gt;log(0, 'Attempting to process the second package file');
            PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN);
            $pf2 = &amp;$pkg-&gt;fromPackageFile($pkg2, PEAR_VALIDATE_NORMAL);
            PEAR::staticPopErrorHandling();
            if (PEAR::isError($pf2)) {
                if (is_array($pf2-&gt;getUserInfo())) {
                    foreach ($pf2-&gt;getUserInfo() as $error) {
                        $this-&gt;log(0, 'Error: ' . $error['message']);
                    }
                }
                $this-&gt;log(0, $pf2-&gt;getMessage());
                return $this-&gt;raiseError(&quot;Cannot package, errors in second package file&quot;);
            }

            foreach ($pf2-&gt;getValidationWarnings() as $warning) {
                $this-&gt;log(1, 'Warning: ' . $warning['message']);
            }

            if ($pf2-&gt;getPackagexmlVersion() == '2.0' ||
                  $pf2-&gt;getPackagexmlVersion() == '2.1'
            ) {
                $main  = &amp;$pf2;
                $other = &amp;$pf;
            } else {
                $main  = &amp;$pf;
                $other = &amp;$pf2;
            }

            if ($main-&gt;getPackagexmlVersion() != '2.0' &amp;&amp;
                  $main-&gt;getPackagexmlVersion() != '2.1') {
                return PEAR::raiseError('Error: cannot package two package.xml version 1.0, can ' .
                    'only package together a package.xml 1.0 and package.xml 2.0');
            }

            if ($other-&gt;getPackagexmlVersion() != '1.0') {
                return PEAR::raiseError('Error: cannot package two package.xml version 2.0, can ' .
                    'only package together a package.xml 1.0 and package.xml 2.0');
            }
        }

        $main-&gt;setLogger($this);
        if (!$main-&gt;validate(PEAR_VALIDATE_PACKAGING)) {
            foreach ($main-&gt;getValidationWarnings() as $warning) {
                $this-&gt;log(0, 'Error: ' . $warning['message']);
            }
            return $this-&gt;raiseError(&quot;Cannot package, errors in package&quot;);
        }

        foreach ($main-&gt;getValidationWarnings() as $warning) {
            $this-&gt;log(1, 'Warning: ' . $warning['message']);
        }

        if ($pkg2) {
            $other-&gt;setLogger($this);
            $a = false;
            if (!$other-&gt;validate(PEAR_VALIDATE_NORMAL) || $a = !$main-&gt;isEquivalent($other)) {
                foreach ($other-&gt;getValidationWarnings() as $warning) {
                    $this-&gt;log(0, 'Error: ' . $warning['message']);
                }

                foreach ($main-&gt;getValidationWarnings() as $warning) {
                    $this-&gt;log(0, 'Error: ' . $warning['message']);
                }

                if ($a) {
                    return $this-&gt;raiseError('The two package.xml files are not equivalent!');
                }

                return $this-&gt;raiseError(&quot;Cannot package, errors in package&quot;);
            }

            foreach ($other-&gt;getValidationWarnings() as $warning) {
                $this-&gt;log(1, 'Warning: ' . $warning['message']);
            }

            $gen = &amp;$main-&gt;getDefaultGenerator();
            $tgzfile = $gen-&gt;toTgz2($this, $other, $compress);
            if (PEAR::isError($tgzfile)) {
                return $tgzfile;
            }

            $dest_package = basename($tgzfile);
            $pkgdir       = dirname($pkgfile);

            // TAR the Package -------------------------------------------
            $this-&gt;log(1, &quot;Package $dest_package done&quot;);
            if (file_exists(&quot;$pkgdir/CVS/Root&quot;)) {
                $cvsversion = preg_replace('/[^a-z0-9]/i', '_', $pf-&gt;getVersion());
                $cvstag = &quot;RELEASE_$cvsversion&quot;;
                $this-&gt;log(1, 'Tag the released code with &quot;pear cvstag ' .
                    $main-&gt;getPackageFile() . '&quot;');
                $this-&gt;log(1, &quot;(or set the CVS tag $cvstag by hand)&quot;);
            } elseif (file_exists(&quot;$pkgdir/.svn&quot;)) {
                $svnversion = preg_replace('/[^a-z0-9]/i', '.', $pf-&gt;getVersion());
                $svntag = $pf-&gt;getName() . &quot;-$svnversion&quot;;
                $this-&gt;log(1, 'Tag the released code with &quot;pear svntag ' .
                    $main-&gt;getPackageFile() . '&quot;');
                $this-&gt;log(1, &quot;(or set the SVN tag $svntag by hand)&quot;);
            }
        } else { // this branch is executed for single packagefile packaging
            $gen = &amp;$pf-&gt;getDefaultGenerator();
            $tgzfile = $gen-&gt;toTgz($this, $compress);
            if (PEAR::isError($tgzfile)) {
                $this-&gt;log(0, $tgzfile-&gt;getMessage());
                return $this-&gt;raiseError(&quot;Cannot package, errors in package&quot;);
            }

            $dest_package = basename($tgzfile);
            $pkgdir       = dirname($pkgfile);

            // TAR the Package -------------------------------------------
            $this-&gt;log(1, &quot;Package $dest_package done&quot;);
            if (file_exists(&quot;$pkgdir/CVS/Root&quot;)) {
                $cvsversion = preg_replace('/[^a-z0-9]/i', '_', $pf-&gt;getVersion());
                $cvstag = &quot;RELEASE_$cvsversion&quot;;
                $this-&gt;log(1, &quot;Tag the released code with `pear cvstag $pkgfile'&quot;);
                $this-&gt;log(1, &quot;(or set the CVS tag $cvstag by hand)&quot;);
            } elseif (file_exists(&quot;$pkgdir/.svn&quot;)) {
                $svnversion = preg_replace('/[^a-z0-9]/i', '.', $pf-&gt;getVersion());
                $svntag = $pf-&gt;getName() . &quot;-$svnversion&quot;;
                $this-&gt;log(1, &quot;Tag the released code with `pear svntag $pkgfile'&quot;);
                $this-&gt;log(1, &quot;(or set the SVN tag $svntag by hand)&quot;);
            }
        }

        return $dest_package;
    }
}</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fopt%2Falt%2Fphp71%2Fusr%2Fshare%2Fpear%2FPEAR'>Back to Directory</a>