exiftool_vendored 13.02.0 → 13.04.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 28187 tags, with 17502 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,41 @@ 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 (Secure Evidence Attribution Label) 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.  See L<https://github.com/hackerfactor/SEAL> for the specification.
+
+  Tag ID               Tag Name                 Writable
+  ------               --------                 --------
+  'b'                  ByteRange                no
+  'copyright'          Copyright                no
+  'd'                  Domain                   no
+  'da'                 DigestAlgorithm          no
+  'id'                 Identifier               no
+  'info'               SEALComment              no
+  'ka'                 KeyAlgorithm             no
+  'kv'                 KeyVersion               no
+  's'                  Signature                no
+  'seal'               SEALVersion              no
+  'sf'                 SignatureFormat          no
+  'sl'                 SignatureLength          no
+  'uid'                UniqueIdentifier         no
+
 =head3 XMP swf Tags
 
 Adobe SWF namespace tags.
@@ -8838,7 +8877,7 @@ access to this information.
   0x0432   MeasurementScale?                    no
   0x0433   TimelineInfo?                        no
   0x0434   SheetDisclosure?                     no
-  0x0435   DisplayInfo?                         no
+  0x0435   ChannelOptions?                      no
   0x0436   OnionSkins?                          no
   0x0438   CountInfo?                           no
   0x043a   PrintInfo2?                          no
@@ -24680,6 +24719,7 @@ L<https://github.com/gopro/gpmf-parser> for details about this format.
   'GLPI'   GPSPos                               GoPro GLPI
   'GPRI'   GPSRaw?                              GoPro GPRI
   'GPS5'   GPSInfo                              GoPro GPS5
+  'GPS9'   GPSInfo9                             GoPro GPS9
   'GPSA'   GPSAltitudeSystem                    no
   'GPSF'   GPSMeasureMode                       no
   'GPSP'   GPSHPositioningError                 no
@@ -24725,6 +24765,7 @@ L<https://github.com/gopro/gpmf-parser> for details about this format.
   'TMPC'   CameraTemperature                    no
   'TSMP'   TotalSamples?                        no
   'TYPE'   StructureType?                       no
+  'TZON'   TimeZone                             no
   'UNIF'   InputUniformity                      no
   'UNIT'   Units?                               no
   'VERS'   MetadataVersion                      no
@@ -24769,6 +24810,19 @@ L<https://github.com/gopro/gpmf-parser> for details about this format.
       3    GPSSpeed                             no
       4    GPSSpeed3D                           no
 
+=head3 GoPro GPS9 Tags
+
+   Index   Tag Name                             Writable
+   -----   --------                             --------
+      0    GPSLatitude                          no
+      1    GPSLongitude                         no
+      2    GPSAltitude                          no
+      3    GPSSpeed                             no
+      4    GPSSpeed3D                           no
+      6    GPSDateTime                          no
+      7    GPSDOP                               no
+      8    GPSMeasureMode                       no
+
 =head3 GoPro KBAT Tags
 
 Battery status information found in GoPro Karma videos.
@@ -28129,6 +28183,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 +29287,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 +29310,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 +29339,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 +29907,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
@@ -29906,7 +29962,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 78 different formats of timed GPS metadata from video files.
+currently reads 82 different formats of timed GPS metadata from video files.
 
   Tag Name                                      Writable
   --------                                      --------
@@ -31651,6 +31707,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 +33315,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,69 @@ 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 (Secure Evidence Attribution Label) 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.  See L<https://github.com/hackerfactor/SEAL> for the specification.
+    },
+    seal=> 'SEALVersion',
+    ka  => 'KeyAlgorithm',
+    kv  => 'KeyVersion',
+    da  => 'DigestAlgorithm',
+    b   => 'ByteRange',
+    d   => 'Domain',
+    uid => 'UniqueIdentifier',
+    id  => 'Identifier',
+    sf  => 'SignatureFormat',
+    sl  => 'SignatureLength',
+   '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