From 8da5d79aa3b87317cbb47343d2773dcf795008c3 Mon Sep 17 00:00:00 2001 From: root Date: Wed, 8 Aug 2018 17:10:33 +0200 Subject: [PATCH] Fuck --- galanga/nagios-irc-bot.pl | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/galanga/nagios-irc-bot.pl b/galanga/nagios-irc-bot.pl index f3c11d2..a228ff4 100755 --- a/galanga/nagios-irc-bot.pl +++ b/galanga/nagios-irc-bot.pl @@ -271,7 +271,7 @@ sub on_public { { my ( $host, $svc, $state, $content ) = @$_; $resume { "$svc|$state" } = '' if ! $resume { "$svc|$state" }; - $resume { "$svc|$state" } .= ",$host"; + $resume { "$svc|$state" } .= ", $host"; } print Dumper %resume; if ( scalar keys %resume <= $FLOOD_MAX ) @@ -282,7 +282,7 @@ sub on_public { my $svc = $1; my $state = $2; my $msg = $resume { $_ }; - $msg =~ s/^,//; + $msg =~ s/^, //; my $msg = sprintf ( "[%02d] %s: %s %s %s", ($id++), $svc, $msg, ( index( $msg, ',' ) > -1 ? 'are' : 'is' ), @@ -335,11 +335,8 @@ sub on_public { printf CMDPIPE "[%lu] SCHEDULE_FORCED_SVC_CHECK;%s;%s;%lu\n",time(),$host,$svc,time(); printf "[%lu] SCHEDULE_FORCED_SVC_CHECK;%s;%s;%lu\n",time(),$host,$svc,time(); close CMDPIPE; - if ( scalar @ACKS <= $FLOOD_MAX ) - { - usleep ( $USLEEP_TIME ); - $conn->privmsg([ @to ], sprintf ( "Recheck forcé pour %s: %s", $host, $svc ) ); - } + usleep ( $USLEEP_TIME ); + $conn->privmsg([ @to ], sprintf ( "Recheck forcé pour %s: %s", $host, $svc ) ); &refresh (); my $msg; if( scalar @ACKS == 0 or scalar @ACKS == 1) {