mirror of
https://github.com/brmlab/brmdoor.git
synced 2025-06-09 12:14:02 +02:00
brmd: Factor out status_update(), record_update()
This commit is contained in:
parent
ba1c64e92a
commit
c3052ebecf
1 changed files with 17 additions and 7 deletions
24
brmd/brmd.pl
24
brmd/brmd.pl
|
@ -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
|
## Brmdoor serial
|
||||||
|
|
||||||
|
@ -128,15 +143,10 @@ sub serial_input {
|
||||||
$input =~ /^(\d) (\d) (.*)$/ or return;
|
$input =~ /^(\d) (\d) (.*)$/ or return;
|
||||||
my ($cur_status, $cur_record, $brm) = ($1, $2, $3);
|
my ($cur_status, $cur_record, $brm) = ($1, $2, $3);
|
||||||
if ($cur_status != $status) {
|
if ($cur_status != $status) {
|
||||||
$status = $cur_status;
|
status_update($cur_status);
|
||||||
my $st = status_str();
|
|
||||||
$irc->yield (privmsg => $channel => "[brmstatus] update: \002$st" );
|
|
||||||
topic_update();
|
|
||||||
}
|
}
|
||||||
if ($cur_record != $record) {
|
if ($cur_record != $record) {
|
||||||
$record = $cur_record;
|
record_update($cur_record);
|
||||||
my $st = record_str();
|
|
||||||
$irc->yield (privmsg => $channel => "[brmvideo] update (TODO): \002$st" );
|
|
||||||
}
|
}
|
||||||
if ($brm =~ s/^CARD //) {
|
if ($brm =~ s/^CARD //) {
|
||||||
print "from brmdoor: $input\n";
|
print "from brmdoor: $input\n";
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue