exiftool_vendored 12.86.0 → 12.92.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 27868 tags, with 17446 unique tag names.
+They contain a total of 27895 tags, with 17462 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
@@ -1390,6 +1390,7 @@ L<http://www.adobe.com/devnet/xmp/> for the official XMP specification.
   fpv                                           XMP fpv
   GAudio                                        XMP GAudio
   GCamera                                       XMP GCamera
+  GContainer                                    XMP GContainer
   GCreations                                    XMP GCreations
   GDepth                                        XMP GDepth
   getty                                         XMP GettyImages
@@ -4794,6 +4795,7 @@ These tags belong to the ExifTool XMP-GCamera family 1 group.
   BurstID                                       string
   BurstPrimary                                  string
   DisableAutoCreation                           string+
+  DisableSuggestedAction                        string+
   HDRPMakerNote                                 string
   HdrPlusMakernote                              string
   MicroVideo                                    integer
@@ -4809,6 +4811,42 @@ These tags belong to the ExifTool XMP-GCamera family 1 group.
   ShotLogData                                   string
   SpecialTypeID                                 string+
 
+=head3 XMP GContainer Tags
+
+Google Container namespace.  ExifTool uses the prefix 'GContainer' instead
+of 'Container' to avoid a conflict with the Google Device Container
+namespace.
+
+These tags belong to the ExifTool XMP-GContainer family 1 group.
+
+  Tag Name                                      Writable
+  --------                                      --------
+  ContainerDirectory                            Directory Struct+
+  DirectoryItem                                 Item Struct_+
+  DirectoryItemLabel                            string_+
+  DirectoryItemLength                           integer_+
+  DirectoryItemMime                             string_+
+  DirectoryItemPadding                          integer_+
+  DirectoryItemSemantic                         string_+
+  DirectoryItemURI                              string_+
+
+=head3 XMP Directory Struct
+
+  Field Name                                    Writable
+  ----------                                    --------
+  Item                                          Item Struct
+
+=head3 XMP Item Struct
+
+  Field Name                                    Writable
+  ----------                                    --------
+  Label                                         string
+  Length                                        integer
+  Mime                                          string
+  Padding                                       integer
+  Semantic                                      string
+  URI                                           string
+
 =head3 XMP GCreations Tags
 
 Google creations tags.
@@ -8052,19 +8090,23 @@ Flash information tags for the K10D, K20D and K200D.
   Index1   Tag Name                             Writable
   ------   --------                             --------
     0.1    PowerSource                          int8u & 0x0f
-           Tag01                                int8u & 0x0f
+    0.2    PowerAvailable                       int8u & 0xf0
     1.1    BodyBatteryState                     int8u & 0xf0
-           BodyBatteryState?                    int8u & 0xf0
     1.2    GripBatteryState                     int8u & 0x0f
-           GripBatteryState?                    int8u & 0x0f
       2    BodyBatteryADNoLoad                  int8u
            BodyBatteryVoltage1                  int16u
+           BodyBatteryState                     int8u
       3    BodyBatteryADLoad                    int8u
+           BodyBatteryPercent                   int8u
       4    GripBatteryADNoLoad                  int8u
            BodyBatteryVoltage2                  int16u
+           BodyBatteryVoltage                   int32u
       5    GripBatteryADLoad                    int8u
       6    BodyBatteryVoltage3                  int16u
       8    BodyBatteryVoltage4                  int16u
+     16    GripBatteryState                     int8u
+     17    GripBatteryPercent                   int8u
+     18    GripBatteryVoltage                   int32u
 
 =head3 Pentax AFInfo Tags
 
@@ -8236,6 +8278,7 @@ Tags decoded from the electronic level information for the K-3 III.
 
   Index1   Tag Name                             Writable
   ------   --------                             --------
+      1    CameraOrientation                    int8s
       3    RollAngle                            int16s
       5    PitchAngle                           int16s
 
@@ -9311,6 +9354,7 @@ Unknown only to reduce the volume of the normal output.
   0x4026   LogInfo                              Canon LogInfo
   0x4028   AFConfig                             Canon AFConfig
   0x403f   RawBurstModeRoll                     Canon RawBurstInfo
+  0x4059   LevelInfo                            Canon LevelInfo
 
 =head3 Canon CameraSettings Tags
 
@@ -10197,7 +10241,7 @@ CameraInfo tags for the EOS 1000D.
 
 =head3 Canon CameraInfoR6 Tags
 
-CameraInfo tags for the EOS R6.
+CameraInfo tags for the EOS R5 and R6.
 
   Index1   Tag Name                             Writable
   ------   --------                             --------
@@ -10432,6 +10476,7 @@ WB tags for the Canon G9.
      21    FocusDistanceLower                   int16u
      23    ShutterMode                          int16s
      25    FlashExposureLock                    int16s
+     32    AntiFlicker                          int16s
      61    RFLensType                           int16u
 
 =head3 Canon SerialInfo Tags
@@ -11549,6 +11594,16 @@ Information about creative filter settings.
       1    RawBurstImageNum                     int32u
       2    RawBurstImageCount                   int32u
 
+=head3 Canon LevelInfo Tags
+
+  Index4   Tag Name                             Writable
+  ------   --------                             --------
+      4    RollAngle                            int32s
+      5    PitchAngle                           int32s
+      7    FocalLength                          int32s
+      8    MinFocalLength                       int32s
+      9    MaxFocalLength                       int32s
+
 =head3 Canon CTMD Tags
 
 Canon Timed MetaData tags found in CR3 images.  The ExtractEmbedded option
@@ -13318,6 +13373,15 @@ Face recognition information.
   Face8Category                                 no
   Face8Name                                     no
 
+=head3 FujiFilm RAFHeader Tags
+
+Tags extracted from the header of RAF images.
+
+  Index1   Tag Name                             Writable
+  ------   --------                             --------
+     60    RAFVersion                           no
+    108    RAFCompression                       no
+
 =head3 FujiFilm RAF Tags
 
 FujiFilm RAF images contain meta information stored in a proprietary
@@ -15950,7 +16014,7 @@ Tags written by some Nikon GPS-equipped cameras like the AW100.
   Index1   Tag Name                             Writable
   ------   --------                             --------
       0    FirmwareVersion51                    no
-     10    NEFCompression                       int16u[0.5]
+     10    NEFCompression                       int16u
 
 =head3 Nikon MakerNotes0x56 Tags
 
@@ -20230,6 +20294,7 @@ These tags are found in IFD0 of Panasonic/Leica RAW, RW2 and RWL images.
   0x0030   CropLeft                             int16u
   0x0031   CropBottom                           int16u
   0x0032   CropRight                            int16u
+  0x0037   ISO                                  int32u
   0x010f   Make                                 string
   0x0110   Model                                string
   0x0111   StripOffsets                         no
@@ -20805,10 +20870,10 @@ Camera orientation information written by the Gear 360 (SM-C200).
 
 =head3 Samsung Trailer Tags
 
-Tags extracted from the trailer of JPEG images written when using certain
-features (such as "Sound & Shot" or "Shot & More") from Samsung models such
-as the Galaxy S4 and Tab S, and from the 'sefd' atom in HEIC images from the
-Samsung S10+.
+Tags extracted from the SEFT trailer of JPEG and PNG images written when
+using certain features (such as "Sound & Shot" or "Shot & More") from
+Samsung models such as the Galaxy S4 and Tab S, and from the 'sefd' atom in
+HEIC images from models such as the S10+.
 
   Tag Name                                      Writable
   --------                                      --------
@@ -20826,6 +20891,9 @@ Samsung S10+.
   EmbeddedVideoFile                             no
   EmbeddedVideoType                             no
   MCCData                                       no
+  PEg_Info                                      JSON
+  RemasterInfo                                  no
+  SamsungCaptureInfo                            no
   SingleShotDepthMap                            no
   SingleShotMeta                                Samsung SingleShotMeta
   SurroundShotVideo                             no
@@ -22892,7 +22960,7 @@ E-mount models.
 
 =head3 Sony Tag9416 Tags
 
-Valid for the ILCE-1/6700/7CM2/7CR/7M4/7RM5/7SM3/9M3, ILME-FX3/FX30, ZV-E1.
+Valid for the ILCE-1/6700/7CM2/7CR/7M4/7RM5/7SM3/9M3, ILME-FX3/FX30, ZV-E1/E10M2.
 
   Index1   Tag Name                             Writable
   ------   --------                             --------
@@ -23612,7 +23680,7 @@ These tags are used in Minolta RAW format (MRW) images.
       4    WBMode                               int8u~
       5    ProgramMode                          int8u
       6    ISOSetting                           int8u
-      7    ColorMode                            int32u[0.25]
+      7    ColorMode                            int8u
       8    WB_RBLevelsTungsten                  int16u[2]
      12    WB_RBLevelsDaylight                  int16u[2]
      16    WB_RBLevelsCloudy                    int16u[2]
@@ -25753,7 +25821,7 @@ the image undisplayable.
       2    ColorSpecApproximation               int8s!
       3    ICC_Profile                          ICC_Profile
            ColorSpace                           int32u!
-           ColorSpecData                        undef!
+           ColorSpecData                        undef[$size-3]!
 
 =head3 Jpeg2000 FileType Tags
 
@@ -29435,11 +29503,11 @@ parameters, as well as proprietary information written by many camera
 models.  Tags with a question mark after their name are not extracted unless
 the Unknown option is set.
 
-When writing, ExifTool creates both QuickTime and XMP tags by default, but
-the group may be specified to write one or the other separately.  If no
-location is specified, newly created QuickTime tags are added in the
-L<ItemList|Image::ExifTool::TagNames/QuickTime ItemList Tags> location if
-possible, otherwise in
+When writing video files, ExifTool creates both QuickTime and XMP tags by
+default, but the group may be specified to write one or the other
+separately.  If no location is specified, newly created QuickTime tags are
+added in the L<ItemList|Image::ExifTool::TagNames/QuickTime ItemList Tags>
+location if possible, otherwise in
 L<UserData|Image::ExifTool::TagNames/QuickTime UserData Tags>, and
 finally in L<Keys|Image::ExifTool::TagNames/QuickTime Keys Tags>,
 but this order may be changed by setting the PREFERRED level of the
@@ -29490,7 +29558,7 @@ the original size by padding with nulls if necessary.
 
 See
 L<https://developer.apple.com/library/archive/documentation/QuickTime/QTFF/>
-for the official specification.
+for the official QuickTime specification.
 
   Tag ID               Tag Name                 Writable
   ------               --------                 --------
@@ -29550,7 +29618,7 @@ for the official 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 74 different formats of timed GPS metadata from video files.
+currently reads 76 different formats of timed GPS metadata from video files.
 
   Tag Name                                      Writable
   --------                                      --------
@@ -29562,6 +29630,7 @@ currently reads 74 different formats of timed GPS metadata from video files.
   CameraModel                                   no
   Car                                           no
   DateTimeOriginal                              no
+  DateTimeStamp                                 no
   Distance                                      no
   ExposureCompensation                          no
   ExposureTime                                  no
@@ -32672,7 +32741,8 @@ Other tags are extracted with the Unknown option.
 
 The following tags are extracted from Matroska multimedia container files.
 This container format is used by file types such as MKA, MKV, MKS and WEBM.
-For speed, by default ExifTool extracts tags only up to the first Cluster.
+For speed, by default ExifTool extracts tags only up to the first Cluster
+unless a Seek element specifies the position of a Tags element after this.
 However, the Verbose (-v) and Unknown = 2 (-U) options force processing of
 Cluster data, and the ExtractEmbedded (-ee) option skips over Clusters to
 read subsequent tags.  See
@@ -40120,6 +40190,7 @@ FileName.
   PreviewTIFF                File               no
   PreviewWMF                 File               no
   ProcessingTime             ExifTool           no
+  RAFCompression             File               no
   RAFVersion                 File               no
   ResourceForkSize           System             no
   SphericalVideoXML          GSpherical         yes!

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

@@ -507,10 +507,16 @@ sub WriteItemInfo($$$)
         my ($warn, $extent, $buff, @edit);
         $warn = 'Missing iloc box' unless $$boxPos{iloc};
         $warn = "No Extents for $type item" unless $$item{Extents} and @{$$item{Extents}};
-        $warn = "Can't currently decode encoded $type metadata" if $$item{ContentEncoding};
+        if ($$item{ContentEncoding}) {
+            if ($$item{ContentEncoding} ne 'deflate') {
+                $warn = "Can't currently decode $$item{ContentEncoding} encoded $type metadata";
+            } elsif (not eval { require Compress::Zlib }) {
+                $warn = "Install Compress::Zlib to decode deflated $type metadata";
+            }
+        }
         $warn = "Can't currently decode protected $type metadata" if $$item{ProtectionIndex};
         $warn = "Can't currently extract $type with construction method $$item{ConstructionMethod}" if $$item{ConstructionMethod};
-        $warn = "$type metadata is not this file" if $$item{DataReferenceIndex};
+        $warn = "$type metadata is not in this file" if $$item{DataReferenceIndex};
         $warn and $et->Warn($warn), next;
         my $base = $$item{BaseOffset} || 0;
         my $val = '';
@@ -527,6 +533,25 @@ sub WriteItemInfo($$$)
         }
         next unless defined $buff;
         $buff = $val . $buff if length $val;
+        my $comp = $et->Options('Compress');
+        if (defined $comp and ($comp xor $$item{ContentEncoding})) {
+            #TODO: add ability to edit infe entry in iinf to change encoding according to Compress option if set
+            $et->Warn("Can't currently change compression when rewriting $name in HEIC",1);
+        }
+        my $wasDeflated;
+        if ($$item{ContentEncoding}) {
+            my ($v2, $stat);
+            my $inflate = Compress::Zlib::inflateInit();
+            $inflate and ($v2, $stat) = $inflate->inflate($buff);
+            $et->VPrint(0, "  (Inflating stored $name metadata)\n");
+            if ($inflate and $stat == Compress::Zlib::Z_STREAM_END()) {
+                $buff = $v2;
+                $wasDeflated = 1;
+            } else {
+                $et->WarnOnce("Error inflating $name metadata");
+                next;
+            }
+        }
         my ($hdr, $subTable, $proc);
         if ($name eq 'EXIF') {
             if (not length $buff) {
@@ -560,6 +585,17 @@ sub WriteItemInfo($$$)
             ($dirInfo{DirLen} or length $newVal))
         {
             $newVal = $hdr . $newVal if length $hdr and length $newVal;
+            if ($wasDeflated) {
+                my $deflate = Compress::Zlib::deflateInit();
+                if ($deflate) {
+                    $et->VPrint(0, "  (Re-deflating new $name metadata)\n");
+                    $buff = $deflate->deflate($newVal);
+                    if (defined $buff) {
+                        $buff .= $deflate->flush();
+                        $newVal = $buff;
+                    }
+                }
+            }
             $edit[0][2] = \$newVal;     # replace the old chunk with the new data
             $edit[0][3] = $id;          # mark this chunk with the item ID
             push @mdatEdit, @edit;
@@ -640,21 +676,38 @@ sub WriteItemInfo($$$)
             # add new infe to iinf
             $add{iinf} = $add{iref} = $add{iloc} = '' unless defined $add{iinf};
             my ($type, $mime);
+            my $enc = '';
             if ($name eq 'XMP') {
                 $type = "mime\0";
                 $mime = "application/rdf+xml\0";
+                # write compressed XMP if Compress option is set
+                if ($et->Options('Compress') and length $newVal) {
+                    if (not eval { require Compress::Zlib }) {
+                        $et->WarnOnce('Install Compress::Zlib to write compressed metadata');
+                    } else {
+                        my $deflate = Compress::Zlib::deflateInit();
+                        if ($deflate) {
+                            $et->VPrint(0, "  (Deflating new $name metadata)\n");
+                            my $buff = $deflate->deflate($newVal);
+                            if (defined $buff) {
+                                $newVal = $buff . $deflate->flush();
+                                $enc = "deflate\0";
+                            }
+                        }
+                    }
+                }
             } else {
                 $type = "Exif\0";
                 $mime = '';
             }
             my $id = 1;
             ++$id while $$items{$id} or $usedID{$id};   # find next unused item ID
-            my $n = length($type) + length($mime) + 16;
+            my $n = length($type) + length($mime) + length($enc) + 16;
             if ($id < 0x10000) {
-                $add{iinf} .= pack('Na4CCCCnn', $n, 'infe', 2, 0, 0, 1, $id, 0) . $type . $mime;
+                $add{iinf} .= pack('Na4CCCCnn', $n, 'infe', 2, 0, 0, 1, $id, 0) . $type . $mime . $enc;
             } else {
                 $n += 2;
-                $add{iinf} .= pack('Na4CCCCNn', $n, 'infe', 3, 0, 0, 1, $id, 0) . $type . $mime;
+                $add{iinf} .= pack('Na4CCCCNn', $n, 'infe', 3, 0, 0, 1, $id, 0) . $type . $mime . $enc;
             }
             # add new cdsc to iref
             if ($irefVer) {
@@ -733,28 +786,36 @@ sub WriteItemInfo($$$)
                 $add{$tag} = Set32u(12 + length $add{$tag}) . $tag .
                              Set8u($$boxPos{$tag}[2]) . "\0\0\0" . $add{$tag};
             } elsif ($tag ne 'hdlr') {
-                my $n = Get32u($outfile, $pos);
-                Set32u($n + length($add{$tag}), $outfile, $pos);    # increase box size
+                my $n = Get32u($outfile, $pos) +  length($add{$tag});
+                Set32u($n, $outfile, $pos);    # increase box size
             }
             if ($tag eq 'iinf') {
                 my $iinfVer = Get8u($outfile, $pos + 8);
                 if ($iinfVer == 0) {
-                    my $n = Get16u($outfile, $pos + 12);
-                    Set16u($n + $countNew, $outfile, $pos + 12);    # incr count
+                    my $n = Get16u($outfile, $pos + 12) + $countNew;
+                    if ($n > 0xffff) {
+                        $et->Error("Can't currently handle rollover to long item count");
+                        return undef;
+                    }
+                    Set16u($n, $outfile, $pos + 12);    # incr count
                 } else {
-                    my $n = Get32u($outfile, $pos + 12);
-                    Set32u($n + $countNew, $outfile, $pos + 12);    # incr count
+                    my $n = Get32u($outfile, $pos + 12) + $countNew;
+                    Set32u($n, $outfile, $pos + 12);    # incr count
                 }
             } elsif ($tag eq 'iref') {
                 # nothing more to do
             } elsif ($tag eq 'iloc') {
                 my $ilocVer = Get8u($outfile, $pos + 8);
                 if ($ilocVer < 2) {
-                    my $n = Get16u($outfile, $pos + 14);
-                    Set16u($n + $countNew, $outfile, $pos + 14);    # incr count
+                    my $n = Get16u($outfile, $pos + 14) + $countNew;
+                    Set16u($n, $outfile, $pos + 14);    # incr count
+                    if ($n > 0xffff) {
+                        $et->Error("Can't currently handle rollover to long item count");
+                        return undef;
+                    }
                 } else {
-                    my $n = Get32u($outfile, $pos + 14);
-                    Set32u($n + $countNew, $outfile, $pos + 14);    # incr count
+                    my $n = Get32u($outfile, $pos + 14) + $countNew;
+                    Set32u($n, $outfile, $pos + 14);    # incr count
                 }
                 # must also update pointer locations in this box
                 if ($added) {
@@ -895,6 +956,8 @@ sub WriteQuickTime($$$)
                 } elsif (not $et->Options('LargeFileSupport')) {
                     $et->Error('End of processing at large atom (LargeFileSupport not enabled)');
                     last;
+                } elsif ($et->Options('LargeFileSupport') eq '2') {
+                    $et->WarnOnce('Processing large atom (LargeFileSupport is 2)');
                 }
             }
             $size = $hi * 4294967296 + $lo - 16;
@@ -1447,7 +1510,13 @@ sub WriteQuickTime($$$)
             $writeLast = ($writeLast || '') . $hdr . $buff;
         } else {
             # save position of this box in the output buffer
+#TODO do this:
+#TODO            my $bp = $boxPos{$tag} || ($boxPos{$tag} = [ ]);
+#TODO            push @$bp, length($$outfile), length($hdr) + length($buff);
+#TODO instead of this:
             $boxPos{$tag} = [ length($$outfile), length($hdr) + length($buff) ];
+#TODO then we have the positions of all the infe boxes -- we then only need
+#TODO to know the index of the box to edit if the encoding changes for one of them
             # copy the existing atom
             Write($outfile, $hdr, $buff) or $rtnVal=$rtnErr, $err=1, last;
         }

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

@@ -3844,7 +3844,6 @@ sub GetGeolocateTags($$;$)
         'iptc'          => [ qw(City Province-State Country-PrimaryLocationCode Country-PrimaryLocationName) ],
         'gps'           => [ qw(GPSLatitude GPSLongitude GPSLatitudeRef GPSLongitudeRef) ],
         'xmp-exif'      => [ qw(GPSLatitude GPSLongitude) ],
-        'keys'          => [ 'GPSCoordinates', 'LocationName' ],
         'itemlist'      => [ 'GPSCoordinates' ],
         'userdata'      => [ 'GPSCoordinates' ],
         # more general groups not in this lookup: XMP and QuickTime 
@@ -3855,12 +3854,16 @@ sub GetGeolocateTags($$;$)
         $tagGroups{$grp} and push @tags, map("$grp:$_", @{$tagGroups{$grp}});
     }
     # set default XMP City tags if necessary
-    if (not $writeGPS and ($grps{xmp} or (not @tags and not $grps{quicktime}))) {
-        push @tags, qw(XMP:City XMP:State XMP:CountryCode XMP:Country Keys:LocationName);
+    if (not $writeGPS) {
+        push @tags, 'Keys:LocationName' if $grps{'keys'};
+        if  ($grps{xmp} or (not @tags and not $grps{quicktime})) {
+            push @tags, qw(XMP:City XMP:State XMP:CountryCode XMP:Country Keys:LocationName);
+        }
     }
     $writeGPS = 1 unless defined $writeGPS; # (delete both City and GPS)
+    push @tags, 'Keys:GPSCoordinates' if $writeGPS and $grps{'keys'};
     # set default QuickTime tag if necessary
-    my $didQT = grep /Coordinates$/, @tags;
+    my $didQT = grep /GPSCoordinates$/, @tags;
     if (($grps{quicktime} and not $didQT) or ($writeGPS and not @tags and not $grps{xmp})) {
         push @tags, 'QuickTime:GPSCoordinates';
     }

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

@@ -50,7 +50,7 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 require Exporter;
 
-$VERSION = '3.65';
+$VERSION = '3.66';
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(EscapeXML UnescapeXML);
 
@@ -203,8 +203,9 @@ 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/',
-  # Note: Not included due to namespace prefix conflict with Device:Container
-  # Container => 'http://ns.google.com/photos/1.0/container/',
+    # 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/',
 );
 
 # build reverse namespace lookup
@@ -932,11 +933,10 @@ my %sRangeMask = (
         Name => 'xmpDSA',
         SubDirectory => { TagTable => 'Image::ExifTool::Panasonic::DSA' },
     },
-  # Note: Note included due to namespace prefix conflict with Device:Container
-  # Container => {
-  #     Name => 'Container',
-  #     SubDirectory => { TagTable => 'Image::ExifTool::XMP::Container' },
-  # },
+    GContainer => {
+        Name => 'GContainer',
+        SubDirectory => { TagTable => 'Image::ExifTool::XMP::GContainer' },
+    },
 );
 
 # hack to allow XML containing Dublin Core metadata to be handled like XMP (eg. EPUB - see ZIP.pm)

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

@@ -101,8 +101,22 @@ my %sPose = (
 my %sEarthPose = (
     STRUCT_NAME => 'EarthPose',
     NAMESPACE => { EarthPose => 'http://ns.google.com/photos/dd/1.0/earthpose/' },
-    Latitude  => { Writable => 'real', Groups => { 2 => 'Location' }, %latConv },
-    Longitude => { Writable => 'real', Groups => { 2 => 'Location' }, %longConv },
+    Latitude  => {
+        Writable => 'real',
+        Groups => { 2 => 'Location' }, 
+        ValueConv    => 'Image::ExifTool::GPS::ToDegrees($val, 1)',
+        ValueConvInv => '$val',
+        PrintConv    => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "N")',
+        PrintConvInv => 'Image::ExifTool::GPS::ToDegrees($val, 1, "lat")',
+    },
+    Longitude => {
+        Writable => 'real',
+        Groups => { 2 => 'Location' },
+        ValueConv    => 'Image::ExifTool::GPS::ToDegrees($val, 1)',
+        ValueConvInv => '$val',
+        PrintConv    => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "E")',
+        PrintConvInv => 'Image::ExifTool::GPS::ToDegrees($val, 1, "lon")',
+    },
     Altitude  => {
         Writable => 'real',
         Groups => { 2 => 'Location' },
@@ -1921,6 +1935,7 @@ my %sACDSeeRegionStruct = (
     SpecialTypeID   => { List => 'Bag' },
     PortraitNote    => { },
     DisableAutoCreation => { List => 'Bag' },
+    DisableSuggestedAction => { List => 'Bag' }, #forum16147
     hdrp_makernote => {
         Name => 'HDRPMakerNote',
         # decoded data starts with the following bytes, but nothing yet is known about its contents:
@@ -2109,35 +2124,41 @@ my %sACDSeeRegionStruct = (
 );
 
 # Google container tags (ref https://developer.android.com/guide/topics/media/platform/hdr-image-format)
-# NOTE: Not included because these namespace prefixes conflict with Google's depth-map Device tags!
+# NOTE: The namespace prefix used by ExifTool is 'GContainer' instead of 'Container'
+# dueo to a conflict with Google's depth-map Device 'Container' namespace!
 # (see ../pics/GooglePixel8Pro.jpg sample image)
-# %Image::ExifTool::XMP::Container = (
-#     %xmpTableDefaults,
-#     GROUPS => { 1 => 'XMP-Container', 2 => 'Image' },
-#     NAMESPACE => 'Container',
-#     NOTES => 'Google Container namespace.',
-#     Directory => {
-#         Name => 'ContainerDirectory',
-#         FlatName => 'Directory',
-#         List => 'Seq',
-#         Struct => {
-#             STRUCT_NAME => 'Directory',
-#             Item => {
-#                 Namespace => 'Container',
-#                 Struct => {
-#                     STRUCT_NAME => 'Item',
-#                     NAMESPACE => { Item => 'http://ns.google.com/photos/1.0/container/item/'},
-#                     Mime     => { },
-#                     Semantic => { },
-#                     Length   => { Writable => 'integer' },
-#                     Label    => { },
-#                     Padding  => { Writable => 'integer' },
-#                     URI      => { },
-#                 },
-#             },
-#         },
-#     },
-# );
+%Image::ExifTool::XMP::GContainer = (
+    %xmpTableDefaults,
+    GROUPS => { 1 => 'XMP-GContainer', 2 => 'Image' },
+    NAMESPACE => 'GContainer',
+    NOTES => q{
+        Google Container namespace.  ExifTool uses the prefix 'GContainer' instead
+        of 'Container' to avoid a conflict with the Google Device Container
+        namespace.
+    },
+    Directory => {
+        Name => 'ContainerDirectory',
+        FlatName => 'Directory',
+        List => 'Seq',
+        Struct => {
+            STRUCT_NAME => 'Directory',
+            Item => {
+                Namespace => 'GContainer',
+                Struct => {
+                    STRUCT_NAME => 'Item',
+                    # (use 'GItem' to avoid conflict with Google Device Container Item)
+                    NAMESPACE => { GItem => 'http://ns.google.com/photos/1.0/container/item/'},
+                    Mime     => { },
+                    Semantic => { },
+                    Length   => { Writable => 'integer' },
+                    Label    => { },
+                    Padding  => { Writable => 'integer' },
+                    URI      => { },
+                },
+            },
+        },
+    },
+);
 
 # Getty Images namespace (ref PH)
 %Image::ExifTool::XMP::GettyImages = (

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

@@ -20,7 +20,7 @@ use strict;
 use vars qw($VERSION $warnString);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.31';
+$VERSION = '1.32';
 
 sub WarnProc($) { $warnString = $_[0]; }
 
@@ -325,9 +325,13 @@ sub ProcessRAR($$)
             last if $size < 0;
             next unless $size;  # ignore blocks with no data
             # don't try to read very large blocks unless LargeFileSupport is enabled
-            if ($size >= 0x80000000 and not $et->Options('LargeFileSupport')) {
-                $et->Warn('Large block encountered. Aborting.');
-                last;
+            if ($size >= 0x80000000) {
+                if (not $et->Options('LargeFileSupport')) {
+                    $et->Warn('Large block encountered. Aborting.');
+                    last;
+                } elsif ($et->Options('LargeFileSupport') eq '2') {
+                    $et->WarnOnce('Processing large block (LargeFileSupport is 2)');
+                }
             }
             # process the block
             if ($type == 0x74) { # file block