exiftool_vendored 12.50.0 → 12.52.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 6307caa0246ae796d5e7a5bc90c52dc9e927e7b94c679091e09e3572c7b12801
-  data.tar.gz: ec2f914fdf60d44885e3f1356d91a10e5fc7d3c8ba376ecf386ab9a6224dd364
+  metadata.gz: ba4ecb59460ff7222300e603360d0911cc1570510f754c02fe047d2f15792457
+  data.tar.gz: 5009d51c03eb7d9827e3fd0838f6303d3359320cc8ea92dbbb3418887e91a9c9
 SHA512:
-  metadata.gz: 292e0342e259f177bf0146a87494558252add6064609a47bfa92e1afea102771d00cec94ad036c6e6a1d460b545cb1f3d2760350a7007dc2142efb522291263c
-  data.tar.gz: 474e830728af874fe58565c33b6add3eba00bd6d9df1874834a2f4479186891ffb514deb56ee90cd1c8b1f4992a7134e6f117fe6004c47eb84152822776577b0
+  metadata.gz: f10977406b7799830c8d2e4292ed43bac78595b03deb80345486b22a8c87e1ce1d693c59839e7bb6000c271479756a9c3cea23a84501fdbaa19a97540eb6e709
+  data.tar.gz: df67d3fe0ec4b6a79354eb880c601eab994b578e439b05770a714bfd32642860e72706bb1a1bc430eb77e4ba4be17d7eabc02e4bdebcda97183a23dfbebd2b5b

data/bin/Changes

@@ -7,6 +7,43 @@ RSS feed: https://exiftool.org/rss.xml
 Note: The most recent production release is Version 12.50. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
+Dec. 6, 2022 - Version 12.52
+
+  - Added a few new Nikon LensID's (thanks LibRaw and Chris)
+  - Added Slovak translations (thanks Peter Bagin)
+  - Made SphericalVideoXML readable/writable as a block
+  - Improved handling of Matroska metadata tags, including language support
+  - Improved French translations (thanks Philippe Bonnaure of GraphicConverter)
+  - Improved Composite:GPSAltitude conversion to honour -lang setting
+  - Improved -v2 messages to indicate files extracted from zip archives
+
+Nov. 21, 2022 - Version 12.51
+
+  - Added a new Olympus LensType (thanks Herb)
+  - Extract C2PA JUMBF metadata from PNG images and extract C2PA Salt values
+  - Decode NikonSettings for Z9 firmware 3.0 (thanks Warren Hatch)
+  - Decode additional camm metadata from Insta360 Pro2 MP4 videos
+  - Improved Verbose output when writing Composite tags to add a "+" sign to
+    indicate related tags that are being written
+  - Enhanced -geotag option CSV format to support GPSImgDirection column
+  - Fixed problem where -w+ option didn't work in Windows if there were Unicode
+    characters in the path name
+  - Fixed problem where only the last image of the sequence was extracted
+    (multiple times) when using -ee2 to extract embedded images from FLIR SEQ
+    files
+  - Fixed issue where GPS reference directions may be unknowingly written when
+    using ExifTool 12.44 or later to write GPSLatitude or GPSLongitude without
+    specifying a group name.  The fix was to Avoid writing the Composite tags
+    unless the Composite group is specified explicitly
+  - Fixed -geotag to write orientation and track tags even if some tags in the
+    category were missing
+  - Fixed inconsistency in selecting which tag to output with the -json option
+    when multiple tags with the same JSON key exist and the -TAG# feature is
+    used to disable print conversion
+  - Fixed problem writing QuickTime:PlayListID
+  - Fixed problem writing QuickTime tags when specifying tag ID (ie. family 7
+    group) as well as a language code
+
 Nov. 8, 2022 - Version 12.50 (production release)
 
   - Added a new XMP-GCreations tag
@@ -209,6 +246,8 @@ June 1, 2022 - Version 12.42 (production release)
   - Patched to allow PDF Encrypt object to be "null"
   - Fixed bug reading ICC_Profile 'meta' tags
 
+History of older versions (back to Nov. 19, 2003 - Version 1.00) -->
+
 Apr. 7, 2022 - Version 12.41
 
   - Added support for "OM SYSTEM" maker notes
@@ -420,8 +459,6 @@ Aug. 12, 2021 - Version 12.30 (production release)
     currently can't be created)
   - Patched to remove 2 GB size limit when reading Photoshop ImageSourceData
 
-History of older versions (back to Nov. 19, 2003 - Version 1.00) -->
-
 July 9, 2021 - Version 12.29
 
   - Added a few new Nikon and Olympus lenses (thanks LibRaw)

data/bin/MANIFEST

@@ -323,6 +323,7 @@ lib/Image/ExifTool/Lang/ko.pm
 lib/Image/ExifTool/Lang/nl.pm
 lib/Image/ExifTool/Lang/pl.pm
 lib/Image/ExifTool/Lang/ru.pm
+lib/Image/ExifTool/Lang/sk.pm
 lib/Image/ExifTool/Lang/sv.pm
 lib/Image/ExifTool/Lang/tr.pm
 lib/Image/ExifTool/Lang/zh_cn.pm
@@ -646,6 +647,7 @@ t/Lang_15.out
 t/Lang_16.out
 t/Lang_17.out
 t/Lang_18.out
+t/Lang_19.out
 t/Lang_2.out
 t/Lang_3.out
 t/Lang_4.out

data/bin/META.json

@@ -47,5 +47,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "12.50"
+   "version" : "12.52"
 }

data/bin/META.yml

@@ -28,4 +28,4 @@ recommends:
   Time::HiRes: 0
 requires:
   perl: 5.004
-version: 12.50
+version: 12.52

data/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.50.tar.gz | tar -xf -
-  cd Image-ExifTool-12.50
+  gzip -dc Image-ExifTool-12.52.tar.gz | tar -xf -
+  cd Image-ExifTool-12.52
   ./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.50';
+my $version = '12.52';
 
 # add our 'lib' directory to the include list BEFORE 'use Image::ExifTool'
 BEGIN {
@@ -2351,7 +2351,8 @@ TAG:    foreach $tag (@foundTags) {
                 $group = $et->GetGroup($tag, $showGroup);
                 # look ahead to see if this tag may suppress a priority tag in
                 # the same group, and if so suppress this tag instead
-                next if $noDups and $tag =~ /^(.*?) \(/ and defined $$info{$1} and
+                # (note that the tag key may look like "TAG #(1)" when the "#" feature is used)
+                next if $noDups and $tag =~ /^(.*?) ?\(/ and defined $$info{$1} and
                         $group eq $et->GetGroup($1, $showGroup);
                 $group = 'Unknown' if not $group and ($xml or $json or $csv);
                 if ($fp and not ($allGroup or $csv)) {
@@ -2376,7 +2377,7 @@ TAG:    foreach $tag (@foundTags) {
                 }
             } elsif ($noDups) {
                 # don't allow duplicates, but avoid suppressing the priority tag
-                next if $tag =~ /^(.*?) \(/ and defined $$info{$1};
+                next if $tag =~ /^(.*?) ?\(/ and defined $$info{$1};
             }
 
             ++$lineCount;           # we are printing something meaningful
@@ -5474,7 +5475,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 12.50 --
+    -- Generated by ExifTool 12.52 --
     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

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

@@ -634,7 +634,7 @@ $VERSION = '1.38';
             15 => 'High Speed Best Selection',
             16 => 'Portrait',
             17 => 'Scenery',
-            18 => 'Portrait With Scenery',
+            18 => 'Portrait with Scenery',
             19 => 'Flower',
             20 => 'Natural Green',
             21 => 'Autumn Leaves',
@@ -723,7 +723,7 @@ $VERSION = '1.38';
             14 => 'High Speed Best Selection',
             15 => 'Portrait',
             16 => 'Scenery',
-            17 => 'Portrait With Scenery',
+            17 => 'Portrait with Scenery',
             18 => 'Flower',
             19 => 'Natural Green',
             20 => 'Autumn Leaves',
@@ -1408,7 +1408,7 @@ $VERSION = '1.38';
             0 => 'Off',
             1 => 'Portrait',
             2 => 'Scenery',
-            3 => 'Portrait With Scenery',
+            3 => 'Portrait with Scenery',
             4 => 'Children',
             5 => 'Sports',
             6 => 'Night Scene',

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

@@ -24,7 +24,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 
-$VERSION = '1.21';
+$VERSION = '1.22';
 
 sub ProcessFLIR($$;$);
 sub ProcessFLIRText($$$);
@@ -241,7 +241,8 @@ my %float8g = ( Format => 'float', PrintConv => 'sprintf("%.8g",$val)' );
     16.1 => {
         Name => 'RawThermalImage',
         Groups => { 2 => 'Preview' },
-        RawConv => '\$$self{RawThermalImage}',
+        # make a copy in case we want to extract more of them with -ee2
+        RawConv => 'my $copy = $$self{RawThermalImage}; \$copy',
     },
 );
 
@@ -272,7 +273,7 @@ my %float8g = ( Format => 'float', PrintConv => 'sprintf("%.8g",$val)' );
     },
     16.1 => {
         Name => 'GainDeadMapImage',
-        RawConv => '\$$self{GainDeadMapImage}',
+        RawConv => 'my $copy = \$$self{GainDeadMapImage}; \$copy',
     },
 );
 
@@ -303,7 +304,7 @@ my %float8g = ( Format => 'float', PrintConv => 'sprintf("%.8g",$val)' );
     },
     16.1 => {
         Name => 'CoarseMapImage',
-        RawConv => '\$$self{CoarseMapImage}',
+        RawConv => 'my $copy = \$$self{CoarseMapImage}; \$copy',
     },
 );
 
@@ -334,7 +335,7 @@ my %float8g = ( Format => 'float', PrintConv => 'sprintf("%.8g",$val)' );
     },
     20.1 => {
         Name => 'PaintImage',
-        RawConv => '\$$self{PaintImage}',
+        RawConv => 'my $copy = \$$self{PaintImage}; \$copy',
     },
 );
 

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

@@ -12,7 +12,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool::Exif;
 
-$VERSION = '1.54';
+$VERSION = '1.55';
 
 my %coordConv = (
     ValueConv    => 'Image::ExifTool::GPS::ToDegrees($val)',
@@ -407,12 +407,18 @@ my %coordConv = (
         # Require either GPS:GPSAltitudeRef or XMP:GPSAltitudeRef
         RawConv => '(defined $val[1] or defined $val[3]) ? $val : undef',
         ValueConv => q{
-            my $alt = $val[0];
-            $alt = $val[2] unless defined $alt;
-            return undef unless defined $alt and IsFloat($alt);
-            return(($val[1] || $val[3]) ? -$alt : $alt);
+            foreach (0,2) {
+                next unless defined $val[$_] and IsFloat($val[$_]) and defined $val[$_+1];
+                return $val[$_+1] ? -abs($val[$_]) : $val[$_];
+            }
+            return undef;
         },
         PrintConv => q{
+            foreach (0,2) {
+                next unless defined $val[$_] and IsFloat($val[$_]);
+                next unless defined $prt[$_+1] and $prt[$_+1] =~ /Sea/;
+                return((int($val[$_]*10)/10) . ' m ' . $prt[$_+1]);
+            }
             $val = int($val * 10) / 10;
             return(($val =~ s/^-// ? "$val m Below" : "$val m Above") . " Sea Level");
         },

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

@@ -29,7 +29,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:Public);
 use Image::ExifTool::GPS;
 
-$VERSION = '1.68';
+$VERSION = '1.69';
 
 sub JITTER() { return 2 }       # maximum time jitter
 
@@ -75,7 +75,8 @@ my %xmlTag = (
 );
 
 # fix information keys which must be interpolated around a circle
-my %cyclical = (lon => 1, track => 1, dir => 1, roll => 1);
+my %cyclical = (lon => 1, track => 1, dir => 1, pitch => 1, roll => 1);
+my %cyc180 = (lon => 1, pitch => 1, roll => 1); # wraps from 180 to -180
 
 # fix information keys for each of our general categories
 my %fixInfoKeys = (
@@ -88,6 +89,9 @@ my %fixInfoKeys = (
 
 my %isOrient = ( dir => 1, pitch => 1, roll => 1 ); # test for orientation key
 
+# tags which may exist separately in some formats (eg. CSV)
+my %sepTags = ( dir => 1, pitch => 1, roll => 1, track => 1, speed => 1 );
+
 # conversion factors for GPSSpeed
 my %speedConv = (
     'K' => 1.852,       # km/h per knot
@@ -276,6 +280,8 @@ sub LoadTrackLog($$;$)
                         $param = 'pitch';
                     } elsif (/^(Angle)?Roll/i) {
                         $param = 'roll';
+                    } elsif (/^Img ?Dir/i) {
+                        $param = 'dir';
                     }
                     if ($param) {
                         $et->VPrint(2, "CSV column '${_}' is $param\n");
@@ -496,6 +502,7 @@ DoneFix:    $isDate = 1;
                     $secs = $val;
                 } else {
                     $$fix{$param} = $val;
+                    $$has{$param} = 1 if $sepTags{$param};
                 }
             }
             # make coordinate negative according to reference direction if necessary
@@ -1101,6 +1108,7 @@ Category:       foreach $category (qw{pos track alt orient atemp}) {
                             next unless defined $v0 and defined $v1;
                             $f = $f0b;
                         } else {
+                            next if $sepTags{$key}; # (don't scan outwards for some formats, eg. CSV)
                             # scan outwards looking for fixes with the required information
                             # (NOTE: SHOULD EVENTUALLY DO THIS FOR EXTRAPOLATION TOO!)
                             my ($t0b, $t1b);
@@ -1127,8 +1135,8 @@ Category:       foreach $category (qw{pos track alt orient atemp}) {
                             # 360 degrees to the smaller angle before interpolating
                             $v0 < $v1 ? $v0 += 360 : $v1 += 360;
                             $$fix{$key} = $v1 * $f + $v0 * (1 - $f);
-                            # longitude and roll ranges are -180 to 180, others are 0 to 360
-                            my $max = ($key eq 'lon' or $key eq 'roll') ? 180 : 360;
+                            # some ranges are -180 to 180, others are 0 to 360
+                            my $max = $cyc180{$key} ? 180 : 360;
                             $$fix{$key} -= 360 if $$fix{$key} >= $max;
                         } else {
                             # simple linear interpolation

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

@@ -205,6 +205,7 @@ sub ProcessJPEG_HDR($$$);
         Name => 'JUMBF',
         Condition => '$$valPt =~ /^JP/',
         SubDirectory => { TagTable => 'Image::ExifTool::Jpeg2000::Main' },
+        # Note: The recommended options for reading C2PA JUMBF metadata are "-G3 -b -j -u"
     }],
     APP12 => [{
         Name => 'PictureInfo',

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

@@ -16,7 +16,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.32';
+$VERSION = '1.33';
 
 sub ProcessJpeg2000Box($$$);
 sub ProcessJUMD($$$);
@@ -418,6 +418,12 @@ my %j2cMarker = (
         Binary => 1,
         JUMBF_Suffix => 'Data', # (used when tag is renamed according to JUMDLabel)
     },
+    c2sh => { # used in JUMBF
+        Name => 'C2PASaltHash',
+        Format => 'undef',
+        ValueConv => 'unpack("H*",$val)',
+        JUMBF_Suffix => 'Salt', # (used when tag is renamed according to JUMDLabel)
+    },
 #
 # stuff seen in JPEG XL images:
 #
@@ -770,7 +776,22 @@ sub ProcessJUMD($$$)
         $et->HandleTag($tagTablePtr, 'sig', substr($$dataPt, $pos, 32));
         $pos += 32;
     }
-    $pos == $end or $et->Warn('Extra data in JUMD box'." $pos $end", 1);
+    my $more = $end - $pos;
+    if ($more) {
+        # (may find c2sh box hiding after JUMD record)
+        if ($more >= 8) {
+            my %dirInfo = (
+                DataPt   => $dataPt,
+                DataLen  => $$dirInfo{DataLen},
+                DirStart => $pos,
+                DirLen   => $more,
+                DirName  => 'JUMDPrivate',
+            );
+            $et->ProcessDirectory(\%dirInfo, GetTagTable('Image::ExifTool::Jpeg2000::Main'));
+        } else {
+            $et->Warn("Extra data in JUMD box $more bytes)", 1);
+        }
+    }
     return 1;
 }
 
@@ -902,7 +923,7 @@ sub ProcessJpeg2000Box($$$)
     my ($et, $dirInfo, $tagTablePtr) = @_;
     my $dataPt = $$dirInfo{DataPt};
     my $dataLen = $$dirInfo{DataLen};
-    my $dataPos = $$dirInfo{DataPos};
+    my $dataPos = $$dirInfo{DataPos} || 0;
     my $dirLen = $$dirInfo{DirLen} || 0;
     my $dirStart = $$dirInfo{DirStart} || 0;
     my $base = $$dirInfo{Base} || 0;

data/bin/lib/Image/ExifTool/Lang/de.pm

@@ -4149,7 +4149,7 @@ $VERSION = '1.36';
         'Auto' => 'Automatisch',
         'Continuous' => 'Serienaufnahme',
         'Custom' => 'Benutzerdefiniert',
-        'Face detect' => 'Gesichtserkennung AF',
+        'Face Detect' => 'Gesichtserkennung AF',
         'Infinity' => 'Unendlich',
         'Macro' => 'Makro',
         'Macro (1)' => 'Makro (1)',