do refresh on list and recheck

This commit is contained in:
root 2017-06-16 10:13:43 +02:00
parent cd2fc5b6b6
commit 6de25174c8

View File

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