From e76e8f458dcf44fe9db62a09628fc6e9a50a656d Mon Sep 17 00:00:00 2001 From: Petr Baudis Date: Wed, 19 Oct 2011 01:39:09 +0200 Subject: [PATCH] brmd Door play_alarm: New method --- brmd/brmd.pl | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/brmd/brmd.pl b/brmd/brmd.pl index ec940ce..850a7eb 100755 --- a/brmd/brmd.pl +++ b/brmd/brmd.pl @@ -140,7 +140,7 @@ sub new { object_states => [ $self => [ qw(_start _default register serial_input serial_error - status_override) ], + status_override play_alarm) ], ], ); @@ -246,6 +246,13 @@ sub status_override { $serial->flush(); } +sub play_alarm { + my ($heap) = $_[HEAP]; + my $serial = $heap->{serial}; + $serial->put('a0'); + $serial->flush(); +} + ## Web interface