--- 3m-810.pl 2009/06/24 09:30:28 50 +++ 3m-810.pl 2009/06/24 13:13:15 53 @@ -96,7 +96,7 @@ warn "WEB >> $path" if $debug; } elsif ( $method =~ m{/scan} ) { my $tags = scan_for_tags(); - my $json = {}; + my $json = { time => time() }; map { my $d = decode_tag($_); $d->{sid} = $_; @@ -309,6 +309,7 @@ $visible_tags = {}; foreach my $tag ( @tags ) { + $visible_tags->{$tag}++; if ( ! defined $last_visible_tags->{$tag} ) { if ( defined $tags_data->{$tag} ) { # meteor( 'in-range', $tag ); @@ -316,7 +317,6 @@ meteor( 'read', $tag ); read_tag( $tag ); } - $visible_tags->{$tag}++; } else { warn "## using cached data for $tag" if $debug; } @@ -657,7 +657,7 @@ warn "## DISPATCH payload to with rest", dump( $payload, $to, $rest ) if $debug; $dispatch->{ $to }->( $rest ); } else { - print "NO DISPATCH for ",dump( $full ),"\n"; + print "NO DISPATCH for ",as_hex( $full ),"\n"; } return $data;