add CTY-2708 prefixes

[spider.git] / perl / rbn.pl

diff --git a/perl/rbn.pl b/perl/rbn.pl
index 773564c2946c5d2d58212ed725293db093f43326..2a72dd8e39b0ea37f6bf3ea970b2d0daf7840df7 100755 (executable)
--- a/perl/rbn.pl
+++ b/perl/rbn.pl
@@ -72,8 +72,10 @@ for ($attempts = 1; $attempts <= 5; ++$attempts) {
        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;
+$sock->timeout(0);
+
 print $sock "$mycall\r\n";
 say "ADMIN,call $mycall sent" if $dbg;
 
@@ -93,8 +95,8 @@ while (<$sock>) {
        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]+/;