From ee6feb1687745805069c8f539a9ddc9998022667 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Mon, 27 Mar 2017 12:37:02 +0100 Subject: [PATCH 1/1] fix rbn.pl --- perl/rbn.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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; -- 2.43.0