/install-pear.php
PHP | 306 lines | 270 code | 21 blank | 15 comment | 75 complexity | 1e5c9b1d2be2bc982f4e71247d9c16b5 MD5 | raw file
Possible License(s): MPL-2.0-no-copyleft-exception, BSD-2-Clause, LGPL-2.1
- <?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') {
- $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') {
- $with_dir = $argv[$i+1];
- $i++;
- } elseif ($arg == '-b') {
- $bin_dir = $argv[$i+1];
- $i++;
- } elseif ($arg == '-c') {
- $cfg_dir = $argv[$i+1];
- $i++;
- } elseif ($arg == '-w') {
- $www_dir = $argv[$i+1];
- $i++;
- } elseif ($arg == '-p') {
- $php_bin = $argv[$i+1];
- $i++;
- } elseif ($arg == '-o') {
- $download_dir = $argv[$i+1];
- $i++;
- } elseif ($arg == '-t') {
- $temp_dir = $argv[$i+1];
- $i++;
- } elseif ($arg == '-D') {
- $doc_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');
- }
- // User supplied a dir prefix
- if (!empty($with_dir)) {
- $ds = DIRECTORY_SEPARATOR;
- $config->set('php_dir', $with_dir, 'default');
- if (empty($doc_dir)) {
- $config->set('doc_dir', $with_dir . $ds . 'doc', 'default');
- }
- $config->set('data_dir', $with_dir . $ds . 'data', 'default');
- $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']);
- } 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');
- }
- }
- ?>