projects
/
Biblio-RFID.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
373a0f3
)
decode RFID 501
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 27 Jul 2010 19:33:12 +0000
(21:33 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 27 Jul 2010 19:33:12 +0000
(21:33 +0200)
scripts/RFID-JSONP-server.pl
patch
|
blob
|
history
diff --git
a/scripts/RFID-JSONP-server.pl
b/scripts/RFID-JSONP-server.pl
index
dbb51a8
..
0b4bd3d
100755
(executable)
--- a/
scripts/RFID-JSONP-server.pl
+++ b/
scripts/RFID-JSONP-server.pl
@@
-15,7
+15,7
@@
use warnings;
use Data::Dump qw/dump/;
use Data::Dump qw/dump/;
-use JSON;
+use JSON
::XS
;
use IO::Socket::INET;
my $debug = 1;
use IO::Socket::INET;
my $debug = 1;
@@
-25,6
+25,7
@@
my $server_url = "http://localhost:$listen_port";
use lib 'lib';
use lib 'lib';
+use RFID::Serial::Decode::RFID501;
use RFID::Serial::3M810;
my $rfid = RFID::Serial::3M810->new;
use RFID::Serial::3M810;
my $rfid = RFID::Serial::3M810->new;
@@
-70,12
+71,15
@@
sub http_server {
print $client "HTTP/1.0 200 OK\r\nContent-Type: text/html\r\n\r\n$index_html";
} elsif ( $method =~ m{/scan} ) {
my $tags = $rfid->scan;
print $client "HTTP/1.0 200 OK\r\nContent-Type: text/html\r\n\r\n$index_html";
} elsif ( $method =~ m{/scan} ) {
my $tags = $rfid->scan;
- my $json = {
- time => time(),
- tags => $tags,
+ my $json = { time => time() };
+ foreach my $tag ( keys %$tags ) {
+ my $hash = RFID::Serial::Decode::RFID501->to_hash( $tags->{$tag} );
+ $hash->{sid} = $tag;
+ push @{ $json->{tags} }, $hash;
};
};
+ warn "#### ", encode_json($json);
print $client "HTTP/1.0 200 OK\r\nContent-Type: application/json\r\n\r\n",
print $client "HTTP/1.0 200 OK\r\nContent-Type: application/json\r\n\r\n",
- $param->{callback}, "(",
to
_json($json), ")\r\n";
+ $param->{callback}, "(",
encode
_json($json), ")\r\n";
} elsif ( $method =~ m{/program} ) {
my $status = 501; # Not implementd
} elsif ( $method =~ m{/program} ) {
my $status = 501; # Not implementd