From: minima <minima>
Date: Mon, 1 Oct 2001 12:26:47 +0000 (+0000)
Subject: fix MAJOR bug in the disconnect code introduced by the NP work
X-Git-Tag: R_1_49~98
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=75abae88c65a19102d4a633a273a71750aa97728

fix MAJOR bug in the disconnect code introduced by the NP work
---

diff --git a/Changes b/Changes
index 487d3467..ed8b541b 100644
--- a/Changes
+++ b/Changes
@@ -2,6 +2,7 @@
 1. made login info not the default
 2. change the looping protoection for PC16/17/19/21 and also be more rigorous
 in who we accept which PC16/17/21's from.
+3. fix MAJOR disconnect bug introduced accidentally in the NP work.
 30Sep01=======================================================================
 1. made some small bug fixes in rspf checking and also messages. 
 23Sep01=======================================================================
diff --git a/cmd/disconnect.pl b/cmd/disconnect.pl
index afe9b541..a023c609 100644
--- a/cmd/disconnect.pl
+++ b/cmd/disconnect.pl
@@ -16,7 +16,7 @@ foreach $call (@calls) {
 	my $dxchan = DXChannel->get($call);
 	if ($dxchan) {
 		if ($dxchan->is_node) {
-#			$dxchan->send_now("D", DXProt::pc39($main::mycall, $self->msg('disc1', $self->call)));
+#			$dxchan->send_pc39($self->msg('disc1', $self->call));
 		} else {
 			return (1, $self->msg('e5')) if $self->priv < 8;
 			$dxchan->send_now('D', $self->msg('disc1', $self->call));
diff --git a/perl/QXProt.pm b/perl/QXProt.pm
index bce0b567..f3a69128 100644
--- a/perl/QXProt.pm
+++ b/perl/QXProt.pm
@@ -84,6 +84,12 @@ sub process
 	}
 }
 
+sub disconnect
+{
+	my $self = shift;
+	$self->DXProt::disconnect(@_);
+}
+
 sub sendallnodes
 {
 	my $nodes = join(',', map {sprintf("%s:%d", $_->{call}, int($_->{pingave} * $_->{metric}))} DXChannel::get_all_nodes());