projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
set DXVar.pm defaults into console.pl
[spider.git]
/
perl
/
rbn.pl
diff --git
a/perl/rbn.pl
b/perl/rbn.pl
index 29508626b84e4921913ff873e671ac1f6e2616f7..ee8f0ed3b2852753f01413dab09badcb25e5519c 100755
(executable)
--- a/
perl/rbn.pl
+++ b/
perl/rbn.pl
@@
-75,7
+75,7
@@
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";
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;
+say "ADMIN,call
$mycall
sent" if $dbg;
my %d;
my %spot;
my %d;
my %spot;
@@
-92,6
+92,11
@@
while (<$sock>) {
# parse line
say "RAW,$_" if $wantraw;
# 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) {
my (undef, undef, $origin, $qrg, $call, $mode, $s, $m, $spd, $u, $sort, $t, $tx) = split /[:\s]+/;
if ($t || $tx) {
@@
-215,7
+220,7
@@
As default, this program will connect to port 7000. Use this argument to change
=item B<-want>=cw,rtty,psk,beacon,dx
=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>
these classes if you want specific types of spots.
=item B<-stats>