home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 August / PCWorld_2001-08_cd.bin / Komunikace / phptriad / phptriadsetup2-11.exe / php / pear / scripts / pear.in next >
Text File  |  2001-01-10  |  1KB  |  57 lines
  1. #!@prefix@/bin/php -q
  2. <?php // -*- C++ -*-
  3.  
  4. require_once "PEAR.php";
  5. require_once "PEAR/Installer.php";
  6.  
  7. error_reporting(7);
  8.  
  9. $stderr = fopen("php://stderr", "w");
  10.  
  11. $debug = 1;
  12. $optind = 1;
  13.  
  14. while ($optind < $argc && $argv[$optind][0] == "-") {
  15.     switch (substr($argv[$optind], 1)) {
  16.         case "v":
  17.             $debug = (int)$argv[++$optind];
  18.             break;
  19.         case "-":
  20.             $optind++;
  21.             break 2;
  22.         default:
  23.             fputs($stderr, "Unknown option: $argv[$optind]\n");
  24.             /* fall through */
  25.         case "?":
  26.         case "h":
  27.             usage();
  28.             break;
  29.     }
  30.     
  31.     $optind++;
  32. }
  33.  
  34. $pkgfile = $argv[$optind];
  35.  
  36. if (!$pkgfile) {
  37.     usage();
  38. }
  39.  
  40. $p = new PEAR_Installer();
  41. $p->debug = $debug;
  42. $p->install($pkgfile);
  43.  
  44. function usage()
  45. {
  46.     global $stderr;
  47.     fputs($stderr,
  48.           "Usage: pear [-v n] [-h] <package>\n".
  49.           "Options:\n".
  50.           "     -v   set verbosity level to <n> (0-2, default 1)\n".
  51.           "     -h   display help/usage (this message)\n");
  52.     fclose($stderr);
  53.     exit;
  54. }
  55.  
  56. ?>
  57.