X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAGWMsg.pm;h=a3253a5e44957e8af30cdd4a5bd6debd5e3d0def;hb=fe40d951b9d78262b2c3be192ad3986fa4164bcf;hp=a94af02b1c22bf9564b71d6d30884defd2c030ca;hpb=95e3273db5ab49b29972b0936b44ba14d8334516;p=spider.git

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