From 967e9dd3a09697afc7a2fb84f193d5c89bf6c1fe Mon Sep 17 00:00:00 2001 From: Antoine Beaupre Date: Mon, 27 Feb 2012 11:13:37 -0500 Subject: remove debugging message --- files/irc_bot/riseup-nagios-server.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'files') diff --git a/files/irc_bot/riseup-nagios-server.pl b/files/irc_bot/riseup-nagios-server.pl index 92d0114..c1a1e0d 100644 --- a/files/irc_bot/riseup-nagios-server.pl +++ b/files/irc_bot/riseup-nagios-server.pl @@ -167,7 +167,7 @@ sub parse_msg { my $data = join(' ', $event->args); my $msg; if ($data =~ m/([^:]*:)?\s*ack(?:knowledge)?\s+([a-zA-Z0-9\-\.]+)(?:\s+(\w+)(?:\s+([\w\s]+))?)?/) { - print STDERR "writing to nagios scoket ". $CFG::Nsa{'commandfile'} . "\n"; + #print STDERR "writing to nagios scoket ". $CFG::Nsa{'commandfile'} . "\n"; open(my $cmdfile, ">", $CFG::Nsa{'commandfile'}) || die "Can't open Nagios commandfile: $CFG::Nsa{'commandfile'}!\n"; my $host = $2; my ($service, $comment) = (undef, "no comment"); -- cgit v1.2.3