From 76355651201b4e53ef7f1ce7d1fb4a908148728f Mon Sep 17 00:00:00 2001
From: Petr Baudis <pasky@ucw.cz>
Date: Wed, 18 May 2011 02:30:59 +0200
Subject: [PATCH] brmd::Alphasign: Add beep checkbox to web interface

---
 brmd/brmd.pl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/brmd/brmd.pl b/brmd/brmd.pl
index 68685fa..81e7066 100755
--- a/brmd/brmd.pl
+++ b/brmd/brmd.pl
@@ -433,6 +433,7 @@ sub web_alphasign_text {
 <strong>New text:</strong>
 <select name="mode">$modes</select>
 <input type="text" name="text" value="$text" />
+<input type="checkbox" name="beep" value="1" /> beep
 <input type="submit" name="s" value="Update" />
 </form>
 </p>
@@ -450,8 +451,12 @@ sub web_alphasign_set {
 	my $q = new CGI($request->content);
 	my $mode = $q->param('mode');
 	my $text = $q->param('text');
+	my $beep = $q->param('beep');
 
-	$streaming or $poe_kernel->post($alphasign, 'text', $mode, $text);
+	if (not $streaming) {
+		$poe_kernel->post($alphasign, 'text', $mode, $text);
+		$beep and $poe_kernel->post($alphasign, 'beep');
+	}
 
 	$response->protocol("HTTP/1.1");
 	$response->code(302);