arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add part of lsslp -C -T.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.7@12506 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
yinle 2012-05-03 09:49:48 +00:00
parent 772c55f8a8
commit 3c416a4004
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
perl-xCAT/xCAT/SLP.pm
View File

@ -35,6 +35,7 @@ sub getmulticasthash {
sub dodiscover {
my %args = @_;
my $rspcount = 0;
$xid = int(rand(16384))+1;
unless ($args{'socket'}) {
if ($ip6support) {
@ -82,7 +83,8 @@ sub dodiscover {
$waitforsocket->add($args{'socket'});
my $retrytime = ($args{Retry}>0)?$args{Retry}+1:1;
for(my $i = 0; $i < $retrytime; $i++){
my $deadline=time()+3;
my $waittime = ($args{Time}>0)?$args{Time}:3;
my $deadline=time()+$waittime;
while ($deadline > time()) {
while ($waitforsocket->can_read(1)) {
my $slppacket;
@ -116,7 +118,13 @@ sub dodiscover {
$args{Callback}->($result);
}
}
$rspcount++;
}
if ($args{Time} and $args{Count}) {
if ($rspcount >= $args{Count}) {
last;
}
}
foreach my $srvtype (@srvtypes) {
send_service_request_single(%args,ifacemap=>$interfaces,SrvType=>$srvtype);
}