}
}
+sub active
+{
+ return $sock;
+}
+
sub _sendf
{
my $sort = shift || confess "need a valid AGW command letter";
}
}
if (isdbg('raw')) {
- dbgdump('raw', "send $bytes_written: ", $msg);
+ dbgdump('raw', "AGW send $bytes_written: ", $msg);
}
$offset += $bytes_written;
$bytes_to_write -= $bytes_written;
if ($bytes_read > 0) {
$inmsg .= $msg;
if (isdbg('raw')) {
- dbgdump('raw', "read $bytes_read: ", $msg);
+ dbgdump('raw', "AGW read $bytes_read: ", $msg);
}
}
} else {
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) {