From 2e732d4a7f7288c2c89f79621391ddf43311028d Mon Sep 17 00:00:00 2001
From: root <root@puppet.koumbit.net>
Date: Mon, 27 Feb 2012 17:16:12 -0500
Subject: accept dots in services

---
 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 c1a1e0d..faa0eee 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