adminsys/vivivi
adminsys
/
vivivi
9
0
Fork 0
Code Issues Pull Requests Releases Activity

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

This commit is contained in:
root 2017-08-09 09:55:44 +02:00
parent 3c1d61de55 2c69859d5a
commit 8a17f93e34
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
galanga/nagios-irc-bot.pl
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]);