--- 3m-810.pl	2010/02/15 14:10:08	78
+++ cpr-m02.pl	2010/07/12 11:46:21	84
@@ -10,10 +10,11 @@
 use File::Slurp;
 use JSON;
 use POSIX qw(strftime);
+use Time::HiRes;
 
 use IO::Socket::INET;
 
-my $debug = 0;
+my $debug = 2;
 
 my $tags_data;
 my $tags_security;
@@ -31,7 +32,7 @@
 		Reuse     => 1
 	);
 								  
-	die "can't setup server" unless $server;
+	die "can't setup server: $!" unless $server;
 
 	print "Server $0 ready at $server_url\n";
 
@@ -155,9 +156,9 @@
 sub diag { _message('diag',@_) };
 
 my $device    = "/dev/ttyUSB0";
-my $baudrate  = "19200";
+my $baudrate  = "38400";
 my $databits  = "8";
-my $parity	  = "none";
+my $parity	  = "even";
 my $stopbits  = "1";
 my $handshake = "none";
 
@@ -264,6 +265,70 @@
 #$port->stty_inpck(1);
 #$port->stty_istrip(1);
 
+sub cpr_m02_checksum {
+	my $data = shift;
+
+	my $preset = 0xffff;
+	my $polynom = 0x8408;
+
+	my $crc = $preset;
+	foreach my $i ( 0 .. length($data) - 1 ) {
+		$crc ^= ord(substr($data,$i,1));
+		for my $j ( 0 .. 7 ) {
+			if ( $crc & 0x0001 ) {
+				$crc = ( $crc >> 1 ) ^ $polynom;
+			} else {
+				$crc = $crc >> 1;
+			}
+		}
+#		warn sprintf('%d %04x', $i, $crc & 0xffff);
+	}
+
+	return pack('v', $crc);
+}
+
+sub cpr {
+	my ( $hex, $description ) = shift;
+	my $bytes = str2bytes($hex);
+	my $len = pack( 'c', length( $bytes ) + 3 );
+	my $send = $len . $bytes;
+	my $checksum = cpr_m02_checksum($send);
+	$send .= $checksum;
+
+	warn ">> ", as_hex( $send ), "[$description]\n";
+	$port->write( $send );
+
+	my $r_len = $port->read(1);
+
+	while ( ! $r_len ) {
+		warn "# wait for response length 0.050\n";
+		Time::HiRes::sleep 0.050;
+		$r_len = $port->read(1);
+	}
+
+	warn "<< response len: ", as_hex($r_len), "\n";
+	$r_len = ord($r_len) - 1;
+	my $data = $port->read( $r_len );
+	warn "<< ", as_hex( $data );
+
+	Time::HiRes::sleep 0.050;
+}
+
+#cpr( 'FF  52 00', 'detect boud rate' );
+
+#cpr( '00  65', 'software version' );
+
+cpr( 'FF  65', 'get ? info' );
+
+cpr( 'FF  69 00', 'get reader info' );
+
+cpr( 'FF B0 01 00', '?' );
+
+cpr( 'FF 69', '?' );
+
+#cpr( '', '?' );
+
+exit;
 # initial hand-shake with device
 
 cmd( 'D5 00  05   04 00 11                 8C66', 'hw version',
@@ -612,7 +677,8 @@
 	while ( length( $data ) < $len ) {
 		my ( $c, $b ) = $port->read(1);
 		die "no bytes on port: $!" unless defined $b;
-		#warn "## got $c bytes: ", as_hex($b), "\n";
+		warn "## got $c bytes: ", as_hex($b), "\n";
+		last if $c == 0;
 		$data .= $b;
 	}
 	$desc ||= '?';