- Timestamp:
- 2021-02-26T19:39:51+13:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cpan/Image/ExifTool/PrintIM.pm
r24107 r34921 13 13 use Image::ExifTool qw(:DataAccess); 14 14 15 $VERSION = '1.0 6';15 $VERSION = '1.07'; 16 16 17 17 sub ProcessPrintIM($$$); … … 43 43 sub ProcessPrintIM($$$) 44 44 { 45 my ($e xifTool, $dirInfo, $tagTablePtr) = @_;45 my ($et, $dirInfo, $tagTablePtr) = @_; 46 46 my $dataPt = $$dirInfo{DataPt}; 47 47 my $offset = $$dirInfo{DirStart}; 48 48 my $size = $$dirInfo{DirLen}; 49 my $verbose = $e xifTool->Options('Verbose');49 my $verbose = $et->Options('Verbose'); 50 50 51 51 unless ($size) { 52 $e xifTool->Warn('Empty PrintIM data', 1);52 $et->Warn('Empty PrintIM data', 1); 53 53 return 0; 54 54 } 55 55 unless ($size > 15) { 56 $e xifTool->Warn('Bad PrintIM data');56 $et->Warn('Bad PrintIM data'); 57 57 return 0; 58 58 } 59 59 unless (substr($$dataPt, $offset, 7) eq 'PrintIM') { 60 $e xifTool->Warn('Invalid PrintIM header');60 $et->Warn('Invalid PrintIM header'); 61 61 return 0; 62 62 } … … 68 68 $num = Get16u($dataPt, $offset + 14); 69 69 if ($size < 16 + $num * 6) { 70 $e xifTool->Warn('Bad PrintIM size');70 $et->Warn('Bad PrintIM size'); 71 71 return 0; 72 72 } 73 73 } 74 $verbose and $e xifTool->VerboseDir('PrintIM', $num);75 $e xifTool->HandleTag($tagTablePtr, 'PrintIMVersion', substr($$dataPt, $offset + 8, 4),74 $verbose and $et->VerboseDir('PrintIM', $num); 75 $et->HandleTag($tagTablePtr, 'PrintIMVersion', substr($$dataPt, $offset + 8, 4), 76 76 DataPt => $dataPt, 77 77 Start => $offset + 8, … … 83 83 my $tag = Get16u($dataPt, $pos); 84 84 my $val = Get32u($dataPt, $pos + 2); 85 $e xifTool->HandleTag($tagTablePtr, $tag, $val,85 $et->HandleTag($tagTablePtr, $tag, $val, 86 86 Index => $n, 87 87 DataPt => $dataPt, … … 113 113 =head1 AUTHOR 114 114 115 Copyright 2003-20 11, Phil Harvey (phil at owl.phy.queensu.ca)115 Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com) 116 116 117 117 This library is free software; you can redistribute it and/or modify it
Note:
See TracChangeset
for help on using the changeset viewer.