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

Remove "all_clear" and "-e" flag from reventlog

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@405 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2008-02-06 19:28:19 +00:00
parent 6d8116eba3
commit 76c5ecec54
1 changed files with 15 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
perl-xCAT-2.0/xCAT/PPClog.pm
View File

@ -13,7 +13,7 @@ sub parse_args {
my $request = shift;
my $args = $request->{arg};
my %opt = ();
my @reventlog = qw(clear all all_clear);
my @reventlog = qw(clear all);
my @VERSION = qw( 2.0 );
my $cmd;
@ -24,11 +24,10 @@ sub parse_args {
return( [ $_[0],
"reventlog -h|--help",
"reventlog -v|--version",
"reventlog [-V|--verbose] noderange " . join( '|', @reventlog ),
"reventlog [-V|--verbose] noderange " . join( '|', @reventlog )."|<number of entries to retrieve>",
" -h writes usage information to standard output",
" -v displays command version",
" -V verbose output",
" -e Reads number of entries specified, starting with first"])
" -V verbose output"])
};
#############################################
# Process command-line arguments
@ -45,7 +44,7 @@ sub parse_args {
$Getopt::Long::ignorecase = 0;
Getopt::Long::Configure( "bundling" );
if ( !GetOptions( \%opt, qw(h|help V|Verbose v|version e=s) )) {
if ( !GetOptions( \%opt, qw(h|help V|Verbose v|version) )) {
return( usage() );
}
####################################
@ -67,24 +66,22 @@ sub parse_args {
return(usage( "Missing option: -" ));
}
####################################
# Check for non-zero integer
# Unsupported commands
####################################
if ( exists( $opt{e} )) {
if ( $opt{e} !~ /^[1-9]{1}$|^[1-9]{1}[0-9]+$/ ) {
return(usage( "Invalid entry: $opt{e}" ));
}
$cmd = "entries";
}
else {
($cmd) = grep(/^$ARGV[0]$/, @reventlog );
if ( !defined( $cmd )) {
################################
# Unsupported commands
# Check for non-zero integer
################################
($cmd) = grep(/^$ARGV[0]$/, @reventlog );
if ( !defined( $cmd )) {
if ( $ARGV[0] !~ /^[1-9]{1}$|^[1-9]{1}[0-9]+$/ ) {
return(usage( "Invalid command: $ARGV[0]" ));
}
shift @ARGV;
$cmd = "entries";
$opt{e} = $ARGV[0];
}
shift @ARGV;
####################################
# Check for an extra argument
####################################
@ -101,3 +98,4 @@ sub parse_args {
1;