/[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 53 by dpavlin, Wed Jun 24 13:13:15 2009 UTC revision 54 by dpavlin, Wed Jun 24 13:39:43 2009 UTC
# Line 14  use IO::Socket::INET; Line 14  use IO::Socket::INET;
14    
15  my $debug = 0;  my $debug = 0;
16    
17  my $meteor_server = '192.168.1.13:4671';  my $tags_data;
18    my $tags_security;
19    my $visible_tags;
20    
21    my $meteor_server; # = '192.168.1.13:4671';
22  my $meteor_fh;  my $meteor_fh;
23    
24  sub meteor {  sub meteor {
# Line 100  sub http_server { Line 104  sub http_server {
104                                  map {                                  map {
105                                          my $d = decode_tag($_);                                          my $d = decode_tag($_);
106                                          $d->{sid} = $_;                                          $d->{sid} = $_;
107                                            $d->{security} = $tags_security->{$_};
108                                          push @{ $json->{tags} },  $d;                                          push @{ $json->{tags} },  $d;
109                                  } keys %$tags;                                  } keys %$tags;
110                                  print $client "HTTP/1.0 200 OK\r\nContent-Type: application/x-javascript\r\n\r\n",                                  print $client "HTTP/1.0 200 OK\r\nContent-Type: application/x-javascript\r\n\r\n",
# Line 205  it under the same terms ans Perl itself. Line 210  it under the same terms ans Perl itself.
210    
211  =cut  =cut
212    
 my $tags_data;  
 my $visible_tags;  
   
213  my $item_type = {  my $item_type = {
214          1 => 'Book',          1 => 'Book',
215          6 => 'CD/CD ROM',          6 => 'CD/CD ROM',
# Line 432  sub read_tag { Line 434  sub read_tag {
434                          ( $from_tag, $security ) = ( substr($rest,0,8), substr($rest,8,1) );                          ( $from_tag, $security ) = ( substr($rest,0,8), substr($rest,8,1) );
435                          die "security from other tag: ",as_hex( $from_tag ) if $from_tag ne str2bytes( $tag );                          die "security from other tag: ",as_hex( $from_tag ) if $from_tag ne str2bytes( $tag );
436                          $security = as_hex( $security );                          $security = as_hex( $security );
437                            $tags_security->{$tag} = $security;
438                          warn "# SECURITY $tag = $security\n";                          warn "# SECURITY $tag = $security\n";
439                  }                  }
440          );          );
Legend:
Removed from v.53  
changed lines
  Added in v.54
  ViewVC Help
Powered by ViewVC 1.1.26