From 95e3273db5ab49b29972b0936b44ba14d8334516 Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 30 Mar 2001 20:58:33 +0000 Subject: [PATCH] enhance info on incoming disconnects --- perl/AGWMsg.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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}; -- 2.43.0