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;
# 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) {
=item B<-want>=cw,rtty,psk,beacon,dx
-The program will print all spots in all classes in the 'mode' column [cw, rtty, psk, beacon, dx]. You can choose one or more of
+The program will print all spots in all classes in the 'mode/calling' column [cw, rtty, psk, beacon, dx]. You can choose one or more of
these classes if you want specific types of spots.
=item B<-stats>