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

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