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

Fix issue where TC requests would be remembered not at all and then forever

Browse Source
This commit is contained in:
Jarrod Johnson
2013-04-08 10:33:50 -04:00
parent f17024abe5
commit d569677196
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
xCAT-server/sbin/xcatd
View File

@ -512,6 +512,7 @@ sub grant_tcrequests {
$udpcontext->{clientfudge}+=1; #adjust forecast for being busy
$availableslots-=1;
$udpcontext->{socket}->send("resourcerequest: ok\n",$requestors->{$rkey}->{sockaddr});
delete ($requestors->{$rkey}); #we acknoweldged, assume consumer got it, they'll do retry if they failed
}
}
@ -591,6 +592,7 @@ sleep 0.05;
my $actualpid=$$;
until ($quit) {
eval {
my $tcclients; # hash reference to store traffic control requests
while (1) {
unless ($actualpid == $$) { #This really should be impossible now...
xCAT::MsgUtils->message("S","xcatd: Something absolutely ludicrous happpened, xCAT developers think this message is impossible to see, post if you see it, fork bomb averted");
@ -615,7 +617,6 @@ sleep 0.05;
}
}
}
my $tcclients; # hash reference to store traffic control requests
foreach my $pkey (keys %packets) {
if ($inet6support) {
($sport,$client) = Socket6::unpack_sockaddr_in6($packets{$pkey}->[0]);