fix refresh for recheck all

This commit is contained in:
root 2017-06-20 13:49:56 +02:00
parent 6de25174c8
commit 70f6e8f97d

View File

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