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