X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2Frbn.pl;h=ee8f0ed3b2852753f01413dab09badcb25e5519c;hb=9f38101205c21a4523228c9b41571d26f9adcaec;hp=29508626b84e4921913ff873e671ac1f6e2616f7;hpb=4fa1f0a6bb6d58e16aa128592a13a235a331d8bf;p=spider.git

diff --git a/perl/rbn.pl b/perl/rbn.pl
index 29508626..ee8f0ed3 100755
--- 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";
-say "ADMIN,call sent" if $dbg;
+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) {
 
@@ -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
 
-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>