From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 4 Aug 2010 14:04:31 +0000 (+0200)
Subject: write_afi added
X-Git-Tag: RFID-Biblio-0.02~68
X-Git-Url: http://git.rot13.org/?p=Biblio-RFID.git;a=commitdiff_plain;h=4aaed40ae0673a131f70e6437bb1e8ebf4d6bc27;ds=sidebyside

write_afi added
---

diff --git a/lib/RFID/Biblio/CPRM02.pm b/lib/RFID/Biblio/CPRM02.pm
index 8222d03..c8abcf7 100644
--- a/lib/RFID/Biblio/CPRM02.pm
+++ b/lib/RFID/Biblio/CPRM02.pm
@@ -243,6 +243,19 @@ sub read_afi {
 	return $info->{AFI} || die "no AFI for $tag in ",dump($info);
 
 }
-sub write_afi {}
+
+sub write_afi {
+	my $tag = shift;
+	$tag = shift if ref $tag;
+
+	my $afi = shift || die "no afi?";
+	$afi = as_hex $afi;
+
+	cpr( "FF  B0  27  01  $tag  $afi", "Write AFI $tag $afi", sub {
+		my $data = shift;
+		warn "## write_afi $tag got ",as_hex($data);
+	});
+
+}
 
 1