Rev 187 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<?php/*** PEAR_Command_Install (install, upgrade, upgrade-all, uninstall, bundle, run-scripts commands)** PHP versions 4 and 5** @category pear* @package PEAR* @author Stig Bakken <ssb@php.net>* @author Greg Beaver <cellog@php.net>* @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/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-2009 The Authors* @license http://opensource.org/licenses/bsd-license.php New BSD License* @version Release: 1.10.1* @link http://pear.php.net/package/PEAR* @since Class available since Release 0.1*/class PEAR_Command_Install extends PEAR_Command_Common{// {{{ propertiesvar $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 toinstall in four ways:"Package-1.0.tgz" : installs from a local file"http://example.com/Package-1.0.tgz" : installs fromanywhere on the net."package.xml" : installs the package described inpackage.xml. Useful for testing, or for wrapping a PEAR package inanother package manager such as RPM."Package[-version/state][.tar]" : queries your default channel\'s server({config master_server}) and downloads the newest package withthe preferred quality/state ({config preferred_state}).To retrieve Package version 1.1, use "Package-1.1," to retrievePackage state beta, use "Package-beta." To retrieve an uncompressedfile, 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 thesefour ways of specifying packages.'),'upgrade' => array('summary' => 'Upgrade Package','function' => 'doInstall','shortcut' => 'up','options' => array('channel' => array('shortopt' => 'c','doc' => 'upgrade packages from a specific channel','arg' => 'CHAN',),'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 newpackage has a higher version number (use the -f option if you need toupgrade anyway).More than one package may be specified at once.'),'upgrade-all' => array('summary' => 'Upgrade All Packages [Deprecated in favor of calling upgrade with no parameters]','function' => 'doUpgradeAll','shortcut' => 'ua','options' => array('channel' => array('shortopt' => 'c','doc' => 'upgrade packages from a specific channel','arg' => 'CHAN',),'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' => 'WARNING: This function is deprecated in favor of using the upgrade command with no paramsUpgrades all packages that have a newer release available. Upgrades aredone only if there is a release available of the state specified in"preferred_state" (currently {config preferred_state}), or a state consideredmore 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 bespecified at once. Prefix with channel name to uninstall from achannel 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 thepackage 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 __construct(&$ui, &$config){parent::__construct($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 arereturn 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 enabledreturn 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)) {return PEAR::raiseError('php.ini "' . $filename . '" does not exist');}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 === false) {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,);}// {{{ doInstall()function doInstall($command, $options, $params){if (!class_exists('PEAR_PackageFile')) {require_once 'PEAR/PackageFile.php';}if (isset($options['installroot']) && isset($options['packagingroot'])) {return $this->raiseError('ERROR: cannot use both --installroot and --packagingroot');}$reg = &$this->config->getRegistry();$channel = isset($options['channel']) ? $options['channel'] : $this->config->get('default_channel');if (!$reg->channelExists($channel)) {return $this->raiseError('Channel "' . $channel . '" does not exist');}if (empty($this->installer)) {$this->installer = &$this->getInstaller($this->ui);}if ($command == 'upgrade' || $command == 'upgrade-all') {// If people run the upgrade command but pass nothing, emulate a upgrade-allif ($command == 'upgrade' && empty($params)) {return $this->doUpgradeAll($command, $options, $params);}$options['upgrade'] = true;} else {$packages = $params;}$instreg = &$reg; // instreg used to check if package is installedif (isset($options['packagingroot']) && !isset($options['upgrade'])) {$packrootphp_dir = $this->installer->_prependPath($this->config->get('php_dir', null, 'pear.php.net'),$options['packagingroot']);$metadata_dir = $this->config->get('metadata_dir', null, 'pear.php.net');if ($metadata_dir) {$metadata_dir = $this->installer->_prependPath($metadata_dir,$options['packagingroot']);}$instreg = new PEAR_Registry($packrootphp_dir, false, false, $metadata_dir); // other instreg!if ($this->config->get('verbose') > 2) {$this->ui->outputData('using package root: ' . $options['packagingroot']);}}$abstractpackages = $otherpackages = array();// parse paramsPEAR::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;}$exists = $reg->packageExists($pf->getPackage(), $pf->getChannel());$pversion = $reg->packageInfo($pf->getPackage(), 'version', $pf->getChannel());$version_compare = version_compare($pf->getVersion(), $pversion, '<=');if ($exists && $version_compare) {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, $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 packagesif (count($abstractpackages) && !isset($options['force'])) {// when not being forced, only do necessary upgrades/installsif (isset($options['upgrade'])) {$abstractpackages = $this->_filterUptodatePackages($abstractpackages, $command);} else {$count = count($abstractpackages);foreach ($abstractpackages as $i => $package) {if (isset($package['group'])) {// do not filter out install groupscontinue;}if ($instreg->packageExists($package['package'], $package['channel'])) {if ($count > 1) {if ($this->config->get('verbose')) {$this->ui->outputData('Ignoring installed package ' .$reg->parsedPackageNameToString($package, true));}unset($abstractpackages[$i]);} elseif ($count === 1) {// Lets try to upgrade it since it's already installed$options['upgrade'] = true;}}}}$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)) {$c = '';if (isset($options['channel'])){$c .= ' in channel "' . $options['channel'] . '"';}$this->ui->outputData('Nothing to ' . $command . $c);return true;}$this->downloader = &$this->getDownloader($this->ui, $options, $this->config);$errors = $downloaded = $binaries = 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) {if ($error !== null) {$err['data'][] = array($error);}}if (!empty($err['data'])) {$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;}$binaries = $extrainfo = 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) {if (!($info = $pkg->installBinary($this->installer))) {$this->ui->outputData('ERROR: ' .$oldinfo->getMessage());continue;}// we just installed a different package than requested,// let's change the param and info so that the rest of this works$param = $info[0];$info = $info[1];}}if (!is_array($info)) {return $this->raiseError("$command failed");}if ($param->getPackageType() == 'extsrc' ||$param->getPackageType() == 'extbin' ||$param->getPackageType() == 'zendextsrc' ||$param->getPackageType() == 'zendextbin') {$pkg = &$param->getPackageFile();if ($instbin = $pkg->getInstalledBinary()) {$instpkg = &$instreg->getPackage($instbin, $pkg->getChannel());} else {$instpkg = &$instreg->getPackage($pkg->getPackage(), $pkg->getChannel());}foreach ($instpkg->getFilelist() as $name => $atts) {$pinfo = pathinfo($atts['installed_as']);if (!isset($pinfo['extension']) ||in_array($pinfo['extension'], array('c', 'h'))) {continue; // make sure we don't match php_blah.h}if ((strpos($pinfo['basename'], 'php_') === 0 &&$pinfo['extension'] == 'dll') ||// most unices$pinfo['extension'] == 'so' ||// hp-ux$pinfo['extension'] == 'sl') {$binaries[] = array($atts['installed_as'], $pinfo);break;}}if (count($binaries)) {foreach ($binaries as $pinfo) {PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN);$ret = $this->enableExtension(array($pinfo[0]), $param->getPackageType());PEAR::staticPopErrorHandling();if (PEAR::isError($ret)) {$extrainfo[] = $ret->getMessage();if ($param->getPackageType() == 'extsrc' ||$param->getPackageType() == 'extbin') {$exttype = 'extension';$extpath = $pinfo[1]['basename'];} else {$exttype = 'zend_extension';$extpath = $atts['installed_as'];}$extrainfo[] = 'You should add "' . $exttype . '=' .$extpath . '" to php.ini';} else {$extrainfo[] = 'Extension ' . $instpkg->getProvidesExtension() .' enabled in php.ini';}}}}if ($this->config->get('verbose') > 0) {$chan = $param->getChannel();$label = $reg->parsedPackageNameToString(array('channel' => $chan,'package' => $param->getPackage(),'version' => $param->getVersion(),));$out = array('data' => "$command ok: $label");if (isset($info['release_warnings'])) {$out['release_warnings'] = $info['release_warnings'];}$this->ui->outputData($out, $command);if (!isset($options['register-only']) && !isset($options['offline'])) {if ($this->config->isDefinedLayer('ftp')) {PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN);$info = $this->installer->ftpInstall($param);PEAR::staticPopErrorHandling();if (PEAR::isError($info)) {$this->ui->outputData($info->getMessage());$this->ui->outputData("remote install failed: $label");} else {$this->ui->outputData("remote install ok: $label");}}}}$deps = $param->getDeps();if ($deps) {if (isset($deps['group'])) {$groups = $deps['group'];if (!isset($groups[0])) {$groups = array($groups);}foreach ($groups as $group) {if ($group['attribs']['name'] == 'default') {// default group is always installed, unless the user// explicitly chooses to install another groupcontinue;}$extrainfo[] = $param->getPackage() . ': Optional feature ' .$group['attribs']['name'] . ' available (' .$group['attribs']['hint'] . ')';}$extrainfo[] = $param->getPackage() .': To install optional features use "pear install ' .$reg->parsedPackageNameToString(array('package' => $param->getPackage(),'channel' => $param->getChannel()), true) .'#featurename"';}}$pkg = &$instreg->getPackage($param->getPackage(), $param->getChannel());// $pkg may be NULL if install is a 'fake' install via --packagingrootif (is_object($pkg)) {$pkg->setConfig($this->config);if ($list = $pkg->listPostinstallScripts()) {$pn = $reg->parsedPackageNameToString(array('channel' =>$param->getChannel(), 'package' => $param->getPackage()), true);$extrainfo[] = $pn . ' has post-install scripts:';foreach ($list as $file) {$extrainfo[] = $file;}$extrainfo[] = $param->getPackage() .': Use "pear run-scripts ' . $pn . '" to finish setup.';$extrainfo[] = 'DO NOT RUN SCRIPTS FROM UNTRUSTED SOURCES';}}}if (count($extrainfo)) {foreach ($extrainfo as $info) {$this->ui->outputData($info);}}return true;}// }}}// {{{ doUpgradeAll()function doUpgradeAll($command, $options, $params){$reg = &$this->config->getRegistry();$upgrade = array();if (isset($options['channel'])) {$channels = array($options['channel']);} else {$channels = $reg->listChannels();}foreach ($channels as $channel) {if ($channel == '__uri') {continue;}// parse name with channelforeach ($reg->listPackages($channel) as $name) {$upgrade[] = $reg->parsedPackageNameToString(array('channel' => $channel,'package' => $name));}}$err = $this->doInstall($command, $options, $upgrade);if (PEAR::isError($err)) {$this->ui->outputData($err->getMessage(), $command);}}// }}}// {{{ doUninstall()function doUninstall($command, $options, $params){if (count($params) < 1) {return $this->raiseError("Please supply the package(s) you want to uninstall");}if (empty($this->installer)) {$this->installer = &$this->getInstaller($this->ui);}if (isset($options['remoteconfig'])) {$e = $this->config->readFTPConfigFile($options['remoteconfig']);if (!PEAR::isError($e)) {$this->installer->setConfig($this->config);}}$reg = &$this->config->getRegistry();$newparams = array();$binaries = array();$badparams = array();foreach ($params as $pkg) {$channel = $this->config->get('default_channel');PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN);$parsed = $reg->parsePackageName($pkg, $channel);PEAR::staticPopErrorHandling();if (!$parsed || PEAR::isError($parsed)) {$badparams[] = $pkg;continue;}$package = $parsed['package'];$channel = $parsed['channel'];$info = &$reg->getPackage($package, $channel);if ($info === null &&($channel == 'pear.php.net' || $channel == 'pecl.php.net')) {// make sure this isn't a package that has flipped from pear to pecl but// used a package.xml 1.0$testc = ($channel == 'pear.php.net') ? 'pecl.php.net' : 'pear.php.net';$info = &$reg->getPackage($package, $testc);if ($info !== null) {$channel = $testc;}}if ($info === null) {$badparams[] = $pkg;} else {$newparams[] = &$info;// check for binary packages (this is an alias for those packages if so)if ($installedbinary = $info->getInstalledBinary()) {$this->ui->log('adding binary package ' .$reg->parsedPackageNameToString(array('channel' => $channel,'package' => $installedbinary), true));$newparams[] = &$reg->getPackage($installedbinary, $channel);}// add the contents of a dependency group to the list of installed packagesif (isset($parsed['group'])) {$group = $info->getDependencyGroup($parsed['group']);if ($group) {$installed = $reg->getInstalledGroup($group);if ($installed) {foreach ($installed as $i => $p) {$newparams[] = &$installed[$i];}}}}}}$err = $this->installer->sortPackagesForUninstall($newparams);if (PEAR::isError($err)) {$this->ui->outputData($err->getMessage(), $command);return true;}$params = $newparams;// twist this to use it to check on whether dependent packages are also being uninstalled// for circular dependencies like subpackages$this->installer->setUninstallPackages($newparams);$params = array_merge($params, $badparams);$binaries = array();foreach ($params as $pkg) {$this->installer->pushErrorHandling(PEAR_ERROR_RETURN);if ($err = $this->installer->uninstall($pkg, $options)) {$this->installer->popErrorHandling();if (PEAR::isError($err)) {$this->ui->outputData($err->getMessage(), $command);continue;}if ($pkg->getPackageType() == 'extsrc' ||$pkg->getPackageType() == 'extbin' ||$pkg->getPackageType() == 'zendextsrc' ||$pkg->getPackageType() == 'zendextbin') {if ($instbin = $pkg->getInstalledBinary()) {continue; // this will be uninstalled later}foreach ($pkg->getFilelist() as $name => $atts) {$pinfo = pathinfo($atts['installed_as']);if (!isset($pinfo['extension']) ||in_array($pinfo['extension'], array('c', 'h'))) {continue; // make sure we don't match php_blah.h}if ((strpos($pinfo['basename'], 'php_') === 0 &&$pinfo['extension'] == 'dll') ||// most unices$pinfo['extension'] == 'so' ||// hp-ux$pinfo['extension'] == 'sl') {$binaries[] = array($atts['installed_as'], $pinfo);break;}}if (count($binaries)) {foreach ($binaries as $pinfo) {PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN);$ret = $this->disableExtension(array($pinfo[0]), $pkg->getPackageType());PEAR::staticPopErrorHandling();if (PEAR::isError($ret)) {$extrainfo[] = $ret->getMessage();if ($pkg->getPackageType() == 'extsrc' ||$pkg->getPackageType() == 'extbin') {$exttype = 'extension';} else {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' : '';$exttype = 'zend_extension' . $debug . $ts;}$this->ui->outputData('Unable to remove "' . $exttype . '=' .$pinfo[1]['basename'] . '" from php.ini', $command);} else {$this->ui->outputData('Extension ' . $pkg->getProvidesExtension() .' disabled in php.ini', $command);}}}}$savepkg = $pkg;if ($this->config->get('verbose') > 0) {if (is_object($pkg)) {$pkg = $reg->parsedPackageNameToString($pkg);}$this->ui->outputData("uninstall ok: $pkg", $command);}if (!isset($options['offline']) && is_object($savepkg) &&defined('PEAR_REMOTEINSTALL_OK')) {if ($this->config->isDefinedLayer('ftp')) {$this->installer->pushErrorHandling(PEAR_ERROR_RETURN);$info = $this->installer->ftpUninstall($savepkg);$this->installer->popErrorHandling();if (PEAR::isError($info)) {$this->ui->outputData($info->getMessage());$this->ui->outputData("remote uninstall failed: $pkg");} else {$this->ui->outputData("remote uninstall ok: $pkg");}}}} else {$this->installer->popErrorHandling();if (!is_object($pkg)) {return $this->raiseError("uninstall failed: $pkg");}$pkg = $reg->parsedPackageNameToString($pkg);}}return true;}// }}}// }}}// {{{ doBundle()/*(cox) It just downloads and untars the package, does not doany check that the PEAR_Installer::_installFile() does.*/function doBundle($command, $options, $params){$opts = array('force' => true,'nodeps' => true,'soft' => true,'downloadonly' => true);$downloader = &$this->getDownloader($this->ui, $opts, $this->config);$reg = &$this->config->getRegistry();if (count($params) < 1) {return $this->raiseError("Please supply the package you want to bundle");}if (isset($options['destination'])) {if (!is_dir($options['destination'])) {System::mkdir('-p ' . $options['destination']);}$dest = realpath($options['destination']);} else {$pwd = getcwd();$dir = $pwd . DIRECTORY_SEPARATOR . 'ext';$dest = is_dir($dir) ? $dir : $pwd;}PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN);$err = $downloader->setDownloadDir($dest);PEAR::staticPopErrorHandling();if (PEAR::isError($err)) {return PEAR::raiseError('download directory "' . $dest .'" is not writeable.');}$result = &$downloader->download(array($params[0]));if (PEAR::isError($result)) {return $result;}if (!isset($result[0])) {return $this->raiseError('unable to unpack ' . $params[0]);}$pkgfile = &$result[0]->getPackageFile();$pkgname = $pkgfile->getName();$pkgversion = $pkgfile->getVersion();// Unpacking -------------------------------------------------$dest .= DIRECTORY_SEPARATOR . $pkgname;$orig = $pkgname . '-' . $pkgversion;$tar = new Archive_Tar($pkgfile->getArchiveFile());if (!$tar->extractModify($dest, $orig)) {return $this->raiseError('unable to unpack ' . $pkgfile->getArchiveFile());}$this->ui->outputData("Package ready at '$dest'");// }}}}// }}}function doRunScripts($command, $options, $params){if (!isset($params[0])) {return $this->raiseError('run-scripts expects 1 parameter: a package name');}$reg = &$this->config->getRegistry();PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN);$parsed = $reg->parsePackageName($params[0], $this->config->get('default_channel'));PEAR::staticPopErrorHandling();if (PEAR::isError($parsed)) {return $this->raiseError($parsed);}$package = &$reg->getPackage($parsed['package'], $parsed['channel']);if (!is_object($package)) {return $this->raiseError('Could not retrieve package "' . $params[0] . '" from registry');}$package->setConfig($this->config);$package->runPostinstallScripts();$this->ui->outputData('Install scripts complete', $command);return true;}/*** Given a list of packages, filter out those ones that are already up to date** @param $packages: packages, in parsed array format !* @return list of packages that can be upgraded*/function _filterUptodatePackages($packages, $command){$reg = &$this->config->getRegistry();$latestReleases = array();$ret = array();foreach ($packages as $package) {if (isset($package['group'])) {$ret[] = $package;continue;}$channel = $package['channel'];$name = $package['package'];if (!$reg->packageExists($name, $channel)) {$ret[] = $package;continue;}if (!isset($latestReleases[$channel])) {// fill in cache for this channel$chan = $reg->getChannel($channel);if (PEAR::isError($chan)) {return $this->raiseError($chan);}$base2 = false;$preferred_mirror = $this->config->get('preferred_mirror', null, $channel);if ($chan->supportsREST($preferred_mirror) &&(//($base2 = $chan->getBaseURL('REST1.4', $preferred_mirror)) ||($base = $chan->getBaseURL('REST1.0', $preferred_mirror)))) {$dorest = true;}PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN);if (!isset($package['state'])) {$state = $this->config->get('preferred_state', null, $channel);} else {$state = $package['state'];}if ($dorest) {if ($base2) {$rest = &$this->config->getREST('1.4', array());$base = $base2;} else {$rest = &$this->config->getREST('1.0', array());}$installed = array_flip($reg->listPackages($channel));$latest = $rest->listLatestUpgrades($base, $state, $installed, $channel, $reg);}PEAR::staticPopErrorHandling();if (PEAR::isError($latest)) {$this->ui->outputData('Error getting channel info from ' . $channel .': ' . $latest->getMessage());continue;}$latestReleases[$channel] = array_change_key_case($latest);}// check package for latest release$name_lower = strtolower($name);if (isset($latestReleases[$channel][$name_lower])) {// if not set, up to date$inst_version = $reg->packageInfo($name, 'version', $channel);$channel_version = $latestReleases[$channel][$name_lower]['version'];if (version_compare($channel_version, $inst_version, 'le')) {// installed version is up-to-datecontinue;}// maintain BCif ($command == 'upgrade-all') {$this->ui->outputData(array('data' => 'Will upgrade ' .$reg->parsedPackageNameToString($package)), $command);}$ret[] = $package;}}return $ret;}}