From 8e02008a83f971d4d712a953bb0ba9fdc0bc8395 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 23 May 2012 19:19:50 +0000
Subject: [PATCH] Try to parallelize some slpdiscover activity

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

diff --git a/xCAT-server/lib/xcat/plugins/slpdiscover.pm b/xCAT-server/lib/xcat/plugins/slpdiscover.pm
index e8499ae4e..30aebab20 100644
--- a/xCAT-server/lib/xcat/plugins/slpdiscover.pm
+++ b/xCAT-server/lib/xcat/plugins/slpdiscover.pm
@@ -180,6 +180,10 @@ sub setupIMM {
 		@ips = xCAT::NetworkUtils::getipaddr($newaddr,GetAllAddresses=>1);
 	}
 	sendmsg(":Configuration of ".$node." commencing, configuration may take a few minutes to take effect",$callback);
+	my $child = fork();
+	if ($child) { return; }
+	unless (defined $child) { die "error spawining process" }
+	
 	#ok, with all ip addresses in hand, time to enable IPMI and set all the ip addresses (still static only, TODO: dhcp
 	my $ssh = new xCAT::SSHInteract(-username=>$args{username},
 					-password=>$args{password},
@@ -224,6 +228,7 @@ sub configure_hosted_elements {
 			setupIMM($node,slpdata=>$immdata,curraddr=>$addr,username=>$user,password=>$pass);
 		}
 	}
+	while (wait() > 0) {}
 }
 
 sub setup_cmm_pass {