[pve-devel] r6445 - pve-common/trunk/data/PVE

[svn-commits at proxmox.com]

Author: dietmar
Date: 2011-08-10 12:12:35 +0200 (Wed, 10 Aug 2011)
New Revision: 6445

Modified:
   pve-common/trunk/data/PVE/CLIHandler.pm
Log:
generate 'full' documenation 


Modified: pve-common/trunk/data/PVE/CLIHandler.pm
===================================================================
--- pve-common/trunk/data/PVE/CLIHandler.pm	2011-08-10 10:00:04 UTC (rev 6444)
+++ pve-common/trunk/data/PVE/CLIHandler.pm	2011-08-10 10:12:35 UTC (rev 6445)
@@ -116,13 +116,16 @@
     
     $synopsis .= " $exename <COMMAND> [ARGS] [OPTIONS]\n\n";
 
+    my $style = 'full'; # or should we use 'short'?
     my $oldclass;
     foreach my $cmd (sorted_commands()) {
 	my ($class, $name, $arg_param, $uri_param) = @{$cmddef->{$cmd}};
 	my $str = $class->usage_str($name, "$exename $cmd", $arg_param, 
-				    $uri_param, 'short');
+				    $uri_param, $style);
+	$str =~ s/^USAGE: //;
+
 	$synopsis .= "\n" if $oldclass && $oldclass ne $class;
-	$synopsis .= " $str";
+	$synopsis .= " $str\n";
 	$oldclass = $class;
     }