From e00811faa08243267fbefc5d0133facbe5f0086f Mon Sep 17 00:00:00 2001
From: Antoine Beaupre <anarcat@koumbit.org>
Date: Mon, 5 Mar 2012 11:56:25 -0500
Subject: allow dashes in service names

---
 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 a7bad28..5d65e6d 100644
--- a/files/irc_bot/riseup-nagios-server.pl
+++ b/files/irc_bot/riseup-nagios-server.pl
@@ -166,7 +166,7 @@ sub parse_msg {
     my $event= shift;
     my $data = join(' ', $event->args);
     my $msg;
-    if ($data =~ m/([^:]*:)?\s*ack(?:knowledge)?\s+([a-zA-Z0-9\-\.]+)(?:\s+([\w\.]+)(?:\s+([\w\s]+))?)?/) {
+    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";
       open(my $cmdfile, ">", $CFG::Nsa{'commandfile'}) || die "Can't open Nagios commandfile: $CFG::Nsa{'commandfile'}!\n";
       my $host = $2;
-- 
cgit v1.2.3