exiftool-vendored.exe 12.97.0 → 13.0.0

package/bin/exiftool_files/lib/Image/ExifTool/WritePDF.pl

@@ -184,11 +184,19 @@ sub GetFreeEntries($)
 {
     my $dict = shift;
     my %xrefFree;
-    # from the start we have only written xref stream entries in 'CNn' format,
-    # so we can simplify things for now and only support this type of entry
+    # we write xref stream entries in 'CNn' or 'CNNn' format (with 8-byte 'NN' offset),
     my $w = $$dict{W};
-    if (ref $w eq 'ARRAY' and "@$w" eq '1 4 2') {
-        my $size = $$dict{_entry_size}; # this will be 7 for 'CNn'
+    if (ref $w eq 'ARRAY') {
+        my $bytes = "@$w";
+        my $fmt;
+        if ($bytes eq '1 4 2') {
+            $fmt = 'CNn';
+        } elsif ($bytes eq '1 8 2') {
+            $fmt = 'CNNn';
+        } else {
+            return \%xrefFree;
+        }
+        my $size = $$dict{_entry_size}; # this will be 7 for 'CNn' or 11 for 'CNNn'
         my $index = $$dict{Index};
         my $len = length $$dict{_stream};
         # scan the table for free objects
@@ -200,7 +208,12 @@ sub GetFreeEntries($)
             my $count = $$index[$i*2+1];
             for ($j=0; $j<$count; ++$j) {
                 last if $pos + $size > $len;
-                my @t = unpack("x$pos CNn", $$dict{_stream});
+                my @t = unpack("x$pos $fmt", $$dict{_stream});
+                if (@t == 4) {
+                    $t[1] = $t[1] * 4294967296 + $t[2];
+                    $t[2] = $t[3];
+                    @t = 3;
+                }
                 # add entry if object was free
                 $xrefFree{$start+$j} = [ $t[1], $t[2], 'f' ] if $t[0] == 0;
                 $pos += $size;  # step to next entry
@@ -657,24 +670,37 @@ sub WritePDF($$)
             $newXRef{$nextObject++} = [ Tell($outfile) - $$et{PDFBase} + length($/), 0, 'n' ];
             $$mainDict{Size} = $nextObject;
             # create xref stream and Index entry
-            $$mainDict{W} = [ 1, 4, 2 ];    # int8u, int32u, int16u ('CNn')
-            $$mainDict{Index} = [ ];
-            $$mainDict{_stream} = '';
-            my @ids = sort { $a <=> $b } keys %newXRef;
-            while (@ids) {
-                my $startID = $ids[0];
-                for (;;) {
-                    $id = shift @ids;
-                    my ($pos, $gen, $type) = @{$newXRef{$id}};
-                    if ($pos > 0xffffffff) {
-                        $et->Error('Huge files not yet supported');
-                        last;
+            my $bits = 4;
+Restart:    for (;;) {
+                $$mainDict{W} = [ 1, $bits, 2 ];    # int8u, int32u/int64u, int16u ('CNn' or 'CNNn')
+                $$mainDict{Index} = [ ];
+                $$mainDict{_stream} = '';
+                my @ids = sort { $a <=> $b } keys %newXRef;
+                while (@ids) {
+                    my $startID = $ids[0];
+                    for (;;) {
+                        $id = shift @ids;
+                        my ($pos, $gen, $type) = @{$newXRef{$id}};
+                        if ($pos > 0xffffffff) {
+                            if ($bits == 4) {
+                                # switch to 64-bit integer offsets
+                                $bits = 8;
+                                next Restart;
+                            }
+                        }
+                        if ($bits == 4) {
+                            $$mainDict{_stream} .= pack('CNn', $type eq 'f' ? 0 : 1, $pos, $gen);
+                        } else {
+                            my $hi = int($pos / 4294967296);
+                            my $lo = $pos - $hi * 4294967296;
+                            $$mainDict{_stream} .= pack('CNNn', $type eq 'f' ? 0 : 1, $hi, $lo, $gen);
+                        }
+                        last if not @ids or $ids[0] != $id + 1;
                     }
-                    $$mainDict{_stream} .= pack('CNn', $type eq 'f' ? 0 : 1, $pos, $gen);
-                    last if not @ids or $ids[0] != $id + 1;
+                    # add Index entries for this section of the xref stream
+                    push @{$$mainDict{Index}}, $startID, $id - $startID + 1;
                 }
-                # add Index entries for this section of the xref stream
-                push @{$$mainDict{Index}}, $startID, $id - $startID + 1;
+                last;
             }
             # write the xref stream object
             $keyExt = "$id 0 obj";  # (set anyway, but xref stream should NOT be encrypted)

package/bin/exiftool_files/lib/Image/ExifTool/WriteXMP.pl

@@ -925,19 +925,31 @@ sub WriteXMP($$;$)
     # get hash of all information we want to change
     # (sorted by tag name so alternate languages come last, but with structures
     # first so flattened tags may be used to override individual structure elements)
-    my (@tagInfoList, $delLangPath, %delLangPaths, %delAllLang, $firstNewPath);
+    my (@tagInfoList, @structList, $delLangPath, %delLangPaths, %delAllLang, $firstNewPath, @langTags);
     my $writeGroup = $$dirInfo{WriteGroup};
     foreach $tagInfo (sort ByTagName $et->GetNewTagInfoList()) {
         next unless $et->GetGroup($tagInfo, 0) eq 'XMP';
         next if $$tagInfo{Name} eq 'XMP'; # (ignore full XMP block if we didn't write it already)
         next if $writeGroup and $writeGroup ne $$et{NEW_VALUE}{$tagInfo}{WriteGroup};
-        if ($$tagInfo{Struct}) {
-            unshift @tagInfoList, $tagInfo;
+        if ($$tagInfo{LangCode}) {
+            push @langTags, $tagInfo
+        } elsif ($$tagInfo{Struct}) {
+            push @structList, $tagInfo;
         } else {
             push @tagInfoList, $tagInfo;
         }
     }
-    foreach $tagInfo (@tagInfoList) {
+    if (@langTags) {
+        # keep original order in which lang-alt entries were added
+        foreach $tagInfo (sort { $$et{NEW_VALUE}{$a}{Order} <=> $$et{NEW_VALUE}{$b}{Order} } @langTags) {
+            if ($$tagInfo{Struct}) {
+                push @structList, $tagInfo;
+            } else {
+                push @tagInfoList, $tagInfo;
+            }
+        }
+    }
+    foreach $tagInfo (@structList, @tagInfoList) {
         my @delPaths;   # list of deleted paths
         my $tag = $$tagInfo{TagID};
         my $path = GetPropertyPath($tagInfo);

package/bin/exiftool_files/lib/Image/ExifTool/Writer.pl

@@ -295,10 +295,11 @@ my %ignorePrintConv = map { $_ => 1 } qw(OTHER BITMASK Notes);
 #           CreateGroups - hash of all family 0 group names where tag may be created
 #           WriteGroup - group name where information is being written (correct case)
 #           WantGroup - group name as specified in call to function (case insensitive)
-#           Next - pointer to next new value hash (if more than one)
+#           Next - pointer to next new value hash (if more than one for this tag)
 #           NoReplace - set if value was created with Replace=0
 #           AddBefore - number of list items added by a subsequent Replace=0 call
-#           IsNVH - Flag indicating this is a new value hash
+#           IsNVH - flag indicating this is a new value hash
+#           Order - counter to indicate the order that new value hashes were created
 #           Shift - shift value
 #           Save - counter used by SaveNewValues()/RestoreNewValues()
 #           MAKER_NOTE_FIXUP - pointer to fixup if necessary for a maker note value
@@ -317,7 +318,7 @@ sub SetNewValue($;$$%)
 
     unless (defined $tag) {
         delete $$self{NEW_VALUE};
-        $$self{SAVE_COUNT} = 0;
+        $$self{SAVE_COUNT} = $$self{NV_COUNT} = 0;
         $$self{DEL_GROUP} = { };
         return 1;
     }
@@ -1389,8 +1390,16 @@ sub SetNewValuesFromFile($$;@)
     return $info if $$info{Error} and $$info{Error} eq 'Error opening file';
     delete $$srcExifTool{VALUE}{Error}; # delete so we can check this later
 
-    # sort tags in reverse order so we get priority tag last
-    my @tags = reverse sort keys %$info;
+    # sort tags in file order with priority tags last
+    my (@tags, @prio);
+    foreach (sort { $$srcExifTool{FILE_ORDER}{$a} <=> $$srcExifTool{FILE_ORDER}{$b} } keys %$info) {
+        if (/ /) {
+            push @tags, $_;
+        } else {
+            push @prio, $_;
+        }
+    }
+    push @tags, @prio;
 #
 # simply transfer all tags from source image if no tags specified
 #
@@ -3896,6 +3905,7 @@ sub GetNewValueHash($$;$$$$)
             TagInfo => $tagInfo,
             WriteGroup => $writeGroup,
             IsNVH => 1, # set flag so we can recognize a new value hash
+            Order => $$self{NV_COUNT}++,
         };
         # add entry to our NEW_VALUE hash
         if ($$self{NEW_VALUE}{$tagInfo}) {
@@ -4023,7 +4033,7 @@ sub RemoveNewValuesForGroup($$)
 #------------------------------------------------------------------------------
 # Get list of tagInfo hashes for all new data
 # Inputs: 0) ExifTool object reference, 1) optional tag table pointer
-# Returns: list of tagInfo hashes
+# Returns: list of tagInfo hashes in no particular order
 sub GetNewTagInfoList($;$)
 {
     my ($self, $tagTablePtr) = @_;

package/bin/exiftool_files/lib/Image/ExifTool/XMP.pm

@@ -50,7 +50,7 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 require Exporter;
 
-$VERSION = '3.66';
+$VERSION = '3.67';
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(EscapeXML UnescapeXML);
 
@@ -2016,6 +2016,7 @@ my %sPantryItem = (
         Writable => 'integer',
         List => 'Seq',
         AutoSplit => 1,
+        Notes => 'deprecated',
     },
     OECF => {
         Name => 'Opto-ElectricConvFactor',
@@ -2267,7 +2268,7 @@ my %sPantryItem = (
             3 => 'Distant',
         },
     },
-    ImageUniqueID   => { },
+    ImageUniqueID   => { Avoid => 1, Notes => 'moved to exifEX namespace in 2024 spec' },
     GPSVersionID    => { Groups => { 2 => 'Location' } },
     GPSLatitude     => { Groups => { 2 => 'Location' }, %latConv },
     GPSLongitude    => { Groups => { 2 => 'Location' }, %longConv },
@@ -2509,6 +2510,15 @@ my %sPantryItem = (
             Values =>   { List => 'Seq', Writable => 'rational' },
         },
     },
+    # new in Exif 3.0
+    ImageUniqueID   => { },
+    ImageTitle      => { },
+    ImageEditor     => { },
+    Photographer    => { Groups => { 2 => 'Author' } },
+    CameraFirmware  => { Groups => { 2 => 'Camera' } },
+    RAWDevelopingSoftware   => { },
+    ImageEditingSoftware    => { },
+    MetadataEditingSoftware => { },
 );
 
 # Auxiliary namespace properties (aux) - not fully documented (ref PH)
@@ -3777,8 +3787,13 @@ sub ParseXMPElement($$$;$$$$)
 
         # extract property attributes
         my ($parseResource, %attrs, @attrs);
-        while ($attrs =~ m/(\S+?)\s*=\s*(['"])(.*?)\2/sg) {
-            my ($attr, $val) = ($1, $3);
+# this hangs Perl (v5.18.4) for a specific capture string [patched in ExifTool 12.98]
+#        while ($attrs =~ m/(\S+?)\s*=\s*(['"])(.*?)\2/sg) {
+        while ($attrs =~ /(\S+?)\s*=\s*(['"])/g) {
+            my ($attr, $quote) = ($1, $2);
+            my $p0 = pos($attrs);
+            last unless $attrs =~ /$quote/g;
+            my $val = substr($attrs, $p0, pos($attrs)-$p0-1);
             # handle namespace prefixes (defined by xmlns:PREFIX, or used with PREFIX:tag)
             if ($attr =~ /(.*?):/) {
                 if ($1 eq 'xmlns') {

package/bin/exiftool_files/lib/Image/ExifTool/XMPStruct.pl

@@ -39,8 +39,7 @@ sub SerializeStruct($$;$)
 
     if (ref $obj eq 'HASH') {
         # support hashes with ordered keys
-        my @keys = $$obj{_ordered_keys_} ? @{$$obj{_ordered_keys_}} : sort keys %$obj;
-        foreach $key (@keys) {
+        foreach $key (Image::ExifTool::OrderedKeys($obj)) {
             my $hdr = $sfmt ? EscapeJSON($key) . ':' : $key . '=';
             push @vals, $hdr . SerializeStruct($et, $$obj{$key}, '}');
         }
@@ -218,7 +217,7 @@ sub DumpStruct($;$)
     $indent or $indent = '';
     if (ref $obj eq 'HASH') {
         print "{\n";
-        foreach (sort keys %$obj) {
+        foreach (Image::ExifTool::OrderedKeys($obj)) {
             print "$indent  $_ = ";
             DumpStruct($$obj{$_}, "$indent  ");
         }
@@ -253,8 +252,10 @@ sub CheckStruct($$$)
     ref $struct eq 'HASH' or return wantarray ? (undef, "Expecting $strName structure") : undef;
 
     my ($key, $err, $warn, %copy, $rtnVal, $val);
+    # copy the ordered keys if they exist
+    $copy{_ordered_keys_} = [ ] if $$struct{_ordered_keys_};
 Key:
-    foreach $key (keys %$struct) {
+    foreach $key (Image::ExifTool::OrderedKeys($struct)) {
         my $tag = $key;
         # allow trailing '#' to disable print conversion on a per-field basis
         my ($type, $fieldInfo);
@@ -377,6 +378,7 @@ Key:
             $copy{$tag} = \@copy;
         } elsif ($$fieldInfo{Struct}) {
             $warn = "Improperly formed structure in $strName $tag";
+            next;
         } else {
             $et->Sanitize(\$$struct{$key});
             ($val,$err) = $et->ConvInv($$struct{$key},$fieldInfo,$tag,$strName,$type,'');
@@ -387,6 +389,7 @@ Key:
             # turn this into a list if necessary
             $copy{$tag} = $$fieldInfo{List} ? [ $val ] : $val;
         }
+        push @{$copy{_ordered_keys_}}, $tag if $copy{_ordered_keys_}; # save ordered keys
     }
     if (%copy or not $warn) {
         $rtnVal = \%copy;
@@ -562,7 +565,7 @@ sub AddNewStruct($$$$$$)
     # after all valid structure fields, which is necessary when serializing the XMP later)
     %$struct or $$struct{'~dummy~'} = '';
 
-    foreach $tag (sort keys %$struct) {
+    foreach $tag (Image::ExifTool::OrderedKeys($struct)) {
         my $fieldInfo = $$strTable{$tag};
         unless ($fieldInfo) {
             next unless $tag eq '~dummy~'; # check for dummy field
@@ -652,7 +655,8 @@ sub ConvertStruct($$$$;$)
         my (%struct, $key);
         my $table = $$tagInfo{Table};
         $parentID = $$tagInfo{TagID} unless $parentID;
-        foreach $key (keys %$value) {
+        $struct{_ordered_keys_} = [ ] if $$value{_ordered_keys_};
+        foreach $key (Image::ExifTool::OrderedKeys($value)) {
             my $tagID = $parentID . ucfirst($key);
             my $flatInfo = $$table{$tagID};
             unless ($flatInfo) {
@@ -669,7 +673,11 @@ sub ConvertStruct($$$$;$)
             } else {
                 $v = $et->GetValue($flatInfo, $type, $v);
             }
-            $struct{$key} = $v if defined $v;  # save the converted value
+            if (defined $v) {
+                $struct{$key} = $v;  # save the converted value
+                # maintain ordered keys if necessary
+                push @{$struct{_ordered_keys_}}, $key if $struct{_ordered_keys_};
+            }
         }
         return \%struct;
     } elsif (ref $value eq 'ARRAY') {

package/bin/exiftool_files/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 = '12.97';
+$VERSION = '13.00';
 $RELEASE = '';
 @ISA = qw(Exporter);
 %EXPORT_TAGS = (
@@ -37,7 +37,7 @@ $RELEASE = '';
     Public => [qw(
         ImageInfo AvailableOptions GetTagName GetShortcuts GetAllTags
         GetWritableTags GetAllGroups GetDeleteGroups GetFileType CanWrite
-        CanCreate AddUserDefinedTags
+        CanCreate AddUserDefinedTags OrderedKeys
     )],
     # exports not part of the public API, but used by ExifTool modules:
     DataAccess => [qw(
@@ -740,7 +740,7 @@ my %fileDescription = (
     OGV  => 'video/ogg',
     ONP  => 'application/on1',
     ORF  => 'image/x-olympus-orf',
-    OTF  => 'application/x-font-otf',
+    OTF  => 'application/font-otf',
     PAGES=> 'application/x-iwork-pages-sffpages',
     PBM  => 'image/x-portable-bitmap',
     PCD  => 'image/x-photo-cd',
@@ -798,8 +798,8 @@ my %fileDescription = (
     THMX => 'application/vnd.ms-officetheme',
     TIFF => 'image/tiff',
     Torrent => 'application/x-bittorrent',
-    TTC  => 'application/x-font-ttf',
-    TTF  => 'application/x-font-ttf',
+    TTC  => 'application/font-ttf',
+    TTF  => 'application/font-ttf',
     TXT  => 'text/plain',
     VCard=> 'text/vcard',
     VRD  => 'application/octet-stream', #PH (NC)
@@ -1466,12 +1466,12 @@ my %systemTagsNotes = (
         PrintConv => sub {
             my ($mask, $val) = (0400, oct(shift));
             my %types = (
-                0010000 => 'p',
-                0020000 => 'c',
-                0040000 => 'd',
-                0060000 => 'b',
-                0120000 => 'l',
-                0140000 => 's',
+                0010000 => 'p', # FIFO
+                0020000 => 'c', # character special file
+                0040000 => 'd', # directory
+                0060000 => 'b', # block special file
+                0120000 => 'l', # sym link
+                0140000 => 's', # socket link
             );
             my $str = $types{$val & 0170000} || '-';
             while ($mask) {
@@ -2292,6 +2292,7 @@ sub new
     $$self{PATH} = [ ];         # (this too)
     $$self{DEL_GROUP} = { };    # lookup for groups to delete when writing
     $$self{SAVE_COUNT} = 0;     # count calls to SaveNewValues()
+    $$self{NV_COUNT} = 0;       # count of NEW_VALUE entries
     $$self{FILE_SEQUENCE} = 0;  # sequence number for files when reading
     $$self{FILES_WRITTEN} = 0;  # count of files successfully written
     $$self{INDENT2} = '';       # indentation of verbose messages from SetNewValue
@@ -2517,6 +2518,8 @@ sub Options($$;@)
             # set Compact and XMPShorthand options, preserving backward compatibility
             my ($p, %compact);
             foreach $p ('Compact','XMPShorthand') {
+                # (allow setting from a HASH (undocumented)
+                ref $newVal eq 'HASH' and %compact = %{$newVal}, next;
                 my $val = $param eq $p ? $newVal : $$options{Compact}{$p};
                 if (defined $val) {
                     my @v = ($val =~ /\w+/g);
@@ -4195,6 +4198,16 @@ sub CanCreate($)
     return 0;
 }
 
+#------------------------------------------------------------------------------
+# Return list of ordered keys if available, otherwise just sort alphabetically
+# Inputs: 0) hash ref
+# Returns: List of ordered/sorted keys
+sub OrderedKeys($)
+{
+    my $hash = shift;
+    return $$hash{_ordered_keys_} ? @{$$hash{_ordered_keys_}} : sort keys %$hash;
+}
+
 #==============================================================================
 # Functions below this are not part of the public API
 
@@ -7290,7 +7303,10 @@ sub ProcessJPEG($$;$)
             last;   # all done parsing file
         } elsif (defined $markerLenBytes{$marker}) {
             # handle other stand-alone markers and segments we skipped over
-            $verbose and $marker and print $out "${indent}JPEG $markerName\n";
+            if ($verbose and $marker) {
+                next if $verbose < 4 and ($marker & 0xf8) == 0xd0;
+                print $out "${indent}JPEG $markerName\n";
+            }
             next;
         } elsif ($marker == 0xdb and length($$segDataPt) and    # DQT
             # save the DQT data only if JPEGDigest has been requested
@@ -7901,8 +7917,17 @@ sub ProcessJPEG($$;$)
                 my $seq = Get32u($segDataPt, 4);
                 my $len = Get32u($segDataPt, 8);
                 my $type = substr($$segDataPt, 12, 4);
+                # a Microsoft bug writes $len and $type incorrectly as little-endian
+                if ($type eq 'bmuj') {
+                    $self->WarnOnce('Wrong byte order in C2PA APP11 JUMBF header');
+                    $type = 'jumb';
+                    $len = unpack('x8V', $$segDataPt);
+                    # fix the header
+                    substr($$segDataPt, 8, 8) = Set32u($len) . $type;
+                }
                 my $hdrLen;
                 if ($len == 1 and length($$segDataPt) >= 24) {
+                    # (haven't seen this with the Microsoft bug)
                     $len = Get64u($$segDataPt, 16);
                     $hdrLen = 16;
                 } else {

package/bin/exiftool_files/lib/Image/ExifTool.pod

@@ -332,13 +332,14 @@ L</ImageInfo>:
 
 Values of the returned hash are usually simple scalars, but a scalar
 reference is used to indicate binary data and an array reference may be used
-to indicate a list.  Also, a hash reference may be returned if the L</Struct>
-option is used.  Lists of values are joined by commas into a single
-string only if the PrintConv option is enabled and the ListJoin option is
-enabled (which are the defaults).  Note that binary values are not
-necessarily extracted unless specifically requested, or the Binary option is
-enabled and the tag is not specifically excluded.  If not extracted the
-value is a reference to a string of the form "Binary data ##### bytes".
+to indicate a list.  Also, a hash reference may be returned if the
+L</Struct> option is used (see the L</OrderedKeys> option to obtain the hash
+keys).  Lists of values are joined by commas into a single string only if
+the PrintConv option is enabled and the ListJoin option is enabled (which
+are the defaults).  Note that binary values are not necessarily extracted
+unless specifically requested, or the Binary option is enabled and the tag
+is not specifically excluded.  If not extracted the value is a reference to
+a string of the form "Binary data ##### bytes".
 
 The code below gives an example of how to handle these return values, as
 well as illustrating the use of other ExifTool functions:
@@ -1089,7 +1090,9 @@ values in standard format).
 
 Flag to return XMP structures as hash references instead of flattening into
 individual tags.  Has no effect when writing since both flattened and
-structured tags may always be written.  Possible values are:
+structured tags may always be written.  A special "_ordered_keys_" element
+containing a list of ordered keys may exist if the structure elements are
+ordered (see the L<OrderedKeys> method).  Possible values are:
 
   undef - (default) Same as 0 for reading, 2 for copying
     0   - Read/copy flattened tags
@@ -2749,6 +2752,26 @@ details on the elements of the tag information hash.
 
 =back
 
+=head2 OrderedKeys [static]
+
+Return a list of ordered keys from a tag value that is a HASH reference
+when the Struct option is used.
+
+    use Image::ExifTool ':Public';
+    my @keys = OrderedKeys($structRef);
+
+=over 4
+
+=item Inputs:
+
+0) Structure HASH reference
+
+=item Return Value:
+
+List of ordered keys, or sorted alphabetically if not ordered.
+
+=back
+
 =head1 CHARACTER ENCODINGS
 
 Certain meta information formats allow coded character sets other than plain

package/bin/exiftool_files/readme_windows.txt

@@ -1,21 +1,16 @@
-This ExifTool package is intended to avoid problems of the PAR packed original ExifTool for Windows. 
+This readme is for the Windows ExifTool package by Oliver Betz.
+
+This package is intended to avoid problems of the PAR packed original ExifTool for Windows.
 
 It consists of:
 
 * ExifTool by Phil Harvey https://exiftool.org/ resp. https://github.com/exiftool/exiftool
-* Strawberry Perl http://strawberryperl.com/
-* My tiny launcher https://oliverbetz.de/pages/Artikel/ExifTool-for-Windows
-
-Please note that there can be up to three exiftool scripts in the "exiftool_files" directory:
-* exiftool.pl - only this one is called by the launcher
-* exiftool - this is from the original ExifTool distribution
-* windows_exiftool - this is from the original ExifTool distribution
+* Strawberry Perl https://strawberryperl.com/
+* Tiny launcher by Oliver Betz https://oliverbetz.de/pages/Artikel/ExifTool-for-Windows
 
-The small proportion of my own content is licensed under the https://creativecommons.org/publicdomain/zero/1.0/legalcode CC0 license
-See https://exiftool.org/ and http://strawberryperl.com/ for the license of ExifTool and Strawberry Perl.
+See https://exiftool.org/ and https://strawberryperl.com/ for the license of ExifTool and Strawberry Perl.
+The launcher is licensed under the https://creativecommons.org/publicdomain/zero/1.0/legalcode CC0 license
 
 I make no warranties about the package, and disclaim liability for all uses of the package, to the fullest extent permitted by applicable law. 
 
-Please send useful comments to mailto:ppl@oliverbetz.de - especially if you found bugs or improved something.
-
-Oliver Betz
+Oliver Betz

package/bin/exiftool_files/windows_exiftool.txt

@@ -222,6 +222,7 @@ OPTIONS
 
     Special features
 
+      -diff FILE2                      Compare metadata with another file
       -geotag TRKFILE                  Geotag images from specified GPS log
       -globalTimeShift SHIFT           Shift all formatted date/time values
       -use MODULE                      Add features from plug-in module
@@ -311,8 +312,8 @@ OPTIONS
          Write a new value for the specified tag (eg. "-comment=wow"), or
          delete the tag if no *VALUE* is given (eg. "-comment="). "+=" and
          "-=" are used to add or remove existing entries from a list, or to
-         shift date/time values (see Image::ExifTool::Shift.pl and note 6
-         below for more details). "+=" may also be used to increment
+         shift date/time values (see Image::ExifTool::Shift.pl and notes 6
+         and 7 below for more details). "+=" may also be used to increment
          numerical values (or decrement if *VALUE* is negative), and "-="
          may be used to conditionally delete or replace a tag (see "WRITING
          EXAMPLES" for examples). "^=" is used to write an empty string
@@ -398,6 +399,10 @@ OPTIONS
          copy it to another tag in the same operation, use the
          -globalTimeShift option.
 
+         7) The "+=" operator may not be used to shift a List-type date/time
+         tag (eg. XMP-dc:Date) because "+=" is used to add elements to the
+         list. Instead, the -globalTimeShift option should be used.
+
          Special feature: Integer values may be specified in hexadecimal
          with a leading "0x", and simple rational values may be specified as
          fractions.
@@ -1034,7 +1039,7 @@ OPTIONS
 
          produces output like this:
 
-             -- Generated by ExifTool 12.97 --
+             -- Generated by ExifTool 13.00 --
              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
@@ -1584,10 +1589,10 @@ OPTIONS
          the corresponding family 8 group name is specified for the tag. See
          the -fileNUM option details for more information.
 
-         5) The -a option has no effect on the evaluation of the expression,
-         and the values of duplicate tags are accessible only by specifying
-         a group name (such as a family 4 instance number, eg. $Copy1:TAG,
-         $Copy2:TAG, etc).
+         5) The -a (Duplicates) option is implied when -if is used without a
+         fast *NUM*, and the values of duplicate tags are accessible by
+         specifying a group name in the expression (such as a family 4
+         instance number, eg. $Copy1:TAG, $Copy2:TAG, etc).
 
          6) A special "OK" UserParam is available to test the success of the
          previous command when -execute was used, and may be used like any
@@ -1849,9 +1854,9 @@ OPTIONS
          The flags are formatted as a comma-separated list of the following
          possible values: Avoid, Binary, List, Mandatory, Permanent,
          Protected, Unknown and Unsafe (see the Tag Name documentation). For
-         XMP List tags, the list type (Alt, Bag or Seq) is added to the
-         flags, and flattened structure tags are indicated by a Flattened
-         flag with 'struct' giving the ID of the parent structure.
+         XMP List tags, the list type (Alt, Bag or Seq) is also given, and
+         flattened structure tags are indicated by a Flattened flag with
+         'struct' giving the ID of the parent structure.
 
          Note that none of the -list options require an input *FILE*.
 
@@ -1864,6 +1869,23 @@ OPTIONS
          as file names, even if they begin with a dash ("-").
 
    Special features
+    -diff *FILE2*
+         Compare metadata in *FILE* with *FILE2*. The *FILE2* name may
+         include filename formatting codes (see the -w option). All
+         extracted tags from the files are compared, but the extracted tags
+         may be controlled by adding -TAG or --TAG options. For example,
+         below is a command to compare all the same-named files in two
+         different directories, ignoring the System tags:
+
+             exiftool DIR1 -diff DIR2/%f.%e --system:all
+
+         The -g and -G options may be used to organize the output by the
+         specified family of groups, with -G1 being the default. The -a
+         option is implied. Adding -v includes a count of the number of tags
+         that are the same in each group. The following text formatting
+         options are valid when -diff is used: -c, -charset, -d, -E, -ec,
+         -ex, -L, -lang, -n, -s, -sep, -struct and -w.
+
     -geotag *TRKFILE*
          Geotag images from the specified GPS track log file. Using the
          -geotag option is equivalent to writing a value to the "Geotag"

package/package.json

@@ -1,15 +1,15 @@
 {
   "name": "exiftool-vendored.exe",
-  "version": "12.97.0",
+  "version": "13.0.0",
   "description": "Vendored win32 ExifTool for Node.js",
   "main": "./index.js",
-  "homepage": "https://github.com/mceachen/exiftool-vendored.exe#readme",
+  "homepage": "https://github.com/photostructure/exiftool-vendored.exe#readme",
   "bugs": {
-    "url": "https://github.com/mceachen/exiftool-vendored.js/issues"
+    "url": "https://github.com/photostructure/exiftool-vendored.js/issues"
   },
   "repository": {
     "type": "git",
-    "url": "https://github.com/mceachen/exiftool-vendored.exe.git"
+    "url": "git+ssh://git@github.com/photostructure/exiftool-vendored.exe.git"
   },
   "os": [
     "win32"
@@ -43,10 +43,10 @@
   },
   "devDependencies": {
     "axios": "^1.7.7",
-    "mocha": "^10.7.3",
-    "npm-check-updates": "^17.1.3",
+    "mocha": "^10.8.0",
+    "npm-check-updates": "^17.1.9",
     "prettier": "^3.3.3",
-    "release-it": "^17.7.0",
+    "release-it": "^17.10.0",
     "unzipper": "^0.12.3",
     "xml2js": "^0.6.2"
   }