From d49641602b7abfa832d6baaf18dc15969040083e Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Fri, 19 Nov 1999 01:52:10 +0000
Subject: [PATCH] added offest to outgoing ping times

---
 perl/DXProt.pm | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 486cfa95..b8d56397 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -126,19 +126,23 @@ sub start
 	$self->send_now('B',"0");
 	$self->send_now('E',"0");
 	
+	# ping neighbour node stuff
+	$self->pingint($user->pingint || 3*60);
+	$self->nopings(3);
+	$self->pingtime([ ]);
+
 	# send initialisation string
-	if (!$self->{outbound}) {
+	unless ($self->{outbound}) {
 		$self->send(pc38()) if DXNode->get_all();
 		$self->send(pc18());
+		$self->lastping($main::systime);
+	} else {
 		# remove from outstanding connects queue
 		@main::outstanding_connects = grep {$_->{call} ne $call} @main::outstanding_connects;
+		$self->lastping($main::systime + $self->pingint / 2);
 	}
 	$self->state('init');
 	$self->pc50_t(time);
-	$self->pingint($user->pingint || 3*60);
-	$self->nopings(3);
-	$self->lastping($main::systime);
-	$self->pingtime([ ]);
 
 	Log('DXProt', "$call connected");
 }
-- 
2.34.1