Unknown.pm 1.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566
  1. #------------------------------------------------------------------------------
  2. # File: Unknown.pm
  3. #
  4. # Description: Unknown EXIF maker notes tags
  5. #
  6. # Revisions: 04/07/2004 - P. Harvey Created
  7. #------------------------------------------------------------------------------
  8. package Image::ExifTool::Unknown;
  9. use strict;
  10. use vars qw($VERSION);
  11. use Image::ExifTool::Exif;
  12. $VERSION = '1.13';
  13. # Unknown maker notes
  14. %Image::ExifTool::Unknown::Main = (
  15. WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
  16. CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
  17. GROUPS => { 0 => 'MakerNotes', 1 => 'MakerUnknown', 2 => 'Camera' },
  18. # this seems to be a common fixture, so look for it in unknown maker notes
  19. 0x0e00 => {
  20. Name => 'PrintIM',
  21. Description => 'Print Image Matching',
  22. SubDirectory => {
  23. TagTable => 'Image::ExifTool::PrintIM::Main',
  24. },
  25. },
  26. );
  27. 1; # end
  28. __END__
  29. =head1 NAME
  30. Image::ExifTool::Unknown - Unknown EXIF maker notes tags
  31. =head1 SYNOPSIS
  32. This module is loaded automatically by Image::ExifTool when required.
  33. =head1 DESCRIPTION
  34. Image::ExifTool has definitions for the maker notes from many manufacturers,
  35. however information can sometimes be extracted from unknown manufacturers if
  36. the maker notes are in standard IFD format. This module contains the
  37. definitions necessary for Image::ExifTool to read the maker notes from
  38. unknown manufacturers.
  39. =head1 AUTHOR
  40. Copyright 2003-2016, Phil Harvey (phil at owl.phy.queensu.ca)
  41. This library is free software; you can redistribute it and/or modify it
  42. under the same terms as Perl itself.
  43. =head1 SEE ALSO
  44. L<Image::ExifTool::TagNames/Unknown Tags>,
  45. L<Image::ExifTool(3pm)|Image::ExifTool>
  46. =cut