summaryrefslogtreecommitdiff
path: root/files/irc_bot
diff options
context:
space:
mode:
authorAntoine Beaupre <anarcat@koumbit.org>2012-03-05 11:56:25 -0500
committerMicah Anderson <micah@riseup.net>2012-03-14 21:04:26 -0400
commite00811faa08243267fbefc5d0133facbe5f0086f (patch)
treef73fc427314d4440f321ada9517633087cd4e91c /files/irc_bot
parent16e168b9a670b117c4093558603bf5dc63ca42ba (diff)
allow dashes in service names
Diffstat (limited to 'files/irc_bot')
-rw-r--r--files/irc_bot/riseup-nagios-server.pl2
1 files changed, 1 insertions, 1 deletions
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;