#!@prefix@/bin/php -Cq
<?php // -*- PHP -*-
//
// +----------------------------------------------------------------------+
// | PHP Version 4                                                        |
// +----------------------------------------------------------------------+
// | Copyright (c) 1997-2002 The PHP Group                                |
// +----------------------------------------------------------------------+
// | This source file is subject to version 2.02 of the PHP license,      |
// | that is bundled with this package in the file LICENSE, and is        |
// | available at through the world-wide-web at                           |
// | http://www.php.net/license/2_02.txt.                                 |
// | If you did not receive a copy of the PHP license and are unable to   |
// | obtain it through the world-wide-web, please send a note to          |
// | license@php.net so we can mail you a copy immediately.               |
// +----------------------------------------------------------------------+
// | Authors: Stig Bakken <ssb@fast.no>                                   |
// |          Tomas V.V.Cox <cox@idecnet.com>                             |
// +----------------------------------------------------------------------+
//


/*

command structure:

* remote queries:
** list available packages
** list not-installed packages
** list upgrades

** list packages by author
** list packages by category
** list packages by state

* operations on package files:

* installation commands:

* package generation commands:



 */
require_once 'PEAR.php';
require_once 'PEAR/Common.php';
require_once 'PEAR/Config.php';
require_once 'PEAR/Remote.php';
require_once 'PEAR/Registry.php';
require_once 'Console/Getopt.php';

error_reporting(E_ALL & ~E_NOTICE);

PEAR::setErrorHandling(PEAR_ERROR_PRINT, "pear: %s\n");

// {{{ config file and option parsing

$options = Console_Getopt::getopt($argv, "c:C:d:D:h?sSqu:v");
if (PEAR::isError($options)) {
    usage($options);
}

if (OS_WINDOWS) {
    $pear_default_config = PHP_SYSCONFDIR.DIRECTORY_SEPARATOR.'pearsys.ini';
    $pear_user_config    = PHP_SYSCONFDIR.DIRECTORY_SEPARATOR.'pear.ini';
} else {
    $pear_default_config = PHP_SYSCONFDIR.DIRECTORY_SEPARATOR.'pear.conf';
    $pear_user_config    = getenv('HOME').DIRECTORY_SEPARATOR.'.pearrc';
}

$opts = $options[0];

foreach ($opts as $opt) {
    switch ($opt[0]) {
        case 'c':
            $pear_user_config = $opt[1];
            break;
        case 'C':
            $pear_default_config = $opt[1];
            break;
    }
}

$config = new PEAR_Config($pear_user_config, $pear_default_config);
$store_user_config = false;
$store_default_config = false;
$verbose = 1;

foreach ($opts as $opt) {
    $param = $opt[1];
    switch ($opt[0]) {
        case 'd':
            list($key, $value) = explode('=', $param);
            $config->set($key, $value);
            break;
        case 'D':
            list($key, $value) = explode('=', $param);
            $config->set($key, $value, true);
            break;
        case 's':
            $store_user_config = true;
            break;
        case 'S':
            $store_default_config = true;
            break;
        case 'u':
            $config->toDefault($param);
            break;
        case 'v':
            $verbose++;
            break;
        case 'q':
            $verbose--;
            break;
    }
}

if ($store_default_config) {
    if (@is_writeable($pear_default_config)) {
        $config->writeConfigFile($pear_default_config, 'default');
    } else {
        die("You don't have write access to $pear_default_config, exiting!\n");
    }
}

if ($store_user_config) {
    $config->writeConfigFile($pear_user_config, 'userdefined');
}

$fallback_config = array(
    'master_server' => 'pear.php.net',
    'php_dir'       => PEAR_INSTALL_DIR,
    'ext_dir'       => PEAR_EXTENSION_DIR,
    'doc_dir'       => '',
    'verbose'       => true,
);
$fallback_done = array();

foreach ($fallback_config as $key => $value) {
    if (!$config->isDefined($key)) {
        $config->set($key, $value);
        $fallback_done[$key] = true;
    }
}

//$verbose    = $config->get("verbose");
$script_dir = $config->get("php_dir");
$ext_dir    = $config->get("ext_dir");
$doc_dir    = $config->get("doc_dir");

$command = (isset($options[1][1])) ? $options[1][1] : null;
$rest = array_slice($options[1], 2);

$command_options = array(
    "list-installed" => "v",
    "install"        => "r",
    "uninstall"      => "r",
);

if (isset($command_options[$command])) {
    $tmp = Console_Getopt::getopt($rest, $command_options[$command]);
    if (PEAR::isError($tmp)) {
        usage($tmp);
    }
    $cmdopts = $tmp[0];
    $cmdargs = $tmp[1];
} else {
    $cmdopts = array();
    $cmdargs = $rest;
}


// }}}

switch ($command) {
    // {{{ install

    case 'install': {
        include_once 'PEAR/Installer.php';
        $pkgfile = $cmdargs[0];
        $installer =& new PEAR_Installer($script_dir, $ext_dir, $doc_dir);
        $installer->setErrorHandling(PEAR_ERROR_DIE,
                                     basename($pkgfile) . ": %s\n");
        $installer->debug = $verbose;
        $install_options = array();
        foreach ($cmdopts as $opt) {
            if ($opt[0] == 'r') {
                // This option is for use by rpm and other package
                // tools that can install files etc. by itself, but
                // still needs to register the package as installed in
                // PEAR's local registry.
                $install_options['register_only'] = true;
            }
        }
        $installer->install($pkgfile, $install_options);
        print "install ok\n";
        break;
    }

    // }}}
    // {{{ uninstall
    case 'uninstall': {
        include_once 'PEAR/Installer.php';
        $pkgfile = $cmdargs[0];
        $installer =& new PEAR_Installer($script_dir, $ext_dir, $doc_dir);
        $installer->setErrorHandling(PEAR_ERROR_DIE,
                                     basename($pkgfile) . ": %s\n");
        $installer->debug = $verbose;
        $uninstall_options = array();
        foreach ($cmdopts as $opt) {
            if ($opt[0] == 'r') {
                $uninstall_options['register_only'] = true;
            }
        }
        $installer->uninstall($pkgfile, $uninstall_options);
        print "uninstall ok\n";
        break;
    }
    // }}}
    // {{{ package

    case 'package': {
        include_once 'PEAR/Packager.php';
        $pkginfofile = isset($cmdargs[0]) ? $cmdargs[0] : null;
        $packager =& new PEAR_Packager($script_dir, $ext_dir, $doc_dir);
        $packager->setErrorHandling(PEAR_ERROR_DIE, "pear page: %s\n");
        $packager->debug = $verbose;
        if (PEAR::isError($packager->Package($pkginfofile))) {
            print "\npackage failed\n";
        } else {
            print "package ok\n";
        }
        break;
    }

    // }}}
    // {{{ info

    case 'info': {
        $parser = new PEAR_Common;
        $parser->setErrorHandling(PEAR_ERROR_DIE, "pear info: %s\n");
        $info = $parser->infoFromTgzFile($cmdargs[0]);
        unset($info['filelist']);
        present_array($info);
        break;
    }

    // }}}
    // {{{ list-installed

    case 'list-installed': {
        $reg = new PEAR_Registry;
        $installed = $reg->packageInfo();
        $i = $j = 0;
        heading("Installed packages:");
        foreach ($installed as $package) {
            if ($i++ % 20 == 0) {
                if ($j++ > 0) {
                    print "\n";
                }
                printf("%-20s %-10s %s\n",
                       "Package", "Version", "State");
                print str_repeat("-", 75)."\n";
            }
            printf("%-20s %-10s %s\n", $package['package'],
                   $package['version'], $package['release_state']);
        }
        break;
    }

    // }}}
    // {{{ list-available

    case 'list-available': {
        $remote = new PEAR_Remote($config);
        $result = $remote->call('package.listAll');
        $i = $j = 0;
        heading("Available packages");
        foreach ($result as $package) {
            if ($i++ % 20 == 0) {
                if ($j++ > 0) {
                    print "\n";
                }
                printf("%-20s %-10s %-15s %s\n",
                       "Package", "Stable", "Lead", "Category");
                print str_repeat("-", 75)."\n";
            }
            $stable = $package['stable'];
            printf("%-20s %-10s %-15s %s\n", $package['name'],
                   $stable ? $stable : "???",
                   $package['lead'], $package['category']);
        }
        break;
    }

    // }}}
    // {{{ show-config

    case 'show-config': {
        $keys = $config->getKeys();
        foreach ($keys as $key) {
            $value = $config->get($key);
            $xi = "";
            if ($config->isDefaulted($key)) {
                $xi .= " (default)";
            }
            if (isset($fallback_done[$key])) {
                $xi .= " (built-in)";
            }
            printf("%s = %s%s\n", $key, $value, $xi);
        }
        break;
    }

    // }}}
    default: {
        if (!$store_default_config && !$store_user_config) {
            usage();
        }
        break;
    }
}

// {{{ usage()

function usage($error = null)
{
    $stderr = fopen('php://stderr', 'w');
    if (PEAR::isError($error)) {
        fputs($stderr, $error->getMessage());
    } elseif ($error !== null) {
        fputs($stderr, $error);
    }
    fputs($stderr,
          "Usage: pear [options] command [command-options] <parameters>\n".
          "Options:\n".
          "     -v         increase verbosity level (default 1)\n".
          "     -q         be quiet, decrease verbosity level\n".
          "     -c file    find user configuration in `file'\n".
          "     -C file    find system configuration in `file'\n".
          "     -d foo=bar set user config variable `foo' to `bar'\n".
          "     -D foo=bar set system config variable `foo' to `bar'\n".
          "     -s         store user configuration\n".
          "     -s         store system configuration\n".
          "     -u foo     unset `foo' in the user configuration\n".
          "     -h, -?     display help/usage (this message)\n".
          "Commands:\n".
          "   help [command]\n".
          "   install [-r] <package file>\n".
          "   uninstall [-r] <package name>\n".
          "   package [package info file]\n".
          "   list-installed\n".
          "   list-available\n".
          "   info\n".
          "   show-config\n".
          "\n");
    fclose($stderr);
    exit;
}

// }}}
// {{{ present_array()

function present_array(&$arr, $keys = null)
{
    if ($keys === null) {
        $keys = array_keys($arr);
    }
    $longest_key = max(array_map("strlen", array_keys($arr)));
    $format_string = "%{$longest_key}s : %s\n";
    foreach ($keys as $k) {
        if (is_array($arr[$k])) {
            $v = implode(", ", $arr[$k]);
        } else {
            $v = $arr[$k];
        }
        printf($format_string, $k, $v);
    }
}

// }}}
// {{{ heading()

function heading($text)
{
    $l = strlen(trim($text));
    print rtrim($text) . "\n" . str_repeat("=", $l) . "\n";
}

// }}}

/*
 * Local variables:
 * tab-width: 4
 * c-basic-offset: 4
 * indent-tabs-mode: nil
 * End:
 */
?>