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] 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!");