Merge branch 'master' of ssh://admin:/srv/scripts

This commit is contained in:
Quentin Gibeaux 2018-05-17 16:57:15 +02:00 committed by root
commit ed10a4edc3

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
{
@ -278,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]);