X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Frbn.pl;h=773564c2946c5d2d58212ed725293db093f43326;hb=ee6feb1687745805069c8f539a9ddc9998022667;hp=8438b8e6549b3f3087756df762b28c03cc614542;hpb=753341096e3c03d0a6c07e816aff4f99b0af164f;p=spider.git diff --git a/perl/rbn.pl b/perl/rbn.pl index 8438b8e6..773564c2 100755 --- 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 $mycall sent" if $dbg; +print $sock "$mycall\r\n"; +say "ADMIN,call $mycall sent" if $dbg; my %d; my %spot;