--- 3m-810.pl	2010/02/11 22:12:34	75
+++ 3m-810.pl	2010/02/15 14:10:08	78
@@ -393,7 +393,11 @@
 sub decode_tag {
 	my $tag = shift;
 
-	my $data = $tags_data->{$tag} || die "no data for $tag";
+	my $data = $tags_data->{$tag};
+	if ( ! $data ) {
+		warn "no data for $tag\n";
+		return;
+	}
 
 	my ( $u1, $set_item, $u2, $type, $content, $br_lib, $custom ) = unpack('C4Z16Nl>',$data);
 	my $hash = {
@@ -447,6 +451,12 @@
 			"D6 00  0F  FE  00 00  05 01   $tag    BEEF", sub {
 				print "FIXME: tag $tag ready? (expected block read instead)\n";
 			},
+			"D6 00 0D 02 06 $tag", sub {
+				my $rest = shift;
+				print "ERROR reading $tag ", as_hex($rest), $/;
+				forget_tag $tag;
+				$start_block = $max_rfid_block; # XXX break out of while
+			},
 		);
 
 	}
@@ -463,7 +473,12 @@
 			$security = as_hex( $security );
 			$tags_security->{$tag} = $security;
 			warn "# SECURITY $tag = $security\n";
-		}
+		},
+		"D6 00 0C 0A 06", sub {
+			my $rest = shift;
+			warn "ERROR reading security from $rest\n";
+			forget_tag $tag;
+		},
 	);
 
 	print "TAG $tag ", dump(decode_tag( $tag ));
@@ -583,7 +598,7 @@
 sub as_hex {
 	my @out;
 	foreach my $str ( @_ ) {
-		my $hex = unpack( 'H*', $str );
+		my $hex = uc unpack( 'H*', $str );
 		$hex =~ s/(..)/$1 /g if length( $str ) > 2;
 		$hex =~ s/\s+$//;
 		push @out, $hex;