7 our @EXPORT = qw( hex2bytes as_hex hex_tag );
9 use Data::Dump qw(dump);
13 RFID::Biblio - perl tools to use different RFID readers for library use
17 our $VERSION = '0.02';
24 Main idea is to develop simple API to reader, and than provide useful
25 abstractions on top of it to quickly write applications to respond on
26 tags which come in range of RFID reader using L<RFID::Biblio::Reader>.
28 Writing support for new RFID readers should be easy.
29 L<RFID::Biblio::Reader::API> provides documentation on writing support
30 for different readers.
32 Currently, two serial RFID readers based on L<RFID::Biblio::Reader::Serial>
39 L<RFID::Biblio::Reader::3M810>
43 L<RFID::Biblio::Reader::CPRM02>
47 There is also simple read-only reader using shell commands in
48 L<RFID::Biblio::Reader::librfid>.
50 For implementing application take a look at L<RFID::Biblio::Reader>
52 C<scripts/RFID-JSONP-server.pl> is example of such application. It's local
53 interface to RFID reader and JSONP REST server.
55 C<examples/koha-rfid.js> is jQuery based JavaScript code which can be inserted
56 in Koha Library System to provide overlay with tags in range and
57 check-in/check-out form-fill functionality.
63 Formatting functions are exported
67 my $bytes = hex2bytes($hex);
72 my $str = shift || die "no str?";
79 warn "## str2bytes( $str ) => $b => ",as_hex($bytes) if $debug;
85 print as_hex( $bytes );
91 foreach my $str ( @_ ) {
92 my $hex = uc unpack( 'H*', $str );
93 $hex =~ s/(..)/$1 /g if length( $str ) > 2;
97 return join(' | ', @out);
102 print hex_tag $8bytes;
106 sub hex_tag { uc(unpack('H16', shift)) }
110 =head1 HARDWARE SUPPORT
114 L<RFID::Biblio::Reader::3M810>
118 L<RFID::Biblio::Reader::CPRM02>
122 L<RFID::Biblio::Reader::librfid>
127 Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >>
129 L<http://blog.rot13.org/>
133 Please report any bugs or feature requests to C<bug-rfid-biblio at rt.cpan.org>, or through
134 the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=RFID-Biblio>. I will be notified, and then you'll
135 automatically be notified of progress on your bug as I make changes.
142 You can find documentation for this module with the perldoc command.
145 perldoc RFID::Biblio::Reader
146 perldoc RFID::Biblio::Reader::API
149 You can also look for information at:
153 =item * RT: CPAN's request tracker
155 L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=RFID-Biblio>
157 =item * AnnoCPAN: Annotated CPAN documentation
159 L<http://annocpan.org/dist/RFID-Biblio>
163 L<http://cpanratings.perl.org/d/RFID-Biblio>
167 L<http://search.cpan.org/dist/RFID-Biblio/>
172 =head1 ACKNOWLEDGEMENTS
175 =head1 LICENSE AND COPYRIGHT
177 Copyright 2010 Dobrica Pavlinusic.
179 This program is free software; you can redistribute it and/or modify
180 it under the terms of the GNU General Public License as published by
181 the Free Software Foundation; version 2 dated June, 1991 or at your option
184 This program is distributed in the hope that it will be useful,
185 but WITHOUT ANY WARRANTY; without even the implied warranty of
186 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
187 GNU General Public License for more details.
189 A copy of the GNU General Public License is available in the source tree;
190 if not, write to the Free Software Foundation, Inc.,
191 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
196 1; # End of RFID::Biblio