6 use Data::Dump qw(dump);
9 use RFID::Biblio::Reader;
10 use RFID::Biblio::RFID501;
12 use lib '/home/dpavlin/klin/Printer-EVOLIS/lib';
13 use Printer::EVOLIS::Parallel;
21 'reader=s', => \$reader,
25 die "Usage: $0 print.txt\n" unless @ARGV;
29 warn "# reading tab-delimited input\n";
32 my @a = split(/\t/,$_);
36 print "# queue ", dump @queue;
38 my $rfid = RFID::Biblio::Reader->new( $reader );
39 $RFID::Biblio::debug = $debug;
45 , uc unpack('H2', $rfid->afi($tag))
47 , dump( RFID::Biblio::RFID501->to_hash( $rfid->blocks($tag) ) )
56 while ( $rfid->tags ) {
57 print "ERROR: remove all tags from output printer tray\n";
64 my @visible = $rfid->tags(
67 print localtime()." enter ", tag($tag);
68 push @stack, [ 'enter', $tag ];
75 print localtime()." leave ", tag($tag);
76 push @stack, [ 'leave', $tag ];
81 warn localtime()." visible: ",join(' ',@visible),"\n";
88 print "XXX print_card\n";
90 my $p = Printer::EVOLIS::Parallel->new( '/dev/usb/lp0' );
91 print "insert card ", $p->command( 'Si' );
92 print "eject card ", $p->command( 'Ser' );