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@9640 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
yinle 2011-05-20 09:19:02 +00:00
parent 8adbaaa6a2
commit d80fabcaa9
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
perl-xCAT/xCAT/PPCconn.pm
View File

@ -255,7 +255,7 @@ sub lshwconn_parse_args
$Getopt::Long::ignorecase = 0;
Getopt::Long::Configure( "bundling" );
if ( !GetOptions( \%opt, qw(V|verbose h|help) )) {
if ( !GetOptions( \%opt, qw(V|verbose h|help s) )) {
return( usage() );
}
return usage() if ( exists $opt{h});
@ -264,7 +264,9 @@ sub lshwconn_parse_args
# Process command-line arguments
#############################################
if ( scalar( @ARGV)) {
unless( $opt{s}) {
return(usage( "No additional flag is support by this command" ));
}
}
my $nodetypetab = xCAT::Table->new('nodetype');
if (! $nodetypetab)
@ -339,7 +341,7 @@ sub rmhwconn_parse_args
$Getopt::Long::ignorecase = 0;
Getopt::Long::Configure( "bundling" );
if ( !GetOptions( \%opt, qw(V|verbose h|help) )) {
if ( !GetOptions( \%opt, qw(V|verbose h|help s) )) {
return( usage() );
}
return usage() if ( exists $opt{h});
@ -348,7 +350,9 @@ sub rmhwconn_parse_args
# Process command-line arguments
#############################################
if ( scalar (@ARGV)) {
unless( $opt{s}) {
return(usage( "No additional flag is support by this command" ));
}
}
##########################################
# Check if CECs are controlled by a frame
@ -680,7 +684,7 @@ sub rmhwconn
my $res = xCAT::PPCcli::rmsysconn( $exp, $type, $nn);
$Rc = shift @$res;
push @value, [$node_name, @$res[0], $Rc];
if ( !$Rc)
if ( !$Rc and !$opt->{s})
{
rmhmcmgt( $node_name, $type);
}