From: minima <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};