projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
change the max number of days to search for spots to 100
[spider.git]
/
perl
/
AGWMsg.pm
diff --git
a/perl/AGWMsg.pm
b/perl/AGWMsg.pm
index 06af81cb4c91092e3441f59abdd2bff3ef9a6313..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";
sub _sendf
{
my $sort = shift || confess "need a valid AGW command letter";
@@
-158,7
+163,7
@@
sub _send
}
}
if (isdbg('raw')) {
}
}
if (isdbg('raw')) {
- dbgdump('raw', "send $bytes_written: ", $msg);
+ dbgdump('raw', "
AGW
send $bytes_written: ", $msg);
}
$offset += $bytes_written;
$bytes_to_write -= $bytes_written;
}
$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')) {
if ($bytes_read > 0) {
$inmsg .= $msg;
if (isdbg('raw')) {
- dbgdump('raw', "read $bytes_read: ", $msg);
+ dbgdump('raw', "
AGW
read $bytes_read: ", $msg);
}
}
} else {
}
}
} else {
@@
-208,7
+213,7
@@
FINISH:
sub _error
{
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) {
Msg::set_event_handler($sock, read=>undef, write=>undef, error=>undef);
$sock = undef;
for (%circuit) {
@@
-327,7
+332,9
@@
sub _decode
$conn->to_connected($call, 'A', $conn->{csort} = 'ax25');
}
} elsif ($sort eq 'd') {
$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};
my $conn = _find($from eq $main::mycall ? $to : $from);
if ($conn) {
&{$conn->{eproc}}() if $conn->{eproc};