From 9dab6c3015372dddc039988256bb9a8978e47aaf Mon Sep 17 00:00:00 2001
From: yinle <yinle@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Sun, 3 Jul 2011 10:57:32 +0000
Subject: [PATCH] Fix bug 3348885: rspconfig --resetnet failed to reset ip for
 fsp

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

diff --git a/perl-xCAT/xCAT/PPCfsp.pm b/perl-xCAT/xCAT/PPCfsp.pm
index b550968ad..116b7e14b 100644
--- a/perl-xCAT/xCAT/PPCfsp.pm
+++ b/perl-xCAT/xCAT/PPCfsp.pm
@@ -109,14 +109,6 @@ sub connect {
     # Get userid/password 
     ##################################
     my $cred = $req->{$server}{cred};
-    my $name = undef;
-    if (($req->{dev} eq '1') or 
-        ($req->{command} eq 'rpower')) {
-        $name = "celogin"; 
-    } else {
-        $name = $logonname{$req->{hwtype}}->[0];
-    }
-    my @cred = xCAT::PPCdb::credentials($server, $req->{hwtype}, $name);
     ##################################
     # Redirect STDERR to variable 
     ##################################
@@ -165,8 +157,8 @@ sub connect {
     # Submit logon
     ##################################
     my $res = $ua->post( $url,
-       [ user     => @cred[0],
-         password => @cred[1],
+       [ user     => @$cred[0],
+         password => @$cred[1],
          lang     => "0",
          submit   => "Log in" ]
     );
@@ -195,7 +187,7 @@ sub connect {
         ##############################
         return( $ua,
                 $server,
-                @cred[0],
+                @$cred[0],
                 \$lwp_log );
     }
     ##############################
@@ -1998,7 +1990,7 @@ sub set_netcfg
     }
 
     #Go to the confirm page
-    if ( $res->content !~ /\Q<input type=\'submit\'\E/) #If there is no submit button,get the error message and return
+    if ( $res->content !~ /<input type=\'submit\'/) #If there is no submit button,get the error message and return
     {
         my @page_lines = split /\n/, $res->content;
         my @lines_to_print;