X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Frbn.pl;h=ee8f0ed3b2852753f01413dab09badcb25e5519c;hb=9f38101205c21a4523228c9b41571d26f9adcaec;hp=773564c2946c5d2d58212ed725293db093f43326;hpb=ee6feb1687745805069c8f539a9ddc9998022667;p=spider.git

diff --git a/perl/rbn.pl b/perl/rbn.pl
index 773564c2..ee8f0ed3 100755
--- a/perl/rbn.pl
+++ b/perl/rbn.pl
@@ -93,8 +93,8 @@ while (<$sock>) {
 	say "RAW,$_" if $wantraw;
 
 	if (/call:/) {
-print $sock "$mycall\r\n";
-say "ADMIN,call $mycall sent" if $dbg;
+		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]+/;