From dfe257a9a1412fc920c081aadc333f3c64c7b539 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Tue, 29 Jun 1999 20:56:55 +0000
Subject: [PATCH] added some anti thrash code for crossing messages

---
 Changes       | 3 +++
 perl/DXMsg.pm | 4 ++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index 68be4279..409c46ef 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 29Jun99=======================================================================
 1. fixed merge command that I broke.
+2. added some randomness in waittimes for aborted outgoing messages 
+3. made the queueing of messages asymetrical. Both of these to try to 
+minimise thrashing.
 28Jun99=======================================================================
 1. console.pl now works with history and editting.
 2. added scrolling to stuff sent by the cluster.
diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index e5fa41a8..75b88abc 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -134,7 +134,7 @@ sub process
 				$ref->stop_msg($node);
 
 				# delay any outgoing messages that fail
-				$ref->{waitt} = $main::systime + $waittime if $node ne $main::mycall;
+				$ref->{waitt} = $main::systime + $waittime + rand(120) if $node ne $main::mycall;
 			}
 		}
 		
@@ -273,7 +273,7 @@ sub process
 			} else {
 				$self->send(DXProt::pc42($f[2], $f[1], $f[3]));	# unknown stream
 			}
-			queue_msg(0);
+			# queue_msg(0);
 			last SWITCH;
 		}
 		
-- 
2.34.1