From 92246870ea9b70ba6008f5afa55749b60586efbc Mon Sep 17 00:00:00 2001
From: yinle <yinle@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 23 Mar 2011 07:56:21 +0000
Subject: [PATCH] Modify the process of find node mac address.

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9135 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/xcat/plugins/lsslp.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/xCAT-server/lib/xcat/plugins/lsslp.pm b/xCAT-server/lib/xcat/plugins/lsslp.pm
index f4a9c491e..0cb742638 100644
--- a/xCAT-server/lib/xcat/plugins/lsslp.pm
+++ b/xCAT-server/lib/xcat/plugins/lsslp.pm
@@ -890,6 +890,7 @@ sub prt_result
     my $nets = xCAT::Utils::my_nets();
     for my $v (keys %$values)
     {
+        # remove the process of finding ping-able ip to save time.
         #if ( $v =~ /ip-address=([^\)]+)/g)
         if ($v =~ /.*URL: .*\:\/\/(\d+\.\d+\.\d+\.\d+)/)
         {
@@ -1367,7 +1368,14 @@ sub gethost_from_url_or_old {
     my %iphash = ();
     my %typehash = ();
 
-
+    #######################################
+    # Extract IP from URL
+    #######################################
+    my $nets = xCAT::Utils::my_nets();
+    my $ip = getip_from_iplist( $ip, $nets, $opt{i});
+    if ( !defined( $ip )) {
+        return undef;
+    }
 
     # get the information of existed nodes to do the migration
     if ( !defined(%::OLD_DATA_CACHE))