projects
/
Biblio-RFID.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
don't populate (fake) security for SmartX
[Biblio-RFID.git]
/
scripts
/
RFID-JSONP-server.pl
diff --git
a/scripts/RFID-JSONP-server.pl
b/scripts/RFID-JSONP-server.pl
index
2575c57
..
1c46405
100755
(executable)
--- a/
scripts/RFID-JSONP-server.pl
+++ b/
scripts/RFID-JSONP-server.pl
@@
-1,12
+1,12
@@
#!/usr/bin/perl
#!/usr/bin/perl
-=head1
RFID-JSONP-server
+=head1
NAME
-
This is
simpliest possible JSONP server which provides local web interface to RFID readers
+
RFID-JSONP-server -
simpliest possible JSONP server which provides local web interface to RFID readers
-Usage:
+=head1 USAGE
- ./scripts/RFID-JSONP-server.pl
+ ./scripts/RFID-JSONP-server.pl
[--debug] [--listen=127.0.0.1:9000] [--reader=filter]
=cut
=cut
@@
-31,9
+31,9
@@
GetOptions(
) || die $!;
use lib 'lib';
) || die $!;
use lib 'lib';
-use
RFID::Biblio
::RFID501;
-use
RFID::Biblio
::Reader;
-my $rfid =
RFID::Biblio
::Reader->new( shift @ARGV );
+use
Biblio::RFID
::RFID501;
+use
Biblio::RFID
::Reader;
+my $rfid =
Biblio::RFID
::Reader->new( shift @ARGV );
my $index_html;
{
my $index_html;
{
@@
-97,9
+97,9
@@
sub http_server {
my @tags = $rfid->tags;
my $json = { time => time() };
foreach my $tag ( @tags ) {
my @tags = $rfid->tags;
my $json = { time => time() };
foreach my $tag ( @tags ) {
- my $hash =
RFID::Biblio::RFID501->to_hash( $rfid->blocks( $tag )
);
+ my $hash =
$rfid->to_hash( $tag
);
$hash->{sid} = $tag;
$hash->{sid} = $tag;
- $hash->{security} = uc unpack 'H*', $rfid->afi( $tag );
+ $hash->{security} = uc unpack 'H*', $rfid->afi( $tag )
if $hash->{tag_type} ne 'SmartX'
;
push @{ $json->{tags} }, $hash;
};
warn "#### ", encode_json($json);
push @{ $json->{tags} }, $hash;
};
warn "#### ", encode_json($json);
@@
-112,8
+112,8
@@
sub http_server {
foreach my $p ( keys %$param ) {
next unless $p =~ m/^(E[0-9A-F]{15})$/;
my $tag = $1;
foreach my $p ( keys %$param ) {
next unless $p =~ m/^(E[0-9A-F]{15})$/;
my $tag = $1;
- my $content =
RFID::Biblio
::RFID501->from_hash({ content => $param->{$p} });
- $content =
RFID::Biblio
::RFID501->blank if $param->{$p} eq 'blank';
+ my $content =
Biblio::RFID
::RFID501->from_hash({ content => $param->{$p} });
+ $content =
Biblio::RFID
::RFID501->blank if $param->{$p} eq 'blank';
$status = 302;
warn "PROGRAM $tag $content\n";
$status = 302;
warn "PROGRAM $tag $content\n";
@@
-205,7
+205,7
@@
function got_visible_tags(data,textStatus) {
console.debug( i, tag );
html += '<li><tt class=' + tag.security + '>' + tag.sid;
if ( tag.content ) {
console.debug( i, tag );
html += '<li><tt class=' + tag.security + '>' + tag.sid;
if ( tag.content ) {
- html += ' <a href="http
s://koha-dev.rot13.org:8443
/cgi-bin/koha/members/member.pl?member=' + tag.content + '" title="lookup in Koha" target="koha-lookup">' + tag.content + '</a>';
+ html += ' <a href="http
://ffzg.koha-dev.rot13.org:8080
/cgi-bin/koha/members/member.pl?member=' + tag.content + '" title="lookup in Koha" target="koha-lookup">' + tag.content + '</a>';
html += '</tt>';
html += '<form method=get action=program style="display:inline">'
+ '<input type=hidden name='+tag.sid+' value="blank">'
html += '</tt>';
html += '<form method=get action=program style="display:inline">'
+ '<input type=hidden name='+tag.sid+' value="blank">'