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

brmd: Factor out status_update(), record_update()

Browse source
This commit is contained in:
Petr Baudis 2011-04-26 23:18:39 +02:00
parent ba1c64e92a
commit c3052ebecf
1 changed files with 17 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

24
brmd/brmd.pl
View file

@ -103,6 +103,21 @@ sub topic_update {
}
}
sub status_update {
my ($newstatus) = @_;
$status = $newstatus;
my $st = status_str();
$irc->yield (privmsg => $channel => "[brmstatus] update: \002$st" );
topic_update();
}
sub record_update {
my ($newrecord) = @_;
$record = $newrecord;
my $st = record_str();
$irc->yield (privmsg => $channel => "[brmvideo] update (TODO): \002$st" );
}
## Brmdoor serial
@ -128,15 +143,10 @@ sub serial_input {
$input =~ /^(\d) (\d) (.*)$/ or return;
my ($cur_status, $cur_record, $brm) = ($1, $2, $3);
if ($cur_status != $status) {
$status = $cur_status;
my $st = status_str();
$irc->yield (privmsg => $channel => "[brmstatus] update: \002$st" );
topic_update();
status_update($cur_status);
}
if ($cur_record != $record) {
$record = $cur_record;
my $st = record_str();
$irc->yield (privmsg => $channel => "[brmvideo] update (TODO): \002$st" );
record_update($cur_record);
}
if ($brm =~ s/^CARD //) {
print "from brmdoor: $input\n";