diff --git a/perl-xCAT/xCAT/PPCboot.pm b/perl-xCAT/xCAT/PPCboot.pm index 9817b612f..39d6008aa 100644 --- a/perl-xCAT/xCAT/PPCboot.pm +++ b/perl-xCAT/xCAT/PPCboot.pm @@ -16,6 +16,7 @@ sub parse_args { my %opt = (); my $cmd = $request->{command}; my $args = $request->{arg}; + my @VERSION = qw( 2.1 ); ############################################# # Responds with usage statement @@ -40,10 +41,23 @@ sub parse_args { $Getopt::Long::ignorecase = 0; Getopt::Long::Configure( "bundling" ); - if ( !GetOptions( \%opt, qw(V|Verbose f s=s) )) { + if ( !GetOptions( \%opt, qw(h|help V|Verbose v|version f s=s) )) { return( usage() ); } + #################################### + # Option -h for Help + #################################### + if ( exists( $opt{h} )) { + return( usage() ); + } + #################################### + # Option -v for version + #################################### + if ( exists( $opt{v} )) { + return( \@VERSION ); + } + if ( exists( $opt{s} ) ){ my @boot_devices = split(/,/, $opt{s}); foreach (@boot_devices) {