From 6de25174c8a0939c87e5482d01e18e983e63d0b3 Mon Sep 17 00:00:00 2001
From: root <root@galanga.april.org>
Date: Fri, 16 Jun 2017 10:13:43 +0200
Subject: [PATCH 1/2] do refresh on list and recheck

---
 galanga/nagios-irc-bot.pl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/galanga/nagios-irc-bot.pl b/galanga/nagios-irc-bot.pl
index 1679608..436575d 100755
--- a/galanga/nagios-irc-bot.pl
+++ b/galanga/nagios-irc-bot.pl
@@ -251,6 +251,8 @@ sub on_public {
 		&adjust_nick ( $conn );
 	    }
         } elsif ($arg =~ /^(?:$mynick[,: ]|!)\s*list\s*$/) {
+	    &refresh ();
+	    $conn->privmsg([ @to ], sprintf ( "%d problemes enregistres", ( scalar @ACKS )) );
 	    my $id = 0;
 	    foreach ( @ACKS )
 	    {
@@ -271,6 +273,8 @@ sub on_public {
 		printf "[%lu] SCHEDULE_FORCED_SVC_CHECK;%s;%s;%lu\n",time(),$host,$svc,time();
 		close CMDPIPE;
 		$conn->privmsg([ @to ], sprintf ( "Recheck forcé pour %s: %s", $host, $svc ) );
+	    	&refresh ();
+		$conn->privmsg([ @to ], sprintf ( "%d problemes enregistres", ( scalar @ACKS )) );
 	    }
 	    else
 	    {
@@ -287,6 +291,8 @@ sub on_public {
 		printf "[%lu] SCHEDULE_FORCED_SVC_CHECK;%s;%s;%lu\n",time(),$host,$svc,time();
 		close CMDPIPE;
 		$conn->privmsg([ @to ], sprintf ( "Recheck forcé pour ack : %s du host %s: %s", $i, $host, $svc ) );
+	    	&refresh ();
+	    	$conn->privmsg([ @to ], sprintf ( "%d problemes enregistres", ( scalar @ACKS )) );
 	    }
         } else {
 	    $self->privmsg([ @to ], "Yo!");

From 70f6e8f97d04bcfd8f87a066941ffe4eb3e49e65 Mon Sep 17 00:00:00 2001
From: root <root@galanga.april.org>
Date: Tue, 20 Jun 2017 13:49:56 +0200
Subject: [PATCH 2/2] fix refresh for recheck all

---
 galanga/nagios-irc-bot.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/galanga/nagios-irc-bot.pl b/galanga/nagios-irc-bot.pl
index 436575d..735c3dd 100755
--- a/galanga/nagios-irc-bot.pl
+++ b/galanga/nagios-irc-bot.pl
@@ -282,6 +282,8 @@ sub on_public {
 	    }
         } elsif ($arg =~ /^(?:$mynick[,: ]|!)\s*recheck:?\s*all$/) {
 	    #recheck all
+    	    &refresh ();
+	    $conn->privmsg([ @to ], sprintf ( "%d problemes enregistres", ( scalar @ACKS )) );
 	    for my $i ( 0..(@ACKS-1) )
 	    {
 		next unless($ACKS[$i]);
@@ -291,8 +293,6 @@ sub on_public {
 		printf "[%lu] SCHEDULE_FORCED_SVC_CHECK;%s;%s;%lu\n",time(),$host,$svc,time();
 		close CMDPIPE;
 		$conn->privmsg([ @to ], sprintf ( "Recheck forcé pour ack : %s du host %s: %s", $i, $host, $svc ) );
-	    	&refresh ();
-	    	$conn->privmsg([ @to ], sprintf ( "%d problemes enregistres", ( scalar @ACKS )) );
 	    }
         } else {
 	    $self->privmsg([ @to ], "Yo!");