X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=scripts%2Fscan.pl;h=d2e18b9e5e90a413b945127768876a4918addda6;hb=821fd03150ccc8e8802e6b5507e61480aa7552ef;hp=dd281a739335e25f4e544fca4dc9452e048a12eb;hpb=ed944d253a48a840fc899c25a3625739ba0158fc;p=Biblio-RFID.git diff --git a/scripts/scan.pl b/scripts/scan.pl index dd281a7..d2e18b9 100755 --- a/scripts/scan.pl +++ b/scripts/scan.pl @@ -30,7 +30,7 @@ sub tag { , " AFI: " , uc unpack('H2', $rfid->afi($tag)) , " " - , dump( Biblio::RFID::RFID501->to_hash( $rfid->blocks($tag) ) ) + , dump( $rfid->to_hash( $tag ) ) , $/ ; } @@ -44,8 +44,8 @@ sub iso_date { sub log_tag { my $tag = shift; - return if $saved->{tag}; - my $hash = Biblio::RFID::RFID501->to_hash( $rfid->blocks($tag) ); + return if $saved->{tag} or ! $log; + my $hash = $rfid->to_hash( $tag ); open(my $fh, '>>', $log) || die "$log: $!"; print $fh iso_date,",$tag,", $hash->{content}, "\n"; close($fh); @@ -55,7 +55,7 @@ do { my @visible = $rfid->tags( enter => sub { my $tag = shift; - print iso_date," enter ", tag($tag); + print iso_date," reader ", $rfid->from_reader($tag), " enter ", tag($tag); log_tag $tag; }, leave => sub {