/[RFID]/cpr-m02.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /cpr-m02.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 87 by dpavlin, Fri Jul 16 13:05:24 2010 UTC revision 88 by dpavlin, Fri Jul 16 13:33:10 2010 UTC
# Line 349  while(1) { Line 349  while(1) {
349    
350  cpr( 'FF  B0  01 00', 'ISO - Inventory', sub {  cpr( 'FF  B0  01 00', 'ISO - Inventory', sub {
351          my $data = shift;          my $data = shift;
352            if (length($data) < 5 + 2 ) {
353                    warn "# no tags in range\n";
354                    return;
355            }
356          my $data_sets = ord(substr($data,3,1));          my $data_sets = ord(substr($data,3,1));
357          $data = substr($data,4);          $data = substr($data,4);
358          foreach ( 1 .. $data_sets ) {          foreach ( 1 .. $data_sets ) {
Legend:
Removed from v.87  
changed lines
  Added in v.88
  ViewVC Help
Powered by ViewVC 1.1.26