From d617d799dd019e07b8c730efd7201b2c72416f14 Mon Sep 17 00:00:00 2001
From: Petr Baudis <pasky@ucw.cz>
Date: Thu, 20 Oct 2011 14:21:10 +0200
Subject: [PATCH] brmd::IRC notify_door_open: Report only alert conditions

---
 brmd/brmd.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/brmd/brmd.pl b/brmd/brmd.pl
index 103a53c..f82e179 100755
--- a/brmd/brmd.pl
+++ b/brmd/brmd.pl
@@ -699,9 +699,10 @@ sub notify_door_unlocked {
 
 sub notify_door_open {
 	my ($sender, $newstate, $alert) = @_[SENDER, ARG0, ARG1];
+	$alert or return;
+
 	my $irc = $_[HEAP]->{irc};
-	my $msg = "[door] $newstate";
-	$alert and $msg .= " \002(alert: closed brmlab, door opened, not unlocked)";
+	my $msg = "[door] $newstate \002(alert: closed brmlab, door opened, not unlocked)";
 	$irc->yield (privmsg => $channel => $msg );
 }