fix refresh for recheck all
This commit is contained in:
parent
6de25174c8
commit
70f6e8f97d
@ -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!");
|
||||
|
Loading…
Reference in New Issue
Block a user