clones/php-src
1
0
Fork 0
mirror of https://github.com/php/php-src.git synced 2024-09-23 02:47:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Put "pear help options" working again

Browse Source
This commit is contained in:
Tomas V.V.Cox 2002-05-19 15:50:36 +00:00
parent 26493531d4
commit 93b603861e
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pear/scripts/pear.in
View File

@ -16,8 +16,10 @@
// +----------------------------------------------------------------------+ // +----------------------------------------------------------------------+
// | Authors: Stig Bakken <ssb@fast.no> | // | Authors: Stig Bakken <ssb@fast.no> |
// | Tomas V.V.Cox <cox@idecnet.com> | // | Tomas V.V.Cox <cox@idecnet.com> |
// | |
// +----------------------------------------------------------------------+ // +----------------------------------------------------------------------+
// //
// $Id$
ini_set('allow_url_fopen', true); ini_set('allow_url_fopen', true);
set_time_limit(0); set_time_limit(0);
@ -128,14 +130,14 @@ if ($fetype == 'Gtk') {
Gtk::main(); Gtk::main();
} else do { } else do {
if (empty($all_commands[$command]) || $command == 'help') { if (empty($all_commands[$command]) || $command == 'help') {
usage(null, @$options[1][2]); usage(null, @$options[1][0]);
} }
$cmd = PEAR_Command::factory($command, $config); $cmd = PEAR_Command::factory($command, $config);
if (PEAR::isError($cmd)) { if (PEAR::isError($cmd)) {
die($cmd->getMessage()); die($cmd->getMessage());
} }
$short_args = $long_args = null; $short_args = $long_args = null;
PEAR_Command::getGetoptArgs($command, $short_args, $long_args); PEAR_Command::getGetoptArgs($command, $short_args, $long_args);
if (PEAR::isError($tmp = Console_Getopt::getopt($options[1], $short_args, $long_args))) { if (PEAR::isError($tmp = Console_Getopt::getopt($options[1], $short_args, $long_args))) {
@ -217,9 +219,9 @@ function cmdHelp($command)
" -h, -? display help/usage (this message)\n"; " -h, -? display help/usage (this message)\n";
} elseif ($help = PEAR_Command::getHelp($command)) { } elseif ($help = PEAR_Command::getHelp($command)) {
if (is_string($help)) { if (is_string($help)) {
return "Usage : $help"; return "$help\n";
} }
return "Usage : $progname $command {$help[0]}\n{$help[1]}"; return "{$help[0]}\n{$help[1]}";
} }
return "No such command"; return "No such command";
} }