return $tag_blocks;
}
+sub read_afi {
+ my $tag = shift;
+ $tag = shift if ref $tag;
+
+ cmd(
+ "0A $tag", "read_afi $tag", sub {
+ my $data = shift;
+
+ if ( my $rest = _matched $data => '0A 00' ) {
+
+ my $tag = hex_tag substr($rest,0,8);
+ my $afi = substr($rest,8,1);
+
+ warn "# SECURITY ", hex_tag($tag), " AFI: ", as_hex($afi);
+
+ return $afi;
+ } elsif ( my $rest = _matched $data => '0A 06' ) {
+ warn "ERROR reading security from $tag ", as_hex($data);
+ } else {
+ warn "IGNORED ",as_hex($data);
+ }
+ });
+}
+
1
ok( my $blocks = $o->read_blocks( $_ ), "read_blocks $_" ) foreach @tags;
+ok( my $afi = $o->read_afi( $_ ), "read_afi $_" ) foreach @tags;
+
ok( my $visible = $o->scan, 'scan' );
diag dump $visible;