X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Frbn.pl;h=2a72dd8e39b0ea37f6bf3ea970b2d0daf7840df7;hb=28b4b03213440a9951d68da6ef1f5c17a327e002;hp=ee960f4dcb3d5f1581775f61be84294a41c6d52f;hpb=7f38719941b040ae64358fece992179c5938d609;p=spider.git

diff --git a/perl/rbn.pl b/perl/rbn.pl
index ee960f4d..2a72dd8e 100755
--- a/perl/rbn.pl
+++ b/perl/rbn.pl
@@ -72,10 +72,12 @@ 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 sent" if $dbg;
+say "ADMIN,call $mycall sent" if $dbg;
 
 my %d;
 my %spot;
@@ -92,6 +94,11 @@ while (<$sock>) {
 	# parse line
 	say "RAW,$_" if $wantraw;
 
+	if (/call:/) {
+		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]+/;
 	if ($t || $tx) {