mirror of
https://github.com/xcat2/xcat-core.git
synced 2025-05-30 17:46:38 +00:00
86 lines
2.5 KiB
Perl
86 lines
2.5 KiB
Perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
|
|
package xCAT::PPClog;
|
|
use strict;
|
|
use Getopt::Long;
|
|
use xCAT::Usage;
|
|
|
|
|
|
##########################################################################
|
|
# Parse the command line for options and operands
|
|
##########################################################################
|
|
sub parse_args {
|
|
|
|
my $request = shift;
|
|
my $command = $request->{command};
|
|
my $args = $request->{arg};
|
|
my %opt = ();
|
|
my @reventlog = qw(clear all);
|
|
my $cmd;
|
|
|
|
#############################################
|
|
# Responds with usage statement
|
|
#############################################
|
|
local *usage = sub {
|
|
my $usage_string = xCAT::Usage->getUsage($command);
|
|
return ([ $_[0], $usage_string ]);
|
|
};
|
|
#############################################
|
|
# Process command-line arguments
|
|
#############################################
|
|
if (!defined($args)) {
|
|
return (usage("No command specified"));
|
|
}
|
|
#############################################
|
|
# Checks case in GetOptions, allows opts
|
|
# to be grouped (e.g. -vx), and terminates
|
|
# at the first unrecognized option.
|
|
#############################################
|
|
@ARGV = @$args;
|
|
$Getopt::Long::ignorecase = 0;
|
|
Getopt::Long::Configure("bundling");
|
|
|
|
if (!GetOptions(\%opt, qw(V|Verbose))) {
|
|
return (usage());
|
|
}
|
|
####################################
|
|
# Check for "-" with no option
|
|
####################################
|
|
if (grep(/^-$/, @ARGV)) {
|
|
return (usage("Missing option: -"));
|
|
}
|
|
####################################
|
|
# Unsupported commands
|
|
####################################
|
|
($cmd) = grep(/^$ARGV[0]$/, @reventlog);
|
|
if (!defined($cmd)) {
|
|
|
|
################################
|
|
# Check for non-zero integer
|
|
################################
|
|
if ($ARGV[0] !~ /^([1-9]{1}|[1-9]{1}[0-9]+)$/) {
|
|
return (usage("Invalid entry count: $ARGV[0]"));
|
|
}
|
|
$cmd = "entries";
|
|
$opt{e} = $ARGV[0];
|
|
}
|
|
shift @ARGV;
|
|
|
|
####################################
|
|
# Check for an extra argument
|
|
####################################
|
|
if (defined($ARGV[0])) {
|
|
return (usage("Invalid Argument: $ARGV[0]"));
|
|
}
|
|
####################################
|
|
# Set method to invoke
|
|
####################################
|
|
$request->{method} = $cmd;
|
|
return (\%opt);
|
|
}
|
|
|
|
|
|
|
|
1;
|
|
|