]> dxcluster.net Git - spider.git/commitdiff
enhance info on incoming disconnects
authorminima <minima>
Fri, 30 Mar 2001 20:58:33 +0000 (20:58 +0000)
committerminima <minima>
Fri, 30 Mar 2001 20:58:33 +0000 (20:58 +0000)
perl/AGWMsg.pm

index 06af81cb4c91092e3441f59abdd2bff3ef9a6313..a94af02b1c22bf9564b71d6d30884defd2c030ca 100644 (file)
@@ -327,7 +327,9 @@ sub _decode
                                $conn->to_connected($call, 'A', $conn->{csort} = 'ax25');
                        }
                } elsif ($sort eq 'd') {
-                       dbg('agw', "AGW '$from'->'$to' port: $port Disconnected");
+                       my $d = unpack "Z*", $data;
+                       $d =~ s/\cM$//;
+                       dbg('agw', "AGW '$from'->'$to' port: $port Disconnected ($d)");
                        my $conn = _find($from eq $main::mycall ? $to : $from);
                        if ($conn) {
                                &{$conn->{eproc}}() if $conn->{eproc};