arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove unused modified usage - Line #49

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1055 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2008-04-15 13:36:10 +00:00
parent 91e38111ab
commit 2152add071
1 changed files with 2 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
perl-xCAT-2.0/xCAT/PPCfsp.pm
View File

@ -45,29 +45,14 @@ sub parse_args {
my $command = $request->{command};
my @rsp = keys %{$cmds{$command}};
my $args = $request->{arg};
my $cmd = join( '|',@rsp );
my %opt = ();
#############################################
# Modify usage statement
#############################################
my $option = "{configure|deconfigure}";
$cmd =~ s/spdump/\n\t spdump/;
$cmd =~ s/sysdump/\n\t sysdump/;
$cmd =~ s/time/\n\t time [hh:mm:ss]/;
$cmd =~ s/date/\n\t date [mm-dd-yyyy]/;
$cmd =~ s/autopower/\n\t autopower [enable|disable]/;
$cmd =~ s/iocap/\n\t iocap [enable|disable]/;
$cmd =~ s/decfg/\n\t decfg [{enable|disable} policy,...]/;
$cmd =~ s/memdecfg/\n\t memdecfg [$option unit=id (unit|bank)=all|id,...]/;
$cmd =~ s/procdecfg/\n\t procdecfg [$option unit=id all|id,...]/;
#############################################
# Responds with usage statement
#############################################
local *usage = sub {
my $usage_string=xCAT::Usage->getUsage($command);
return( [ $_[0], $usage_string]);
my $usage_string = xCAT::Usage->getUsage($command);
return( [$_[0], $usage_string] );
};
#############################################
# Process command-line arguments