From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 3 Aug 2010 11:06:22 +0000 (+0200)
Subject: added --afi to set security after writing blocks
X-Git-Tag: RFID-Biblio-0.02~79
X-Git-Url: http://git.rot13.org/?p=Biblio-RFID.git;a=commitdiff_plain;h=85d5a59bbac6392a0b691774cdc6f580be3ec100

added --afi to set security after writing blocks
---

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;
 	}
 }