projects
/
Biblio-RFID.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
don't re-print cards if allready programmed
[Biblio-RFID.git]
/
scripts
/
scan.pl
diff --git
a/scripts/scan.pl
b/scripts/scan.pl
index
8a460b2
..
8ed02d8
100755
(executable)
--- a/
scripts/scan.pl
+++ b/
scripts/scan.pl
@@
-37,15
+37,15
@@
do {
my @visible = $rfid->tags(
enter => sub {
my $tag = shift;
my @visible = $rfid->tags(
enter => sub {
my $tag = shift;
- print
"enter $tag
", tag($tag);
+ print
localtime()." enter
", tag($tag);
},
leave => sub {
my $tag = shift;
},
leave => sub {
my $tag = shift;
- print
"leave $tag
", tag($tag);
+ print
localtime()." leave
", tag($tag);
},
);
},
);
- warn
scalar localtime,
" visible: ",join(' ',@visible),"\n";
+ warn
localtime().
" visible: ",join(' ',@visible),"\n";
} while $loop;
} while $loop;