diff options
Diffstat (limited to 'pear/install-pear.php')
-rw-r--r-- | pear/install-pear.php | 93 |
1 files changed, 0 insertions, 93 deletions
diff --git a/pear/install-pear.php b/pear/install-pear.php deleted file mode 100644 index 0af598add7..0000000000 --- a/pear/install-pear.php +++ /dev/null @@ -1,93 +0,0 @@ -<?php - -$pear_dir = dirname(__FILE__); -ini_set('include_path', $pear_dir); -##//include_once 'PEAR/Config.php'; -include_once 'PEAR.php'; -include_once 'PEAR/Installer.php'; -include_once 'PEAR/Registry.php'; -include_once 'PEAR/Frontend/CLI.php'; - -##//$config = &PEAR_Config::singleton(); - -array_shift($argv); -if ($argv[0] == '--force') { - array_shift($argv); - $force = true; -} else { - $force = false; -} -// package => install_file -$install_files = array(); - -/* -$dp = opendir($pear_dir); -while ($ent = readdir($dp)) { - if (ereg('^package-(.*)\.xml$', $ent, $matches)) { - $install_files[$matches[1]] = $ent; - } -} -closedir($dp); -*/ -foreach ($argv as $arg) { - $bn = basename($arg); - if (ereg('^package-(.*)\.xml$', $bn, $matches) || - ereg('^([A-Za-z0-9_:]+)-.*\.(tar|tgz)$', $bn, $matches)) { - $install_files[$matches[1]] = $arg; - } -} - -$config = &PEAR_Config::singleton(); - -// make sure we use only default values -$config_layers = $config->getLayers(); -foreach ($config_layers as $layer) { - if ($layer == 'default') continue; - $config->removeLayer($layer); -} -$config->set('verbose', 0, 'default'); - -$reg = &new PEAR_Registry($config->get('php_dir')); -$ui = &new PEAR_Frontend_CLI(); -$installer = &new PEAR_Installer($ui); - -foreach ($install_files as $package => $instfile) { - if ($reg->packageExists($package)) { - $info = $installer->infoFromAny($instfile); - if (PEAR::isError($info)) { - $ui->displayLine(sprintf("[PEAR] %s: %s", $package, $info->getMessage())); - continue; - } - $new_ver = $info['version']; - $old_ver = $reg->packageInfo($package, 'version'); - if (version_compare($new_ver, $old_ver, 'gt')) { - $err = $installer->install($instfile, array('upgrade' => true)); - if (PEAR::isError($err)) { - $ui->displayLine(sprintf("[PEAR] %s: %s", $package, $err->getMessage())); - continue; - } - $ui->displayLine(sprintf("[PEAR] %-15s- upgraded: %s", $package, $new_ver)); - } else { - if (@$argv[1] == '--force') { - $err = $installer->install($instfile, array('force' => true)); - if (PEAR::isError($err)) { - $ui->displayLine(sprintf("[PEAR] %s: %s", $package, $err->getMessage())); - continue; - } - $ui->displayLine(sprintf("[PEAR] %-15s- installed: %s", $package, $new_ver)); - } else { - $ui->displayLine(sprintf("[PEAR] %-15s- already installed: %s", $package, $old_ver)); - } - } - } else { - $err = $installer->install($instfile); - if (PEAR::isError($err)) { - $ui->displayLine(sprintf("[PEAR] %s: %s", $package, $err->getMessage())); - continue; - } - $new_ver = $reg->packageInfo($package, 'version'); - $ui->displayLine(sprintf("[PEAR] %-15s- installed: %s", $package, $new_ver)); - } -} - -?>
\ No newline at end of file |