From 16f0f19fab1a01a250f945121abf1e3f552765a2 Mon Sep 17 00:00:00 2001
From: yinle <yinle@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 13 Apr 2011 09:38:29 +0000
Subject: [PATCH] Add -s to mkhwconn to support connection between frame and
 its sfp

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

diff --git a/perl-xCAT/xCAT/FSPconn.pm b/perl-xCAT/xCAT/FSPconn.pm
index 90a3a2904..ba80c5448 100644
--- a/perl-xCAT/xCAT/FSPconn.pm
+++ b/perl-xCAT/xCAT/FSPconn.pm
@@ -7,6 +7,7 @@ use xCAT::PPCcli qw(SUCCESS EXPECT_ERROR RC_ERROR NR_ERROR);
 use xCAT::Usage;
 #use Data::Dumper;
 use xCAT::FSPUtils;
+use xCAT::PPCconn;
 
 ##############################################
 # Globals
@@ -58,6 +59,14 @@ sub mkhwconn_parse_args
     if ( !GetOptions( \%opt, qw(V|verbose h|help t 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;
+    }
+
+
     return usage() if ( exists $opt{h});
 
     if ( exists $opt{t} and exists $opt{p})