From: Vincent Blavet <vblavet@php.net>
Date: Wed, 13 Feb 2002 21:27:54 +0000 (+0000)
Subject: * Synchronize pearwin script with pearcmd-xxx.php commands
X-Git-Tag: php-4.2.0RC1~347
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=f6f6d88ad3ebadcb84ce34101bc1c3bdd34b5ec9;p=php

* Synchronize pearwin script with pearcmd-xxx.php commands
* Still work to do
---

diff --git a/pear/scripts/pearwin.php b/pear/scripts/pearwin.php
index a637ba3b98..a8217be5df 100644
--- a/pear/scripts/pearwin.php
+++ b/pear/scripts/pearwin.php
@@ -158,56 +158,16 @@ function heading($text)
 
 switch ($command) {
     case 'install':
-        include_once 'PEAR/Installer.php';
-        $package = $options[1][2];
-        $installer =& new PEAR_Installer($script_dir, $ext_dir, $doc_dir);
-        $installer->debug = $verbose;
-        if (PEAR::isError($installer->Install($package))) {
-            print "\ninstall failed\n";
-        } else {
-            print "install ok\n";
-        }
+        include 'pearcmd-install.php';
         break;
     case 'uninstall':
-        include_once 'PEAR/Installer.php';
-        $package = $options[1][2];
-        $installer =& new PEAR_Installer($script_dir, $ext_dir, $doc_dir);
-        $installer->debug = $verbose;
-        if (PEAR::isError($installer->uninstall($package))) {
-            print "\nuninstall failed\n";
-        } else {
-            print "uninstall ok\n";
-        }
+        include 'pearcmd-uninstall.php';
         break;
     case 'list':
-        include_once 'PEAR/Registry.php';
-        $reg = &new PEAR_Registry($script_dir);
-        $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']);
-        }
+        include 'pearcmd-list.php';
         break;
     case 'package':
-        include_once 'PEAR/Packager.php';
-        $pkginfofile = $options[1][2];
-        $packager =& new PEAR_Packager($script_dir, $ext_dir, $doc_dir);
-        $packager->debug = $verbose;
-        if (PEAR::isError($packager->Package($pkginfofile))) {
-            print "\npackage failed\n";
-        } else {
-            print "package ok\n";
-        }
+        include 'pearcmd-package.php';
         break;
     case 'remote-list':
         include 'pearcmd-remote-list.php';