my $listen_port = 9000; # pick something not in use
my $server_url = "http://localhost:$listen_port";
+my $reader = shift @ARGV;
use lib 'lib';
-use RFID::Serial::Decode::RFID501;
-use RFID::Serial::3M810;
-my $rfid = RFID::Serial::3M810->new;
+use RFID::Biblio::RFID501;
+use RFID::Biblio::Readers;
+my $rfid = (RFID::Biblio::Readers->available( $reader ))[0]; # FIXME
my $index_html;
{
if ( $path eq '/' ) {
print $client "HTTP/1.0 200 OK\r\nContent-Type: text/html\r\n\r\n$index_html";
+ } elsif ( $path =~ m{^/(examples/.+)} ) {
+ $path = $1; # FIXME prefix with dir for installation
+ my $size = -s $path;
+ warn "static $path $size bytes\n";
+ my $content_type = 'text/plain';
+ $content_type = 'application/javascript' if $path =~ /\.js/;
+ print $client "HTTP/1.0 200 OK\r\nContent-Type: $content_type\r\nContent-Length: $size\r\n\r\n";
+ {
+ local $/ = undef;
+ open(my $fh, '<', $path) || die "can't open $path: $!";
+ while(<$fh>) {
+ print $client $_;
+ }
+ close($fh);
+ }
} elsif ( $method =~ m{/scan} ) {
my $tags = $rfid->scan;
my $json = { time => time() };
foreach my $tag ( keys %$tags ) {
- my $hash = RFID::Serial::Decode::RFID501->to_hash( $tags->{$tag} );
+ my $hash = RFID::Biblio::RFID501->to_hash( $tags->{$tag} );
$hash->{sid} = $tag;
- $hash->{security} = $rfid->read_afi( $tag );
+ $hash->{security} = uc unpack 'H*', $rfid->read_afi( $tag );
push @{ $json->{tags} }, $hash;
};
warn "#### ", encode_json($json);
</style>
<script type="text/javascript">
+// mock console
+if(!window.console) {
+ window.console = new function() {
+ this.info = function(str) {};
+ this.debug = function(str) {};
+ };
+}
+
+
function got_visible_tags(data,textStatus) {
var html = 'No tags in range';
if ( data.tags ) {