From 27459a28694556b844c0e14ccb81ab0c5a44c31b Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 8 Apr 2013 17:37:10 +0000
Subject: [PATCH] Fix issue where TC requests would be remembered not at all
 and then forever

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@15879 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/sbin/xcatd | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/xCAT-server/sbin/xcatd b/xCAT-server/sbin/xcatd
index 3463db2c8..c4366390f 100755
--- a/xCAT-server/sbin/xcatd
+++ b/xCAT-server/sbin/xcatd
@@ -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]);