From 73bc6306a84c307f11f6b3b822bdfb37a67301d1 Mon Sep 17 00:00:00 2001
From: jjhua <jjhua@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 17 Mar 2011 08:21:59 +0000
Subject: [PATCH] only rinv with firm supports in Direct FSP management

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9069 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/FSPinv.pm | 61 +++++++++++++++++++++++++++++++++++++++-
 1 file changed, 60 insertions(+), 1 deletion(-)

diff --git a/perl-xCAT/xCAT/FSPinv.pm b/perl-xCAT/xCAT/FSPinv.pm
index 7a3099597..7988b3d72 100644
--- a/perl-xCAT/xCAT/FSPinv.pm
+++ b/perl-xCAT/xCAT/FSPinv.pm
@@ -31,7 +31,66 @@ my @licmap = (
 # Parse the command line for options and operands 
 ##########################################################################
 sub parse_args {
-    xCAT::PPCinv::parse_args(@_);
+#    xCAT::PPCinv::parse_args(@_);
+    my $request = shift;
+    my $command = $request->{command};
+    my $args    = $request->{arg};
+    my %opt     = ();
+#    my @rinv    = qw(bus config model serial firm all);
+    my @rinv    = qw( firm );
+
+    #############################################
+    # 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 command
+    ####################################
+    my ($cmd) = grep(/^$ARGV[0]$/, @rinv );
+    if ( !defined( $cmd )) {
+        return(usage( "Invalid command: $ARGV[0]" ));
+    }
+    ####################################
+    # Check for an extra argument
+    ####################################
+    shift @ARGV;
+    if ( defined( $ARGV[0] )) {
+        return(usage( "Invalid Argument: $ARGV[0]" ));
+    }
+    ####################################
+    # Set method to invoke 
+    ####################################
+    $request->{method} = $cmd; 
+    return( \%opt );
+
+
 }