add agwrestart command

[spider.git] / perl / AGWMsg.pm

diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index 06af81cb4c91092e3441f59abdd2bff3ef9a6313..46d3f39206491d8607f402aee1d8a7eced5c91a4 100644 (file)
--- 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};