X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=scripts%2Fscan.pl;h=d2e18b9e5e90a413b945127768876a4918addda6;hb=201b8a9ac971a3039f101ed0bbb87a6ceec78f91;hp=0b591114cf22b3a5f19bd8902ff45a5aac3fc6cf;hpb=265126993f6e3c2e4c1c98f4defcdcc3670bcd67;p=Biblio-RFID.git

diff --git a/scripts/scan.pl b/scripts/scan.pl
index 0b59111..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 ) )
 		, $/
 		;
 }
@@ -45,7 +45,7 @@ sub iso_date {
 sub log_tag {
 	my $tag = shift;
 	return if $saved->{tag} or ! $log;
-	my $hash = Biblio::RFID::RFID501->to_hash( $rfid->blocks($tag) );
+	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 {