projects
/
Biblio-RFID.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge remote-tracking branch 'mjesec/rfid-vm'
[Biblio-RFID.git]
/
scripts
/
program.pl
diff --git
a/scripts/program.pl
b/scripts/program.pl
index
7dbfc7f
..
ec33b88
100755
(executable)
--- a/
scripts/program.pl
+++ b/
scripts/program.pl
@@
-10,17
+10,28
@@
use Biblio::RFID::Reader;
use Biblio::RFID::RFID501;
my $reader;
use Biblio::RFID::RFID501;
my $reader;
-my $afi;
+my $afi
= 0x00
;
my $debug = 0;
my $debug = 0;
+my $hash;
+my $blank;
GetOptions(
'reader=s', => \$reader,
'afi=i', => \$afi,
'debug+', => \$debug,
GetOptions(
'reader=s', => \$reader,
'afi=i', => \$afi,
'debug+', => \$debug,
+ 'set=i' => \$hash->{set},
+ 'total=i', => \$hash->{total},
+ 'type=i', => \$hash->{type},
+ 'branch=i', => \$hash->{branch},
+ 'library=i' => \$hash->{library},
+ '3mblank' => \$blank->{blank_3m},
+ 'blank' => \$blank->{blank},
) || die $!;
my ( $sid, $content ) = @ARGV;
) || die $!;
my ( $sid, $content ) = @ARGV;
-die "usage: $0 [--reader regex_filter] [--afi 214] E0_RFID_SID [barcode]\n" unless $sid && ( $content | $afi );
+die "usage: $0 [--reader regex_filter] [--afi 214] [--type 1] E0_RFID_SID [barcode]\n" unless $sid && ( $content | $afi | $blank );
+
+$hash->{content} = $content if defined $content;
my $rfid = Biblio::RFID::Reader->new( $reader );
$Biblio::RFID::debug = $debug;
my $rfid = Biblio::RFID::Reader->new( $reader );
$Biblio::RFID::debug = $debug;
@@
-28,8
+39,15
@@
$Biblio::RFID::debug = $debug;
foreach my $tag ( $rfid->tags ) {
warn "visible $tag\n";
next unless $tag eq $sid;
foreach my $tag ( $rfid->tags ) {
warn "visible $tag\n";
next unless $tag eq $sid;
- warn "PROGRAM $tag with $content\n";
- $rfid->write_blocks( $tag => Biblio::RFID::RFID501->from_hash({ content => $content }) );
- $rfid->write_afi( $tag => chr($afi) ) if $afi;
+ if ( $blank ) {
+warn dump( $blank );
+ my $type = ( grep { $blank->{$_} } keys %$blank )[0];
+ warn "BLANK $type $tag\n";
+ $rfid->write_blocks( $tag => Biblio::RFID::RFID501->$type );
+ } else {
+ warn "PROGRAM $tag with $content\n";
+ $rfid->write_blocks( $tag => Biblio::RFID::RFID501->from_hash($hash) );
+ $rfid->write_afi( $tag => chr($afi) ) if $afi;
+ }
}
}