Хранилища Subversion ant

<?php

/**

 * PEAR_Command_Install (install, upgrade, upgrade-all, uninstall, bundle, run-scripts commands)

 *

 * PHP versions 4 and 5

 *

 * LICENSE: This source file is subject to version 3.0 of the PHP license

 * that is available through the world-wide-web at the following URI:

 * http://www.php.net/license/3_0.txt.  If you did not receive a copy of

 * the PHP License and are unable to obtain it through the web, please

 * send a note to license@php.net so we can mail you a copy immediately.

 *

 * @category   pear

 * @package    PEAR

 * @author     Stig Bakken <ssb@php.net>

 * @author     Greg Beaver <cellog@php.net>

 * @copyright  1997-2008 The PHP Group

 * @license    http://www.php.net/license/3_0.txt  PHP License 3.0

 * @version    CVS: $Id: Install.php,v 1.141 2008/05/13 18:32:29 cellog Exp $

 * @link       http://pear.php.net/package/PEAR

 * @since      File available since Release 0.1

 */

/**

 * base class

 */

require_once 'PEAR/Command/Common.php';

/**

 * PEAR commands for installation or deinstallation/upgrading of

 * packages.

 *

 * @category   pear

 * @package    PEAR

 * @author     Stig Bakken <ssb@php.net>

 * @author     Greg Beaver <cellog@php.net>

 * @copyright  1997-2008 The PHP Group

 * @license    http://www.php.net/license/3_0.txt  PHP License 3.0

 * @version    Release: 1.7.2

 * @link       http://pear.php.net/package/PEAR

 * @since      Class available since Release 0.1

 */

class PEAR_Command_Install extends PEAR_Command_Common

{

    // {{{ properties

    var $commands = array(

        'install' => array(

            'summary' => 'Install Package',

            'function' => 'doInstall',

            'shortcut' => 'i',

            'options' => array(

                'force' => array(

                    'shortopt' => 'f',

                    'doc' => 'will overwrite newer installed packages',

                    ),

                'loose' => array(

                    'shortopt' => 'l',

                    'doc' => 'do not check for recommended dependency version',

                    ),

                'nodeps' => array(

                    'shortopt' => 'n',

                    'doc' => 'ignore dependencies, install anyway',

                    ),

                'register-only' => array(

                    'shortopt' => 'r',

                    'doc' => 'do not install files, only register the package as installed',

                    ),

                'soft' => array(

                    'shortopt' => 's',

                    'doc' => 'soft install, fail silently, or upgrade if already installed',

                    ),

                'nobuild' => array(

                    'shortopt' => 'B',

                    'doc' => 'don\'t build C extensions',

                    ),

                'nocompress' => array(

                    'shortopt' => 'Z',

                    'doc' => 'request uncompressed files when downloading',

                    ),

                'installroot' => array(

                    'shortopt' => 'R',

                    'arg' => 'DIR',

                    'doc' => 'root directory used when installing files (ala PHP\'s INSTALL_ROOT), use packagingroot for RPM',

                    ),

                'packagingroot' => array(

                    'shortopt' => 'P',

                    'arg' => 'DIR',

                    'doc' => 'root directory used when packaging files, like RPM packaging',

                    ),

                'ignore-errors' => array(

                    'doc' => 'force install even if there were errors',

                    ),

                'alldeps' => array(

                    'shortopt' => 'a',

                    'doc' => 'install all required and optional dependencies',

                    ),

                'onlyreqdeps' => array(

                    'shortopt' => 'o',

                    'doc' => 'install all required dependencies',

                    ),

                'offline' => array(

                    'shortopt' => 'O',

                    'doc' => 'do not attempt to download any urls or contact channels',

                    ),

                'pretend' => array(

                    'shortopt' => 'p',

                    'doc' => 'Only list the packages that would be downloaded',

                    ),

                ),

            'doc' => '[channel/]<package> ...

Installs one or more PEAR packages.  You can specify a package to

install in four ways:

"Package-1.0.tgz" : installs from a local file

"http://example.com/Package-1.0.tgz" : installs from

anywhere on the net.

"package.xml" : installs the package described in

package.xml.  Useful for testing, or for wrapping a PEAR package in

another package manager such as RPM.

"Package[-version/state][.tar]" : queries your default channel\'s server

({config master_server}) and downloads the newest package with

the preferred quality/state ({config preferred_state}).

To retrieve Package version 1.1, use "Package-1.1," to retrieve

Package state beta, use "Package-beta."  To retrieve an uncompressed

file, append .tar (make sure there is no file by the same name first)

To download a package from another channel, prefix with the channel name like

"channel/Package"

More than one package may be specified at once.  It is ok to mix these

four ways of specifying packages.

'),

        'upgrade' => array(

            'summary' => 'Upgrade Package',

            'function' => 'doInstall',

            'shortcut' => 'up',

            'options' => array(

                'force' => array(

                    'shortopt' => 'f',

                    'doc' => 'overwrite newer installed packages',

                    ),

                'loose' => array(

                    'shortopt' => 'l',

                    'doc' => 'do not check for recommended dependency version',

                    ),

                'nodeps' => array(

                    'shortopt' => 'n',

                    'doc' => 'ignore dependencies, upgrade anyway',

                    ),

                'register-only' => array(

                    'shortopt' => 'r',

                    'doc' => 'do not install files, only register the package as upgraded',

                    ),

                'nobuild' => array(

                    'shortopt' => 'B',

                    'doc' => 'don\'t build C extensions',

                    ),

                'nocompress' => array(

                    'shortopt' => 'Z',

                    'doc' => 'request uncompressed files when downloading',

                    ),

                'installroot' => array(

                    'shortopt' => 'R',

                    'arg' => 'DIR',

                    'doc' => 'root directory used when installing files (ala PHP\'s INSTALL_ROOT)',

                    ),

                'ignore-errors' => array(

                    'doc' => 'force install even if there were errors',

                    ),

                'alldeps' => array(

                    'shortopt' => 'a',

                    'doc' => 'install all required and optional dependencies',

                    ),

                'onlyreqdeps' => array(

                    'shortopt' => 'o',

                    'doc' => 'install all required dependencies',

                    ),

                'offline' => array(

                    'shortopt' => 'O',

                    'doc' => 'do not attempt to download any urls or contact channels',

                    ),

                'pretend' => array(

                    'shortopt' => 'p',

                    'doc' => 'Only list the packages that would be downloaded',

                    ),

                ),

            'doc' => '<package> ...

Upgrades one or more PEAR packages.  See documentation for the

"install" command for ways to specify a package.

When upgrading, your package will be updated if the provided new

package has a higher version number (use the -f option if you need to

upgrade anyway).

More than one package may be specified at once.

'),

        'upgrade-all' => array(

            'summary' => 'Upgrade All Packages',

            'function' => 'doUpgradeAll',

            'shortcut' => 'ua',

            'options' => array(

                'nodeps' => array(

                    'shortopt' => 'n',

                    'doc' => 'ignore dependencies, upgrade anyway',

                    ),

                'register-only' => array(

                    'shortopt' => 'r',

                    'doc' => 'do not install files, only register the package as upgraded',

                    ),

                'nobuild' => array(

                    'shortopt' => 'B',

                    'doc' => 'don\'t build C extensions',

                    ),

                'nocompress' => array(

                    'shortopt' => 'Z',

                    'doc' => 'request uncompressed files when downloading',

                    ),

                'installroot' => array(

                    'shortopt' => 'R',

                    'arg' => 'DIR',

                    'doc' => 'root directory used when installing files (ala PHP\'s INSTALL_ROOT), use packagingroot for RPM',

                    ),

                'ignore-errors' => array(

                    'doc' => 'force install even if there were errors',

                    ),

                'loose' => array(

                    'doc' => 'do not check for recommended dependency version',

                    ),

                ),

            'doc' => '

Upgrades all packages that have a newer release available.  Upgrades are

done only if there is a release available of the state specified in

"preferred_state" (currently {config preferred_state}), or a state considered

more stable.

'),

        'uninstall' => array(

            'summary' => 'Un-install Package',

            'function' => 'doUninstall',

            'shortcut' => 'un',

            'options' => array(

                'nodeps' => array(

                    'shortopt' => 'n',

                    'doc' => 'ignore dependencies, uninstall anyway',

                    ),

                'register-only' => array(

                    'shortopt' => 'r',

                    'doc' => 'do not remove files, only register the packages as not installed',

                    ),

                'installroot' => array(

                    'shortopt' => 'R',

                    'arg' => 'DIR',

                    'doc' => 'root directory used when installing files (ala PHP\'s INSTALL_ROOT)',

                    ),

                'ignore-errors' => array(

                    'doc' => 'force install even if there were errors',

                    ),

                'offline' => array(

                    'shortopt' => 'O',

                    'doc' => 'do not attempt to uninstall remotely',

                    ),

                ),

            'doc' => '[channel/]<package> ...

Uninstalls one or more PEAR packages.  More than one package may be

specified at once.  Prefix with channel name to uninstall from a

channel not in your default channel ({config default_channel})

'),

        'bundle' => array(

            'summary' => 'Unpacks a Pecl Package',

            'function' => 'doBundle',

            'shortcut' => 'bun',

            'options' => array(

                'destination' => array(

                   'shortopt' => 'd',

                    'arg' => 'DIR',

                    'doc' => 'Optional destination directory for unpacking (defaults to current path or "ext" if exists)',

                    ),

                'force' => array(

                    'shortopt' => 'f',

                    'doc' => 'Force the unpacking even if there were errors in the package',

                ),

            ),

            'doc' => '<package>

Unpacks a Pecl Package into the selected location. It will download the

package if needed.

'),

        'run-scripts' => array(

            'summary' => 'Run Post-Install Scripts bundled with a package',

            'function' => 'doRunScripts',

            'shortcut' => 'rs',

            'options' => array(

            ),

            'doc' => '<package>

Run post-installation scripts in package <package>, if any exist.

'),

    );

    // }}}

    // {{{ constructor

    /**

     * PEAR_Command_Install constructor.

     *

     * @access public

     */

    function PEAR_Command_Install(&$ui, &$config)

    {

        parent::PEAR_Command_Common($ui, $config);

    }

    // }}}

    /**

     * For unit testing purposes

     */

    function &getDownloader(&$ui, $options, &$config)

    {

        if (!class_exists('PEAR_Downloader')) {

            require_once 'PEAR/Downloader.php';

        }

        $a = &new PEAR_Downloader($ui, $options, $config);

        return $a;

    }

    /**

     * For unit testing purposes

     */

    function &getInstaller(&$ui)

    {

        if (!class_exists('PEAR_Installer')) {

            require_once 'PEAR/Installer.php';

        }

        $a = &new PEAR_Installer($ui);

        return $a;

    }

    function enableExtension($binaries, $type)

    {

        if (!($phpini = $this->config->get('php_ini', null, 'pear.php.net'))) {

            return PEAR::raiseError('configuration option "php_ini" is not set to php.ini location');

        }

        $ini = $this->_parseIni($phpini);

        if (PEAR::isError($ini)) {

            return $ini;

        }

        $line = 0;

        if ($type == 'extsrc' || $type == 'extbin') {

            $search = 'extensions';

            $enable = 'extension';

        } else {

            $search = 'zend_extensions';

            ob_start();

            phpinfo(INFO_GENERAL);

            $info = ob_get_contents();

            ob_end_clean();

            $debug = function_exists('leak') ? '_debug' : '';

            $ts = preg_match('Thread Safety.+enabled', $info) ? '_ts' : '';

            $enable = 'zend_extension' . $debug . $ts;

        }

        foreach ($ini[$search] as $line => $extension) {

            if (in_array($extension, $binaries, true) || in_array(

                  $ini['extension_dir'] . DIRECTORY_SEPARATOR . $extension, $binaries, true)) {

                // already enabled - assume if one is, all are

                return true;

            }

        }

        if ($line) {

            $newini = array_slice($ini['all'], 0, $line);

        } else {

            $newini = array();

        }

        foreach ($binaries as $binary) {

            if ($ini['extension_dir']) {

                $binary = basename($binary);

            }

            $newini[] = $enable . '="' . $binary . '"' . (OS_UNIX ? "\n" : "\r\n");

        }

        $newini = array_merge($newini, array_slice($ini['all'], $line));

        $fp = @fopen($phpini, 'wb');

        if (!$fp) {

            return PEAR::raiseError('cannot open php.ini "' . $phpini . '" for writing');

        }

        foreach ($newini as $line) {

            fwrite($fp, $line);

        }

        fclose($fp);

        return true;

    }

    function disableExtension($binaries, $type)

    {

        if (!($phpini = $this->config->get('php_ini', null, 'pear.php.net'))) {

            return PEAR::raiseError('configuration option "php_ini" is not set to php.ini location');

        }

        $ini = $this->_parseIni($phpini);

        if (PEAR::isError($ini)) {

            return $ini;

        }

        $line = 0;

        if ($type == 'extsrc' || $type == 'extbin') {

            $search = 'extensions';

            $enable = 'extension';

        } else {

            $search = 'zend_extensions';

            ob_start();

            phpinfo(INFO_GENERAL);

            $info = ob_get_contents();

            ob_end_clean();

            $debug = function_exists('leak') ? '_debug' : '';

            $ts = preg_match('Thread Safety.+enabled', $info) ? '_ts' : '';

            $enable = 'zend_extension' . $debug . $ts;

        }

        $found = false;

        foreach ($ini[$search] as $line => $extension) {

            if (in_array($extension, $binaries, true) || in_array(

                  $ini['extension_dir'] . DIRECTORY_SEPARATOR . $extension, $binaries, true)) {

                $found = true;

                break;

            }

        }

        if (!$found) {

            // not enabled

            return true;

        }

        $fp = @fopen($phpini, 'wb');

        if (!$fp) {

            return PEAR::raiseError('cannot open php.ini "' . $phpini . '" for writing');

        }

        if ($line) {

            $newini = array_slice($ini['all'], 0, $line);

            // delete the enable line

            $newini = array_merge($newini, array_slice($ini['all'], $line + 1));

        } else {

            $newini = array_slice($ini['all'], 1);

        }

        foreach ($newini as $line) {

            fwrite($fp, $line);

        }

        fclose($fp);

        return true;

    }

    function _parseIni($filename)

    {

        if (file_exists($filename)) {

            if (filesize($filename) > 300000) {

                return PEAR::raiseError('php.ini "' . $filename . '" is too large, aborting');

            }

            ob_start();

            phpinfo(INFO_GENERAL);

            $info = ob_get_contents();

            ob_end_clean();

            $debug = function_exists('leak') ? '_debug' : '';

            $ts = preg_match('/Thread Safety.+enabled/', $info) ? '_ts' : '';

            $zend_extension_line = 'zend_extension' . $debug . $ts;

            $all = @file($filename);

            if (!$all) {

                return PEAR::raiseError('php.ini "' . $filename .'" could not be read');

            }

            $zend_extensions = $extensions = array();

            // assume this is right, but pull from the php.ini if it is found

            $extension_dir = ini_get('extension_dir');

            foreach ($all as $linenum => $line) {

                $line = trim($line);

                if (!$line) {

                    continue;

                }

                if ($line[0] == ';') {

                    continue;

                }

                if (strtolower(substr($line, 0, 13)) == 'extension_dir') {

                    $line = trim(substr($line, 13));

                    if ($line[0] == '=') {

                        $x = trim(substr($line, 1));

                        $x = explode(';', $x);

                        $extension_dir = str_replace('"', '', array_shift($x));

                        continue;

                    }

                }

                if (strtolower(substr($line, 0, 9)) == 'extension') {

                    $line = trim(substr($line, 9));

                    if ($line[0] == '=') {

                        $x = trim(substr($line, 1));

                        $x = explode(';', $x);

                        $extensions[$linenum] = str_replace('"', '', array_shift($x));

                        continue;

                    }

                }

                if (strtolower(substr($line, 0, strlen($zend_extension_line))) ==

                      $zend_extension_line) {

                    $line = trim(substr($line, strlen($zend_extension_line)));

                    if ($line[0] == '=') {

                        $x = trim(substr($line, 1));

                        $x = explode(';', $x);

                        $zend_extensions[$linenum] = str_replace('"', '', array_shift($x));

                        continue;

                    }

                }

            }

            return array(

                'extensions' => $extensions,

                'zend_extensions' => $zend_extensions,

                'extension_dir' => $extension_dir,

                'all' => $all,

            );

        } else {

            return PEAR::raiseError('php.ini "' . $filename . '" does not exist');

        }

    }

    // {{{ doInstall()

    function doInstall($command, $options, $params)

    {

        if (!class_exists('PEAR_PackageFile')) {

            require_once 'PEAR/PackageFile.php';

        }

        if (empty($this->installer)) {

            $this->installer = &$this->getInstaller($this->ui);

        }

        if ($command == 'upgrade' || $command == 'upgrade-all') {

            $options['upgrade'] = true;

        } else {

            $packages = $params;

        }

        if (isset($options['installroot']) && isset($options['packagingroot'])) {

            return $this->raiseError('ERROR: cannot use both --installroot and --packagingroot');

        }

        $reg = &$this->config->getRegistry();

        $instreg = &$reg; // instreg used to check if package is installed

        if (isset($options['packagingroot']) && !isset($options['upgrade'])) {

            $packrootphp_dir = $this->installer->_prependPath(

                $this->config->get('php_dir', null, 'pear.php.net'),

                $options['packagingroot']);

            $instreg = new PEAR_Registry($packrootphp_dir); // other instreg!

            if ($this->config->get('verbose') > 2) {

                $this->ui->outputData('using package root: ' . $options['packagingroot']);

            }

        }

        $abstractpackages = array();

        $otherpackages = array();

        // parse params

        PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN);

        foreach($params as $param) {

            if (strpos($param, 'http://') === 0) {

                $otherpackages[] = $param;

                continue;

            }

            if (strpos($param, 'channel://') === false && @file_exists($param)) {

                if (isset($options['force'])) {

                    $otherpackages[] = $param;

                    continue;

                }

                $pkg = new PEAR_PackageFile($this->config);

                $pf = $pkg->fromAnyFile($param, PEAR_VALIDATE_DOWNLOADING);

                if (PEAR::isError($pf)) {

                    $otherpackages[] = $param;

                    continue;

                }

                if ($reg->packageExists($pf->getPackage(), $pf->getChannel()) &&

                      version_compare($pf->getVersion(),

                      $reg->packageInfo($pf->getPackage(), 'version', $pf->getChannel()),

                      '<=')) {

                    if ($this->config->get('verbose')) {

                        $this->ui->outputData('Ignoring installed package ' .

                            $reg->parsedPackageNameToString(

                            array('package' => $pf->getPackage(),

                                  'channel' => $pf->getChannel()), true));

                    }

                    continue;

                }

                $otherpackages[] = $param;

                continue;

            }

            $e = $reg->parsePackageName($param, $this->config->get('default_channel'));

            if (PEAR::isError($e)) {

                $otherpackages[] = $param;

            } else {

                $abstractpackages[] = $e;

            }

        }

        PEAR::staticPopErrorHandling();

        // if there are any local package .tgz or remote static url, we can't

        // filter.  The filter only works for abstract packages

        if (count($abstractpackages) && !isset($options['force'])) {

            // when not being forced, only do necessary upgrades/installs

            if (isset($options['upgrade'])) {

                $abstractpackages = $this->_filterUptodatePackages($abstractpackages,

                    $command);

            } else {

                foreach ($abstractpackages as $i => $package) {

                    if (isset($package['group'])) {

                        // do not filter out install groups

                        continue;

                    }

                    if ($instreg->packageExists($package['package'], $package['channel'])) {

                        if ($this->config->get('verbose')) {

                            $this->ui->outputData('Ignoring installed package ' .

                                $reg->parsedPackageNameToString($package, true));

                        }

                        unset($abstractpackages[$i]);

                    }

                }

            }

            $abstractpackages =

                array_map(array($reg, 'parsedPackageNameToString'), $abstractpackages);

        } elseif (count($abstractpackages)) {

            $abstractpackages =

                array_map(array($reg, 'parsedPackageNameToString'), $abstractpackages);

        }

        $packages = array_merge($abstractpackages, $otherpackages);

        if (!count($packages)) {

            $this->ui->outputData('Nothing to ' . $command);

            return true;

        }

        $this->downloader = &$this->getDownloader($this->ui, $options, $this->config);

        $errors = array();

        $binaries = array();

        $downloaded = array();

        $downloaded = &$this->downloader->download($packages);

        if (PEAR::isError($downloaded)) {

            return $this->raiseError($downloaded);

        }

        $errors = $this->downloader->getErrorMsgs();

        if (count($errors)) {

            $err = array();

            $err['data'] = array();

            foreach ($errors as $error) {

                $err['data'][] = array($error);

            }

            $err['headline'] = 'Install Errors';

            $this->ui->outputData($err);

            if (!count($downloaded)) {

                return $this->raiseError("$command failed");

            }

        }

        $data = array(

            'headline' => 'Packages that would be Installed'

        );

        if (isset($options['pretend'])) {

            foreach ($downloaded as $package) {

                $data['data'][] = array($reg->parsedPackageNameToString($package->getParsedPackage()));

            }

            $this->ui->outputData($data, 'pretend');

            return true;

        }

        $this->installer->setOptions($options);

        $this->installer->sortPackagesForInstall($downloaded);

        if (PEAR::isError($err = $this->installer->setDownloadedPackages($downloaded))) {

            $this->raiseError($err->getMessage());

            return true;

        }

        $extrainfo = array();

        $binaries = array();

        foreach ($downloaded as $param) {

            PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN);

            $info = $this->installer->install($param, $options);

            PEAR::staticPopErrorHandling();

            if (PEAR::isError($info)) {

                $oldinfo = $info;

                $pkg = &$param->getPackageFile();

                if ($info->getCode() != PEAR_INSTALLER_NOBINARY) {