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

HMC in DFM cluster: add the process for flag -s

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9036 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
yinle 2011-03-11 10:05:29 +00:00
parent e2d8257746
commit c79e383621
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -54,11 +54,16 @@ sub mkhwconn_parse_args
$Getopt::Long::ignorecase = 0;
Getopt::Long::Configure( "bundling" );
if ( !GetOptions( \%opt, qw(V|verbose h|help t p=s P=s port=s) )) {
if ( !GetOptions( \%opt, qw(V|verbose h|help t p=s P=s port=s s) )) {
return( usage() );
}
return usage() if ( exists $opt{h});
if ( exists $opt{s} )
{
return( usage('Flags -s is just used in direct-attach enviroment.'));
}
if ( exists $opt{t} and exists $opt{p})
{
return( usage('Flags -t and -p cannot be used together.'));
@ -488,7 +493,7 @@ sub mkhwconn
my $res = xCAT::PPCcli::mksysconn( $exp, $node_ip, $type, $passwd);
$Rc = shift @$res;
push @value, [$node_name, @$res[0], $Rc];
if ( !$Rc)
if ( !$Rc and !$opt->{s})
{
sethmcmgt( $node_name, $exp->[3]);
}