334 lines
10 KiB
PHP
334 lines
10 KiB
PHP
<?php
|
|
while (@ob_end_flush());
|
|
/* $Id$ */
|
|
|
|
error_reporting(1803);
|
|
|
|
if (ini_get('date.timezone') === '' && function_exists('date_default_timezone_set')) {
|
|
date_default_timezone_set('UTC');
|
|
}
|
|
|
|
$pear_dir = dirname(__FILE__);
|
|
ini_set('include_path', '');
|
|
if (function_exists('mb_internal_encoding')) {
|
|
mb_internal_encoding('ASCII');
|
|
}
|
|
set_time_limit(0);
|
|
include_once 'PEAR.php';
|
|
include_once 'PEAR/Installer.php';
|
|
include_once 'PEAR/Registry.php';
|
|
include_once 'PEAR/PackageFile.php';
|
|
include_once 'PEAR/Downloader/Package.php';
|
|
include_once 'PEAR/Frontend.php';
|
|
$a = true;
|
|
if (!PEAR::loadExtension('xml')) {
|
|
$a = false;
|
|
echo "[PEAR] xml extension is required\n";
|
|
}
|
|
if (!PEAR::loadExtension('pcre')) {
|
|
$a = false;
|
|
echo "[PEAR] pcre extension is required\n";
|
|
}
|
|
if (!$a) {
|
|
return -1;
|
|
}
|
|
|
|
$force = false;
|
|
$install_files = array();
|
|
array_shift($argv);
|
|
$debug = false;
|
|
for ($i = 0; $i < sizeof($argv); $i++) {
|
|
$arg = $argv[$i];
|
|
$bn = basename($arg);
|
|
if (preg_match('/package-(.*)\.xml$/', $bn, $matches) ||
|
|
preg_match('/([A-Za-z0-9_:]+)-.*\.(tar|tgz)$/', $bn, $matches)) {
|
|
$install_files[$matches[1]] = $arg;
|
|
} elseif ($arg == '-a' || $arg == '--cache') {
|
|
$cache_dir = $argv[$i+1];
|
|
$i++;
|
|
} elseif ($arg == '--force') {
|
|
$force = true;
|
|
} elseif ($arg == '-dp') {
|
|
$prefix = $argv[$i+1];
|
|
$i++;
|
|
} elseif ($arg == '-ds') {
|
|
$suffix = $argv[$i+1];
|
|
$i++;
|
|
} elseif ($arg == '-d' || $arg == '--dir') {
|
|
$with_dir = $argv[$i+1];
|
|
$i++;
|
|
} elseif ($arg == '-b' || $arg == '--bin') {
|
|
$bin_dir = $argv[$i+1];
|
|
$i++;
|
|
} elseif ($arg == '-c' || $arg == '--config') {
|
|
$cfg_dir = $argv[$i+1];
|
|
$i++;
|
|
} elseif ($arg == '-w' || $arg == '--www') {
|
|
$www_dir = $argv[$i+1];
|
|
$i++;
|
|
} elseif ($arg == '-p' || $arg == '--php') {
|
|
$php_bin = $argv[$i+1];
|
|
$i++;
|
|
} elseif ($arg == '-o' || $arg == '--download') {
|
|
$download_dir = $argv[$i+1];
|
|
$i++;
|
|
} elseif ($arg == '-m' || $arg == '--metadata') {
|
|
$metadata_dir = $argv[$i+1];
|
|
$i++;
|
|
} elseif ($arg == '-t' || $arg == '--temp') {
|
|
$temp_dir = $argv[$i+1];
|
|
$i++;
|
|
} elseif ($arg == '-A' || $arg == '--data') {
|
|
$data_dir = $argv[$i+1];
|
|
$i++;
|
|
} elseif ($arg == '-D' || $arg == '--doc') {
|
|
$doc_dir = $argv[$i+1];
|
|
$i++;
|
|
} elseif ($arg == '-T' || $arg == '--test') {
|
|
$test_dir = $argv[$i+1];
|
|
$i++;
|
|
} elseif ($arg == '--debug') {
|
|
$debug = 1;
|
|
} elseif ($arg == '--extremedebug') {
|
|
$debug = 2;
|
|
}
|
|
}
|
|
|
|
$config = PEAR_Config::singleton();
|
|
|
|
if (PEAR::isError($config)) {
|
|
$locs = PEAR_Config::getDefaultConfigFiles();
|
|
die("ERROR: One of $locs[user] or $locs[system] is corrupt, please remove them and try again");
|
|
}
|
|
|
|
// make sure we use only default values
|
|
$config_layers = $config->getLayers();
|
|
foreach ($config_layers as $layer) {
|
|
if ($layer == 'default') continue;
|
|
$config->removeLayer($layer);
|
|
}
|
|
$keys = $config->getKeys();
|
|
if ($debug) {
|
|
$config->set('verbose', 5, 'default');
|
|
} else {
|
|
$config->set('verbose', 0, 'default');
|
|
}
|
|
// PEAR executables
|
|
if (!empty($bin_dir)) {
|
|
$config->set('bin_dir', $bin_dir, 'default');
|
|
}
|
|
|
|
// Cache files
|
|
if (!empty($cache_dir)) {
|
|
$config->set('cache_dir', $cache_dir, 'default');
|
|
}
|
|
|
|
// Config files
|
|
if (!empty($cfg_dir)) {
|
|
$config->set('cfg_dir', $cfg_dir, 'default');
|
|
}
|
|
|
|
// Web files
|
|
if (!empty($www_dir)) {
|
|
$config->set('www_dir', $www_dir, 'default');
|
|
}
|
|
|
|
// Downloaded files
|
|
if (!empty($download_dir)) {
|
|
$config->set('download_dir', $download_dir, 'default');
|
|
}
|
|
|
|
// Temporary files
|
|
if (!empty($temp_dir)) {
|
|
$config->set('temp_dir', $temp_dir, 'default');
|
|
}
|
|
|
|
// Documentation files
|
|
if (!empty($doc_dir)) {
|
|
$config->set('doc_dir', $doc_dir, 'default');
|
|
}
|
|
|
|
// Data files
|
|
if (!empty($data_dir)) {
|
|
$config->set('data_dir', $data_dir, 'default');
|
|
}
|
|
|
|
// Unit tests
|
|
if (!empty($test_dir)) {
|
|
$config->set('test_dir', $test_dir, 'default');
|
|
}
|
|
|
|
// User supplied a dir prefix
|
|
if (!empty($with_dir)) {
|
|
$ds = DIRECTORY_SEPARATOR;
|
|
$config->set('php_dir', $with_dir, 'default');
|
|
// Metadata
|
|
if (!empty($metadata_dir)) {
|
|
$config->set('metadata_dir', $metadata_dir, 'default');
|
|
}
|
|
if (empty($doc_dir)) {
|
|
$config->set('doc_dir', $with_dir . $ds . 'doc', 'default');
|
|
}
|
|
if (empty($data_dir)) {
|
|
$config->set('data_dir', $with_dir . $ds . 'data', 'default');
|
|
}
|
|
if (empty($test_dir)) {
|
|
$config->set('test_dir', $with_dir . $ds . 'test', 'default');
|
|
}
|
|
if (empty($www_dir)) {
|
|
$config->set('www_dir', $with_dir . $ds . 'htdocs', 'default');
|
|
}
|
|
if (empty($cfg_dir)) {
|
|
$config->set('cfg_dir', $with_dir . $ds . 'cfg', 'default');
|
|
}
|
|
if (!is_writable($config->get('cache_dir'))) {
|
|
include_once 'System.php';
|
|
$cdir = System::mktemp(array('-d', 'pear'));
|
|
if (PEAR::isError($cdir)) {
|
|
$ui->outputData("[PEAR] cannot make new temporary directory: " . $cdir);
|
|
die(1);
|
|
}
|
|
$oldcachedir = $config->get('cache_dir');
|
|
$config->set('cache_dir', $cdir);
|
|
}
|
|
}
|
|
|
|
// PHP executable
|
|
if (!empty($php_bin)) {
|
|
$config->set('php_bin', $php_bin);
|
|
}
|
|
|
|
// PHP prefix
|
|
if (isset($prefix)) {
|
|
if ($prefix != 'a') {
|
|
if ($prefix[0] == 'a') {
|
|
$prefix = substr($prefix, 1);
|
|
}
|
|
$config->set('php_prefix', $prefix, 'system');
|
|
}
|
|
}
|
|
|
|
// PHP suffix
|
|
if (isset($suffix)) {
|
|
if ($suffix != 'a') {
|
|
if ($suffix[0] == 'a') {
|
|
$suffix = substr($suffix, 1);
|
|
}
|
|
$config->set('php_suffix', $suffix, 'system');
|
|
}
|
|
}
|
|
|
|
/* Print PEAR Conf (useful for debuging do NOT REMOVE) */
|
|
if ($debug) {
|
|
sort($keys);
|
|
foreach ($keys as $key) {
|
|
echo $key . ' ' .
|
|
$config->getPrompt($key) . ": " . $config->get($key, null, 'default') . "\n";
|
|
}
|
|
if ($debug == 2) { // extreme debugging
|
|
exit;
|
|
}
|
|
}
|
|
// end print
|
|
|
|
$php_dir = $config->get('php_dir');
|
|
$options = array();
|
|
$options['upgrade'] = true;
|
|
$install_root = getenv('INSTALL_ROOT');
|
|
if (!empty($install_root)) {
|
|
$options['packagingroot'] = $install_root;
|
|
$reg = &new PEAR_Registry($options['packagingroot'], false, false, $metadata_dir);
|
|
} else {
|
|
$reg = $config->getRegistry('default');
|
|
}
|
|
|
|
$ui = PEAR_Frontend::singleton('PEAR_Frontend_CLI');
|
|
if (PEAR::isError($ui)) {
|
|
die($ui->getMessage());
|
|
}
|
|
$installer = new PEAR_Installer($ui);
|
|
$pkg = new PEAR_PackageFile($config, $debug);
|
|
|
|
foreach ($install_files as $package => $instfile) {
|
|
$info = $pkg->fromAnyFile($instfile, PEAR_VALIDATE_INSTALLING);
|
|
if (PEAR::isError($info)) {
|
|
if (is_array($info->getUserInfo())) {
|
|
foreach ($info->getUserInfo() as $err) {
|
|
$ui->outputData(sprintf("[PEAR] %s: %s", $package, $err['message']));
|
|
}
|
|
}
|
|
$ui->outputData(sprintf("[PEAR] %s: %s", $package, $info->getMessage()));
|
|
continue;
|
|
}
|
|
$new_ver = $info->getVersion();
|
|
$downloaderpackage = new PEAR_Downloader_Package($installer);
|
|
$err = $downloaderpackage->initialize($instfile);
|
|
if (PEAR::isError($err)) {
|
|
$ui->outputData(sprintf("[PEAR] %s: %s", $package, $err->getMessage()));
|
|
continue;
|
|
}
|
|
if ($reg->packageExists($package)) {
|
|
$old_ver = $reg->packageInfo($package, 'version');
|
|
if (version_compare($new_ver, $old_ver, 'gt')) {
|
|
$installer->setOptions($options);
|
|
$dp = array($downloaderpackage);
|
|
$installer->setDownloadedPackages($dp);
|
|
$err = $installer->install($downloaderpackage, $options);
|
|
if (PEAR::isError($err)) {
|
|
$ui->outputData(sprintf("[PEAR] %s: %s", $package, $err->getMessage()));
|
|
continue;
|
|
}
|
|
$ui->outputData(sprintf("[PEAR] %-15s- upgraded: %s", $package, $new_ver));
|
|
} else {
|
|
if ($force) {
|
|
$options['force'] = true;
|
|
$installer->setOptions($options);
|
|
$dp = array($downloaderpackage);
|
|
$installer->setDownloadedPackages($dp);
|
|
$err = $installer->install($downloaderpackage, $options);
|
|
if (PEAR::isError($err)) {
|
|
$ui->outputData(sprintf("[PEAR] %s: %s", $package, $err->getMessage()));
|
|
continue;
|
|
}
|
|
$ui->outputData(sprintf("[PEAR] %-15s- installed: %s", $package, $new_ver));
|
|
} else {
|
|
$ui->outputData(sprintf("[PEAR] %-15s- already installed: %s", $package, $old_ver));
|
|
}
|
|
}
|
|
} else {
|
|
$options['nodeps'] = true;
|
|
$installer->setOptions($options);
|
|
$dp = array($downloaderpackage);
|
|
$installer->setDownloadedPackages($dp);
|
|
$err = $installer->install($downloaderpackage, $options);
|
|
if (PEAR::isError($err)) {
|
|
$ui->outputData(sprintf("[PEAR] %s: %s", $package, $err->getMessage()));
|
|
continue;
|
|
}
|
|
$ui->outputData(sprintf("[PEAR] %-15s- installed: %s", $package, $new_ver));
|
|
}
|
|
if ($package == 'PEAR') {
|
|
if (is_file($ufile = $config->getConfFile('user'))) {
|
|
$ui->outputData('Warning! a PEAR user config file already exists from ' .
|
|
'a previous PEAR installation at ' .
|
|
"'$ufile'. You may probably want to remove it.");
|
|
}
|
|
$config->set('verbose', 1, 'default');
|
|
if (isset($oldcachedir)) {
|
|
$config->set('cache_dir', $oldcachedir);
|
|
}
|
|
$data = array();
|
|
foreach ($config->getKeys() as $key) {
|
|
$data[$key] = $config->get($key);
|
|
}
|
|
$cnf_file = $config->getConfFile('system');
|
|
if (!empty($install_root)) {
|
|
$cnf_file = $install_root . DIRECTORY_SEPARATOR . $cnf_file;
|
|
}
|
|
$config->writeConfigFile($cnf_file, 'system', $data);
|
|
$ui->outputData('Wrote PEAR system config file at: ' . $cnf_file);
|
|
$ui->outputData('You may want to add: ' . $config->get('php_dir') . ' to your php.ini include_path');
|
|
}
|
|
}
|
|
?>
|