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 Door play_alarm: New method

Browse source
This commit is contained in:
Petr Baudis 2011-10-19 01:39:09 +02:00
parent 6c815a96a3
commit e76e8f458d
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
brmd/brmd.pl
View file

@ -140,7 +140,7 @@ sub new {
object_states => [ object_states => [
$self => [ qw(_start _default register $self => [ qw(_start _default register
serial_input serial_error serial_input serial_error
status_override) ], status_override play_alarm) ],
], ],
); );
@ -246,6 +246,13 @@ sub status_override {
$serial->flush(); $serial->flush();
} }
sub play_alarm {
my ($heap) = $_[HEAP];
my $serial = $heap->{serial};
$serial->put('a0');
$serial->flush();
}
## Web interface ## Web interface