diff options
| -rw-r--r-- | pear/Makefile.in | 1 | ||||
| -rw-r--r-- | pear/PEAR/Remote.php | 20 | ||||
| -rw-r--r-- | pear/scripts/pear.in | 17 |
3 files changed, 29 insertions, 9 deletions
diff --git a/pear/Makefile.in b/pear/Makefile.in index 9d8cf36208..c0dc8999ca 100644 --- a/pear/Makefile.in +++ b/pear/Makefile.in @@ -103,6 +103,7 @@ PEAR_FILES = \ PEAR/Config.php \ PEAR/Installer.php \ PEAR/Packager.php \ + PEAR/Remote.php \ PEAR/Uploader.php \ Payment/Verisign.php \ Schedule/At.php \ diff --git a/pear/PEAR/Remote.php b/pear/PEAR/Remote.php index b813215176..5c66b8e941 100644 --- a/pear/PEAR/Remote.php +++ b/pear/PEAR/Remote.php @@ -52,24 +52,26 @@ class PEAR_Remote extends PEAR } $params = array_slice(func_get_args(), 1); $request = xmlrpc_encode_request($method, $params); - print "<p><b>Request:</b><p>\n"; - print "<pre>"; - print htmlspecialchars($request); - print "</pre>"; - $fp = @fsockopen($config->get("master_server"), 80); + $server_host = $this->config_object->get("master_server"); + $server_port = 80; + flush(); + $fp = @fsockopen($server_host, $server_port); if (!$fp) { return $this->raiseError("PEAR_Remote::call: connect failed"); } $len = strlen($request); fwrite($fp, ("POST /xmlrpc.php HTTP/1.0\r\n". + "Host: $server_host:$server_port\r\n". "Content-type: text/xml\r\n". "Content-length: $len\r\n". "\r\n$request")); - print "Response:\n"; - while ($line = fgets($fp, 2048)) { - print $line; + $response = ''; + while (trim(fgets($fp, 2048)) != ''); // skip headers + while ($chunk = fread($fp, 10240)) { + $response .= $chunk; } - // XXX UNFINISHED + fclose($fp); + return xmlrpc_decode($response); } // }}} diff --git a/pear/scripts/pear.in b/pear/scripts/pear.in index c5f7ec642b..ecdfa88102 100644 --- a/pear/scripts/pear.in +++ b/pear/scripts/pear.in @@ -137,6 +137,23 @@ switch ($command) { case 'list-packages': { include_once 'PEAR/Remote.php'; $remote = new PEAR_Remote($config); + $result = $remote->call('package.listAll'); + $i = $j = 0; + 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; } // }}} |