use lib 'lib';
use RFID::Biblio::RFID501;
-use RFID::Biblio::Readers;
-my $rfid = (RFID::Biblio::Readers->available( $reader ))[0]; # FIXME
-warn "using $rfid reader\n";
+use RFID::Biblio::Reader;
+my $rfid = RFID::Biblio::Reader->new( shift @ARGV );
my $index_html;
{
close($fh);
}
} elsif ( $method =~ m{/scan} ) {
- my $tags = $rfid->scan;
+ my @tags = $rfid->tags;
my $json = { time => time() };
- foreach my $tag ( keys %$tags ) {
- my $hash = RFID::Biblio::RFID501->to_hash( $tags->{$tag} );
+ foreach my $tag ( @tags ) {
+ my $hash = RFID::Biblio::RFID501->to_hash( $rfid->blocks( $tag ) );
$hash->{sid} = $tag;
- $hash->{security} = uc unpack 'H*', $rfid->read_afi( $tag );
+ $hash->{security} = uc unpack 'H*', $rfid->afi( $tag );
push @{ $json->{tags} }, $hash;
};
warn "#### ", encode_json($json);