exiftool-vendored.pl 12.39.0 → 12.42.0

package/bin/Changes

@@ -4,9 +4,74 @@ ExifTool Version History
 
 RSS feed: https://exiftool.org/rss.xml
 
-Note: The most recent production release is Version 12.30. (Other versions are
+Note: The most recent production release is Version 12.42. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
+June 1, 2022 - Version 12.42 (production release)
+
+  - Added support for reading maker notes from Panasonic DC-GH6 videos
+  - Added conversion for Samsung MCCData
+  - Added a new Nikon LensID (thanks Chris)
+  - Added a few new Canon LensType values
+  - Added a couple of new Olympus StackedImage values (thanks Eberhard)
+  - Added a few new values for some Nikon Settings tags (thanks Warren Hatch)
+  - Added a "lang:" element to the -json output for alternate language tags when
+    -D, -H or -t is used
+  - Update DNG writer to not issue an error when writing DNG 1.6 files
+  - Decode information from DJI "ae_dbg_info" maker notes
+  - Decode Olympus AISubjectTrackingMode
+  - Changed ExifTool FileSize print conversion to use kB/MB/GB units instead of
+    KiB/MiB/GiB
+  - Changed "is not shiftable" warning to appear in -v (instead of just -v3)
+    output
+  - Patched to allow PDF Encrypt object to be "null"
+  - Fixed bug reading ICC_Profile 'meta' tags
+
+Apr. 7, 2022 - Version 12.41
+
+  - Added support for "OM SYSTEM" maker notes
+  - Added 2 new Sony LensType values (thanks Jos Roost)
+  - Added some new Canon lenses (thanks LibRaw)
+  - Added a new Nikon LensID (thanks Bert Ligtvoet)
+  - Added a new Canon ContinuousDrive value (thanks Wolfgang Gulcker)
+  - Enhanced -v0 option to also print new file name when renaming, moving or
+    copying a file
+  - Updated xmp2exif.args and exif2xmp.args helper files to reflect the IPTC
+    Photometadata Mapping Guidelines version 2202.1
+  - Made "Invalid Xxx data" a minor warning for MakerNote data
+  - Patched to allow writing of MP4 videos which have other tracks with a
+    missing sample description entry
+  - Patched MacOS version to specify directory for external utilities (setfile,
+    xattr, stat, mdls and osascript from /usr/bin, and tag from /usr/local/bin)
+  - Fixed long-standing problem where Windows version could behave differently
+    for -if conditions containing undefined tags
+  - Fixed problem where -W+! combined with -j or -X produced invalid JSON or XML
+    when  processing multiple files
+  - Fixed potential "uninitialized value $time in division" runtime warning when
+    reading MP4 videos
+
+Feb. 9, 2022 - Version 12.40
+
+  - Added PageCount tag to return the number of pages in a multi-page TIFF
+  - Added a new Nikon LensID (thanks Wolfgang Exler)
+  - Added a few more Sony LensTypes (thanks Jos Roost)
+  - Decode some new Canon tags (thanks Mark Reid)
+  - Decode another Nikon Z9 tag (thanks Warren Hatch)
+  - Decode Nikon NKSC GPSImgDirection (thanks Olaf)
+  - Improved handling of empty XMP structures in lists
+  - Tolerate leading UTF-8 BOM in -geotag log files
+  - Updated photoshop_paths.config to include WorkingPath
+  - Patched to allow writing of MP4 videos which have url tracks with a missing
+    sample description entry
+  - Fixed deep recursion error when reading multi-page TIFF images with more
+    than 100 pages
+  - Fixed potential deep recursion runtime error when writing nested XMP
+    structures
+  - Fixed warning which could be generated when writing new
+    Composite:GPSCoordinates tag
+  - Fixed description of GPR (General Purpose RAW) file type
+  - Fixed typo in the name of a new Nikon tag (thanks Herb)
+
 Jan. 13, 2022 - Version 12.39
 
   - Added a new Pentax LensType (thanks Christian Shulz)

package/bin/MANIFEST

@@ -194,6 +194,7 @@ html/idiosyncracies.html
 html/index.html
 html/install.html
 html/metafiles.html
+html/mistakes.html
 html/overview.png
 html/standards.html
 html/struct.html

package/bin/META.json

@@ -47,6 +47,6 @@
       }
    },
    "release_status" : "stable",
-   "version" : "12.39",
+   "version" : "12.42",
    "x_serialization_backend" : "JSON::PP version 4.02"
 }

package/bin/META.yml

@@ -28,5 +28,5 @@ recommends:
   Time::HiRes: 0
 requires:
   perl: 5.004
-version: 12.39
+version: 12.42
 x_serialization_backend: 'JSON::PP version 4.02'

package/bin/README

@@ -107,8 +107,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.39.tar.gz | tar -xf -
-  cd Image-ExifTool-12.39
+  gzip -dc Image-ExifTool-12.42.tar.gz | tar -xf -
+  cd Image-ExifTool-12.42
   ./exiftool t/images/ExifTool.jpg
 
 Note:  These commands extract meta information from one of the test images. 

package/bin/arg_files/exif2xmp.args

@@ -12,8 +12,10 @@
 #               2013/06/12 - PH Additions for the Exif 2.3 for XMP spec
 #               2015/01/12 - PH Avoid copying to non-standard namespaces
 #               2018/05/07 - PH Added support for GPSDestXxxRef tags
+#               2022/03/31 - PH IPTC Photometadata Mapping Guidelines 2202.1 update
 #
 # References:   http://www.metadataworkinggroup.org/specs/
+#               https://iptc.org/std/photometadata/documentation/mappingguidelines/
 #
 # Notes:     1) The first three arguments copy most of the EXIF and GPS tags to
 #               XMP-exif/XMP-tiff, and the remaining arguments handle tags
@@ -22,6 +24,8 @@
 #            2) These arguments will not delete existing XMP tags which are
 #               missing from the EXIF.  The XMP tags should be deleted
 #               beforehand if required.
+#
+#            3) EXIF:SubjectArea is not currently mapped into XMP-iptcExt:ImageRegion
 #------------------------------------------------------------------------------
 -XMP-exif:all < EXIF:all
 -XMP-exifEX:all < EXIF:all
@@ -37,6 +41,7 @@
 -XMP-xmp:CreatorTool < EXIF:Software
 -XMP-dc:Rights < EXIF:Copyright
 -XMP-dc:Creator < EXIF:Artist
+-XMP-iptcExt:DigitalImageGUID < EXIF:DigImageGUID
 # XMP flash information is translated by the Composite Flash tag
 -Composite:Flash < EXIF:Flash
 # overwrite GPS tags which have different formats in XMP

package/bin/arg_files/xmp2exif.args

@@ -14,8 +14,10 @@
 #               2016/09/26 - PH Write Composite SubSec tags
 #               2018/05/07 - PH Added support for GPSDestXxxRef tags
 #               2021/09/30 - PH Removed erroneous "-" when copying CreatorTool
+#               2022/03/31 - PH IPTC Photometadata Mapping Guidelines 2202.1 update
 #
 # References:   http://www.metadataworkinggroup.org/specs/
+#               https://iptc.org/std/photometadata/documentation/mappingguidelines/
 #
 # Notes:     1) The first three arguments copy the bulk of the EXIF and GPS
 #               information, and the remaining arguments handle the tags
@@ -24,6 +26,8 @@
 #            2) These arguments will not delete existing EXIF tags which are
 #               missing from the XMP.  The EXIF tags should be deleted
 #               beforehand if required.
+#
+#            3) XMP-iptcExt:ImageRegion is not currently mapped into EXIF:SubjectArea
 #------------------------------------------------------------------------------
 -EXIF:all < XMP-exif:all
 -EXIF:all < XMP-exifEX:all
@@ -37,7 +41,9 @@
 -Composite:SubSecModifyDate < XMP-xmp:ModifyDate
 -EXIF:Software < XMP-xmp:CreatorTool
 -EXIF:Copyright < XMP-dc:Rights
+-EXIF:Artist < XMP-plus:ImageCreatorName
 -EXIF:Artist < XMP-dc:Creator
+-EXIF:DigImageGUID < XMP-iptcExt:DigitalImageGUID
 # XMP flash information is translated by the Composite Flash tag
 -EXIF:Flash < Composite:Flash
 # generate GPS tags which have been combined into other XMP tags

package/bin/config_files/acdsee.config

@@ -97,8 +97,8 @@ my %sACDSeeRegionStruct = (
     # new XMP namespaces for ACDSee regions
     'Image::ExifTool::XMP::Main' => {
         'acdsee-rs' => { # <-- must be the same as the NAMESPACE prefix
-            SubDirectory => { 
-                TagTable => 'Image::ExifTool::UserDefined::ACDSeeRegions' 
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::UserDefined::ACDSeeRegions'
             },
         },
     },
@@ -147,7 +147,7 @@ my %sACDSeeRegionStruct = (
             },
             ValueConv => q{
                 my ($rgn, @newRgns);
-                my $rgns = ref $val[0] eq 'ARRAY' ? $val[0] : [ $val[0] ]; 
+                my $rgns = ref $val[0] eq 'ARRAY' ? $val[0] : [ $val[0] ];
                 foreach $rgn (@$rgns) {
                     my %newRgn = ( Type => 'Face' );
                     if ($$rgn{RegionBoundary} and $$rgn{RegionBoundary}{RbShape} eq 'rectangle') {
@@ -220,13 +220,13 @@ my %sACDSeeRegionStruct = (
         # the "Struct" entry defines the structure fields
         Struct => {
             # optional structure name (used for warning messages only)
-            STRUCT_NAME => 'ACDSee RegionInfo',        
+            STRUCT_NAME => 'ACDSee RegionInfo',
             RegionList => {
                 FlatName => 'Region',
                 Struct => \%sACDSeeRegionStruct,
                 List => 'Bag',
             },
-            AppliedToDimensions => { 
+            AppliedToDimensions => {
             FlatName => 'RegionAppliedToDimensions',Struct => \%sACDSeeDimensions },
         },
     },
@@ -239,7 +239,7 @@ my %sACDSeeRegionStruct = (
     RegionInfoACDSeeAppliedToDimensionsW        => 'ACDSeeRegionAppliedToDimensionsW',
     RegionInfoACDSeeRegionListDLYAreaH          => 'ACDSeeRegionDLYAreaH',
     RegionInfoACDSeeRegionListDLYAreaW          => 'ACDSeeRegionDLYAreaW',
-    RegionInfoACDSeeRegionListDLYAreaX          => 'ACDSeeRegionDLYAreaX',  
+    RegionInfoACDSeeRegionListDLYAreaX          => 'ACDSeeRegionDLYAreaX',
     RegionInfoACDSeeRegionListDLYAreaY          => 'ACDSeeRegionDLYAreaY',
     RegionInfoACDSeeRegionListALGAreaH          => 'ACDSeeRegionALGAreaH',
     RegionInfoACDSeeRegionListALGAreaW          => 'ACDSeeRegionALGAreaW',

package/bin/config_files/photoshop_paths.config

@@ -34,15 +34,15 @@
 # Usage:
 #
 #   1) Extract Photoshop path names:
-# 
+#
 #      exiftool -config photoshop_paths.config -allpaths FILE
 #
 #   2) Extract Photoshop path names and anchor points:
-# 
+#
 #      exiftool -config photoshop_paths.config -userparam anchor -allpaths FILE
 #
 #   3) Extract Photoshop path anchor points only:
-# 
+#
 #      exiftool -config photoshop_paths.config -userparam anchoronly -allpaths FILE
 #
 #   4) Copy all Photoshop paths from one file (SRC) to another (DST):
@@ -68,6 +68,7 @@
 #                               subpath respectively
 #               2017/06/03 - PH Added TotalPathPoints
 #               2017/07/17 - PH Added UniquePathPoints
+#               2022/02/03 - PH Added WorkingPath and WorkingPathPix
 #
 # References:   https://exiftool.org/forum/index.php/topic,1621.0.html
 #               https://exiftool.org/forum/index.php/topic,3910.0.html
@@ -77,10 +78,11 @@
 # Print Photoshop path name and/or anchor points
 # Inputs: 0) reference to Photoshop path data, 1) ExifTool object reference
 #         2-3) optional image width/height to convert anchor points to pixels
+#         4) optional path name
 # Returns: String with name and/or Bezier knot anchor points
-sub PrintPath($$;$$)
+sub PrintPath($$;$$$)
 {
-    my ($val, $et, $w, $h) = @_;
+    my ($val, $et, $w, $h, $nm) = @_;
     my ($pos, $name, @rtn);
     my $len = length($$val) - 26;
 
@@ -88,8 +90,9 @@ sub PrintPath($$;$$)
     if ($$val =~ m{.*/#(.{0,255})#/$}s) {
         $name = $1;
         $len -= length($1) + 4;
+        $name = $nm if defined $nm and not length $name;
     } else {
-        $name = '<none>';
+        $name = defined $nm ? $nm : '<none>';
     }
     my $anchorOnly = $et->Options(UserParam => 'AnchorOnly');
     push @rtn, $name unless $anchorOnly;
@@ -118,7 +121,7 @@ sub PrintPath($$;$$)
 }
 
 %Image::ExifTool::Shortcuts::UserDefined = (
-    # create "AllPaths" shortcut for all Photoshop path tags
+    # create "AllPaths" shortcut for all Photoshop path tags (except WorkingPath)
     AllPaths => [
         map { sprintf "Path%x", $_ } (0x7d0 .. 0xbb5),
     ],
@@ -133,6 +136,14 @@ sub PrintPath($$;$$)
             Name => 'OriginPathInfo',
             Flags => [ qw(Writable Protected Binary SetResourceName) ],
         },
+        0x401 => {
+            Name => 'WorkingPath',
+            Flags => [ qw(Writable Protected Binary ConvertBinary SetResourceName) ],
+            PrintConv => sub {
+                my ($val, $et) = @_;
+                PrintPath($val, $et, undef, undef, 'Work Path');
+            },
+        },
         # generate tags for each of the 998 possible Photoshop paths
         map { $_ => {
             Name => sprintf('Path%x', $_),
@@ -143,6 +154,7 @@ sub PrintPath($$;$$)
     },
     'Image::ExifTool::Composite' => {
         PathCount => {
+            # (PathCount statistics do not include WorkingPath)
             Desire => {
                 map { $_-0x7d0 => sprintf('Path%x', $_) } (0x7d0 .. 0xbb5),
             },
@@ -180,6 +192,17 @@ sub PrintPath($$;$$)
             Require => 'PathCount',
             ValueConv => '$$self{TotalPathPoints}',
         },
+        WorkingPathPix => {
+            Require => {
+                0 => 'ImageWidth',
+                1 => 'ImageHeight',
+                2 => 'WorkingPath',
+            },
+            ValueConv => sub {
+                my ($val, $et) = @_;
+                PrintPath($$val[2], $et, $$val[0], $$val[1], 'Work Path');
+            },
+        },
         map { sprintf('PathPix%x', $_) => {
             Require => {
                 0 => 'ImageWidth',

package/bin/config_files/picasa_faces.config

@@ -63,7 +63,7 @@
 #               2015/05/12 - PH Minor code tweaks
 #               2015/10/26 - BKW Round off area sizes to 7 decimal places
 #               2016/01/18 - BKW Improved rounding algorithm
-#               2016/05/14 - BKW Increased rounding to 9 decimal places (Max Picasa accepts), 
+#               2016/05/14 - BKW Increased rounding to 9 decimal places (Max Picasa accepts),
 #                            moved rounding operation to subroutine
 #
 # References:   https://exiftool.org/forum/index.php/topic,6354.0.html

package/bin/config_files/pix4d.config

@@ -16,13 +16,13 @@
 
 %Image::ExifTool::UserDefined = (
     'Image::ExifTool::XMP::Main' => {
-        Camera => { 
+        Camera => {
             SubDirectory => {
                 TagTable => 'Image::ExifTool::UserDefined::Camera',
             },
         },
     },
-); 
+);
 
 %Image::ExifTool::UserDefined::Camera = (
     GROUPS => { 0 => 'XMP', 1 => 'XMP-Camera', 2 => 'Camera' },

package/bin/config_files/tiff_version.config

@@ -68,9 +68,9 @@ sub has_defined {
                 35 => 'EXIF:TransferRange',             # TransferRange (342/0x0156)
                 36 => 'EXIF:YCbCrCoefficients',         # YCbCrCoefficients (529/0x0211)
                 37 => 'EXIF:YCbCrPositioning',          # YCbCrPositioning (531/0x0213)
-                38 => 'EXIF:YCbCrSubSampling',          # YCbCrSubSampling (530/0x0212) 
+                38 => 'EXIF:YCbCrSubSampling',          # YCbCrSubSampling (530/0x0212)
             # Other tags to check
-                39 => 'EXIF:PhotometricInterpretation', # PhotometricInterpretation (262/0x0106) 
+                39 => 'EXIF:PhotometricInterpretation', # PhotometricInterpretation (262/0x0106)
                 40 => 'EXIF:Compression',               # Compression (259/0x0103)
             },
             ValueConv => q{

package/bin/exiftool

@@ -8,9 +8,10 @@
 #               (See html/history.html for revision history)
 #------------------------------------------------------------------------------
 use strict;
+use warnings;
 require 5.004;
 
-my $version = '12.39';
+my $version = '12.42';
 
 # add our 'lib' directory to the include list BEFORE 'use Image::ExifTool'
 BEGIN {
@@ -109,6 +110,8 @@ my %database;       # lookup for database information based on file name (in Exi
 my %filterExt;      # lookup for filtered extensions
 my %ignore;         # directory names to ignore
 my $ignoreHidden;   # flag to ignore hidden files
+my %outComma;       # flag that output text file needs a comma
+my %outTrailer;     # trailer for output text file
 my %preserveTime;   # preserved timestamps for files
 my %printFmt;       # the contents of the print format file
 my %setTags;        # hash of list references for tags to set from files
@@ -441,6 +444,8 @@ undef %database;
 undef %endDir;
 undef %filterExt;
 undef %ignore;
+undef %outComma;
+undef %outTrailer;
 undef %printFmt;
 undef %preserveTime;
 undef %setTags;
@@ -1821,8 +1826,21 @@ if ($filtered and not $validFile) {
 PrintCSV() if $csv and not $isWriting;
 
 # print folder/file trailer if necessary
-print $sectTrailer if $sectTrailer and not $textOut;
-print $fileTrailer if $fileTrailer and not $textOut and not $fileHeader;
+if ($textOut) {
+    foreach (keys %outTrailer) {
+        next unless $outTrailer{$_};
+        if ($mt->Open(\*OUTTRAIL, $_, '>>')) {
+            my $fp = \*OUTTRAIL;
+            print $fp $outTrailer{$_};
+            close $fp;
+        } else {
+            Error("Error appending to $_\n");
+        }
+    }
+} else {
+    print $sectTrailer if $sectTrailer;
+    print $fileTrailer if $fileTrailer and not $fileHeader;
+}
 
 my $totWr = $countGoodWr + $countBadWr + $countSameWr + $countCopyWr +
             $countGoodCr + $countBadCr;
@@ -2160,6 +2178,9 @@ sub GetImageInfo($$)
         $tmpText = $outfile unless $append;
     }
 
+    # restore state of comma flag for this file if appending
+    $comma = $outComma{$outfile} if $append and ($textOverwrite & 0x02);
+
     # print the results for this file
     if (%printFmt) {
         # output using print format file (-p) option
@@ -2221,7 +2242,7 @@ sub GetImageInfo($$)
         if ($fp) {
             # print file header (only once)
             if ($fileHeader) {
-                print $fp $fileHeader;
+                print $fp $fileHeader unless defined $outfile and ($created{$outfile} or $appended{$outfile});
                 undef $fileHeader unless $textOut;
             }
             if ($html) {
@@ -2533,8 +2554,9 @@ TAG:    foreach $tag (@foundTags) {
                 if ($showTagID or $outFormat < 0) {
                     $val = { val => $val };
                     if ($showTagID) {
-                        my $id = $et->GetTagID($tag);
+                        my ($id, $lang) = $et->GetTagID($tag);
                         $id = sprintf('0x%.4x', $id) if $showTagID eq 'H' and $id =~ /^\d+$/;
+                        $$val{lang} = $lang if $lang;
                         $$val{id} = $id;
                     }
                     if ($tabFormat) {
@@ -2674,9 +2696,17 @@ TAG:    foreach $tag (@foundTags) {
         }
     }
     if ($outfile) {
-        # write section and file trailers before closing the file
-        print $fp $sectTrailer and $sectTrailer = '' if $sectTrailer;
-        print $fp $fileTrailer if $fileTrailer;
+        if ($textOverwrite & 0x02) {
+            # save state of this file if we may be appending
+            $outComma{$outfile} = $comma;
+            $outTrailer{$outfile} = '';
+            $outTrailer{$outfile} .= $sectTrailer and $sectTrailer = '' if $sectTrailer;
+            $outTrailer{$outfile} .= $fileTrailer if $fileTrailer;
+        } else {
+            # write section and file trailers before closing the file
+            print $fp $sectTrailer and $sectTrailer = '' if $sectTrailer;
+            print $fp $fileTrailer if $fileTrailer;
+        }
         close($fp);
         undef $tmpText;
         if ($lineCount) {
@@ -2926,7 +2956,7 @@ sub SetImageInfo($$$)
             }
         }
         if (defined $outfile) {
-            $verbose and print $vout "'${infile}' --> '${outfile}'\n";
+            defined $verbose and print $vout "'${infile}' --> '${outfile}'\n";
             # create output directory if necessary
             CreateDirectory($outfile);
             # set temporary file (automatically erased on abnormal exit)
@@ -5136,13 +5166,14 @@ The following examples demonstrate basic use of the B<-csv> option:
     # update metadata for all images in a directory from CSV file
     exiftool -csv=a.csv dir
 
-Empty values are ignored when importing (unless the B<-f> option is used and
-the API MissingTagValue is set to an empty string, in which case the tag is
+When importing, empty values are ignored unless the B<-f> option is used and
+the API MissingTagValue is set to an empty string (in which case the tag is
 deleted).  Also, FileName and Directory columns are ignored if they exist
-(ie. ExifTool will not attempt to write these tags with a CSV import).  To
-force a tag to be deleted, use the B<-f> option and set the value to "-" in
-the CSV file (or to the MissingTagValue if this API option was used).
-Multiple databases may be imported in a single command.
+(ie. ExifTool will not attempt to write these tags with a CSV import), but
+all other columns are imported.  To force a tag to be deleted, use the B<-f>
+option and set the value to "-" in the CSV file (or to the MissingTagValue
+if this API option was used).  Multiple databases may be imported in a
+single command.
 
 When exporting a CSV file, the B<-g> or B<-G> option adds group names to the
 tag headings.  If the B<-a> option is used to allow duplicate tag names, the
@@ -5436,7 +5467,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 12.39 --
+    -- Generated by ExifTool 12.42 --
     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
@@ -5555,7 +5586,9 @@ level greater than 0, most other options are ignored and normal console
 output is suppressed unless specific tags are extracted.  Using B<-v0>
 causes the console output buffer to be flushed after each line (which may be
 useful to avoid delays when piping exiftool output), and prints the name of
-each processed file when writing.  Also see the B<-progress> option.
+each processed file when writing and the new file name when renaming,
+moving or copying.  Verbose levels above B<-v0> do not flush after each
+line.  Also see the B<-progress> option.
 
 =item B<-w>[+|!] I<EXT> or I<FMT> (B<-textOut>)
 
@@ -5768,11 +5801,10 @@ an XMP extension for the output file.
 =item B<-a>, B<--a> (B<-duplicates>, B<--duplicates>)
 
 Allow (B<-a>) or suppress (B<--a>) duplicate tag names to be extracted.  By
-default, duplicate tags are suppressed when reading unless the B<-ee> or
-B<-X> options are used or the Duplicates option is enabled in the
-configuration file. This option has an affect when writing only to allow
-duplicate Warning messages to be shown.  Duplicate tags are always extracted
-when copying.
+default, duplicate tags are suppressed when reading unless the B<-ee> or B<-X>
+options are used or the Duplicates option is enabled in the configuration file.
+When writing, this option allows multiple Warning messages to be shown.
+Duplicate tags are always extracted when copying.
 
 =item B<-e> (B<--composite>)