brmd.pl: Fix multi-channel support

brmlab · Jun 9, 2012 · 1252fbf · 1252fbf
1 parent c217e24
commit 1252fbf
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/brmd/brmd.pl b/brmd/brmd.pl
@@ -681,22 +681,22 @@ sub notify_update {
 	my $msg = "[$comp] update: \002$status\002";
 	$extra and $msg .= " $extra";
 	$manual and $msg .= " ($manual manual override by $nick)";
-	$irc->yield (privmsg => $channel => $msg );
+	$irc->yield (privmsg => $_ => $msg ) for @channels;
 	topic_update($irc);
 }
 
 sub notify_door_unauth {
 	my ($sender) = $_[SENDER];
 	my $irc = $_[HEAP]->{irc};
 	my $msg = "[door] \002unauthorized access\002 denied!";
-	$irc->yield (privmsg => $channel => $msg );
+	$irc->yield (privmsg => $_ => $msg ) for @channels;
 }
 
 sub notify_door_unlocked {
 	my ($sender) = @_[SENDER, ARG0];
 	my $irc = $_[HEAP]->{irc};
 	my $msg = "[door] unlocked";
-	$irc->yield (privmsg => $channel => $msg );
+	$irc->yield (privmsg => $_ => $msg ) for @channels;
 }
 
 sub notify_door_open {
@@ -705,7 +705,7 @@ sub notify_door_open {
 
 	my $irc = $_[HEAP]->{irc};
 	my $msg = "[door] $newstate \002(alert: closed brmlab, door opened, not unlocked)";
-	$irc->yield (privmsg => $channel => $msg );
+	$irc->yield (privmsg => $_ => $msg ) for @channels;
 }
 
 1;