exiftool_vendored 13.04.0 → 13.06.0

data/bin/lib/Image/ExifTool/TagNames.pod

@@ -12,7 +12,7 @@ meta information extracted from or written to a file.
 =head1 TAG TABLES
 
 The tables listed below give the names of all tags recognized by ExifTool.
-They contain a total of 28187 tags, with 17502 unique tag names.
+They contain a total of 28212 tags, with 17509 unique tag names.
 
 B<Tag ID>, B<Index#> or B<Sequence> is given in the first column of each
 table.  A B<Tag ID> is the computer-readable equivalent of a tag name, and
@@ -115,6 +115,7 @@ L<https://www.w3.org/Graphics/JPEG/jfif3.pdf> for the JPEG specification.
                FPXR                             FlashPix
                MPF                              MPF
                InfiRayVersion                   InfiRay Version
+               UniformResourceName              no
                PreviewImage                     no
   'APP3'       Meta                             Kodak Meta
                Stim                             Stim
@@ -152,6 +153,7 @@ L<https://www.w3.org/Graphics/JPEG/jfif3.pdf> for the JPEG specification.
                InfiRaySensor                    InfiRay Sensor
                SEAL                             XMP SEAL
   'APP10'      Comment                          no
+               HDRGainCurve                     no
   'APP11'      JPEG-HDR                         JPEG HDR
                JUMBF                            Jpeg2000
   'APP12'      PictureInfo                      APP12 PictureInfo
@@ -1370,6 +1372,7 @@ L<http://www.adobe.com/devnet/xmp/> for the official XMP specification.
   acdsee                                        XMP acdsee
   acdsee-rs                                     XMP ACDSeeRegions
   album                                         XMP Album
+  apdi                                          XMP apdi
   apple-fi                                      XMP apple_fi
   ast                                           Nikon ast
   aux                                           XMP aux
@@ -1402,6 +1405,7 @@ L<http://www.adobe.com/devnet/xmp/> for the official XMP specification.
   GPano                                         XMP GPano
   GSpherical                                    XMP GSpherical
   hdr                                           XMP hdr
+  HDRGainMap                                    XMP HDRGainMap
   hdrgm                                         XMP hdrgm
   ics                                           XMP ics
   iptcCore                                      XMP iptcCore
@@ -1584,6 +1588,18 @@ These tags belong to the ExifTool XMP-album family 1 group.
   --------                                      --------
   Notes                                         string
 
+=head3 XMP apdi Tags
+
+Used in Apple HDR GainMap images.
+
+These tags belong to the ExifTool XMP-apdi family 1 group.
+
+  Tag Name                                      Writable
+  --------                                      --------
+  AuxiliaryImageType                            string
+  NativeFormat                                  string
+  StoredFormat                                  string
+
 =head3 XMP apple_fi Tags
 
 Face information tags written by the Apple iPhone 5 inside the mwg-rs
@@ -5030,6 +5046,16 @@ These tags belong to the ExifTool XMP-hdr family 1 group.
   CCVWhiteXY                                    string
   SceneReferred                                 boolean
 
+=head3 XMP HDRGainMap Tags
+
+Used in Apple HDR GainMap images.
+
+These tags belong to the ExifTool XMP-HDRGainMap family 1 group.
+
+  Tag Name                                      Writable
+  --------                                      --------
+  HDRGainMapVersion                             string
+
 =head3 XMP hdrgm Tags
 
 Tags used in Adobe gain map images.
@@ -12912,6 +12938,35 @@ Thermal parameters extracted from APP4 of some DJI RJPEG files.
       8    Emissivity                           no
      10    ReflectedTemperature                 no
 
+=head3 DJI Protobuf Tags
+
+Tags found in protobuf-format DJI meta djmd and dbgi timed metadata.  Only a
+few tags are currently known, but unknown djmd tags may be extracted by
+setting the Unknown option to 1 (or 2 to also extract unknown dbgi debug
+tags).  Tag ID's are composed of the corresponding .proto file name combined
+with the hierarchical protobuf field numbers.  The "dvtm_AVATA2.proto" file
+is used by the DJI Avanta 2, and "dvtm_ac203.proto" by the OsmoAction4.
+
+  Tag ID                  Tag Name              Writable
+  ------                  --------              --------
+  'Protocol'              Protocol              no
+  'dvtm_AVATA2_1-1-10'    Model                 no
+  'dvtm_AVATA2_2-2-3-1'   SerialNumber          no
+  'dvtm_AVATA2_2-3-1'     FrameWidth            no
+  'dvtm_AVATA2_2-3-2'     FrameHeight           no
+  'dvtm_AVATA2_2-3-3'     FrameRate             no
+  'dvtm_AVATA2_3-1-2'     TimeStamp             no
+  'dvtm_AVATA2_3-4-4-1-2' GPSLatitude           no
+  'dvtm_AVATA2_3-4-4-1-3' GPSLongitude          no
+  'dvtm_ac203_1-1-10'     Model                 no
+  'dvtm_ac203_2-3-1'      FrameWidth            no
+  'dvtm_ac203_2-3-2'      FrameHeight           no
+  'dvtm_ac203_2-3-3'      FrameRate             no
+  'dvtm_ac203_3-4-2-1-2'  GPSLatitude           no
+  'dvtm_ac203_3-4-2-1-3'  GPSLongitude          no
+  'dvtm_ac203_3-4-2-2'    GPSAltitude           no
+  'dvtm_ac203_3-4-2-6-1'  GPSDateTime           no
+
 =head2 FLIR Tags
 
 Information extracted from the maker notes of JPEG images from thermal
@@ -24770,7 +24825,9 @@ L<https://github.com/gopro/gpmf-parser> for details about this format.
   'UNIT'   Units?                               no
   'VERS'   MetadataVersion                      no
   'VFOV'   FieldOfView                          no
+  'VFPS'   VideoFrameRate                       no
   'VFRH'   VisualFlightRulesHUD                 no
+  'VRES'   VideoFrameSize                       no
   'WBAL'   ColorTemperatures                    no
   'WNDM'   WindProcessing                       no
   'WRGB'   WhiteBalanceRGB                      no
@@ -29962,7 +30019,7 @@ for the official QuickTime specification.
 The tags below are extracted from timed metadata in QuickTime and other
 formats of video files when the ExtractEmbedded option is used.  Although
 most of these tags are combined into the single table below, ExifTool
-currently reads 82 different formats of timed GPS metadata from video files.
+currently reads 85 different formats of timed GPS metadata from video files.
 
   Tag Name                                      Writable
   --------                                      --------
@@ -29973,6 +30030,8 @@ currently reads 82 different formats of timed GPS metadata from video files.
   CameraDateTime                                no
   CameraModel                                   no
   Car                                           no
+  DJIDebug?                                     DJI Protobuf
+  DJIMetadata                                   DJI Protobuf
   DateTimeOriginal                              no
   DateTimeStamp                                 no
   Distance                                      no

data/bin/lib/Image/ExifTool/Writer.pl

@@ -2194,7 +2194,7 @@ sub SetSystemTags($$)
         } elsif (ref $file) {
             $self->Warn('Writing ZoneIdentifer requires a file name');
         } elsif (defined $self->GetNewValue('ZoneIdentifier', \$zhash)) {
-            $self->Warn('ZoneIndentifier may only be delted');
+            $self->Warn('ZoneIndentifier may only be deleted');
         } elsif (not eval { require Win32API::File }) {
             $self->Warn('Install Win32API::File to write ZoneIdentifier');
         } else {

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

@@ -50,7 +50,7 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 require Exporter;
 
-$VERSION = '3.69';
+$VERSION = '3.70';
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(EscapeXML UnescapeXML);
 
@@ -207,6 +207,8 @@ my %xmpNS = (
     # Note: Google uses a prefix of 'Container', but this conflicts with the
     # Device Container namespace, also by Google.  So call this one GContainer
     GContainer=> 'http://ns.google.com/photos/1.0/container/',
+    HDRGainMap=> 'http://ns.apple.com/HDRGainMap/1.0/',
+    apdi      => 'http://ns.apple.com/pixeldatainfo/1.0/',
 );
 
 # build reverse namespace lookup
@@ -934,6 +936,14 @@ my %sRangeMask = (
         Name => 'xmpDSA',
         SubDirectory => { TagTable => 'Image::ExifTool::Panasonic::DSA' },
     },
+    HDRGainMap => {
+        Name => 'HDRGainMap',
+        SubDirectory => { TagTable => 'Image::ExifTool::XMP::HDRGainMap' },
+    },
+    apdi => {
+        Name => 'apdi',
+        SubDirectory => { TagTable => 'Image::ExifTool::XMP::apdi' },
+    },
     seal => {
         Name => 'seal',
         SubDirectory => { TagTable => 'Image::ExifTool::XMP::seal' },

data/bin/lib/Image/ExifTool/XMP2.pl

@@ -2250,6 +2250,44 @@ my %sACDSeeRegionStruct = (
     Gamma               => { Writable => 'real', List => 'Seq', Avoid => 1 },
 );
 
+%Image::ExifTool::XMP::HDRGainMap = (
+    %xmpTableDefaults,
+    GROUPS => { 1 => 'XMP-HDRGainMap', 2 => 'Unknown' },
+    NAMESPACE   => 'HDRGainMap',
+    NOTES => 'Used in Apple HDR GainMap images.',
+    HDRGainMapVersion => {
+        PrintConv => 'IsInt($val) ? join(".",unpack("C*", pack "N", $val)) : $val',
+        PrintConvInv => q{
+            return $val unless $val =~ /^\d+\.\d+\.\d+\.\d+$/;
+            return unpack('N', pack('C*', split /\./, $val));
+        },
+    },
+);
+
+%Image::ExifTool::XMP::apdi = (
+    %xmpTableDefaults,
+    GROUPS => { 1 => 'XMP-apdi', 2 => 'Image' },
+    NAMESPACE   => 'apdi',
+    NOTES => 'Used in Apple HDR GainMap images.',
+    NativeFormat => {
+        PrintConv => q{
+            return $val unless IsInt($val);
+            my $tmp = pack("N", $val);
+            $tmp =~ /^\w{4}$/ ? $tmp : $val;
+        },
+        PrintConvInv => '$val =~ /^\w{4}$/ ? unpack("N", $val) : $val',
+    },
+    AuxiliaryImageType => { },
+    StoredFormat => {
+        PrintConv => q{
+            return $val unless IsInt($val);
+            my $tmp = pack("N", $val);
+            $tmp =~ /^\w{4}$/ ? $tmp : $val;
+        },
+        PrintConvInv => '$val =~ /^\w{4}$/ ? unpack("N", $val) : $val',
+    },
+);
+
 # SVG namespace properties (ref 9)
 %Image::ExifTool::XMP::SVG = (
     GROUPS => { 0 => 'SVG', 1 => 'SVG', 2 => 'Image' },

data/bin/lib/Image/ExifTool.pm

@@ -29,7 +29,7 @@ use vars qw($VERSION $RELEASE @ISA @EXPORT_OK %EXPORT_TAGS $AUTOLOAD @fileTypes
             %jpegMarker %specialTags %fileTypeLookup $testLen $exeDir
             %static_vars $advFmtSelf);
 
-$VERSION = '13.04';
+$VERSION = '13.06';
 $RELEASE = '';
 @ISA = qw(Exporter);
 %EXPORT_TAGS = (
@@ -2763,10 +2763,16 @@ sub ExtractInfo($;@)
                 if ($$req{filepath} or
                    ($reqAll and not $$self{EXCL_TAG_LOOKUP}{filepath}))
                 {
+                    my $path;
                     local $SIG{'__WARN__'} = \&SetWarning;
-                    if (eval { require Cwd }) {
-                        my $path = eval { Cwd::abs_path($filename) };
-                        $self->FoundTag('FilePath', $path) if defined $path;
+                    if ($^O eq 'MSWin32' and $$options{WindowsLongPath}) {
+                        $path = $self->WindowsLongPath($filename);
+                    } elsif (eval { require Cwd }) {
+                        $path = eval { Cwd::abs_path($filename) };
+                    }
+                    if (defined $path) {
+                        $path =~ tr/\\/\// if $^O eq 'MSWin32'; # return forward slashes
+                        $self->FoundTag('FilePath', $path);
                     } elsif ($$req{filepath}) {
                         $self->WarnOnce('The Perl Cwd module must be installed to use FilePath');
                     }
@@ -4633,8 +4639,7 @@ sub EncodeFileName($$;$)
             }
         }
     }
-    $force = 1 if $$self{OPTIONS}{WindowsWideFile} or $$self{OPTIONS}{WindowsLongPath};
-    if ($hasSpecialChars or $force) {
+    if ($hasSpecialChars or $force or $$self{OPTIONS}{WindowsLongPath} or $$self{OPTIONS}{WindowsWideFile}) {
         $enc or $enc = 'UTF8';
         if ($^O eq 'MSWin32') {
             local $SIG{'__WARN__'} = \&SetWarning;
@@ -4655,8 +4660,8 @@ sub EncodeFileName($$;$)
 
 #------------------------------------------------------------------------------
 # Rebuild a path as an absolute long path to be usable in Windows system calls
-# Inputs: 0) ExifTool ref, 1) path string
-# Returns: normalized long path
+# Inputs: 0) ExifTool ref, 1) path string (CharsetFileName)
+# Returns: normalized long path (CharsetFileName)
 # Note: this should only be called for Windows systems
 # References:
 # - https://learn.microsoft.com/en-us/dotnet/standard/io/file-path-formats
@@ -4675,12 +4680,25 @@ sub WindowsLongPath($$)
     my ($self, $path) = @_;
     my $debug = $$self{OPTIONS}{Debug};
     my $out = $$self{OPTIONS}{TextOut};
+    my $suffix = '';
+    my $longPath;
+
+    # remove common suffixes to make cache more effective
+    if ($path =~ s/(_original|_exiftool_tmp|:Zone\.Identifier)$//) {
+        $suffix = $1;
+        if (not length $path or $path =~ m([:./\\]$)) {
+            # don't remove suffix if it could be the whole file name
+            $path .= $suffix;
+            $suffix = '';
+        }
+    }
+    return $$self{LONG_PATH_OUT}.$suffix if defined $$self{LONG_PATH_IN} and $$self{LONG_PATH_IN} eq $path;
 
-    $debug and print $out "WindowsLongPath input : $path\n";
+    $debug and print $out "WindowsLongPath input : $path$suffix\n";
 
     for (;;) { # (cheap goto)
-        $path =~ tr(/)(\\); # convert slashes to backslashes    
-        last if $path =~ /^\\\\\?\\/;   # already a device path in the format we want
+        ($longPath = $path) =~ tr(/)(\\); # convert slashes to backslashes    
+        last if $longPath =~ /^\\\\\?\\/;   # already a device path in the format we want
     
         unless ($k32GetFullPathName) {  # need to import (once) GetFullPathNameW
             last if defined $k32GetFullPathName;
@@ -4696,23 +4714,27 @@ sub WindowsLongPath($$)
             }
         }
         my $enc = $$self{OPTIONS}{CharsetFileName};
-        my $encPath = $self->Encode($path, 'UTF16', 'II', $enc);    # need to encode to UTF16
+        my $encPath = $self->Encode($longPath, 'UTF16', 'II', $enc);# need to encode to UTF16
         my $lenReq = $k32GetFullPathName->Call($encPath,0,0,0) + 1; # first pass gets length required, +1 for safety (null?)
         my $fullPath = "\0" x $lenReq x 2;                          # create buffer to hold full path
         $k32GetFullPathName->Call($encPath, $lenReq, $fullPath, 0); # fullPath is UTF16 now
-        $path = $self->Decode($fullPath, 'UTF16', 'II', $enc);
+        $longPath = $self->Decode($fullPath, 'UTF16', 'II', $enc);
     
-        last if length($path) <= 247;
+        last if length($longPath) <= 247 - length($suffix);
 
-        if ($path =~ /^\\\\/) {
-            $path = '\\\\?\\UNC' . substr($path, 1);
+        if ($longPath =~ /^\\\\/) {
+            $longPath = '\\\\?\\UNC' . substr($longPath, 1);
         } else {
-            $path = '\\\\?\\' . $path;
+            $longPath = '\\\\?\\' . $longPath;
         }
         last;
     }
-    $debug and print $out "WindowsLongPath return: $path\n";
-    return $path;
+    # this may be called repeatedly for the same file file (exists, stat, open),
+    # so cache the last return value (without any of the suffixes that we use)
+    $$self{LONG_PATH_IN} = $path;
+    $$self{LONG_PATH_OUT} = $longPath;
+    $debug and print $out "WindowsLongPath return: $longPath$suffix\n";
+    return $longPath . $suffix;
 }
 
 #------------------------------------------------------------------------------
@@ -7433,7 +7455,7 @@ sub ProcessJPEG($$;$)
         }
         # handle all other markers
         my $dumpType = '';
-        my ($desc, $tip, $xtra);
+        my ($desc, $tip, $xtra, $useJpegMain);
         $length = length $$segDataPt;
         $appBytes += $length + 4 if ($marker & 0xf0) == 0xe0;  # total size of APP segments
         if ($verbose) {
@@ -7653,7 +7675,7 @@ sub ProcessJPEG($$;$)
                     $self->Warn("Ignored APP1 segment length $length (unknown header)");
                 }
             }
-        } elsif ($marker == 0xe2) {         # APP2 (ICC Profile, FPXR, MPF, InfiRay, PreviewImage)
+        } elsif ($marker == 0xe2) {         # APP2 (ICC Profile, FPXR, MPF, InfiRay, URN, PreviewImage)
             if ($$segDataPt =~ /^ICC_PROFILE\0/ and $length >= 14) {
                 $dumpType = 'ICC_Profile';
                 # must concatenate profile chunks (note: handle the case where
@@ -7726,6 +7748,9 @@ sub ProcessJPEG($$;$)
                 # Digilife DDC-690/Rollei="BGTH"
                 $dumpType = 'Preview Image';
                 $preview = substr($$segDataPt, length($1));
+            } elsif ($$segDataPt =~ /^urn:/) {  # (found in Apple HDR images)
+                $dumpType = 'URN';
+                $useJpegMain = 1;
             } elsif ($preview) {
                 $dumpType = 'Preview Image';
                 $preview .= $$segDataPt;
@@ -7995,17 +8020,14 @@ sub ProcessJPEG($$;$)
                 DirStart(\%dirInfo, 5);
                 $self->ProcessDirectory(\%dirInfo, GetTagTable("Image::ExifTool::XMP::SEAL"));
             }
-        } elsif ($marker == 0xea) {         # APP10 (PhotoStudio Unicode comments)
+        } elsif ($marker == 0xea) {         # APP10 (PhotoStudio Unicode comments, HDR gain curve)
             if ($$segDataPt =~ /^UNICODE\0/) {
                 $dumpType = 'PhotoStudio';
                 my $comment = $self->Decode(substr($$segDataPt,8), 'UCS2', 'MM');
                 $self->FoundTag('Comment', $comment);
-            } elsif ($$segDataPt =~ /^AROT\0/ and $length > 10) {
-                # iPhone "AROT" segment containing integrated intensity per 16 scan lines
-                # (with number of elements N = ImageHeight / 16 - 1, ref PH/NealKrawetz)
-                # "Absolute ROTational difference between two frames"
-                # (see https://www.hackerfactor.com/blog/index.php?/archives/822-Apple-Rot.html)
-                $xtra = 'segment (N=' . unpack('x6N', $$segDataPt) . ')';
+            } elsif ($$segDataPt =~ /^AROT\0\0.{4}/s) {
+                $dumpType = 'AROT', # (HDR gain curve? PH guess)
+                $useJpegMain = 1;
             }
         } elsif ($marker == 0xeb) {         # APP11 (JPEG-HDR, JUMBF)
             if ($$segDataPt =~ /^HDR_RI /) {
@@ -8172,6 +8194,10 @@ sub ProcessJPEG($$;$)
             $desc = "[JPEG $markerName]";   # (other known JPEG segments)
         }
         if (defined $dumpType) {
+            if ($useJpegMain) {
+                my $tagTablePtr = GetTagTable('Image::ExifTool::JPEG::Main');
+                $self->HandleTag($tagTablePtr, $markerName, $$segDataPt);
+            }
             if (not $dumpType and ($$options{Unknown} or $$options{Validate})) {
                 my $str = ($$segDataPt =~ /^([\x20-\x7e]{1,20})\0/) ? " '${1}'" : '';
                 $xtra = 'segment' unless $xtra;

data/bin/lib/Image/ExifTool.pod

@@ -1197,14 +1197,15 @@ on tag values and JPEG segment data respectively.
 =item WindowsLongPath
 
 Support long path names in Windows.  Enabling this option automatically
-enables the WindowsWideFile feature.
+enables the WindowsWideFile feature.  Default is 1.
 
 =item WindowsWideFile
 
 Force the use of wide-character Windows I/O functions.  This may be
 necessary when files are on a network drive and the current directory name
-contains Unicode characters. By default, the wide-character functions are
-used only if the specified file path contains Unicode characters.
+contains Unicode characters.  Without this option the wide-character
+functions are used only if the specified file path contains Unicode
+characters.
 
 =item WriteMode
 
@@ -2545,9 +2546,9 @@ GoPro, H264, HTML, ICC_Profile, ID3, IPTC, ISO, ITC, JFIF, JPEG, JSON,
 JUMBF, Jpeg2000, LNK, Leaf, Lytro, M2TS, MIE, MIFF, MISB, MNG, MOI, MPC,
 MPEG, MPF, MXF, MakerNotes, Matroska, Meta, Ogg, OpenEXR, Opus, PDF, PICT,
 PLIST, PNG, PSP, Palm, PanasonicRaw, Parrot, PhotoCD, PhotoMechanic,
-Photoshop, PostScript, PrintIM, QuickTime, RAF, RIFF, RSRC, RTF, Radiance,
-Rawzor, Real, Red, SVG, SigmaRaw, Sony, Stim, Theora, Torrent, Trailer,
-VCard, Vorbis, WTV, XML, XMP, ZIP
+Photoshop, PostScript, PrintIM, Protobuf, QuickTime, RAF, RIFF, RSRC, RTF,
+Radiance, Rawzor, Real, Red, SVG, SigmaRaw, Sony, Stim, Theora, Torrent,
+Trailer, VCard, Vorbis, WTV, XML, XMP, ZIP
 
 =item Family 1 (Specific Location):
 

data/bin/perl-Image-ExifTool.spec

@@ -1,6 +1,6 @@
 Summary: perl module for image data extraction
 Name: perl-Image-ExifTool
-Version: 13.04
+Version: 13.06
 Release: 1
 License: Artistic/GPL
 Group: Development/Libraries/Perl

data/lib/exiftool_vendored/version.rb

@@ -1,5 +1,5 @@
 # frozen_string_literal: true
 
 module ExiftoolVendored
-  VERSION = Gem::Version.new('13.04.0')
+  VERSION = Gem::Version.new('13.06.0')
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: exiftool_vendored
 version: !ruby/object:Gem::Version
-  version: 13.04.0
+  version: 13.06.0
 platform: ruby
 authors:
 - Matthew McEachen
@@ -9,7 +9,7 @@ authors:
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2024-11-27 00:00:00.000000000 Z
+date: 2024-12-05 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: exiftool
@@ -257,6 +257,7 @@ files:
 - bin/lib/Image/ExifTool/Photoshop.pm
 - bin/lib/Image/ExifTool/PostScript.pm
 - bin/lib/Image/ExifTool/PrintIM.pm
+- bin/lib/Image/ExifTool/Protobuf.pm
 - bin/lib/Image/ExifTool/Qualcomm.pm
 - bin/lib/Image/ExifTool/QuickTime.pm
 - bin/lib/Image/ExifTool/QuickTimeStream.pl