readd the "list" command

1 files changed, 89 insertions, 0 deletions

diff --git a/pear/PEAR/Command/List.php b/pear/PEAR/Command/List.php
new file mode 100644
index 0000000000..489a4bc6d6
--- /dev/null
+++ b/pear/PEAR/Command/List.php
@@ -0,0 +1,89 @@
+<?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.               |
+// +----------------------------------------------------------------------+
+// | Author: Stig Bakken <ssb@fast.no>                                    |
+// +----------------------------------------------------------------------+
+//
+// $Id$
+
+require_once "PEAR/Command/Common.php";
+require_once "PEAR/Registry.php";
+
+/**
+ * PEAR commands for managing configuration data.
+ *
+ */
+class PEAR_Command_List extends PEAR_Command_Common
+{
+    // {{{ properties
+    // }}}
+
+    // {{{ constructor
+
+    /**
+     * PEAR_Command_Config constructor.
+     *
+     * @access public
+     */
+    function PEAR_Command_List(&$ui, &$config)
+    {
+        parent::PEAR_Command_Common($ui, $config);
+    }
+
+    // }}}
+
+    // {{{ getCommands()
+
+    /**
+     * Return a list of all the commands defined by this class.
+     * @return array list of commands
+     * @access public
+     */
+    function getCommands()
+    {
+        return array('list');
+    }
+
+    // }}}
+    // {{{ run()
+
+    function run($command, $params)
+    {
+        $reg = new PEAR_Registry(); // XXX Use config here
+        $installed = $reg->packageInfo();
+        $i = $j = 0;
+        ob_start();
+        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']);
+        }
+        $output = ob_get_contents();
+        ob_end_clean();
+        $lines = explode("\n", $output);
+        foreach ($lines as $line) {
+            $this->ui->displayLine($line);
+        }
+    }
+}
+?>
\ No newline at end of file