From: minima <minima>
Date: Mon, 3 Sep 2001 18:45:39 +0000 (+0000)
Subject: fix the double annoucement of disconnection of nodes?
X-Git-Tag: R_1_48~56
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=b51a81586ebf52195e587daf321eb7053a2de16e

fix the double annoucement of disconnection of nodes?
---

diff --git a/Changes b/Changes
index 5da4f7b3..95a06473 100644
--- a/Changes
+++ b/Changes
@@ -12,6 +12,7 @@ error messages) and fix set/iso on PC18 input.
 7. Improve stat/route_node and stat/route_user for diagnostics.
 8. strip top bit of comments in ann/spots.
 9. fix the announce filtering problem.
+10. Fix the double announcement of node disconnections?
 01Sep01=======================================================================
 1. Change build number calc (hopefully for the last time)
 27Aug01=======================================================================
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 8ee77084..736cab4d 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1726,6 +1726,8 @@ sub disconnect
 	my $pc39flag = shift;
 	my $call = $self->call;
 
+	return if $self->{disconnecting}++;
+	
 	unless ($pc39flag && $pc39flag == 1) {
 		$self->send_now("D", DXProt::pc39($main::mycall, $self->msg('disc1', "System Op")));
 	}