X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=scripts%2Fprogram.pl;fp=scripts%2Fprogram.pl;h=122a81a35c138038968a48794a7dc78cf1c2bac7;hb=85d5a59bbac6392a0b691774cdc6f580be3ec100;hp=d7d5629cdf0ca04654385f8f0509668736dac7f8;hpb=4d393c82243c411c1e3a19e1f4d255fdd9f97363;p=Biblio-RFID.git

diff --git a/scripts/program.pl b/scripts/program.pl
index d7d5629..122a81a 100755
--- a/scripts/program.pl
+++ b/scripts/program.pl
@@ -10,9 +10,11 @@ use RFID::Biblio::Readers;
 use RFID::Biblio::RFID501;
 
 my $reader;
+my $afi;
 
 GetOptions(
 	'reader=s', => \$reader,
+	'afi=i',    => \$afi,
 ) || die $!;
 
 my ( $sid, $content ) =  @ARGV;
@@ -26,6 +28,7 @@ foreach my $rfid ( @rfid ) {
 		next unless $tag eq $sid;
 		warn "PROGRAM $tag with $content\n";
 		$rfid->write_blocks( $tag => RFID::Biblio::RFID501->from_hash({ content => $content }) );
+		$rfid->write_afi(    $tag => chr($afi) ) if $afi;
 	}
 }