exiftool_vendored 9.60.0 → 9.64.0

data/bin/{Image-ExifTool-9.60 → Image-ExifTool-9.64}/lib/Image/ExifTool/MinoltaRaw.pm

@@ -369,7 +369,7 @@ sub ConvertWBMode($)
 }
 
 #------------------------------------------------------------------------------
-# Write MRW directory (ie. in ARW images)
+# Write MRW directory (eg. in ARW images)
 # Inputs: 0) ExifTool object ref, 1) dirInfo ref, 2) optional tag table ref
 # Returns: new MRW data or undef on error
 sub WriteMRW($$;$)

data/bin/{Image-ExifTool-9.60 → Image-ExifTool-9.64}/lib/Image/ExifTool/Nikon.pm

@@ -56,7 +56,7 @@ use vars qw($VERSION %nikonLensIDs %nikonTextEncoding);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 
-$VERSION = '2.88';
+$VERSION = '2.90';
 
 sub LensIDConv($$$);
 sub ProcessNikonAVI($$$);
@@ -84,6 +84,7 @@ sub PrintAFPointsInv($$;$);
     # http://www.rottmerhusen.com/objektives/lensid/files/exif/fmountlens.p.txt
     # (hex digits must be uppercase in keys below)
     '01 58 50 50 14 14 02 00' => 'AF Nikkor 50mm f/1.8',
+    '01 58 50 50 14 14 05 00' => 'AF Nikkor 50mm f/1.8',
     '02 42 44 5C 2A 34 02 00' => 'AF Zoom-Nikkor 35-70mm f/3.3-4.5',
     '02 42 44 5C 2A 34 08 00' => 'AF Zoom-Nikkor 35-70mm f/3.3-4.5',
     '03 48 5C 81 30 30 02 00' => 'AF Zoom-Nikkor 70-210mm f/4',
@@ -343,6 +344,7 @@ sub PrintAFPointsInv($$;$);
     '48 48 2B 44 24 30 4B 06' => 'Sigma 17-35mm F2.8-4 EX DG  Aspherical HSM',
     '26 54 2B 44 24 30 1C 02' => 'Sigma 17-35mm F2.8-4 EX Aspherical',
     '9D 48 2B 50 24 24 4B 0E' => 'Sigma 17-50mm F2.8 EX DC OS HSM',
+    '8F 48 2B 50 24 24 4B 0E' => 'Sigma 17-50mm F2.8 EX DC OS HSM', #http://dev.exiv2.org/boards/3/topics/1747
     '7A 47 2B 5C 24 34 4B 06' => 'Sigma 17-70mm F2.8-4.5 DC Macro Asp. IF HSM',
     '7A 48 2B 5C 24 34 4B 06' => 'Sigma 17-70mm F2.8-4.5 DC Macro Asp. IF HSM',
     '7F 48 2B 5C 24 34 1C 06' => 'Sigma 17-70mm F2.8-4.5 DC Macro Asp. IF',
@@ -382,6 +384,7 @@ sub PrintAFPointsInv($$;$);
   # '92 3E 2D 88 2C 40 4B 0E' (22mm)
   # '92 40 2D 88 2C 40 4B 0E' (18mm)
     '26 48 31 49 24 24 1C 02' => 'Sigma 20-40mm F2.8',
+    '02 3A 37 50 31 3D 02 00' => 'Sigma 24-50mm F4-5.6 UC',
     '26 48 37 56 24 24 1C 02' => 'Sigma 24-60mm F2.8 EX DG',
     'B6 48 37 56 24 24 1C 02' => 'Sigma 24-60mm F2.8 EX DG',
     'A6 48 37 5C 24 24 4B 06' => 'Sigma 24-70mm F2.8 IF EX DG HSM', #JD
@@ -428,7 +431,7 @@ sub PrintAFPointsInv($$;$);
     '02 37 5E 8E 35 3D 02 00' => 'Sigma 75-300mm F4.5-5.6 APO',
     '02 3A 5E 8E 32 3D 02 00' => 'Sigma 75-300mm F4.0-5.6',
     '77 44 61 98 34 3C 7B 0E' => 'Sigma 80-400mm F4.5-5.6 EX OS',
-    '48 48 68 8E 30 30 4B 02' => 'Sigma 100-300mm F4 EX IF HSM',
+    '48 48 68 8E 30 30 4B 02' => 'Sigma APO 100-300mm F4 EX IF HSM',
     'F3 48 68 8E 30 30 4B 02' => 'Sigma APO 100-300mm F4 EX IF HSM',
     '48 54 6F 8E 24 24 4B 02' => 'Sigma APO 120-300mm F2.8 EX DG HSM',
     '7A 54 6E 8E 24 24 4B 02' => 'Sigma APO 120-300mm F2.8 EX DG HSM',
@@ -495,6 +498,7 @@ sub PrintAFPointsInv($$;$);
     '69 47 5C 8E 30 3C 00 02' => 'Tamron AF 70-300mm f/4-5.6 Di LD Macro 1:2 (A17N)',
     '00 48 5C 8E 30 3C 00 06' => 'Tamron AF 70-300mm f/4-5.6 Di LD Macro 1:2 (A17NII)', #JD
     'F1 47 5C 8E 30 3C DF 0E' => 'Tamron SP 70-300mm f/4-5.6 Di VC USD (A005)',
+    'EB 40 76 A6 38 40 DF 0E' => 'Tamron SP AF 150-600mm f/5-6.3 VC USD (A011)',
     '20 3C 80 98 3D 3D 1E 02' => 'Tamron AF 200-400mm f/5.6 LD IF (75D)',
     '00 3E 80 A0 38 3F 00 02' => 'Tamron SP AF 200-500mm f/5-6.3 Di LD (IF) (A08)',
     '00 3F 80 A0 38 3F 00 02' => 'Tamron SP AF 200-500mm f/5-6.3 Di (A08)',
@@ -681,7 +685,7 @@ my %retouchValues = ( #PH
     40 => 'Drawing', # (S9200)
 );
 
-# AF point indices for models with 51 focus points, ie. D3 (ref JD/PH)
+# AF point indices for models with 51 focus points, eg. D3 (ref JD/PH)
 #        A1  A2  A3  A4  A5  A6  A7  A8  A9
 #    B1  B2  B3  B4  B5  B6  B7  B8  B9  B10  B11
 #    C1  C2  C3  C4  C5  C6  C7  C8  C9  C10  C11
@@ -700,7 +704,7 @@ my %afPoints51 = (
     10 => 'E6', 20 => 'E7', 30 => 'E9', 40 => 'B3', 50 => 'B1',
 );
 
-# AF point indices for models with 39 focus points, ie. D7000 (ref 29)
+# AF point indices for models with 39 focus points, eg. D7000 (ref 29)
 #                    A1  A2  A3
 #    B1  B2  B3  B4  B5  B6  B7  B8  B9  B10  B11
 #    C1  C2  C3  C4  C5  C6  C7  C8  C9  C10  C11
@@ -719,7 +723,7 @@ my %afPoints39 = (
     10 => 'E3', 20 => 'B9', 30 => 'D4',
 );
 
-# AF point indices for models with 135 focus points, ie. 1J1 (ref PH)
+# AF point indices for models with 135 focus points, eg. 1J1 (ref PH)
 # - 9 rows (A-I) with 15 columns (1-15), center is E8
 # - odd columns, columns 2 and 14, and the remaining corner points are
 #   not used in 41-point mode
@@ -1077,6 +1081,7 @@ my %binaryDataAttrs = (
         Name => 'HDRInfo',
         SubDirectory => { TagTable => 'Image::ExifTool::Nikon::HDRInfo' },
     },
+    # 0x0037 - int32u (1V models only): an image count maybe? - PH
     0x0039 => {
         Name => 'LocationInfo',
         SubDirectory => { TagTable => 'Image::ExifTool::Nikon::LocationInfo' },
@@ -1085,7 +1090,7 @@ my %binaryDataAttrs = (
         Name => 'BlackLevel',
         Writable => 'int16u',
         Count => 4,
-        # (may need to divide by 4 for some images, ie. D3300/D5300, 12 bit - ref 33)
+        # (may need to divide by 4 for some images, eg. D3300/D5300, 12 bit - ref 33)
     },
     0x0080 => { Name => 'ImageAdjustment',  Writable => 'string' },
     0x0081 => { Name => 'ToneComp',         Writable => 'string' }, #2
@@ -3027,7 +3032,7 @@ my %nikonFocalConversions = (
     },
     0x09 => { #8/9
         # With older AF lenses this does not work... (ref 13)
-        # ie) AF Nikkor 50mm f/1.4 => 48 (0x30)
+        # eg) AF Nikkor 50mm f/1.4 => 48 (0x30)
         # AF Zoom-Nikkor 35-105mm f/3.5-4.5 => @35mm => 15 (0x0f), @105mm => 141 (0x8d)
         Notes => 'this focus distance is approximate, and not very accurate for some lenses',
         Name => 'FocusDistance',
@@ -3113,7 +3118,7 @@ my %nikonFocalConversions = (
     # --> extra byte at position 0x09 in this version of LensData (PH)
     0x0a => { #8/9
         # With older AF lenses this does not work... (ref 13)
-        # ie) AF Nikkor 50mm f/1.4 => 48 (0x30)
+        # eg) AF Nikkor 50mm f/1.4 => 48 (0x30)
         # AF Zoom-Nikkor 35-105mm f/3.5-4.5 => @35mm => 15 (0x0f), @105mm => 141 (0x8d)
         Notes => 'this focus distance is approximate, and not very accurate for some lenses',
         Name => 'FocusDistance',
@@ -5476,6 +5481,7 @@ my %nikonFocalConversions = (
             require Image::ExifTool::GPS;
             Image::ExifTool::GPS::ConvertTimeStamp($val);
         },
+        PrintConv => 'Image::ExifTool::GPS::PrintTimeStamp($val)',
     },
     0x1200008 => {
         Name => 'GPSSatellites',

data/bin/{Image-ExifTool-9.60 → Image-ExifTool-9.64}/lib/Image/ExifTool/NikonCapture.pm

@@ -722,7 +722,7 @@ sub WriteNikonCapture($$$)
     # make sure the capture data is properly contained
     SetByteOrder('II');
     my $tagID = Get32u($dataPt, $dirStart);
-    # sometimes size includes 18 header bytes, and other times it doesn't (ie. ViewNX 2.1.1)
+    # sometimes size includes 18 header bytes, and other times it doesn't (eg. ViewNX 2.1.1)
     my $size = Get32u($dataPt, $dirStart + 18);
     my $pad = $dirLen - $size - 18; 
     unless ($tagID == 0x7a86a940 and ($pad >= 0 or $pad == -18)) {

data/bin/{Image-ExifTool-9.60 → Image-ExifTool-9.64}/lib/Image/ExifTool/OOXML.pm

@@ -217,7 +217,7 @@ sub FoundTag($$$$;$)
 
     # un-escape XML character entities
     $val = Image::ExifTool::XMP::UnescapeXML($val);
-    # convert OOXML-escaped characters (ie. "_x0000d_" is a newline)
+    # convert OOXML-escaped characters (eg. "_x0000d_" is a newline)
     $val =~ s/_x([0-9a-f]{4})_/Image::ExifTool::PackUTF8(hex($1))/gie;
     # convert from UTF8 to ExifTool Charset
     $val = $et->Decode($val, 'UTF8');

data/bin/{Image-ExifTool-9.60 → Image-ExifTool-9.64}/lib/Image/ExifTool/Olympus.pm

@@ -37,7 +37,7 @@ use vars qw($VERSION);
 use Image::ExifTool::Exif;
 use Image::ExifTool::APP12;
 
-$VERSION = '2.18';
+$VERSION = '2.20';
 
 sub PrintLensInfo($$$);
 
@@ -319,6 +319,7 @@ my %olympusCameraTypes = (
     D4535 => 'SP-620UZ',
     D4536 => 'TG-320',
     D4537 => 'VR340,D750',
+    D4538 => 'VG160,X990,D745',
     D4541 => 'SZ-12',
     D4545 => 'VH410',
     D4546 => 'XZ-10', #21
@@ -330,9 +331,12 @@ my %olympusCameraTypes = (
     D4562 => 'SP-820UZ',
     D4566 => 'SZ-15',
     D4572 => 'STYLUS1',
+    D4574 => 'TG-3',
     D4575 => 'TG-850',
     D4579 => 'SP-100EE',
+    D4580 => 'SH-60',
     D4581 => 'SH-1',
+    D4582 => 'TG-835',
     D4809 => 'C2500L',
     D4842 => 'E-10',
     D4856 => 'C-1',
@@ -567,8 +571,8 @@ my %indexInfo = (
         Name => 'SpecialMode',
         Notes => q{
             3 numbers: 1. Shooting mode: 0=Normal, 2=Fast, 3=Panorama;
-            2. Sequence Number; 3. Panorama Direction: 1=Left-Right,
-            2=Right-Left, 3=Bottom-Top, 4=Top-Bottom
+            2. Sequence Number; 3. Panorama Direction: 1=Left-right,
+            2=Right-left, 3=Bottom-Top, 4=Top-Bottom
         },
         Writable => 'int32u',
         Count => 3,
@@ -1723,7 +1727,7 @@ my %indexInfo = (
             1 => 'Sequential shooting AF',
             2 => 'Continuous AF',
             3 => 'Multi AF',
-            5 => 'Face detect', #11
+            4 => 'Face detect', #11
             10 => 'MF',
         }, {
             0 => '(none)',
@@ -2947,7 +2951,7 @@ my %indexInfo = (
 %Image::ExifTool::Olympus::RawInfo = (
     WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
     CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
-    NOTES => 'These tags are found only in ORF images of some models (ie. C8080WZ).',
+    NOTES => 'These tags are found only in ORF images of some models (eg. C8080WZ).',
     GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
     0x000 => {
         Name => 'RawInfoVersion',
@@ -3074,7 +3078,7 @@ my %indexInfo = (
         Name => 'ExposureUnknown',
         Unknown => 1,
         Format => 'int32u',
-        # this conversion doesn't work for all models (ie. gives "1/100000")
+        # this conversion doesn't work for all models (eg. gives "1/100000")
         ValueConv => '$val ? 10 / $val : 0',
         PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
     },

data/bin/{Image-ExifTool-9.60 → Image-ExifTool-9.64}/lib/Image/ExifTool/PDF.pm

@@ -32,7 +32,7 @@ sub ReadPDFValue($);
 sub CheckPDF($$$);
 
 # $lastFetched - last fetched object reference (used for decryption)
-#                (undefined if fetched object was already decrypted, ie. object from stream)
+#                (undefined if fetched object was already decrypted, eg. object from stream)
 
 my $cryptInfo;      # encryption object reference (plus additional information)
 my $cryptString;    # flag that strings are encrypted
@@ -897,8 +897,8 @@ sub ExtractObject($$;$$)
 # extract dictionary
 #
     # Note: entries are not necessarily separated by whitespace (doh!)
-    # ie) "/Tag/Name", "/Tag(string)", "/Tag[array]", etc are legal!
-    # Also, they may be separated by a comment (ie. "/Tag%comment\nValue"),
+    # eg) "/Tag/Name", "/Tag(string)", "/Tag[array]", etc are legal!
+    # Also, they may be separated by a comment (eg. "/Tag%comment\nValue"),
     # but comments have already been removed
     while ($objData =~ m{(\s*)/([^/[\]()<>{}\s]+)\s*(\S[^[(/<>\s]*)}sg) {
         my $tag = $2;
@@ -1975,7 +1975,7 @@ sub ProcessDict($$$$;$$)
         }
     }
 #
-# extract information from stream object if it exists (ie. Metadata stream)
+# extract information from stream object if it exists (eg. Metadata stream)
 #
     for (;;) { # (cheap goto)
         last unless $$dict{_stream};

data/bin/{Image-ExifTool-9.60 → Image-ExifTool-9.64}/lib/Image/ExifTool/PNG.pm

@@ -379,7 +379,7 @@ my %unreg = ( Notes => 'unregistered' );
         available, or tEXt otherwise.  Standard XMP is written as uncompressed iTXt.
 
         Alternate languages are accessed by suffixing the tag name with a '-',
-        followed by an RFC 3066 language code (ie. "PNG:Comment-fr", or
+        followed by an RFC 3066 language code (eg. "PNG:Comment-fr", or
         "Title-en-US").  See L<http://www.ietf.org/rfc/rfc3066.txt> for the RFC 3066
         specification.
 
@@ -540,7 +540,7 @@ sub StandardLangCase($)
 
 #------------------------------------------------------------------------------
 # Get localized version of tagInfo hash
-# Inputs: 0) tagInfo hash ref, 1) language code (ie. "x-default")
+# Inputs: 0) tagInfo hash ref, 1) language code (eg. "x-default")
 # Returns: new tagInfo hash ref, or undef if invalid
 sub GetLangInfo($$)
 {

data/bin/Image-ExifTool-9.64/lib/Image/ExifTool/Palm.pm

@@ -0,0 +1,403 @@
+#------------------------------------------------------------------------------
+# File:         Palm.pm
+#
+# Description:  Read Palm Database files
+#
+# Revisions:    2014/05/28 - P. Harvey Created
+#
+# References: 1) http://wiki.mobileread.com/wiki/PDB
+#             2) http://wiki.mobileread.com/wiki/MOBI
+#------------------------------------------------------------------------------
+
+package Image::ExifTool::Palm;
+
+use strict;
+use vars qw($VERSION);
+use Image::ExifTool qw(:DataAccess :Utils);
+
+$VERSION = '1.00';
+
+sub ProcessEXTH($$$);
+
+# type/creator ID's for Palm database files
+my %palmTypes = (
+    '.pdfADBE' => 'Adobe Reader',
+    'TEXtREAd' => 'PalmDOC',
+    'BVokBDIC' => 'BDicty',
+    'DB99DBOS' => 'DB (Database program)',
+    'PNRdPPrs' => 'eReader',
+    'DataPPrs' => 'eReader',
+    'vIMGView' => 'FireViewer (ImageViewer)',
+    'PmDBPmDB' => 'HanDBase',
+    'InfoINDB' => 'InfoView',
+    'ToGoToGo' => 'iSilo',
+    'SDocSilX' => 'iSilo 3',
+    'JbDbJBas' => 'JFile',
+    'JfDbJFil' => 'JFile Pro',
+    'DATALSdb' => 'LIST',
+    'Mdb1Mdb1' => 'MobileDB',
+    'BOOKMOBI' => 'Mobipocket',
+    'DataPlkr' => 'Plucker',
+    'DataSprd' => 'QuickSheet',
+    'SM01SMem' => 'SuperMemo',
+    'TEXtTlDc' => 'TealDoc',
+    'InfoTlIf' => 'TealInfo',
+    'DataTlMl' => 'TealMeal',
+    'DataTlPt' => 'TealPaint',
+    'dataTDBP' => 'ThinkDB',
+    'TdatTide' => 'Tides',
+    'ToRaTRPW' => 'TomeRaider',
+    'zTXTGPlm' => 'Weasel',
+    'BDOCWrdS' => 'WordSmith',
+);
+
+my %dateTimeInfo = (
+    # like QuickTime, the time zero should be Jan 1, 1904, but not all software writes this,
+    # so assume a time zero of Jan 1, 1970 if the date is before this
+    RawConv => q{
+        my $offset = (66 * 365 + 17) * 24 * 3600;
+        return $val - $offset if $val >= $offset;
+        return $val;
+    },
+    ValueConv => 'ConvertUnixTime($val, 1)', # (UTC written by "EPUB Converter", ref PH)
+    PrintConv => '$self->ConvertDateTime($val)',
+);
+
+# Palm Database header information
+%Image::ExifTool::Palm::Main = (
+    GROUPS => { 0 => 'Palm', 1 => 'Palm', 2 => 'Document' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    FORMAT => 'int32u',
+    NOTES => q{
+        Information extracted from Palm database files (PDB and PRC extensions),
+        Mobipocket electronic books (MOBI), and Amazon Kindle KF7 and KF8 books (AZW
+        and AZW3).
+    },
+    0 => { Name => 'DatabaseName', Format => 'string[32]' },
+    # 8 - int16u: file attributes (not very useful)
+    # 8.5 - int16u: version
+    9 => {
+        Name => 'CreateDate',
+        Groups => { 2 => 'Time' },
+        %dateTimeInfo,
+    },
+    10 => {
+        Name => 'ModifyDate',
+        Groups => { 2 => 'Time' },
+        %dateTimeInfo,
+    },
+    11 => {
+        Name => 'LastBackupDate',
+        Groups => { 2 => 'Time' },
+        %dateTimeInfo,
+    },
+    12 => 'ModificationNumber',
+    15 => {
+        Name => 'PalmFileType',
+        Format => 'undef[8]',
+        PrintConv => \%palmTypes,
+    },
+);
+
+
+# MOBI header tags
+%Image::ExifTool::Palm::MOBI = (
+    GROUPS => { 0 => 'Palm', 1 => 'MOBI', 2 => 'Document' },
+    NOTES => q{
+        Information extracted from the MOBI header of Mobipocket and Amazon Kindle
+        KF7 and KF8 files.
+    },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    FORMAT => 'int32u',
+    0 => {
+        Name => 'Compression',
+        Format => 'int16u',
+        PrintConv => {
+            1 => 'None',
+            2 => 'PalmDOC',
+            17480 => 'HUFF/CDIC',
+        },
+    },
+    1  => {
+        Name => 'UncompressedTextLength',
+        PrintConv => \&Image::ExifTool::ConvertFileSize,
+    },
+    3 => {
+        Name => 'Encryption',
+        PrintConv => {
+            0 => 'None',
+            1 => 'Old Mobipocket',
+            2 => 'Mobipocket',
+        },
+    },
+    6 => {
+        Name => 'MobiType',
+        PrintConv => {
+            2 => 'Mobipocket Book',
+            3 => 'PalmDoc Book',
+            4 => 'Audio',
+            232 => 'mobipocket? generated by kindlegen1.2',
+            248 => 'KF8: generated by kindlegen2',
+            257 => 'News',
+            258 => 'News_Feed',
+            259 => 'News_Magazine',
+            513 => 'PICS',
+            514 => 'WORD',
+            515 => 'XLS',
+            516 => 'PPT',
+            517 => 'TEXT',
+            518 => 'HTML',
+        },
+    },
+    7 => {
+        Name => 'CodePage',
+        RawConv => '$$self{CodePage} = $val',
+        PrintConv => {
+            # just define commonly used code pages
+            # (a much more complete list may be found in FlashPix.pm)
+            1252 => 'Windows Latin 1 (Western European)',
+            65001 => 'Unicode (UTF-8)',
+        },
+    },
+    9 => 'MobiVersion',
+    21 => 'BookName',   # this is actually an offset, but replace it with the string later
+    26 => 'MinimumVersion',
+);
+
+# MOBI extended header tags
+%Image::ExifTool::Palm::EXTH = (
+    GROUPS => { 0 => 'Palm', 1 => 'MOBI', 2 => 'Document' },
+    FORMAT => 'string',
+    NOTES => 'Information extracted from the MOBI extended header.',
+    PROCESS_PROC => \&ProcessEXTH,
+    1 => 'DRMServerID',
+    2 => 'DRMCommerceID',
+    3 => 'DRM_E-BookBaseID',
+    100 => { Name => 'Author', Groups => { 2 => 'Author' } },
+    101 => 'Publisher',
+    102 => 'Imprint',
+    103 => 'Description',
+    104 => 'ISBN',
+    105 => { Name => 'Subject', List => 1 },
+    106 => { 
+        Name => 'PublishDate',
+        Groups => { 2 => 'Time' },
+        ValueConv => q{
+            require Image::ExifTool::XMP;
+            Image::ExifTool::XMP::ConvertXMPDate($val, 1);
+        },
+        PrintConv => '$self->ConvertDateTime($val)',
+    },
+    107 => 'Review',
+    108 => 'Contributor',
+    109 => { Name => 'Rights', Groups => { 2 => 'Author' } },
+    110 => 'SubjectCode',
+    111 => 'BookType',
+    112 => 'Source',
+    113 => 'ASIN',
+    114 => 'BookVersion',
+    115 => { Name => 'SampleFlag',   Format => 'int32u' },
+    116 => { Name => 'StartReading', Format => 'int32u' },
+    117 => 'Adult',
+    118 => 'RetailPrice',
+    119 => 'RetailPriceCurrency',
+    # 121 => 'KF8BoundaryOffset',
+    125 => { Name => 'ResourceCount', Format => 'int32u' },
+    129 => 'KF8CoverURI',
+    200 => 'DictionaryShortName',
+    # 201 => { Name => 'CoverOffset', Format => 'int32u' },
+    # 202 => { Name => 'ThumbOffset', Format => 'int32u' },
+    # 203 => 'HasFakeCover',
+    204 => {
+        Name => 'CreatorSoftware',
+        Format => 'int32u',
+        PrintConv => {
+            1 => 'Mobigen',
+            2 => 'Mobipocket',
+            200 => 'Kindlegen (Windows)',
+            201 => 'Kindlegen (Linux)',
+            202 => 'Kindlegen (Mac)',
+        },
+    },
+    205 => { Name => 'CreatorMajorVersion', Format => 'int32u' },
+    206 => { Name => 'CreatorMinorVersion', Format => 'int32u' },
+    207 => { Name => 'CreatorBuildNumber',  Format => 'int32u' },
+    208 => 'Watermark',
+    209 => 'Tamper-proofKeys',
+    # 300 => 'FontSignature',
+    401 => { Name => 'ClippingLimit', Format => 'int8u' },
+    402 => 'PublisherLimit',
+    404 => {
+        Name => 'TextToSpeech',
+        Format => 'int8u',
+        PrintConv => { 0 => 'Enabled', 1 => 'Disabled' },
+    },
+    405 => { Name => 'RentalFlag', Format => 'int8u' }, #?
+    406 => 'RentalExpirationDate',
+    501 => { Name => 'CDEType',    Format => 'int32u' },
+    502 => 'LastUpdateTime',
+    503 => 'UpdatedTitle',
+    504 => 'ASIN2',
+    524 => 'Language',
+    525 => 'Alignment',
+    535 => 'CreatorBuildNumber2',
+);
+
+#------------------------------------------------------------------------------
+# Process the MOBI extended header
+# Inputs: 0) ExifTool ref, 1) dirInfo ref, 2) tag table ref
+# Returns: 1 (EXTH should have already been validated)
+sub ProcessEXTH($$$)
+{
+    my ($et, $dirInfo, $tagTablePtr) = @_;
+    my $dataPt = $$dirInfo{DataPt};
+    my $dataPos = $$dirInfo{DataPos};
+    my $enc = $$dirInfo{Encoding} || 'UTF8';
+    my $dirLen = length $$dataPt;
+    my ($index, $pos);
+
+    $et->VerboseDir('EXTH', $$dirInfo{NumEntries}, $dirLen);
+
+    # process the EXTH entries
+    for ($index=0, $pos=0; ; ++$index) {
+        last if $pos + 8 > $dirLen;
+        my $tag = Get32u($dataPt, $pos);
+        my $len = Get32u($dataPt, $pos + 4);
+        last if $len < 8 or $pos + $len > $dirLen;
+        my $key = $et->HandleTag($tagTablePtr, $tag, undef,
+            DataPt  => $dataPt,
+            DataPos => $dataPos,
+            Start   => $pos + 8,
+            Size    => $len - 8,
+            Index   => $index,
+        );
+        # recode text if necessary
+        $$et{VALUE}{$key} = $et->Decode($$et{VALUE}{$key}, $enc) if $key;
+        $pos += $len;
+    }
+    return 1;
+}
+
+#------------------------------------------------------------------------------
+# Extract information from a Palm DB file
+# Inputs: 0) ExifTool ref, 1) dirInfo reference
+# Returns: 1 if this was a recognized PDB file, 0 otherwise
+sub ProcessPDB($$)
+{
+    my ($et, $dirInfo) = @_;
+    my $raf = $$dirInfo{RAF};
+    my ($buff, $buf2, $size, $enc);
+    my $verbose = $et->Options('Verbose');
+
+    # verify this is a valid Palm DB file
+    return 0 unless $raf->Read($buff, 86) == 86;
+    my $type = $palmTypes{substr($buff, 60, 8)};
+    return 0 unless $type;
+#
+# Read and process the Palm DB file header
+#
+    $et->SetFileType($type eq 'Mobipocket' ? 'MOBI' : 'PDB');
+    SetByteOrder('MM');
+
+    my $tagTablePtr = GetTagTable('Image::ExifTool::Palm::Main');
+    $et->ProcessDirectory({ DataPt => \$buff }, $tagTablePtr);
+
+    return 1 unless $type eq 'Mobipocket' and Get16u(\$buff, 76);
+#
+# Read and process MOBI header (should be the first record)
+#
+    my $offset = Get32u(\$buff, 78);    # get offset to first record
+    unless ($raf->Seek($offset, 0) and $raf->Read($buff, 274) == 274) {
+        $et->Warn('Truncated MOBI header');
+        return 1;
+    }
+    unless (substr($buff, 16, 4) eq 'MOBI') {
+        $et->Warn('Invalid MOBI header');
+        return 1;
+    }
+    $tagTablePtr = GetTagTable('Image::ExifTool::Palm::MOBI');
+    $et->ProcessDirectory({ DataPt => \$buff }, $tagTablePtr);
+
+    # get text encoding
+    $enc = $Image::ExifTool::charsetName{"cp$$et{CodePage}"} if $$et{CodePage};
+    $enc = 'UTF8' unless $enc;
+
+    # extract the BookName string
+    my $off = Get32u(\$buff, 84);
+    my $len = Get32u(\$buff, 88);
+
+    $raf->Seek($offset+$off, 0) and $raf->Read($buf2, $len) == $len or $buf2 = '<err>';
+    $$et{VALUE}{BookName} = $et->Decode($buf2, $enc);
+#
+# Process the MOBI extended header if it exists
+#
+    # first, check the flag bit to see if the EXTH record should exist
+    my $flag = Get32u(\$buff, 128);
+    return 1 unless $flag & 0x40;   # check extended header flag
+
+    $len = Get32u(\$buff, 20) + 16; # MOBI header length (including PalmDOC header)
+
+    unless ($raf->Seek($offset+$len, 0) and $raf->Read($buf2, 12) == 12 and
+        substr($buf2,0,4) eq 'EXTH' and ($size = Get32u(\$buf2, 4)) > 12)
+    {
+        $et->Warn('Invalid MOBI extended header');
+        return 1;
+    }
+
+    # read and process the MOBI extended header
+    $size -= 12;
+    $raf->Read($buff, $size) == $size or $et->Warn('Truncated MOBI extended header'), return 1;
+    my %dirInfo = (
+        DataPt     => \$buff,
+        DataPos    => $offset + $len + 12,
+        NumEntries => Get32u(\$buf2, 8),
+        Encoding   => $enc,
+    );
+    $tagTablePtr = GetTagTable('Image::ExifTool::Palm::EXTH');
+    $et->ProcessDirectory(\%dirInfo, $tagTablePtr);
+
+    return 1;
+}
+
+1;  # end
+
+__END__
+
+=head1 NAME
+
+Image::ExifTool::Palm - Read Palm Database files
+
+=head1 SYNOPSIS
+
+This module is used by Image::ExifTool
+
+=head1 DESCRIPTION
+
+This module contains code to extract metadata from Palm database files (PDB
+and PRC extensions), Mobipocket electronic books (MOBI), and Amazon Kindle
+KF7 and KF8 books (AZW and AZW3).
+
+=head1 AUTHOR
+
+Copyright 2003-2014, Phil Harvey (phil at owl.phy.queensu.ca)
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=head1 REFERENCES
+
+=over 4
+
+=item L<http://wiki.mobileread.com/wiki/PDB>
+
+=item L<http://wiki.mobileread.com/wiki/MOBI>
+
+=back
+
+=head1 SEE ALSO
+
+L<Image::ExifTool::TagNames/Palm Tags>,
+L<Image::ExifTool(3pm)|Image::ExifTool>
+
+=cut
+