fix SysVar.pm problems (maybe)

[spider.git] / perl / rbn.pl

diff --git a/perl/rbn.pl b/perl/rbn.pl
index ee960f4dcb3d5f1581775f61be84294a41c6d52f..8438b8e6549b3f3087756df762b28c03cc614542 100755 (executable)
--- a/perl/rbn.pl
+++ b/perl/rbn.pl
@@ -74,8 +74,8 @@ for ($attempts = 1; $attempts <= 5; ++$attempts) {
 
 die "ADMIN,Cannot connect to $host:$port after 5 attempts $!" unless $sock;
 say "ADMIN,connected" if $dbg;
-print $sock "$mycall\r\n";
-say "ADMIN,call sent" if $dbg;
+#print $sock "$mycall\r\n";
+#say "ADMIN,call $mycall sent" if $dbg;
 
 my %d;
 my %spot;
@@ -92,6 +92,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) {