From: minima Date: Fri, 30 Mar 2001 20:58:33 +0000 (+0000) Subject: enhance info on incoming disconnects X-Git-Tag: R_1_47~65 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=95e3273db5ab49b29972b0936b44ba14d8334516;p=spider.git enhance info on incoming disconnects --- diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm index 06af81cb..a94af02b 100644 --- a/perl/AGWMsg.pm +++ b/perl/AGWMsg.pm @@ -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};