X-Git-Url: http://git.rot13.org/?p=Biblio-RFID.git;a=blobdiff_plain;f=scripts%2Fprint.pl;h=1eab2703df83cb98bd7f7ed91650acad42e62da5;hp=04abc0553d6bc5057e32a8c182dafaaaa2bde2a3;hb=85092c9643bc97fbacab4113f1de90311c00e37d;hpb=35009cf2a0f728ec09911cd19f08fd7b4f3d82fb

diff --git a/scripts/print.pl b/scripts/print.pl
index 04abc05..1eab270 100755
--- a/scripts/print.pl
+++ b/scripts/print.pl
@@ -6,8 +6,8 @@ use strict;
 use Data::Dump qw(dump);
 use Getopt::Long;
 use lib 'lib';
-use RFID::Biblio::Reader;
-use RFID::Biblio::RFID501;
+use Biblio::RFID::Reader;
+use Biblio::RFID::RFID501;
 use Storable;
 
 my $evolis_dir = '/home/dpavlin/klin/Printer-EVOLIS'; # FIXME
@@ -55,8 +55,8 @@ while(<>) {
 
 print "# queue ", dump @queue;
 
-my $rfid = RFID::Biblio::Reader->new( $reader );
-$RFID::Biblio::debug = $debug;
+my $rfid = Biblio::RFID::Reader->new( $reader );
+$Biblio::RFID::debug = $debug;
 
 sub tag {
 	my $tag = shift;
@@ -64,7 +64,7 @@ sub tag {
 		, " AFI: "
 		, uc unpack('H2', $rfid->afi($tag))
 		, " "
-		, dump( RFID::Biblio::RFID501->to_hash( $rfid->blocks($tag) ) )
+		, dump( Biblio::RFID::RFID501->to_hash( $rfid->blocks($tag) ) )
 		, $/
 		;
 }
@@ -98,7 +98,7 @@ do {
 				my $card = shift @queue;
 				my $number = $card->[0];
 				print "PROGRAM $tag $number\n";
-				$rfid->write_blocks( $tag => RFID::Biblio::RFID501->from_hash({ content => $number }) );
+				$rfid->write_blocks( $tag => Biblio::RFID::RFID501->from_hash({ content => $number }) );
 				$rfid->write_afi( $tag => chr($afi) ) if $afi;
 
 				$programmed->{$tag} = $number;