exiftool_vendored 12.64.1 → 12.67.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 5c5856e8cbcaf8e5f8ff633ceb9a4150426019668a54304609a7d04190d81324
-  data.tar.gz: 19ba2a9b10f76de0471eb0fa3da47ad1d68c79a8b1076dda1aa3d56c49b08c25
+  metadata.gz: 7a6389f7140433c97eea74b3a6b428d8c5d940dc4d295741a9a69027ee561079
+  data.tar.gz: b28eb642d02cf914b516e1e5e2a40588548b7ab77158a1cf78ee6b76334ad682
 SHA512:
-  metadata.gz: 470e7fbc1cd13d0d108424eefab70069a222a26ca843e17d772c2eb0055eb99654718efc0a514723c67571a4c65a43ded42a7184f1a967fa72ef56b97bc07994
-  data.tar.gz: 8d4d9fcdf6d33422cb00c0c503e09c676d8b62363827f84ba83ca69efe9780224d1cca729c3317ee2a421800773f55e6bf3e2b1ecf7997ce0d8971e171a7a086
+  metadata.gz: 0b6f0e36a66b21a6e6d9635484cba7d0ad9f94aabfede322548a0f7e31e100aa0c75766f4c0248fba3be575e734ef698b270086b5a35ba3c5164118090cc02f6
+  data.tar.gz: 15859db49991094833a0e8cb4ac64604b8235abc48fdb0baea28f4d4c6a1260c9b241be4e4b4ceabc4ca840eb4da9386546f843913702488109ab2393fb1465f

data/bin/Changes

@@ -7,6 +7,52 @@ RSS feed: https://exiftool.org/rss.xml
 Note: The most recent production release is Version 12.60. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
+Sept. 19, 2023 - Version 12.67
+
+  - Added a new Pentax LensType (thanks dmont)
+  - Added a new FujiFilm FilmMode and FaceElementTypes values (thanks Greybeard)
+  - Fixed error writing new DataMining tag where URI prefix wasn't being
+    properly added to the value
+
+Sept. 19, 2023 - Version 12.66
+
+  - Added a few new Canon LensType values (thanks Norbert Wasser)
+  - Added conversions for a few Apple:ImageCaptureType values
+  - Added new XMP tag for PLUS version 2.0.1
+  - Added a new CanonModelID (thanks Laurent Clevy)
+  - Decode another tag from Canon 1DS raw images (Hubert Figuiere, github #219)
+  - Decode JPGCompression for newer Nikon models (thanks Warren Hatch)
+  - Fixed bug introduced in 12.65 where duplicate tags were not returned even
+    when the groups where specified explicitly
+  - API Changes:
+      - Added WindowsWideFile option
+
+Aug. 10, 2023 - Version 12.65
+
+  - Added a new QuickTime Keys tag
+  - Added a new CanonModelID (thanks Laurent Clevy)
+  - Added a new Canon LensType (thanks Norbert Wasser)
+  - Added number in brackets to converted Samsung MCCData value
+  - Decode a number of new Sony tags (thanks Jos Roost)
+  - Decode a few new FlashPix tags (github #217)
+  - Improved decoding of Nikon Z9 firmware 4.0 tags (thanks Warren Hatch)
+  - Improved parsing of PDF:Keywords to support semicolon-separated lists
+  - Enhanced -api option to show list of available options if no argument is
+    provided
+  - Lowered priority of IFD1 tags in ARW images so IFD0/SubIFD take precedence
+  - Changed QuickTime tag names for atID (AlbumTitleID to ArtistID) and plID
+    (PlayListID to AlbumID) (github issue #216), and added cmID (ComposerID)
+  - Changed Apple:MediaGroupUUID tag name back to ContentIdentifier
+  - Patched the -d option to handle the %s format code internally when writing
+    (avoids problems due to inconsistent behaviour of this format code in the
+    strptime function on different systems)
+  - Patched patch of version 12.32 to restore ability to read from named pipes
+  - Fixed bug which could cause a hang when processing a corrupt BigTIFF image
+  - Fixed document number for auxiliary image metadata in HEIC files
+  - Fixed misspelt Apple tag name (thanks Neal Krawetz)
+  - API Changes:
+      - Added AvailableOptions method
+
 June 28, 2023 - Version 12.64
 
   - Added a new Sony LensType (thanks Jos Roost)

data/bin/META.json

@@ -50,5 +50,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "12.64"
+   "version" : "12.67"
 }

data/bin/META.yml

@@ -31,4 +31,4 @@ recommends:
   Time::HiRes: 0
 requires:
   perl: 5.004
-version: 12.64
+version: 12.67

data/bin/README

@@ -108,8 +108,8 @@ your home directory, then you would type the following commands in a
 terminal window to extract and run ExifTool:
 
   cd ~/Desktop
-  gzip -dc Image-ExifTool-12.64.tar.gz | tar -xf -
-  cd Image-ExifTool-12.64
+  gzip -dc Image-ExifTool-12.67.tar.gz | tar -xf -
+  cd Image-ExifTool-12.67
   ./exiftool t/images/ExifTool.jpg
 
 Note:  These commands extract meta information from one of the test images. 

data/bin/exiftool

@@ -11,7 +11,7 @@ use strict;
 use warnings;
 require 5.004;
 
-my $version = '12.64';
+my $version = '12.67';
 
 # add our 'lib' directory to the include list BEFORE 'use Image::ExifTool'
 my $exePath;
@@ -814,11 +814,17 @@ for (;;) {
     /^(-?)(a|duplicates)$/i and $mt->Options(Duplicates => ($1 ? 0 : 1)), next;
     if ($a eq 'api') {
         my $opt = shift;
-        defined $opt or Error("Expected OPT[=VAL] argument for -api option\n"), $badCmd=1, next;
-        my $val = ($opt =~ s/=(.*)//s) ? $1 : 1;
-        # empty string means an undefined value unless ^= is used
-        $val = undef unless $opt =~ s/\^$// or length $val;
-        $mt->Options($opt => $val);
+        if (defined $opt and length $opt) {
+            my $val = ($opt =~ s/=(.*)//s) ? $1 : 1;
+            # empty string means an undefined value unless ^= is used
+            $val = undef unless $opt =~ s/\^$// or length $val;
+            $mt->Options($opt => $val);
+        } else {
+            print "Available API Options:\n";
+            my $availableOptions = Image::ExifTool::AvailableOptions();
+            printf("  %-17s - %s\n", $$_[0], $$_[2]) foreach @$availableOptions;
+            $helped = 1;
+        }
         next;
     }
     /^arg(s|format)$/i and $argFormat = 1, next;
@@ -2874,7 +2880,7 @@ sub SetImageInfo($$$)
         }
         unless ($isStdout) {
             $outfile = NextUnusedFilename($outfile);
-            if ($et->Exists($outfile) and not $doSetFileName) {
+            if ($et->Exists($outfile, 1) and not $doSetFileName) {
                 Warn "Error: '${outfile}' already exists - $infile\n";
                 EFile($infile);
                 ++$countBadWr;
@@ -3005,7 +3011,7 @@ sub SetImageInfo($$$)
                 $outfile = Image::ExifTool::GetNewFileName(defined $outfile ? $outfile : $file, $newDir);
             }
             $outfile = NextUnusedFilename($outfile, $infile);
-            if ($et->Exists($outfile)) {
+            if ($et->Exists($outfile, 1)) {
                 if ($infile eq $outfile) {
                     undef $outfile;     # not changing the file name after all
                 # (allow for case-insensitive filesystems)
@@ -4233,7 +4239,7 @@ sub NextUnusedFilename($;$)
         }
         $filename .= substr($fmt, $pos); # add rest of file name
         # return now with filename unless file exists
-        return $filename unless ($mt->Exists($filename) and not defined $usedFileName{$filename}) or $usedFileName{$filename};
+        return $filename unless ($mt->Exists($filename, 1) and not defined $usedFileName{$filename}) or $usedFileName{$filename};
         if (defined $okfile) {
             return $filename if $filename eq $okfile;
             my ($fn, $ok) = (AbsPath($filename), AbsPath($okfile));
@@ -4313,7 +4319,7 @@ sub OpenOutputFile($;@)
             $outfile .= $textOut;
         }
         my $mode = '>';
-        if ($mt->Exists($outfile)) {
+        if ($mt->Exists($outfile, 1)) {
             unless ($textOverwrite) {
                 Warn "Output file $outfile already exists for $file\n";
                 return ();
@@ -5576,7 +5582,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 12.64 --
+    -- Generated by ExifTool 12.67 --
     File: a.jpg - 2003:10:31 15:44:19
     (f/5.6, 1/60s, ISO 100)
     File: b.jpg - 2006:05:23 11:57:38
@@ -6516,13 +6522,15 @@ load exiftool for each invocation.
 
 =over 5
 
-=item B<-api> I<OPT[[^]=[VAL]]>
+=item B<-api> [I<OPT[[^]=[VAL]]>]
 
 Set ExifTool API option.  I<OPT> is an API option name.  The option value is
 set to 1 if I<=VAL> is omitted.  If I<VAL> is omitted, the option value is
-set to undef if C<=> is used, or an empty string with C<^=>.  See
-L<Image::ExifTool Options|Image::ExifTool/Options> for a list of available
-API options.  This overrides API options set via the config file.
+set to undef if C<=> is used, or an empty string with C<^=>.  If I<OPT> is
+not specified a list of available options is returned.  The option name is
+not case senstive, but the option values are.  See
+L<Image::ExifTool Options|Image::ExifTool/Options> for option details.  This
+overrides API options set via the config file.
 
 =item B<-common_args>
 
@@ -7316,10 +7324,13 @@ CreateDate and FileNumber tags, in the form "20060507_118-1861.jpg".
 
 =head1 GEOTAGGING EXAMPLES
 
-ExifTool implements geotagging via 3 special tags: Geotag (which for
-convenience is also implemented as an exiftool option), Geosync and Geotime.
-The examples below highlight some geotagging features.  See
-L<https://exiftool.org/geotag.html> for additional documentation.
+ExifTool implements geotagging from GPS log files via 3 special tags: Geotag
+(which for convenience is also implemented as an exiftool option), Geosync
+and Geotime. The examples below highlight some geotagging features.  See
+L<https://exiftool.org/geotag.html> for additional documentation.  (Note
+that geotagging from known GPS coordinates is done by writing the
+L<GPS tags|Image::ExifTool::TagNames/GPS Tags> directly rather than using
+the B<-geotag> option.)
 
 =over 5
 

data/bin/lib/Image/ExifTool/Apple.pm

@@ -16,7 +16,7 @@ use vars qw($VERSION);
 use Image::ExifTool::Exif;
 use Image::ExifTool::PLIST;
 
-$VERSION = '1.09';
+$VERSION = '1.11';
 
 sub ConvertPLIST($$);
 
@@ -110,24 +110,32 @@ sub ConvertPLIST($$);
     },
     # 0x0010 - int32s: 1 (SphereStatus, ref 2)
     0x0011 => { # (if defined, there is a live photo associated with the video, #forum13565) (AssetIdentifier, ref 2)
-        Name => 'MediaGroupUUID', #NealKrawetz private communication
-        # (changed in 12.19 from Name => 'ContentIdentifier', #forum8750)
+        Name => 'ContentIdentifier',
+        Notes => 'called MediaGroupUUID when it appears as an XAttr',
+        # - originally called ContentIdentifier, forum8750
+        # - changed in 12.19 to MediaGroupUUID, NealKrawetz private communication
+        # - changed back to ContentIdentifier since Apple writes this to Keys content.identifier (forum14874)
         Writable => 'string',
+        
     },
     # 0x0012 - (QRMOutputType, ref 2)
     # 0x0013 - (SphereExternalForceOffset, ref 2)
     0x0014 => { # (StillImageCaptureType, ref 2)
         Name => 'ImageCaptureType',
         Writable => 'int32s',
-        Unknown => 1, # (don't know what the values mean)
         # seen: 1,2,3,4,5,10,12
+        PrintConv => { #forum15096
+            1 => 'ProRAW',
+            2 => 'Portrait',
+            10 => 'Photo',
+        },
     },
     0x0015 => { # (ImageGroupIdentifier, ref 2)
         Name => 'ImageUniqueID',
         Writable => 'string',
     },
     # 0x0016 - string[29]: "AXZ6pMTOh2L+acSh4Kg630XCScoO\0" (PhotosOriginatingSignature, ref 2)
-    0x0017 => { #forum13565 (only valid if MediaGroupUUID exists) (StillImageCaptureFlags, ref 2)
+    0x0017 => { #forum13565 (only valid if MediaGroupUUID/ContentIdentifier exists) (StillImageCaptureFlags, ref 2)
         Name => 'LivePhotoVideoIndex',
         Notes => 'divide by RunTimeScale to get time in seconds',
     },
@@ -153,7 +161,7 @@ sub ConvertPLIST($$);
     # 0x001e - (OriginatingAppID, ref 2)
     # 0x001f - int32s: 0,1 (PhotosAppFeatureFlags, ref 2)
     0x0020 => { # (ImageCaptureRequestIdentifier, ref 2)
-        Name => 'ImageCaptureReqestID',
+        Name => 'ImageCaptureRequestID',
         Writable => 'string',
         Unknown => 1,
     },

data/bin/lib/Image/ExifTool/BigTIFF.pm

@@ -15,7 +15,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 
-$VERSION = '1.07';
+$VERSION = '1.08';
 
 my $maxOffset = 0x7fffffff; # currently supported maximum data offset/size
 
@@ -216,6 +216,13 @@ sub ProcessBigIFD($$$)
         $dirStart = Image::ExifTool::Get64u(\$nextIFD, 0);
         $dirStart or last;
         $offName = $nextOffName;
+        # protect against infinite loop
+        if ($$et{PROCESSED}{$dirStart}) {
+            $et->Warn("$dirName pointer references previous $$et{PROCESSED}{$dirStart} directory");
+            last;
+        } else {
+            $$et{PROCESSED}{$dirStart} = $dirName;
+        }
     }
     return 1;
 }

data/bin/lib/Image/ExifTool/Canon.pm

@@ -88,7 +88,7 @@ sub ProcessCTMD($$$);
 sub ProcessExifInfo($$$);
 sub SwapWords($);
 
-$VERSION = '4.66';
+$VERSION = '4.68';
 
 # Note: Removed 'USM' from 'L' lenses since it is redundant - PH
 # (or is it?  Ref 32 shows 5 non-USM L-type lenses)
@@ -608,18 +608,24 @@ $VERSION = '4.66';
    '61182.33' => 'Canon RF 400mm F2.8L IS USM + RF1.4x', #IB
    '61182.34' => 'Canon RF 400mm F2.8L IS USM + RF2x', #IB
    '61182.35' => 'Canon RF 600mm F4L IS USM', #GiaZopatti
-   '61182.36' => 'Canon RF 15-30mm F4.5-6.3 IS STM', #42
-   '61182.37' => 'Canon RF 800mm F5.6L IS USM', #42
-   '61182.38' => 'Canon RF 800mm F5.6L IS USM + RF1.4x', #42
-   '61182.39' => 'Canon RF 800mm F5.6L IS USM + RF2x', #42
-   '61182.40' => 'Canon RF 1200mm F8L IS USM', #42
-   '61182.41' => 'Canon RF 1200mm F8L IS USM + RF1.4x', #42
-   '61182.42' => 'Canon RF 1200mm F8L IS USM + RF2x', #42
-   '61182.43' => 'Canon RF 135mm F1.8 L IS USM', #42
-   '61182.44' => 'Canon RF 24-50mm F4.5-6.3 IS STM', #42
-   '61182.45' => 'Canon RF-S 55-210mm F5-7.1 IS STM', #42
+   '61182.36' => 'Canon RF 600mm F4L IS USM + RF1.4x', #42
+   '61182.37' => 'Canon RF 600mm F4L IS USM + RF2x', #42
+   '61182.38' => 'Canon RF 15-30mm F4.5-6.3 IS STM', #42
+   '61182.39' => 'Canon RF 800mm F5.6L IS USM', #42
+   '61182.40' => 'Canon RF 800mm F5.6L IS USM + RF1.4x', #42
+   '61182.41' => 'Canon RF 800mm F5.6L IS USM + RF2x', #42
+   '61182.42' => 'Canon RF 1200mm F8L IS USM', #42
+   '61182.43' => 'Canon RF 1200mm F8L IS USM + RF1.4x', #42
+   '61182.44' => 'Canon RF 1200mm F8L IS USM + RF2x', #42
+   '61182.45' => 'Canon RF 135mm F1.8 L IS USM', #42
+   '61182.46' => 'Canon RF 24-50mm F4.5-6.3 IS STM', #42
+   '61182.47' => 'Canon RF-S 55-210mm F5-7.1 IS STM', #42
+   '61182.48' => 'Canon RF 100-300mm F2.8L IS USM', #42
+   '61182.49' => 'Canon RF 100-300mm F2.8L IS USM + RF1.4x', #42
+   '61182.50' => 'Canon RF 100-300mm F2.8L IS USM + RF2x', #42
+   '61182.51' => 'Canon RF 28mm F2.8 STM', #42
     # we need the RFLensType values for the following...
-   '61182.46' => 'Canon RF 5.2mm F2.8L Dual Fisheye 3D VR', #PH (NC)
+   '61182.52' => 'Canon RF 5.2mm F2.8L Dual Fisheye 3D VR', #PH (NC)
     65535 => 'n/a',
 );
 
@@ -983,6 +989,8 @@ $VERSION = '4.66';
     0x80000480 => 'EOS R50', #42
     0x80000481 => 'EOS R6 Mark II', #42
     0x80000487 => 'EOS R8', #42
+    0x80000491 => 'PowerShot V10', #25
+    0x80000498 => 'EOS R100', #25
     0x80000520 => 'EOS D2000C', #IB
     0x80000560 => 'EOS D6000C', #PH (guess)
 );
@@ -1696,6 +1704,12 @@ my %offOn = ( 0 => 'Off', 1 => 'On' );
         # Writable => 'int32u',
         # Protected => 2,
     },
+    0x82 => { #github219 (found on 1DS)
+         Name => 'RawDataLength',
+         # (can't yet write 1DS raw files)
+         # Writable => 'int32u',
+         # Protected => 2,
+    },
     0x83 => { #PH
         Name => 'OriginalDecisionDataOffset',
         Writable => 'int32u',
@@ -6857,6 +6871,8 @@ my %ciMaxFocal = (
             290 => 'Canon RF 400mm F2.8L IS USM + RF1.4x', #IB
             291 => 'Canon RF 400mm F2.8L IS USM + RF2x', #IB
             292 => 'Canon RF 600mm F4L IS USM', #GiaZopatti
+            293 => 'Canon RF 600mm F4L IS USM + RF1.4x', #42
+            294 => 'Canon RF 600mm F4L IS USM + RF2x', #42
             295 => 'Canon RF 800mm F5.6L IS USM', #42
             296 => 'Canon RF 800mm F5.6L IS USM + RF1.4x', #42
             297 => 'Canon RF 800mm F5.6L IS USM + RF2x', #42
@@ -6867,6 +6883,10 @@ my %ciMaxFocal = (
             303 => 'Canon RF 135mm F1.8 L IS USM', #42
             304 => 'Canon RF 24-50mm F4.5-6.3 IS STM', #42
             305 => 'Canon RF-S 55-210mm F5-7.1 IS STM', #42
+            306 => 'Canon RF 100-300mm F2.8L IS USM', #42
+            307 => 'Canon RF 100-300mm F2.8L IS USM + RF1.4x', #42
+            308 => 'Canon RF 100-300mm F2.8L IS USM + RF2x', #42
+            313 => 'Canon RF 28mm F2.8 STM', #42
             # Note: add new RF lenses to %canonLensTypes with ID 61182
         },
     },

data/bin/lib/Image/ExifTool/FlashPix.pm

@@ -11,6 +11,7 @@
 #               4) http://msdn.microsoft.com/en-us/library/aa380374.aspx
 #               5) http://www.cpan.org/modules/by-authors/id/H/HC/HCARVEY/File-MSWord-0.1.zip
 #               6) https://msdn.microsoft.com/en-us/library/cc313153(v=office.12).aspx
+#               7) https://learn.microsoft.com/en-us/openspecs/office_file_formats/ms-oshared/3ef02e83-afef-4b6c-9585-c109edd24e07
 #------------------------------------------------------------------------------
 
 package Image::ExifTool::FlashPix;
@@ -21,7 +22,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::ASF;   # for GetGUID()
 
-$VERSION = '1.45';
+$VERSION = '1.46';
 
 sub ProcessFPX($$);
 sub ProcessFPXR($$$);
@@ -587,6 +588,7 @@ my %fpxFileType = (
         However, ExifTool will also extract any other information found in the
         UserDefined properties.
     },
+  # 0x01 => 'CodePage', #7
     0x02 => 'Category',
     0x03 => 'PresentationTarget',
     0x04 => 'Bytes',
@@ -631,12 +633,16 @@ my %fpxFileType = (
         Name => 'AppVersion',
         ValueConv => 'sprintf("%d.%.4d",$val >> 16, $val & 0xffff)',
     },
-  # 0x18 ? seen -1
+  # 0x18 ? seen -1 (DigitalSignature, VtDigSig format, ref 7)
   # 0x19 ? seen 0
   # 0x1a ? seen 0
   # 0x1b ? seen 0
   # 0x1c ? seen 0,1
   # 0x1d ? seen 1
+    0x1a => 'ContentType', #7, github#217
+    0x1b => 'ContentStatus', #7, github#217
+    0x1c => 'Language', #7, github#217
+    0x1d => 'DocVersion', #7, github#217
   # 0x1e ? seen 1
   # 0x1f ? seen 1,5
   # 0x20 ? seen 0,5

data/bin/lib/Image/ExifTool/FujiFilm.pm

@@ -31,7 +31,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 
-$VERSION = '1.88';
+$VERSION = '1.89';
 
 sub ProcessFujiDir($$$);
 sub ProcessFaceRec($$$);
@@ -670,6 +670,7 @@ my %faceCategories = (
             0x800 => 'Classic Negative', #forum10536
             0x900 => 'Bleach Bypass', #forum10890
             0xa00 => 'Nostalgic Neg', #forum12085
+            0xb00 => 'Reala ACE', #forum15190
         },
     },
     0x1402 => { #2
@@ -897,6 +898,8 @@ my %faceCategories = (
             25 => 'Aircraft Cockpit',
             26 => 'Train Front',
             27 => 'Train Cockpit',
+            28 => 'Animal Head (28)', #forum15192
+            29 => 'Animal Body (29)', #forum15192
         },'REPEAT'],
     },
     # 0x4202 int8u[-1] - number of cooredinates in each rectangle? (ref 11)

data/bin/lib/Image/ExifTool/Geotag.pm

@@ -1109,7 +1109,7 @@ sub SetGeoValues($$;$)
                     $iExt = $i1;
                 }
                 if (abs($time - $tn) > $geoMaxExtSecs) {
-                    $err or $err = 'Time is too far from nearest GPS fix';
+                    $err or $err = 'Time is too far from nearest GPS fix'.' '.abs($time-$tn).' '.$geoMaxExtSecs;
                     $et->VPrint(2, '  Nearest fix:     ', PrintFixTime($tn), "\n") if $verbose > 2;
                     $fix = { } if $$geotag{DateTimeOnly};
                 } else {