X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAGWMsg.pm;h=46d3f39206491d8607f402aee1d8a7eced5c91a4;hb=3b299fff024e01d8a5838ef2066288bee0d54bf1;hp=06af81cb4c91092e3441f59abdd2bff3ef9a6313;hpb=ab01045632876c07392242cb0612c0b0c69e89d7;p=spider.git

diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index 06af81cb..46d3f392 100644
--- a/perl/AGWMsg.pm
+++ b/perl/AGWMsg.pm
@@ -97,6 +97,11 @@ sub finish
 	}
 }
 
+sub active
+{
+	return $sock;
+}
+
 sub _sendf
 {
 	my $sort = shift || confess "need a valid AGW command letter";
@@ -158,7 +163,7 @@ sub _send
                 }
             }
 			if (isdbg('raw')) {
-				dbgdump('raw', "send $bytes_written: ", $msg);
+				dbgdump('raw', "AGW send $bytes_written: ", $msg);
 			}
             $offset         += $bytes_written;
             $bytes_to_write -= $bytes_written;
@@ -187,7 +192,7 @@ sub _rcv {                     # Complement to _send
 		if ($bytes_read > 0) {
 			$inmsg .= $msg;
 			if (isdbg('raw')) {
-				dbgdump('raw', "read $bytes_read: ", $msg);
+				dbgdump('raw', "AGW read $bytes_read: ", $msg);
 			}
 		} 
 	} else {
@@ -327,7 +332,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};