exiftool_vendored 13.02.0 → 13.03.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 28165 tags, with 17491 unique tag names.
+They contain a total of 28175 tags, with 17499 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
@@ -147,8 +147,10 @@ L<https://www.w3.org/Graphics/JPEG/jfif3.pdf> for the JPEG specification.
                DJI-DBG                          DJI Info
   'APP8'       SPIFF                            JPEG SPIFF
                InfiRayIsothermal                InfiRay Isothermal
+               SEAL                             XMP SEAL
   'APP9'       MediaJukebox                     JPEG MediaJukebox
                InfiRaySensor                    InfiRay Sensor
+               SEAL                             XMP SEAL
   'APP10'      Comment                          no
   'APP11'      JPEG-HDR                         JPEG HDR
                JUMBF                            Jpeg2000
@@ -1053,6 +1055,7 @@ for the official EXIF 2.32 specification.
   0xcd49   JXLDistance               IFD0       float
   0xcd4a   JXLEffort                 IFD0       int32u
   0xcd4b   JXLDecodeSpeed            IFD0       int32u
+  0xcea1   SEAL                      IFD0       XMP SEAL
   0xea1c   Padding                   ExifIFD    undef!
   0xea1d   OffsetSchema              ExifIFD    int32s!
   0xfde8   OwnerName                 ExifIFD    string/
@@ -1427,6 +1430,7 @@ L<http://www.adobe.com/devnet/xmp/> for the official XMP specification.
   pur                                           XMP pur
   rdf                                           XMP rdf
   sdc                                           Nikon sdc
+  seal                                          XMP seal
   swf                                           XMP swf
   tiff                                          XMP tiff
   x                                             XMP x
@@ -6152,6 +6156,37 @@ These tags belong to the ExifTool XMP-rdf family 1 group.
   --------                                      --------
   About                                         string!
 
+=head3 XMP seal Tags
+
+SEAL embedded in XMP.
+
+These tags belong to the ExifTool XMP-seal family 1 group.
+
+  Tag Name                                      Writable
+  --------                                      --------
+  Seal                                          XMP SEAL
+
+=head3 XMP SEAL Tags
+
+These tags are used in SEAL content authentification, which is actually XML
+format, not XMP.  ExifTool has read/delete support for SEAL information in
+JPG, TIFF, XMP, PNG, WEBP, HEIC, PPM, MOV and MP4 files, and read-only
+support in PDF, MKV and WAV.  Use C<-seal:all=> on the command line to
+delete SEAL information in supported formats.
+
+  Tag ID               Tag Name                 Writable
+  ------               --------                 --------
+  'b'                  ByteRange                no
+  'copyright'          Copyright                no
+  'd'                  Domain                   no
+  'da'                 DigestAlgorithm          no
+  'info'               SEALComment              no
+  'ka'                 KeyAlgorithm             no
+  'kv'                 KeyVersion               no
+  's'                  Signature                no
+  'seal'               SEALVersion              no
+  'sf'                 SignatureFormat          no
+
 =head3 XMP swf Tags
 
 Adobe SWF namespace tags.
@@ -28129,6 +28164,7 @@ check if speed is more of a concern.
   'sPLT'             SuggestedPalette           no
   'sRGB'             SRGBRendering              yes!
   'sTER'             StereoImage                PNG StereoImage
+  'seAl'             SEAL                       XMP SEAL
   'tEXt'             TextualData                PNG TextualData
   'tIME'             ModifyDate                 yes
   'tRNS'             Transparency               no
@@ -29232,7 +29268,7 @@ C2PA JUMBF metadata extracted from "/C2PA_Manifest" file.
 
   Tag ID       Tag Name                         Writable
   ------       --------                         --------
-  '_stream'    _stream                          Photoshop
+  '_stream'    PhotoshopStream                  Photoshop
 
 =head3 PDF Illustrator Tags
 
@@ -29255,7 +29291,7 @@ C2PA JUMBF metadata extracted from "/C2PA_Manifest" file.
 
   Tag ID       Tag Name                         Writable
   ------       --------                         --------
-  '_stream'    _stream                          PostScript
+  '_stream'    AIStream                         PostScript
 
 =head3 PDF Resources Tags
 
@@ -29284,7 +29320,7 @@ C2PA JUMBF metadata extracted from "/C2PA_Manifest" file.
 
   Tag ID       Tag Name                         Writable
   ------       --------                         --------
-  '_stream'    _stream                          ICC_Profile
+  '_stream'    ICC_Profile                      ICC_Profile
 
 =head3 PDF Properties Tags
 
@@ -29852,6 +29888,7 @@ for the official QuickTime specification.
   'GPS '               GPSDataList2?            no
   'IDIT'               DateTimeOriginal         string
   'PICT'               PreviewPICT              no
+  'SEAL'               SEAL                     XMP SEAL
   '_htc'               HTCInfo                  QuickTime HTCInfo
   'ardt'               ARDroneFile              no
   'cust'               CustomInfo               no
@@ -31651,6 +31688,7 @@ metadata to WEBP images, but can't yet write to other RIFF-based formats.
   'LIST_hydt'          PentaxData               Pentax AVI
   'LIST_ncdt'          NikonData                Nikon AVI
   'LIST_pntx'          PentaxData2              Pentax AVI
+  'SEAL'               SEAL                     XMP SEAL
   'SGLT'               BikeBroAccel             QuickTime Stream
   'SLLT'               BikeBroGPS               QuickTime Stream
   'VP8 '               VP8Bitstream             RIFF VP8
@@ -33258,6 +33296,7 @@ Matroska specification.
   0xb538667    SignatureSlot                    Matroska
   0xc53bb6b    Cues                             Matroska
   0xf43b675    Cluster                          Matroska
+  0x5345414c   SEAL                             XMP SEAL
 
 =head3 Matroska Projection Tags
 

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

@@ -34,6 +34,11 @@ my %webpMap = (
     MakerNotes   => 'ExifIFD',
 );
 
+my %deletableGroup = (
+    "XMP\0" => 'XMP', # delete incorrectly written "XMP\0" tag with XMP group
+    SEAL => 'SEAL',   # delete SEAL tag with SEAL group
+);
+
 #------------------------------------------------------------------------------
 # Write RIFF file (currently WebP-type only)
 # Inputs: 0) ExifTool object ref, 1) dirInfo ref
@@ -46,6 +51,7 @@ sub WriteRIFF($$)
     my $outfile = $$dirInfo{OutFile};
     my $outsize = 0;
     my $raf = $$dirInfo{RAF};
+    my $verbose = $et->Options('Verbose');
     my ($buff, $err, $pass, %has, %dirDat, $imageWidth, $imageHeight);
 
     # do this in 2 passes so we can set the size of the containing RIFF chunk
@@ -65,6 +71,7 @@ sub WriteRIFF($$)
         SetByteOrder('II');
 
         # determine which directories we must write for this file type
+        $et->Options(Verbose => 0) if $pass;    # (avoid duplicate Verbose options here)
         $et->InitWriteDirs(\%webpMap);
         my $addDirs = $$et{ADD_DIRS};
         my $editDirs = $$et{EDIT_DIRS};
@@ -73,6 +80,7 @@ sub WriteRIFF($$)
 
         # write header
         if ($pass) {
+            $et->Options(Verbose => $verbose);
             my $needsVP8X = ($has{ANIM} or $has{'XMP '} or $has{EXIF} or
                              $has{ALPH} or $has{ICCP});
             if ($has{VP8X} and not $needsVP8X and $$et{CHANGED}) {
@@ -146,13 +154,14 @@ sub WriteRIFF($$)
             # RIFF chunks are padded to an even number of bytes
             my $len2 = $len + ($len & 0x01);
             # handle incorrect "XMP\0" chunk ID written by Google software
-            if ($tag eq "XMP\0") {
-                if ($$et{DEL_GROUP}{XMP}) {
-                    # just ignore this chunk if deleting XMP
+            if ($deletableGroup{$tag}) {
+                if ($$et{DEL_GROUP}{$deletableGroup{$tag}}) {
+                    # just ignore this chunk if deleting the associated group
                     $raf->Seek($len2, 1) or $et->Error('Seek error'), last;
+                    $et->VPrint(0, "  Deleting $deletableGroup{$tag}\n") if $pass;
                     ++$$et{CHANGED};
                     next;
-                } else {
+                } elsif ($tag eq "XMP\0") {
                     $et->Warn('Incorrect XMP tag ID',1) if $pass;
                 }
             }

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

@@ -43,6 +43,7 @@ my %tiffMap = (
     PrintIM      => 'IFD0',
     IPTC         => 'IFD0',
     Photoshop    => 'IFD0',
+    SEAL         => 'IFD0',
     InteropIFD   => 'ExifIFD',
     MakerNotes   => 'ExifIFD',
     CanonVRD     => 'MakerNotes', # (so VRDOffset will get updated)
@@ -74,6 +75,7 @@ my %jpegMap = (
     Meta         => 'APP3',
     MetaIFD      => 'Meta',
     RMETA        => 'APP5',
+    SEAL         => ['APP8','APP9'], # (note: add 'IFD0' if this is a possibility)
     Ducky        => 'APP12',
     Photoshop    => 'APP13',
     Adobe        => 'APP14',
@@ -140,7 +142,7 @@ my @delGroups = qw(
     GlobParamIFD GPS ICC_Profile IFD0 IFD1 Insta360 InteropIFD IPTC ItemList JFIF
     Jpeg2000 JUMBF Keys MakerNotes Meta MetaIFD Microsoft MIE MPF Nextbase NikonApp
     NikonCapture PDF PDF-update PhotoMechanic Photoshop PNG PNG-pHYs PrintIM
-    QuickTime RMETA RSRC SubIFD Trailer UserData XML XML-* XMP XMP-*
+    QuickTime RMETA RSRC SEAL SubIFD Trailer UserData XML XML-* XMP XMP-*
 );
 # family 2 group names that we can delete
 my @delGroup2 = qw(
@@ -152,6 +154,7 @@ my %delMore = (
     QuickTime => [ qw(ItemList UserData Keys) ],
     XMP => [ 'XMP-*' ],
     XML => [ 'XML-*' ],
+    SEAL => [ 'XMP-SEAL' ],
 );
 
 # family 0 groups where directories should never be deleted
@@ -1311,7 +1314,7 @@ sub SetNewValuesFromFile($$;@)
             LimitLongValues => 10000000, # (10 MB)
             List            => 1,
             MakerNotes      => $$options{FastScan} && $$options{FastScan} > 1 ? undef : 1,
-            RequestAll      => $$options{RequestAll} || 1, # (is this still necessary now that RequestTags are being set?)
+            RequestAll      => $$options{RequestAll} || 1, # (must request all because reqTags doesn't cover wildcards)
             StrictDate      => defined $$options{StrictDate} ? $$options{StrictDate} : 1,
             Struct          => $structOpt,
         );
@@ -1324,11 +1327,8 @@ sub SetNewValuesFromFile($$;@)
         $$srcExifTool{ALT_EXIFTOOL} = $$self{ALT_EXIFTOOL};
         foreach $tag (@setTags) {
             next if ref $tag;
-            if ($tag =~ /^-(.*)/) {
-                # avoid extracting tags that are excluded
-                push @exclude, $1;
-                next;
-            }
+            # avoid extracting tags that are excluded
+            $tag =~ /^-(.*)/ and push(@exclude, $1), next;
             # add specified tags to list of requested tags
             $_ = $tag;
             if (/(.+?)\s*(>|<)\s*(.+)/) {
@@ -2983,7 +2983,7 @@ Conv: for (;;) {
                 $err2 = eval $$tagInfo{WriteCheck};
                 $@ and warn($@), $err2 = 'Error evaluating WriteCheck';
             }
-            unless ($err2) {
+            unless (defined $err2) {
                 my $table = $$tagInfo{Table};
                 if ($table and $$table{CHECK_PROC} and not $$tagInfo{RawConvInv}) {
                     my $checkProc = $$table{CHECK_PROC};
@@ -6621,6 +6621,11 @@ sub WriteJPEG($$)
                     $segType = 'Ricoh RMETA';
                     $$delGroup{RMETA} and $del = 1;
                 }
+            } elsif ($marker == 0xe8 or $marker == 0xe9) { # APP8/9 (SEAL)
+                if ($$segDataPt =~ /^SEAL\0/) {
+                    $segType = 'SEAL';
+                    $$delGroup{SEAL} and $del = 1;
+                }
             } elsif ($marker == 0xeb) {         # APP10 (JUMBF)
                 if ($$segDataPt =~ /^JP/) {
                     $segType = 'JUMBF';
@@ -6987,7 +6992,7 @@ sub SetFileTime($$;$$$$)
             # get Win32 handle, needed for SetFileTime
             my $win32Handle = eval { Win32API::File::GetOsFHandle($file) };
             unless ($win32Handle) {
-                $self->Warn('Win32API::File::GetOsFHandle returned invalid handle');
+                $self->Warn('Win32API::File GetOsFHandle returned invalid handle');
                 return 0;
             }
             # convert Unix seconds to FILETIME structs
@@ -7005,13 +7010,13 @@ sub SetFileTime($$;$$$$)
                 return 0 if defined $k32SetFileTime;
                 $k32SetFileTime = Win32::API->new('KERNEL32', 'SetFileTime', 'NPPP', 'I');
                 unless ($k32SetFileTime) {
-                    $self->Warn('Error calling Win32::API::SetFileTime');
+                    $self->Warn('Error loading Win32::API SetFileTime');
                     $k32SetFileTime = 0;
                     return 0;
                 }
             }
             unless ($k32SetFileTime->Call($win32Handle, $ctime, $atime, $mtime)) {
-                $self->Warn('Win32::API::SetFileTime returned ' . Win32::GetLastError());
+                $self->Warn('Win32::API SetFileTime returned ' . Win32::GetLastError());
                 return 0;
             }
             return 1;

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

@@ -50,7 +50,7 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 require Exporter;
 
-$VERSION = '3.68';
+$VERSION = '3.69';
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(EscapeXML UnescapeXML);
 
@@ -203,6 +203,7 @@ my %xmpNS = (
     hdr_metadata => 'http://ns.adobe.com/hdr-metadata/1.0/',
     hdrgm     => 'http://ns.adobe.com/hdr-gain-map/1.0/',
     xmpDSA    => 'http://leica-camera.com/digital-shift-assistant/1.0/',
+    seal      => 'http://ns.seal/2024/1.0/',
     # 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/',
@@ -933,6 +934,10 @@ my %sRangeMask = (
         Name => 'xmpDSA',
         SubDirectory => { TagTable => 'Image::ExifTool::Panasonic::DSA' },
     },
+    seal => {
+        Name => 'seal',
+        SubDirectory => { TagTable => 'Image::ExifTool::XMP::seal' },
+    },
     GContainer => {
         Name => 'GContainer',
         SubDirectory => { TagTable => 'Image::ExifTool::XMP::GContainer' },
@@ -4142,7 +4147,7 @@ sub ParseXMPElement($$$;$$$$)
 
 #------------------------------------------------------------------------------
 # Process XMP data
-# Inputs: 0) ExifTool object reference, 1) DirInfo reference, 2) Pointer to tag table
+# Inputs: 0) ExifTool ref, 1) dirInfo ref, 2) tag table ref
 # Returns: 1 on success
 # Notes: The following flavours of XMP files are currently recognized:
 # - standard XMP with xpacket, x:xmpmeta and rdf:RDF elements

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

@@ -25,6 +25,7 @@ use strict;
 use Image::ExifTool qw(:Utils);
 use Image::ExifTool::XMP;
 
+sub ProcessSEAL($$;$);
 sub Init_crd($);
 
 #------------------------------------------------------------------------------
@@ -2290,6 +2291,65 @@ my %sACDSeeRegionStruct = (
     },
 );
 
+%Image::ExifTool::XMP::seal = (
+    GROUPS => { 0 => 'XMP', 1 => 'XMP-seal', 2 => 'Image' },
+    NAMESPACE => 'seal',
+    WRITABLE => 'string',
+    NOTES => 'SEAL embedded in XMP.',
+    seal => {
+        Name => 'Seal',
+        Binary => 1,
+        SubDirectory => { TagTable => 'Image::ExifTool::XMP::SEAL' },
+    },
+);
+
+%Image::ExifTool::XMP::SEAL = (
+    GROUPS => { 0 => 'XML', 1 => 'SEAL', 2 => 'Document' },
+    PROCESS_PROC => \&ProcessSEAL,
+    NOTES => q{
+        These tags are used in SEAL content authentification, which is actually XML
+        format, not XMP.  ExifTool has read/delete support for SEAL information in
+        JPG, TIFF, XMP, PNG, WEBP, HEIC, PPM, MOV and MP4 files, and read-only
+        support in PDF, MKV and WAV.  Use C<-seal:all=> on the command line to
+        delete SEAL information in supported formats.
+    },
+    seal=> 'SEALVersion',
+    kv  => 'KeyVersion',
+    ka  => 'KeyAlgorithm',
+    da  => 'DigestAlgorithm',
+    sf  => 'SignatureFormat',
+    d   => 'Domain',
+    b   => 'ByteRange',
+   's'  => 'Signature',
+    info=> 'SEALComment',
+    copyright => { Name => 'Copyright', Groups => { 2 => 'Author' } },
+);
+
+#------------------------------------------------------------------------------
+# We found a SEAL property name/value
+# Inputs: 0) ExifTool ref, 1) tag table ref, 2) xmp property list ref
+#         3) property value, 4) attribute hash ref
+# Returns: 1 if valid tag was found
+sub FoundSEAL($$$$;$)
+{
+    my ($et, $tagTablePtr, $props, $val, $attrs) = @_;
+    # remove 'seal' container property from name
+    my @sealProps = @$props;
+    shift @sealProps if @sealProps and $sealProps[0] eq 'seal';
+    return FoundXMP($et, $tagTablePtr, \@sealProps, $val, $attrs);
+}
+
+#------------------------------------------------------------------------------
+# Process SEAL XML
+# Inputs: 0) ExifTool ref, 1) dirInfo ref, 2) tag table ref
+# Returns: 1 on success
+sub ProcessSEAL($$;$)
+{
+    my ($et, $dirInfo, $tagTablePtr) = @_;
+    $$dirInfo{XMPParseOpts}{FoundProc} = \&FoundSEAL;
+    return ProcessXMP($et, $dirInfo, $tagTablePtr);
+}
+
 #------------------------------------------------------------------------------
 # Generate crd tags
 # Inputs: 0) tag table ref

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.02';
+$VERSION = '13.03';
 $RELEASE = '';
 @ISA = qw(Exporter);
 %EXPORT_TAGS = (
@@ -4660,74 +4660,56 @@ sub EncodeFileName($$;$)
 # References:
 # - https://learn.microsoft.com/en-us/dotnet/standard/io/file-path-formats
 # - https://learn.microsoft.com/en-us/windows/win32/fileio/maximum-file-path-limitation
+# GetFullPathName supported by Windows XP and later. It handles:
+# full path names                EG: c:\foto\sub\abc.jpg
+# relative                       EG: .\abc.jpg,  ..\abc.jpg
+# full UNC paths                 EG: \\server\share\abc.jpg
+# relative UNC paths             EG: .\abc.jpg,  ..\abc.jpg
+# Dos device paths               EG: \\.\c:\fotoabc.jpg
+# relative path on other drives  EG: z:abc.jpg (working dir on z: z:\foto called from c:\foto)
+# Wide chars                     EG: Chars that need UTF8.
+my $k32GetFullPathName;
 sub WindowsLongPath($$)
 {
     my ($self, $path) = @_;
     my $debug = $$self{OPTIONS}{Debug};
     my $out = $$self{OPTIONS}{TextOut};
-    my @fullParts;
-    my $prefixLen = 0;
 
     $debug and print $out "WindowsLongPath input : $path\n";
-    $path =~ tr(/)(\\); # convert slashes to backslashes
-    my @pathParts = split /\\/, $path;
 
-    if ($path =~ /^\\\\\?\\/ or        # already a device path in the format we want
-        $path =~ s/^\\\\\.\\/\\\\?\\/) # convert //./ to //?/
-    {
-        # path is already long-path compatible
-        $prefixLen = 3; # path already contains prefix of 3 parts ('', '' and '?')
-    } elsif ($path =~ /[*?]/) {
-        return $path;   # do nothing because we don't support wildcards
-    } elsif ($path =~ /^\\\\/) {
-        # UNC path starts with two slashes change to "\\?\UNC\"
-        splice @pathParts, 2, 0, '?', 'UNC';
-        $prefixLen = (@pathParts > 6 ? 6 : @pathParts); # ('', '', '?', 'UNC', <server>, <share>)
-    } elsif ($path =~ /^[a-z]:\\/i) {
-        # path is already absolute but we need to add the device path prefix
-        unshift @pathParts, '', '', '?';
-        $prefixLen = 4;
-    } elsif ({ eval { require Cwd } }) {
-        my $drive;
-        $drive = $1 if $pathParts[0] =~ s/^([a-z]:)//;
-        my $cwd = Cwd::getdcwd($drive); # ($drive is undef for current working drive)
-        $debug and print $out "WindowsLongPath getcwd: $cwd\n";
-        @fullParts = split /[\\\/]/, $cwd;
-        # UNC path starts with "\\", so first 2 elements are empty
-        # --> shift and put UNC in first element.
-        if (@fullParts > 1 and $fullParts[0] eq '' and $fullParts[1] eq '') {
-            shift @fullParts;
-            $fullParts[0] = 'UNC';
-            unshift @fullParts, '', '', '?';
-            $prefixLen = (@fullParts > 6 ? 6 : @fullParts);
-        } else {
-            $prefixLen = 1; # drive designator only
+    for (;;) { # (cheap goto)
+        $path =~ tr(/)(\\); # convert slashes to backslashes    
+        last if $path =~ /^\\\\\?\\/;   # already a device path in the format we want
+    
+        unless ($k32GetFullPathName) {  # need to import (once) GetFullPathNameW
+            last if defined $k32GetFullPathName;
+            unless (eval { require Win32::API }) {
+                $self->WarnOnce('Install Win32::API to use WindowsLongPath option');
+                last;
+            }
+            $k32GetFullPathName = Win32::API->new('KERNEL32', 'GetFullPathNameW', 'PNPP', 'I');
+            unless ($k32GetFullPathName) {
+                $k32GetFullPathName = 0;
+                $self->Warn('Error loading Win32::API GetFullPathNameW');
+                last;
+            }
         }
-        # if absolute path on current drive starts with "\"
-        # just keep prefix and drop the rest of the cwd
-        $#fullParts = $prefixLen - 1 if $pathParts[0] eq '';
-    } else {
-        $prefixLen = @pathParts; # (nothing more we can do)
-    }
-    # remove "." and ".." from path (not handled for device paths)
-    my $part;
-    foreach $part (@pathParts) {
-        if ($part eq '.') {
-            next;
-        } elsif ($part eq '') {
-            # only allow double slashes at start of path name (max 2)
-            push @fullParts, $part if not @fullParts or (@fullParts == 1 and $fullParts[0] eq '');
-        } elsif ($part eq '..') {
-            # step up one directory, but not into the prefix
-            pop @fullParts if @fullParts > $prefixLen;
+        my $enc = $$self{OPTIONS}{CharsetFileName};
+        my $encPath = $self->Encode($path, '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);
+    
+        last if length($path) <= 247;
+
+        if ($path =~ /^\\\\/) {
+            $path = '\\\\?\\UNC' . substr($path, 1);
         } else {
-            push @fullParts, $part;
+            $path = '\\\\?\\' . $path;
         }
+        last;
     }
-    $path = join '\\', @fullParts;
-    # add device path prefix ("\\?\") if path length near the limit (the most
-    # conservative limit I can find is 247, which is the limit on the directory name)
-    $path = '\\\\?\\' . $path unless $prefixLen > 1 or length($path) <= 247;
     $debug and print $out "WindowsLongPath return: $path\n";
     return $path;
 }
@@ -4861,16 +4843,16 @@ sub CreateDirectory($$)
                 my $d2 = $dir; # (must make a copy in case EncodeFileName recodes it)
                 if ($self->EncodeFileName($d2)) {
                     # handle Windows Unicode directory names
-                    unless (eval { require Win32::API }) {
-                        $err = 'Install Win32::API to create directories with Unicode names';
-                        last;
-                    }
                     unless (defined $k32CreateDir) {
+                        unless (eval { require Win32::API }) {
+                            $err = 'Install Win32::API to create directories with Unicode names';
+                            last;
+                        }
                         $k32CreateDir = Win32::API->new('KERNEL32', 'CreateDirectoryW', 'PP', 'I');
                         unless ($k32CreateDir) {
                             $k32CreateDir = 0;
                             # give this error once, then just "Error creating" for subsequent attempts
-                            return 'Error accessing Win32::API::CreateDirectoryW';
+                            return 'Error loading Win32::API CreateDirectoryW';
                         }
                     }
                     $success = $k32CreateDir->Call($d2, 0) if $k32CreateDir;
@@ -4928,13 +4910,13 @@ sub GetFileTime($$)
                 return () if defined $k32GetFileTime;
                 $k32GetFileTime = Win32::API->new('KERNEL32', 'GetFileTime', 'NPPP', 'I');
                 unless ($k32GetFileTime) {
-                    $self->Warn('Error calling Win32::API::GetFileTime');
+                    $self->Warn('Error loading Win32::API GetFileTime');
                     $k32GetFileTime = 0;
                     return ();
                 }
             }
             unless ($k32GetFileTime->Call($win32Handle, $ctime, $atime, $mtime)) {
-                $self->Warn("Win32::API::GetFileTime returned " . Win32::GetLastError());
+                $self->Warn("Win32::API GetFileTime returned " . Win32::GetLastError());
                 return ();
             }
             # convert FILETIME structs to Unix seconds
@@ -5085,7 +5067,7 @@ sub IsSameID($$)
 
 #------------------------------------------------------------------------------
 # Get list of tags in specified group
-# Inputs: 0) ExifTool ref, 1) group spec, 2) tag key or reference to list of tag keys
+# Inputs: 0) ExifTool ref, 1) group spec (case insensitive), 2) tag key or reference to list of tag keys
 # Returns: list of matching tags in list context, or first match in scalar context
 # Notes: Group spec may contain multiple groups separated by colons, each
 #        possibly with a leading family number
@@ -6450,9 +6432,45 @@ sub ConvertDateTime($$)
     my $fmt = $$self{OPTIONS}{DateFormat};
     my $shift = $$self{OPTIONS}{GlobalTimeShift};
     if ($shift) {
-        my $dir = ($shift =~ s/^([-+])// and $1 eq '-') ? -1 : 1;
         my $offset = $$self{GLOBAL_TIME_OFFSET};
-        $offset or $offset = $$self{GLOBAL_TIME_OFFSET} = { };
+        my ($g, $t, $dir, @matches);
+        if ($shift =~ s/^((\d?[A-Z][-\w]*\w:)*)([A-Z][-\w]*\w)([-+])//i) {
+            ($g, $t, $dir) = ($1, $3, ($4 eq '-' ? -1 : 1));
+        } else {
+            $dir = ($shift =~ s/^([-+])// and $1 eq '-') ? -1 : 1;
+        }
+        unless ($offset) {
+            $offset = $$self{GLOBAL_TIME_OFFSET} = { };
+            # (see forum16692 for a discussion about why this code was added)
+            if ($t) {
+                # determine initial shift from specified tag
+                @matches = sort grep(/^$t( \(|$)/i, keys %{$$self{VALUE}});
+                if ($g and @matches) {
+                    $g =~ s/:$//;
+                    @matches = $self->GroupMatches($g, \@matches);
+                }
+            }
+            if (not @matches and $$self{TAGS_FROM_FILE} and $$self{OPTIONS}{RequestTags}) {
+                # determine initial shift from first requested date/time tag
+                my @reqDate = grep /date/i, @{$$self{OPTIONS}{RequestTags}};
+                while (@reqDate) {
+                    $t = shift @reqDate;
+                    @matches = sort grep(/^$t( \(|$)/i, keys %{$$self{VALUE}});
+                    my $ti = $$self{TAG_INFO};
+                    for (; @matches; shift @matches) {
+                        # select the first tag that calls this routine in its PrintConv
+                        next unless $$ti{$matches[0]}{PrintConv};
+                        next unless $$ti{$matches[0]}{PrintConv} =~ /ConvertDateTime/;
+                        undef @reqDate;
+                        last;
+                    }
+                }
+            }
+            if (@matches) {
+                my $val = $self->GetValue($matches[0], 'ValueConv');
+                ShiftTime($val, $shift, $dir, $offset) if defined $val;
+            }
+        }
         ShiftTime($date, $shift, $dir, $offset);
     }
     # only convert date if a format was specified and the date is recognizable
@@ -7952,6 +7970,10 @@ sub ProcessJPEG($$;$)
                 SetByteOrder('II');
                 my $tagTablePtr = GetTagTable('Image::ExifTool::InfiRay::Isothermal');
                 $self->ProcessDirectory(\%dirInfo, $tagTablePtr);
+            } elsif ($$segDataPt =~ /^SEAL\0/) {
+                $dumpType = 'SEAL';
+                DirStart(\%dirInfo, 5);
+                $self->ProcessDirectory(\%dirInfo, GetTagTable("Image::ExifTool::XMP::SEAL"));
             }
         } elsif ($marker == 0xe9) {         # APP9 (InfiRay, Media Jukebox)
             if ($$segDataPt =~ /^Media Jukebox\0/ and $length > 22) {
@@ -7967,6 +7989,10 @@ sub ProcessJPEG($$;$)
                 SetByteOrder('II');
                 my $tagTablePtr = GetTagTable('Image::ExifTool::InfiRay::Sensor');
                 $self->ProcessDirectory(\%dirInfo, $tagTablePtr);
+            } elsif ($$segDataPt =~ /^SEAL\0/) {
+                $dumpType = 'SEAL';
+                DirStart(\%dirInfo, 5);
+                $self->ProcessDirectory(\%dirInfo, GetTagTable("Image::ExifTool::XMP::SEAL"));
             }
         } elsif ($marker == 0xea) {         # APP10 (PhotoStudio Unicode comments)
             if ($$segDataPt =~ /^UNICODE\0/) {
@@ -9102,6 +9128,7 @@ sub HandleTag($$$$;%)
                 Base     => $parms{Base},
                 Multi    => $$subdir{Multi},
                 TagInfo  => $tagInfo,
+                IgnoreProp => $$subdir{IgnoreProp},
                 RAF      => $parms{RAF},
             );
             my $oldOrder = GetByteOrder();