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

Fuck

Browse Source
This commit is contained in:
root 2018-08-08 17:10:33 +02:00
parent 4e1757833f
commit 8da5d79aa3
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
galanga/nagios-irc-bot.pl
View File

@ -271,7 +271,7 @@ sub on_public {
{
my ( $host, $svc, $state, $content ) = @$_;
$resume { "$svc|$state" } = '' if ! $resume { "$svc|$state" };
$resume { "$svc|$state" } .= ",$host";
$resume { "$svc|$state" } .= ", $host";
}
print Dumper %resume;
if ( scalar keys %resume <= $FLOOD_MAX )
@ -282,7 +282,7 @@ sub on_public {
my $svc = $1;
my $state = $2;
my $msg = $resume { $_ };
$msg =~ s/^,//;
$msg =~ s/^, //;
my $msg = sprintf ( "[%02d] %s: %s %s %s",
($id++), $svc, $msg,
( index( $msg, ',' ) > -1 ? 'are' : 'is' ),
@ -335,11 +335,8 @@ sub on_public {
printf CMDPIPE "[%lu] SCHEDULE_FORCED_SVC_CHECK;%s;%s;%lu\n",time(),$host,$svc,time();
printf "[%lu] SCHEDULE_FORCED_SVC_CHECK;%s;%s;%lu\n",time(),$host,$svc,time();
close CMDPIPE;
if ( scalar @ACKS <= $FLOOD_MAX )
{
usleep ( $USLEEP_TIME );
$conn->privmsg([ @to ], sprintf ( "Recheck forcé pour %s: %s", $host, $svc ) );
}
usleep ( $USLEEP_TIME );
$conn->privmsg([ @to ], sprintf ( "Recheck forcé pour %s: %s", $host, $svc ) );
&refresh ();
my $msg;
if( scalar @ACKS == 0 or scalar @ACKS == 1) {