--- 3m-810.pl 2009/03/28 03:47:10 23
+++ 3m-810.pl 2009/03/29 01:05:49 25
@@ -10,12 +10,17 @@
use IO::Socket::INET;
-my $meteor = IO::Socket::INET->new( '192.168.1.13:4671' ) || die "can't connect to meteor: $!";
+my $meteor_server = '192.168.1.13:4671';
+
+my $meteor = IO::Socket::INET->new( $meteor_server )
+ || die "can't connect to meteor $meteor_server: $!";
sub meteor {
- my ( $item, $html ) = @_;
- warn ">> meteor $item $html\n";
- print $meteor "ADDMESSAGE test $item|" . localtime() . "
$html\n";
+ my @a = @_;
+ push @a, scalar localtime() if $a[0] =~ m{^info};
+
+ warn ">> meteor ",dump( @a );
+ print $meteor "ADDMESSAGE test ",join('|',@a),"\n";
}
my $debug = 0;
@@ -110,7 +115,7 @@
'D5 00 09 04 00 11 0A 05 00 02 7250', sub {
my $hw_ver = join('.', unpack('CCCC', skip_assert(3) ));
print "hardware version $hw_ver\n";
- meteor( -1, "Found reader $hw_ver" );
+ meteor( 'info', "Found reader hardware $hw_ver" );
});
cmd( 'D6 00 0C 13 04 01 00 02 00 03 00 04 00 AAF2','FIXME: stats?',
@@ -126,7 +131,8 @@
if ( ! $nr ) {
print "no tags in range\n";
update_visible_tags();
- meteor( -1, "No tags in range" );
+ meteor( 'info-none-in-range' );
+ $tags_data = {};
} else {
my $tags = substr( $rest, 1 );
@@ -139,13 +145,13 @@
warn "## tags ",as_hex($tags), " [$tl] = ",dump( $tags ) if $debug;
print "$nr tags in range: ", join(',', @tags ) , "\n";
- update_visible_tags( @tags );
+ meteor( 'info-in-range', join(' ',@tags));
- my $html = join('', map { "