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

support rmhwconn -s and lshwconn -s.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9647 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
yinle
2011-05-22 11:59:04 +00:00
parent 1b37ff7074
commit bd5dcc5292
1 changed files with 18 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
perl-xCAT/xCAT/FSPconn.pm
View File

@@ -56,14 +56,14 @@ sub mkhwconn_parse_args
$Getopt::Long::ignorecase = 0;
Getopt::Long::Configure( "bundling" );
if ( !GetOptions( \%opt, qw(V|verbose h|help t T=s p=s P=s port=s) )) {
if ( !GetOptions( \%opt, qw(V|verbose h|help t s T=s p=s P=s port=s) )) {
return( usage() );
}
if ( exists $opt{s} )
{
my $opttmp = xCAT::PPCconn::mkhwconn_parse_args($request, $args);
return $opttmp;
my $opttmp = xCAT::PPCconn::mkhwconn_parse_args($request, $args);
return $opttmp;
}
@@ -300,7 +300,13 @@ sub lshwconn_parse_args
$Getopt::Long::ignorecase = 0;
Getopt::Long::Configure( "bundling" );
if ( !GetOptions( \%opt, qw(V|verbose h|help T=s) )) {
if ( exists $opt{s} )
{
my $opttmp = xCAT::PPCconn::lshwconn_parse_args($request, $args);
return $opttmp;
}
if ( !GetOptions( \%opt, qw(V|verbose h|help T=s s) )) {
return( usage() );
}
return usage() if ( exists $opt{h});
@@ -421,11 +427,17 @@ sub rmhwconn_parse_args
$Getopt::Long::ignorecase = 0;
Getopt::Long::Configure( "bundling" );
if ( !GetOptions( \%opt, qw(V|verbose h|help T=s) )) {
if ( !GetOptions( \%opt, qw(V|verbose h|help T=s s) )) {
return( usage() );
}
return usage() if ( exists $opt{h});
if ( $opt{s} )
{
my $opttmp = xCAT::PPCconn::rmhwconn_parse_args($request, $args);
return $opttmp;
}
if( ! exists $opt{T} )
{
$opt{T} = "lpar"; #defaut value is lpar.