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

brmdoor: Add timestamps to log, log each brmdoor input for now

Browse source
This commit is contained in:
Petr Baudis 2011-03-11 03:02:28 +01:00
parent ac70e3ef7c
commit c2aae50ca5
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
brmd.pl
View file

@ -58,7 +58,7 @@ sub _start {
sub _default { sub _default {
my ($event, $args) = @_[ARG0 .. $#_]; my ($event, $args) = @_[ARG0 .. $#_];
my @output = ( "$event: " ); my @output = ( (scalar localtime), "$event: " );
for my $arg (@$args) { for my $arg (@$args) {
if ( ref $arg eq 'ARRAY' ) { if ( ref $arg eq 'ARRAY' ) {
@ -84,6 +84,7 @@ sub record_str {
sub brmdoor_input { sub brmdoor_input {
my $input = $_[ARG0]; my $input = $_[ARG0];
print ((scalar localtime)." $input\n");
$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) {