brmlab/brmdoor
4
0
Fork 0
mirror of https://github.com/brmlab/brmdoor.git synced 2025-06-08 11:44:01 +02:00
Code Issues Projects Releases Packages Wiki Activity

brmd::Alphasign: Add beep checkbox to web interface

Browse source
This commit is contained in:
Petr Baudis 2011-05-18 02:30:59 +02:00
parent e5d62db851
commit 7635565120
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
brmd/brmd.pl
View file

@ -433,6 +433,7 @@ sub web_alphasign_text {
<strong>New text:</strong> <strong>New text:</strong>
<select name="mode">$modes</select> <select name="mode">$modes</select>
<input type="text" name="text" value="$text" /> <input type="text" name="text" value="$text" />
<input type="checkbox" name="beep" value="1" /> beep
<input type="submit" name="s" value="Update" /> <input type="submit" name="s" value="Update" />
</form> </form>
</p> </p>
@ -450,8 +451,12 @@ sub web_alphasign_set {
my $q = new CGI($request->content); my $q = new CGI($request->content);
my $mode = $q->param('mode'); my $mode = $q->param('mode');
my $text = $q->param('text'); 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->protocol("HTTP/1.1");
$response->code(302); $response->code(302);