X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAGWMsg.pm;h=a3253a5e44957e8af30cdd4a5bd6debd5e3d0def;hb=c9768e5afacacc3dd4004a35aeef2a2e54865177;hp=06af81cb4c91092e3441f59abdd2bff3ef9a6313;hpb=ab01045632876c07392242cb0612c0b0c69e89d7;p=spider.git

diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index 06af81cb..a3253a5e 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 {
@@ -208,7 +213,7 @@ FINISH:
 
 sub _error
 {
-	dbg('agw', "error on AGW connection $addr/$port $!");
+	dbg('err', "error on AGW connection $addr/$port $!");
 	Msg::set_event_handler($sock, read=>undef, write=>undef, error=>undef);
 	$sock = undef;
 	for (%circuit) {
@@ -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};