From c79e3836218eee805cd5dc87ccf1586b4b7df115 Mon Sep 17 00:00:00 2001
From: yinle <yinle@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 11 Mar 2011 10:05:29 +0000
Subject: [PATCH] HMC in DFM cluster: add the process for flag -s

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9036 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/PPCconn.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/perl-xCAT/xCAT/PPCconn.pm b/perl-xCAT/xCAT/PPCconn.pm
index c22bee129..71d935911 100644
--- a/perl-xCAT/xCAT/PPCconn.pm
+++ b/perl-xCAT/xCAT/PPCconn.pm
@@ -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]);
                 }