/[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 51 by dpavlin, Wed Jun 24 10:13:23 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 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.51  
changed lines
  Added in v.53
  ViewVC Help
Powered by ViewVC 1.1.26