fix agwrestart

[spider.git] / perl / AGWMsg.pm

diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index a94af02b1c22bf9564b71d6d30884defd2c030ca..a3253a5e44957e8af30cdd4a5bd6debd5e3d0def 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 {
@@ -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) {