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

diff --git a/Changes b/Changes
index 487d346768bd3efe73e2a56d3be25ba06291bf71..ed8b541b3a1ee9581ac5af720621596c254f1807 100644 (file)
--- 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 afe9b5419fd38ffc841396f86bedbaf090c3bc03..a023c609ee72388bcee49bed1adbaa79ab141524 100644 (file)
--- 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 bce0b56770f8daa5401401e8aa8f73a9f323fc23..f3a69128d4737fcb122638e3543478368370b5a8 100644 (file)
--- 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());