Implemented "pear download <pakage>"

diff --git a/pear/PEAR/Command/Remote.php b/pear/PEAR/Command/Remote.php
index ecf2c3e91f58dccf40fa8582bf0b064bf27fdf2a..d5777d3c7a7132ef13a03b8072bf5409b9e2baa1 100644 (file)
--- a/pear/PEAR/Command/Remote.php
+++ b/pear/PEAR/Command/Remote.php
@@ -30,7 +30,8 @@ class PEAR_Command_Remote extends PEAR_Command_Common
     {
         return array('remote-package-info',
                      'list-upgrades',
-                     'list-remote-packages');
+                     'list-remote-packages',
+                     'download');
     }
 
     // }}}
@@ -61,6 +62,48 @@ class PEAR_Command_Remote extends PEAR_Command_Common
             case 'list-remote-packages': {
                 break;
             }
+            case 'download': {
+                //$params[0] -> The package to download
+                if (count($params) != 1) {
+                    return PEAR::raiseError("download expects one argument: the package to download");
+                }
+                if (!ereg('^http://', $params[0])) {
+                    $pkgfile = "http://" . $this->config->get('master_server') .
+                               "/get/" . $params[0];
+                } else {
+                    $pkgfile = $params[0];
+                }
+                if (!extension_loaded("zlib")) {
+                    $pkgfile .= '?uncompress=yes';
+                }
+                include_once 'HTTP.php';
+                $headers = HTTP::head($pkgfile);
+                if (PEAR::isError($headers)|| !isset($headers['Content-disposition'])) {
+                    return $this->raiseError("Could not retrieve remote file information");
+                }
+                preg_match('|filename="(.*)"$|', $headers['Content-disposition'], $matches);
+                $fname = $matches[1];
+                if (!$wp = @fopen($pkgfile, 'wb')) {
+                    $failmsg = "Could not download $pkgfile"; break;
+                }
+                if (!$fp = @fopen($fname, 'wb')) {
+                    $failmsg = "Could not write the file here"; break;
+                }
+                $bytes = 0;
+                $this->ui->displayLine("Downloading $pkgfile:");
+                while ($data = @fread($wp, 16384)) {
+                    $bytes += strlen($data);
+                    if (!@fwrite($fp, $data)) {
+                        return $this->raiseError("$pkgfile: write failed ($php_errormsg)");
+                    }
+                    $this->ui->display('...');
+                }
+                $this->ui->display(" done!\n");
+                fclose($fp);
+                fclose($wp);
+                $this->ui->displayLine("File $fname downloaded ($bytes bytes)");
+                break;
+            }
             case 'list-upgrades': {
                 include_once "PEAR/Registry.php";
                 if (empty($params[0])) {