From 3e5784c3314d3c74ba8d53b78bbd3fa20ceea705 Mon Sep 17 00:00:00 2001
From: yinle <yinle@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 28 Jan 2011 14:31:47 +0000
Subject: [PATCH] FSP/BPA redundancy: modify the way of matching node in rscan

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

diff --git a/perl-xCAT/xCAT/PPCscan.pm b/perl-xCAT/xCAT/PPCscan.pm
index 50578c19e..f6cbd4aad 100644
--- a/perl-xCAT/xCAT/PPCscan.pm
+++ b/perl-xCAT/xCAT/PPCscan.pm
@@ -11,7 +11,6 @@ use xCAT::PPCdb;
 use xCAT::GlobalDef;
 use xCAT::Usage;
 use xCAT::NetworkUtils;
-use xCAT_plugin::lsslp;
 
 
 ##############################################
@@ -410,29 +409,7 @@ sub format_output {
         # Strip errors for results
         #######################################
         my @val = grep( !/^#.*: ERROR /, @$values );
-        #$values = xCAT::PPCdb::update_ppc( $hwtype, \@val );        
-        foreach my $node (@val)
-        {
-            my ($ttype,$tname,$tid,$tmtm,$tsn,$ttmp,$thcp,$tprofile,$tparent) = split /,/, $node;
-            if ($ttype eq "cec" )
-            {
-                my $hostname =  xCAT_plugin::lsslp::gethost_from_url_or_old($tname, "FSP", $tmtm, $tsn, "", "", $tid, "","");
-                if ($hostname ne $tname)
-                {
-                    push @$values, join( ",",
-                  "fsp",$hostname,$tid,$tmtm,$tsn,$ttmp,$thcp,$tprofile,$tparent,"");           
-                }                                                   
-            }
-            if ($ttype eq "frame" )
-            {
-                my $hostname =  xCAT_plugin::lsslp::gethost_from_url_or_old($tname, "BPA", $tmtm, $tsn, "", "", $tid, "","");
-                if ($hostname ne $tname)
-                {
-                    push @$values, join( ",",
-                  "bpa",$hostname,$tid,$tmtm,$tsn,$ttmp,$thcp,$tprofile,$tparent,"");                  
-                }                  
-            }  
-        }
+        $values = xCAT::PPCdb::update_ppc( $hwtype, \@val );
         if ( exists( $opt->{x} ) or exists( $opt->{z} ))
         {
             unshift @$values, "hmc";