projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Make license version 2
[spider.git]
/
perl
/
rbn.pl
diff --git
a/perl/rbn.pl
b/perl/rbn.pl
index 8438b8e6549b3f3087756df762b28c03cc614542..2a72dd8e39b0ea37f6bf3ea970b2d0daf7840df7 100755
(executable)
--- a/
perl/rbn.pl
+++ b/
perl/rbn.pl
@@
-72,10
+72,12
@@
for ($attempts = 1; $attempts <= 5; ++$attempts) {
last if $sock;
}
last if $sock;
}
-die "ADMIN,Cannot connect to $host:$port after 5 attempts $!" unless $sock;
+die "ADMIN,Cannot connect to $host:$port after 5 attempts $!
\n
" unless $sock;
say "ADMIN,connected" if $dbg;
say "ADMIN,connected" if $dbg;
-#print $sock "$mycall\r\n";
-#say "ADMIN,call $mycall sent" if $dbg;
+$sock->timeout(0);
+
+print $sock "$mycall\r\n";
+say "ADMIN,call $mycall sent" if $dbg;
my %d;
my %spot;
my %d;
my %spot;
@@
-93,8
+95,8
@@
while (<$sock>) {
say "RAW,$_" if $wantraw;
if (/call:/) {
say "RAW,$_" if $wantraw;
if (/call:/) {
-print $sock "$mycall\r\n";
-say "ADMIN,call $mycall sent" if $dbg;
+
print $sock "$mycall\r\n";
+
say "ADMIN,call $mycall sent" if $dbg;
}
my (undef, undef, $origin, $qrg, $call, $mode, $s, $m, $spd, $u, $sort, $t, $tx) = split /[:\s]+/;
}
my (undef, undef, $origin, $qrg, $call, $mode, $s, $m, $spd, $u, $sort, $t, $tx) = split /[:\s]+/;