/[RFID]/3m-810.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /3m-810.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 50 by dpavlin, Wed Jun 24 09:30:28 2009 UTC revision 53 by dpavlin, Wed Jun 24 13:13:15 2009 UTC
# Line 96  sub http_server { Line 96  sub http_server {
96                                  warn "WEB >> $path" if $debug;                                  warn "WEB >> $path" if $debug;
97                          } elsif ( $method =~ m{/scan} ) {                          } elsif ( $method =~ m{/scan} ) {
98                                  my $tags = scan_for_tags();                                  my $tags = scan_for_tags();
99                                  my $json = {};                                  my $json = { time => time() };
100                                  map {                                  map {
101                                          my $d = decode_tag($_);                                          my $d = decode_tag($_);
102                                          $d->{sid} = $_;                                          $d->{sid} = $_;
# Line 309  sub update_visible_tags { Line 309  sub update_visible_tags {
309          $visible_tags = {};          $visible_tags = {};
310    
311          foreach my $tag ( @tags ) {          foreach my $tag ( @tags ) {
312                    $visible_tags->{$tag}++;
313                  if ( ! defined $last_visible_tags->{$tag} ) {                  if ( ! defined $last_visible_tags->{$tag} ) {
314                          if ( defined $tags_data->{$tag} ) {                          if ( defined $tags_data->{$tag} ) {
315  #                               meteor( 'in-range', $tag );  #                               meteor( 'in-range', $tag );
# Line 316  sub update_visible_tags { Line 317  sub update_visible_tags {
317                                  meteor( 'read', $tag );                                  meteor( 'read', $tag );
318                                  read_tag( $tag );                                  read_tag( $tag );
319                          }                          }
                         $visible_tags->{$tag}++;  
320                  } else {                  } else {
321                          warn "## using cached data for $tag" if $debug;                          warn "## using cached data for $tag" if $debug;
322                  }                  }
# Line 657  sub readchunk { Line 657  sub readchunk {
657                  warn "## DISPATCH payload to with rest", dump( $payload, $to, $rest ) if $debug;                  warn "## DISPATCH payload to with rest", dump( $payload, $to, $rest ) if $debug;
658                  $dispatch->{ $to }->( $rest );                  $dispatch->{ $to }->( $rest );
659          } else {          } else {
660                  print "NO DISPATCH for ",dump( $full ),"\n";                  print "NO DISPATCH for ",as_hex( $full ),"\n";
661          }          }
662    
663          return $data;          return $data;

Legend:
Removed from v.50  
changed lines
  Added in v.53

  ViewVC Help
Powered by ViewVC 1.1.26