exiftool_vendored 13.12.0 → 13.16.0

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

@@ -43,12 +43,12 @@
 package Image::ExifTool::QuickTime;
 
 use strict;
-use vars qw($VERSION $AUTOLOAD %stringEncoding);
+use vars qw($VERSION $AUTOLOAD %stringEncoding %avType);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 
-$VERSION = '3.08';
+$VERSION = '3.11';
 
 sub ProcessMOV($$;$);
 sub ProcessKeys($$$);
@@ -358,6 +358,19 @@ my %vendorID = (
     5 => 'UTF16',
 );
 
+# media types for which we have separate Keys tables (AudioKeys, VideoKeys)
+%avType = (
+    soun => 'Audio',
+    vide => 'Video',
+);
+
+# path to Keys/ItemList/UserData tags stored in tracks
+my %trackPath = (
+    'MOV-Movie-Track-Meta-ItemList' => 'Keys',
+    'MOV-Movie-Track-UserData-Meta-ItemList' => 'ItemList',
+    'MOV-Movie-Track-UserData' => 'UserData',
+);
+
 my %graphicsMode = (
     # (ref http://homepage.mac.com/vanhoek/MovieGuts%20docs/64.html)
     0x00 => 'srcCopy',
@@ -594,13 +607,24 @@ my %userDefined = (
         },
         {
             Name => 'LigoGPSInfo',
-            Condition => '$$valPt =~ /^LIGOGPSINFO\0/',
-            SubDirectory => { 
+            Condition => '$$valPt =~ /^LIGOGPSINFO\0/ and $$self{OPTIONS}{ExtractEmbedded}',
+            SubDirectory => {
                 TagTable => 'Image::ExifTool::QuickTime::Stream',
                 ProcessProc => 'Image::ExifTool::LigoGPS::ProcessLigoGPS',
             },
         },
-        { Name => 'Skip', Unknown => 1, Binary => 1 },
+        {
+            Name => 'Skip',
+            RawConv => q{
+                if ($val =~ /^LIGOGPSINFO\0/) {
+                    $self->Warn('Use the ExtractEmbedded option to decode timed GPS',3);
+                    return undef;
+                }
+                return $val;
+            },
+            Unknown => 1,
+            Binary => 1,
+        },
     ],
     wide => { Unknown => 1, Binary => 1 },
     ftyp => { #MP4
@@ -1525,7 +1549,7 @@ my %userDefined = (
             # (this tag is readable/writable as a block through the Extra SphericalVideoXML tags)
             Condition => '$$valPt=~/^\xff\xcc\x82\x63\xf8\x55\x4a\x93\x88\x14\x58\x7a\x02\x52\x1f\xdd/',
             WriteGroup => 'GSpherical', # write only GSpherical XMP tags here
-            HandlerType => 'vide',      # only write in video tracks
+            MediaType => 'vide',        # only write in video tracks
             SubDirectory => {
                 TagTable => 'Image::ExifTool::XMP::Main',
                 Start => 16,
@@ -2853,10 +2877,18 @@ my %userDefined = (
             IgnoreProp => { NonRealTimeMeta => 1 }, # ignore container for Sony 'nrtm'
         },
     },
-   'keys' => {
+   'keys' => [{
+        Name => 'AudioKeys',
+        Condition => '$$self{MediaType} eq "soun"',
+        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::AudioKeys' },
+    },{
+        Name => 'VideoKeys',
+        Condition => '$$self{MediaType} eq "vide"',
+        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::VideoKeys' },
+    },{
         Name => 'Keys',
         SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::Keys' },
-    },
+    }],
     bxml => {
         Name => 'BinaryXML',
         Flags => ['Binary','Unknown'],
@@ -3490,7 +3522,11 @@ my %userDefined = (
 #
     '----' => {
         Name => 'iTunesInfo',
-        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::iTunesInfo' },
+        Deletable => 1, # (deletable via 'iTunes' group)
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::QuickTime::iTunesInfo',
+            DirName => 'iTunes', # (necessary for group 'iTunes' delete)
+        },
     },
     aART => { Name => 'AlbumArtist', Groups => { 2 => 'Author' } },
     covr => { Name => 'CoverArt',    Groups => { 2 => 'Preview' }, Binary => 1 },
@@ -3597,7 +3633,7 @@ my %userDefined = (
             my $id = Image::ExifTool::ID3::GetGenreID($val);
             return unless defined $id and $id =~ /^\d+$/;
             return $id + 1;
-        }, 
+        },
     },
     egid => 'EpisodeGlobalUniqueID', #7
     geID => { #10
@@ -6599,7 +6635,7 @@ my %userDefined = (
     PROCESS_PROC => \&ProcessKeys,
     WRITE_PROC => \&WriteKeys,
     CHECK_PROC => \&CheckQTValue,
-    VARS => { LONG_TAGS => 9 },
+    VARS => { LONG_TAGS => 8 },
     WRITABLE => 1,
     # (not PREFERRED when writing)
     GROUPS => { 1 => 'Keys' },
@@ -6645,21 +6681,11 @@ my %userDefined = (
     publisher   => { },
     software    => { },
     year        => { Groups => { 2 => 'Time' } },
-    'camera.identifier' => 'CameraIdentifier', # (iPhone 4)
-    'camera.framereadouttimeinmicroseconds' => { # (iPhone 4)
-        Name => 'FrameReadoutTime',
-        ValueConv => '$val * 1e-6',
-        ValueConvInv => 'int($val * 1e6 + 0.5)',
-        PrintConv => '$val * 1e6 . " microseconds"',
-        PrintConvInv => '$val =~ s/ .*//; $val * 1e-6',
-    },
-  # 'camera.focal_length.35mm_equivalent' - not top level (written to Keys in video track)
-  # 'camera.lens_model'                   - not top level (written to Keys in video track)
     'location.ISO6709' => {
         Name => 'GPSCoordinates',
         Groups => { 2 => 'Location' },
         Notes => q{
-            Google Photos may ignore this if the coorinates have more than 5 digits
+            Google Photos may ignore this if the coordinates have more than 5 digits
             after the decimal
         },
         ValueConv => \&ConvertISO6709,
@@ -6715,7 +6741,6 @@ my %userDefined = (
 #
 # the following tags aren't in the com.apple.quicktime namespace:
 #
-    'com.apple.photos.captureMode' => 'CaptureMode',
     'com.android.version' => 'AndroidVersion',
     'com.android.capture.fps' => { Name  => 'AndroidCaptureFPS', Writable => 'float' },
     'com.android.manufacturer' => 'AndroidMake',
@@ -6815,6 +6840,58 @@ my %userDefined = (
     # (mdta)com.apple.proapps.image.{TIFF}.Software (eg. "9.0")
 );
 
+# Keys tags in the audio track (ref PH)
+%Image::ExifTool::QuickTime::AudioKeys = (
+    PROCESS_PROC => \&ProcessKeys,
+    WRITE_PROC => \&WriteKeys,
+    CHECK_PROC => \&CheckQTValue,
+    WRITABLE => 1,
+    GROUPS => { 1 => 'AudioKeys', 2 => 'Audio' },
+    WRITE_GROUP => 'AudioKeys',
+    LANG_INFO => \&GetLangInfo,
+    NOTES => q{
+        Keys tags written in the audio track by some Apple devices.  These tags
+        belong to the ExifTool AudioKeys family 1 gorup.
+    },
+    'player.movie.audio.gain'       => 'AudioGain',
+    'player.movie.audio.treble'     => 'Treble',
+    'player.movie.audio.bass'       => 'Bass',
+    'player.movie.audio.balance'    => 'Balance',
+    'player.movie.audio.pitchshift' => 'PitchShift',
+    'player.movie.audio.mute' => {
+        Name => 'Mute',
+        Format => 'int8u',
+        PrintConv => { 0 => 'Off', 1 => 'On' },
+    },
+);
+
+# Keys tags in the video track (ref PH)
+%Image::ExifTool::QuickTime::VideoKeys = (
+    PROCESS_PROC => \&ProcessKeys,
+    WRITE_PROC => \&WriteKeys,
+    CHECK_PROC => \&CheckQTValue,
+    VARS => { LONG_TAGS => 2 },
+    WRITABLE => 1,
+    GROUPS => { 1 => 'VideoKeys', 2 => 'Camera' },
+    WRITE_GROUP => 'VideoKeys',
+    LANG_INFO => \&GetLangInfo,
+    NOTES => q{
+        Keys tags written in the video track.  These tags belong to the ExifTool
+        VideoKeys family 1 gorup.
+    },
+    'camera.identifier' => 'CameraIdentifier',
+    'camera.lens_model' => 'LensModel',
+    'camera.focal_length.35mm_equivalent' => 'FocalLengthIn35mmFormat',
+    'camera.framereadouttimeinmicroseconds' => {
+        Name => 'FrameReadoutTime',
+        ValueConv => '$val * 1e-6',
+        ValueConvInv => 'int($val * 1e6 + 0.5)',
+        PrintConv => '$val * 1e6 . " microseconds"',
+        PrintConvInv => '$val =~ s/ .*//; $val * 1e-6',
+    },
+    'com.apple.photos.captureMode' => 'CaptureMode',
+);
+
 # iTunes info ('----') atoms
 %Image::ExifTool::QuickTime::iTunesInfo = (
     PROCESS_PROC => \&ProcessMOV,
@@ -7280,7 +7357,7 @@ my %userDefined = (
         {
             Name => 'VideoFrameRate',
             Notes => 'average rate calculated from time-to-sample table for video media',
-            Condition => '$$self{HandlerType} and $$self{HandlerType} eq "vide"',
+            Condition => '$$self{MediaType} eq "vide"',
             Format => 'undef',  # (necessary to prevent decoding as string!)
             # (must be RawConv so appropriate MediaTS is used in calculation)
             RawConv => 'Image::ExifTool::QuickTime::CalcSampleRate($self, \$val)',
@@ -7871,7 +7948,6 @@ my %userDefined = (
     mode => 'ModeFlags', #PH (?) 0x04 is HD flag (https://compilr.com/heksesang/requiem-mac/UnDrm.java)
     # sing - seen 4 zeros
     # hi32 - seen "00 00 00 04"
-    
 );
 
 # MP4 hint sample description box (ref 5)
@@ -8119,6 +8195,7 @@ my %userDefined = (
         Format => 'undef[4]',
         RawConv => q{
             $$self{HandlerType} = $val unless $val eq 'alis' or $val eq 'url ';
+            $$self{MediaType} = $val if @{$$self{PATH}} > 1 and $$self{PATH}[-2] eq 'Media';
             $$self{HasHandler}{$val} = 1; # remember all our handlers
             return $val;
         },
@@ -8703,24 +8780,28 @@ sub UnpackLang($;$)
 # Get language code string given QuickTime language and country codes
 # Inputs: 0) numerical language code, 1) numerical country code, 2) no defaults
 # Returns: language code string (ie. "fra-FR") or undef for default language
+# ex) 0x15c7 0x0000 is 'eng' with no country (ie. returns 'und' unless $noDef)
+#     0x15c7 0x5553 is 'eng-US'
+#     0x1a41 0x4652 is 'fra-FR'
+#     0x55c4 is 'und'
 sub GetLangCode($;$$)
 {
     my ($lang, $ctry, $noDef) = @_;
     # ignore country ('ctry') and language lists ('lang') for now
     undef $ctry if $ctry and $ctry <= 255;
     undef $lang if $lang and $lang <= 255;
-    $lang = UnpackLang($lang, $noDef);
+    my $langCode = UnpackLang($lang, $noDef);
     # add country code if specified
     if ($ctry) {
         $ctry = unpack('a2',pack('n',$ctry)); # unpack as ISO 3166-1
         # treat 'ZZ' like a default country (see ref 12)
         undef $ctry if $ctry eq 'ZZ';
         if ($ctry and $ctry =~ /^[A-Z]{2}$/) {
-            $lang or $lang = 'und';
-            $lang .= "-$ctry";
+            $langCode or $langCode = UnpackLang($lang,1) || 'und';
+            $langCode .= "-$ctry";
         }
     }
-    return $lang;
+    return $langCode;
 }
 
 #------------------------------------------------------------------------------
@@ -9538,6 +9619,8 @@ sub ProcessKeys($$$)
             my $groups = $$tagInfo{Groups};
             $$newInfo{Groups} = $groups ? { %$groups } : { };
             $$newInfo{Groups}{$_} or $$newInfo{Groups}{$_} = $$tagTablePtr{GROUPS}{$_} foreach 0..2;
+            # set Keys group.  This is necessary for logic when reading the associated ItemList entry,
+            # but note that the group name will be overridden by TAG_EXTRA G1 for tags in a track
             $$newInfo{Groups}{1} = 'Keys';
         } elsif ($tag =~ /^[-\w. ]+$/ or $tag =~ /\w{4}/) {
             # create info for tags with reasonable id's
@@ -9584,6 +9667,43 @@ sub ProcessMetaKeys($$$)
     return 1;
 }
 
+#------------------------------------------------------------------------------
+# Identify trailers at specified offset from end of file
+# Inputs: 0) RAF reference, 1) Offset from end of file
+# Returns: Array ref to first trailer in linked list: 0) name of trailer,
+#          1) absolute offset to start of this trailer, 2) trailer length,
+#          3) ref to next trailer. Or undef if no trailer found, or error string on error
+# - file position is returned to its original location
+sub IdentifyTrailers($)
+{
+    my $raf = shift;
+    my ($trailer, $nextTrail, $buff, $type, $len);
+    my $pos = $raf->Tell();
+    my $offset = 0; # positive offset back from end of file
+    while ($raf->Seek(-40-$offset, 2) and $raf->Read($buff, 40) == 40) {
+        if (substr($buff, 8) eq '8db42d694ccc418790edff439fe026bf') {
+            ($type, $len) = ('Insta360', unpack('V',$buff));
+        } elsif ($buff =~ /\&\&\&\&(.{4})$/) {
+            ($type, $len) = ('LigoGPS', Get32u(\$buff, 36));
+        } elsif ($buff =~ /~\0\x04\0zmie~\0\0\x06.{4}([\x10\x18])(\x04)$/s or
+                 $buff =~ /~\0\x04\0zmie~\0\0\x0a.{8}([\x10\x18])(\x08)$/s)
+        {
+            my $oldOrder = GetByteOrder();
+            SetByteOrder($1 eq "\x10" ? 'MM' : 'II');
+            $type = 'MIE';
+            $len = ($2 eq "\x04") ? Get32u(\$buff, 34) : Get64u(\$buff, 30);
+            SetByteOrder($oldOrder);
+        } else {
+            last;
+        }
+        $trailer = [ $type , $raf->Tell() - $len, $len, $nextTrail ];
+        $nextTrail = $trailer;
+        $offset += $len;
+    }
+    $raf->Seek($pos,0) or return 'Seek error';
+    return $trailer;
+}
+
 #------------------------------------------------------------------------------
 # Process a QuickTime atom
 # Inputs: 0) ExifTool object ref, 1) dirInfo ref, 2) optional tag table ref
@@ -9605,7 +9725,7 @@ sub ProcessMOV($$;$)
 
     my $topLevel = not $$et{InQuickTime};
     $$et{InQuickTime} = 1;
-    $$et{HandlerType} = $$et{MetaFormat} = '' unless defined $$et{HandlerType};
+    $$et{HandlerType} = $$et{MetaFormat} = $$et{MediaType} = '' if $topLevel;
 
     unless (defined $$et{KeysCount}) {
         $$et{KeysCount} = 0;    # initialize ItemList key directory count
@@ -9631,15 +9751,10 @@ sub ProcessMOV($$;$)
     }
     ($size, $tag) = unpack('Na4', $buff);
     my $fast = $$et{OPTIONS}{FastScan} || 0;
-    # check for Insta360 trailer
+    # check for Insta360, LIGOGPSINFO or MIE trailer
     if ($topLevel and not $fast) {
-        my $pos = $raf->Tell();
-        if ($raf->Seek(-40, 2) and $raf->Read($buff, 40) == 40 and
-            substr($buff, 8) eq '8db42d694ccc418790edff439fe026bf')
-        {
-            $trailer = [ 'Insta360', $raf->Tell() - unpack('V',$buff) ];
-        }
-        $raf->Seek($pos,0) or return 0;
+        $trailer = IdentifyTrailers($raf);
+        $trailer and not ref $trailer and $et->Warn($trailer), return 0;
     }
     if ($dataPt) {
         $verbose and $et->VerboseDir($$dirInfo{DirName});
@@ -9754,16 +9869,18 @@ sub ProcessMOV($$;$)
         }
         if ($isUserData and $$et{SET_GROUP1}) {
             my $tagInfo = $et->GetTagInfo($tagTablePtr, $tag);
-            # add track name to UserData tags inside tracks
-            $tag = $$et{SET_GROUP1} . $tag;
-            if (not $$tagTablePtr{$tag} and $tagInfo) {
-                my %newInfo = %$tagInfo;
-                foreach ('Name', 'Description') {
-                    next unless $$tagInfo{$_};
-                    $newInfo{$_} = $$et{SET_GROUP1} . $$tagInfo{$_};
-                    $newInfo{$_} =~ s/^(Track\d+)Track/$1/; # remove duplicate "Track" in name
+            unless ($$tagInfo{SubDirectory}) {
+                # add track name to UserData tags inside tracks
+                $tag = $$et{SET_GROUP1} . $tag;
+                if (not $$tagTablePtr{$tag} and $tagInfo) {
+                    my %newInfo = %$tagInfo;
+                    foreach ('Name', 'Description') {
+                        next unless $$tagInfo{$_};
+                        $newInfo{$_} = $$et{SET_GROUP1} . $$tagInfo{$_};
+                        $newInfo{$_} =~ s/^(Track\d+)Track/$1/; # remove duplicate "Track" in name
+                    }
+                    AddTagToTable($tagTablePtr, $tag, \%newInfo);
                 }
-                AddTagToTable($tagTablePtr, $tag, \%newInfo);
             }
         }
         # set flag to store additional information for ExtractEmbedded option
@@ -9830,7 +9947,7 @@ sub ProcessMOV($$;$)
             # check for RIFF trailer (written by Auto-Vox dashcam)
             if ($buff =~ /^(gpsa|gps0|gsen|gsea)...\0/s) { # (yet seen only gpsa as first record)
                 $et->VPrint(0, sprintf("Found RIFF trailer at offset 0x%x",$lastPos));
-                if ($et->Options('ExtractEmbedded')) {
+                if ($ee) {
                     $raf->Seek(-8, 1) or last;  # seek back to start of trailer
                     my $tbl = GetTagTable('Image::ExifTool::QuickTime::Stream');
                     ProcessRIFFTrailer($et, { RAF => $raf }, $tbl);
@@ -9980,6 +10097,7 @@ ItemID:         foreach $id (reverse sort { $a <=> $b } keys %$items) {
                 }
             }
             if ($tagInfo) {
+                my @found;
                 my $subdir = $$tagInfo{SubDirectory};
                 if ($subdir) {
                     my $start = $$subdir{Start} || 0;
@@ -10098,21 +10216,23 @@ ItemID:         foreach $id (reverse sort { $a <=> $b } keys %$items) {
                             Index   => $index,
                             Extra   => sprintf(", Type='${type}', Flags=0x%x%s, Lang=0x%.4x",$flags,$str,$lang),
                         ) if $verbose;
-                        # use "Keys" in path instead of ItemList if this was defined by a Keys tag
-                        my $isKey = $$tagInfo{Groups} && $$tagInfo{Groups}{1} && $$tagInfo{Groups}{1} eq 'Keys';
-                        if ($isKey) {
-                            $oldDir = $$et{PATH}[-1];
-                            $$et{PATH}[-1] = 'Keys';
+                        if (defined $value) {
+                            # use "Keys" in path instead of ItemList if this was defined by a Keys tag
+                            # (the only reason for this is to have "Keys" in the family 5 group name)
+                            # Note that the Keys group is specifically set by the ProcessKeys routine,
+                            # even though this tag would be in the ItemList table
+                            my $isKeys = $$tagInfo{Groups} && $$tagInfo{Groups}{1} && $$tagInfo{Groups}{1} eq 'Keys';
+                            $isKeys and $oldDir = $$et{PATH}[-1], $$et{PATH}[-1] = 'Keys';
+                            push @found, $et->FoundTag($langInfo, $value);
+                            $$et{PATH}[-1] = $oldDir if $isKeys;
                         }
-                        $et->FoundTag($langInfo, $value) if defined $value;
-                        $$et{PATH}[-1] = $oldDir if $isKey;
                         $pos += $len;
                     }
                 } elsif ($tag =~ /^\xa9/ or $$tagInfo{IText}) {
                     # parse international text to extract all languages
                     my $pos = 0;
                     if ($$tagInfo{Format}) {
-                        $et->FoundTag($tagInfo, ReadValue(\$val, 0, $$tagInfo{Format}, undef, length($val)));
+                        push @found, $et->FoundTag($tagInfo, ReadValue(\$val, 0, $$tagInfo{Format}, undef, length($val)));
                         $pos = $size;
                     }
                     for (;;) {
@@ -10177,7 +10297,7 @@ ItemID:         foreach $id (reverse sort { $a <=> $b } keys %$items) {
                             $str = substr($val, $pos-$n-2, $n) . $str;
                         }
                         $langInfo = GetLangInfoQT($et, $tagInfo, $lang) if $lang;
-                        $et->FoundTag($langInfo || $tagInfo, $str);
+                        push @found, $et->FoundTag($langInfo || $tagInfo, $str);
                         $pos += $len;
                     }
                 } else {
@@ -10191,6 +10311,7 @@ ItemID:         foreach $id (reverse sort { $a <=> $b } keys %$items) {
                         $$et{BASE} = $dataPos;
                     }
                     my $key = $et->FoundTag($tagInfo, $val);
+                    push @found, $key;
                     $$et{BASE} = $oldBase if defined $oldBase;
                     # decode if necessary (NOTE: must be done after RawConv)
                     if (defined $key and (not $format or $format =~ /^string/) and
@@ -10206,6 +10327,14 @@ ItemID:         foreach $id (reverse sort { $a <=> $b } keys %$items) {
                         }
                     }
                 }
+                # tweak family 1 group names for Keys/ItemList/UserData tags in a track
+                if ($$et{SET_GROUP1} and ($dirID eq 'ilst' or $dirID eq 'udta') and @found) {
+                    my $type = $trackPath{join '-', @{$$et{PATH}}};
+                    if ($type) {
+                        my $grp = ($avType{$$et{MediaType}} || $$et{SET_GROUP1}) . $type;
+                        defined and $et->SetGroup($_, $grp) foreach @found;
+                    }
+                }
             }
         } else {
             $et->VerboseInfo($tag, $tagInfo,
@@ -10218,11 +10347,12 @@ ItemID:         foreach $id (reverse sort { $a <=> $b } keys %$items) {
                 last;
             }
         }
+        $$et{MediaType} = '' if $tag eq 'trak';  # reset track type at end of track
         $dataPos += $size + 8;  # point to start of next atom data
         last if $dirEnd and $dataPos >= $dirEnd; # (note: ignores last value if 0 bytes)
         $lastPos = $raf->Tell() + $dirBase;
         if ($trailer and $lastPos >= $$trailer[1]) {
-            $et->Warn(sprintf('%s trailer at offset 0x%x', @$trailer), 1);
+            $et->Warn(sprintf('%s trailer at offset 0x%x (%d bytes)', @$trailer[0..2]), 1);
             last;
         }
         $raf->Read($buff, 8) == 8 or last;
@@ -10273,7 +10403,33 @@ QTLang: foreach $tag (@{$$et{QTLang}}) {
     # process item information now that we are done processing its 'meta' container
     HandleItemInfo($et) if $topLevel or $dirID eq 'meta';
 
-    ScanMediaData($et) if $ee and $topLevel;  # brute force scan for metadata embedded in media data
+    # process linked list of trailers
+    for (; $trailer; $trailer=$$trailer[3]) {
+        next if $lastPos > $$trailer[1];    # skip if we have already processed this as an atom
+        last unless $raf->Seek($$trailer[1], 0);
+        if ($$trailer[0] eq 'LigoGPS' and $raf->Read($buff, 8) == 8 and $buff =~ /skip$/) {
+            $ee or $et->Warn('Use the ExtractEmbedded option to decode timed GPS',3), next;
+            my $len = Get32u(\$buff, 0) - 16;
+            if ($len > 0 and $raf->Read($buff, $len) == $len and $buff =~ /^LIGOGPSINFO\0/) {
+                my $tbl = GetTagTable('Image::ExifTool::QuickTime::Stream');
+                my %dirInfo = ( DataPt => \$buff, DataPos => $$trailer[1] + 8, DirName => 'LigoGPSTrailer' );
+                Image::ExifTool::LigoGPS::ProcessLigoGPS($et, \%dirInfo, $tbl);
+            } else {
+                $et->Warn('Unrecognized data in LigoGPS trailer');
+            }
+        } elsif ($$trailer[0] eq 'Insta360' and $ee) {
+            # process Insta360 trailer if it exists
+            $raf->Seek(0, 2) or $et->Warn('Seek error'), last;
+            my $offset = $raf->Tell() - $$trailer[1] - $$trailer[2];
+            ProcessInsta360($et, { RAF => $raf, DirName => $$trailer[0], Offset => $offset });
+        } elsif ($$trailer[0] eq 'MIE') {
+            require Image::ExifTool::MIE;
+            Image::ExifTool::MIE::ProcessMIE($et, { RAF => $raf, DirName => 'MIE', Trailer => 1 });
+        }
+    }
+    # brute force scan for metadata embedded in media data
+    # (and process Insta360 trailer if it exists)
+    ScanMediaData($et) if $ee and $topLevel;
 
     # restore any changed options
     $et->Options($_ => $saveOptions{$_}) foreach keys %saveOptions;

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

@@ -111,7 +111,7 @@ my %insvLimit = (
         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 98 different types of timed GPS metadata from video files.
+        currently reads 100 different types of timed GPS metadata from video files.
     },
     VARS => { NO_ID => 1 },
     GPSLatitude  => { PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "N")', RawConv => '$$self{FoundGPSLatitude} = 1; $val' },
@@ -1512,7 +1512,7 @@ Sample:     for ($i=0; ; ) {
     # clean up
     $raf->Seek($tell, 0); # restore original file position
     delete $$et{DOC_NUM};
-    $$et{HandlerType} = $$et{HanderDesc} = '';
+    $$et{HandlerType} = '';
 }
 
 #------------------------------------------------------------------------------
@@ -3154,16 +3154,18 @@ sub ProcessInsta360($;$)
     my $verbose = $et->Options('Verbose');
     my $tagTbl = GetTagTable('Image::ExifTool::QuickTime::Stream');
     my $fileEnd = $raf->Tell();
+    my $trailEnd = $fileEnd - $offset;
     my $trailerLen = unpack('x38V', $buff);
-    $trailerLen > $fileEnd and $et->Warn('Bad Insta360 trailer size'), return 0;
+    $trailerLen > $trailEnd and $et->Warn('Bad Insta360 trailer size'), return 0;
     if ($dirInfo) {
         $$dirInfo{DirLen} = $trailerLen;
-        $$dirInfo{DataPos} = $fileEnd - $trailerLen;
+        $$dirInfo{DataPos} = $trailEnd - $trailerLen;
         if ($$dirInfo{OutFile}) {
             if ($$et{DEL_GROUP}{Insta360}) {
                 ++$$et{CHANGED};
+                return 1;
             # just copy the trailer when writing
-            } elsif ($trailerLen > $fileEnd or not $raf->Seek($$dirInfo{DataPos}, 0) or
+            } elsif ($trailerLen > $trailEnd or not $raf->Seek($$dirInfo{DataPos}, 0) or
                      $raf->Read(${$$dirInfo{OutFile}}, $trailerLen) != $trailerLen)
             {
                 return 0;
@@ -3181,7 +3183,7 @@ sub ProcessInsta360($;$)
 
     my $unknown = $et->Options('Unknown');
     # position relative to end of trailer (avoids using large offsets for files > 2 GB)
-    my $epos = -78-$offset;
+    my $epos = -78;
     my ($i, $p);
     $$et{SET_GROUP0} = 'Trailer';
     $$et{SET_GROUP1} = 'Insta360';
@@ -3190,7 +3192,7 @@ sub ProcessInsta360($;$)
     for (;;) {
         my ($id, $len) = unpack('vV', $buff);
         ($epos -= $len) + $trailerLen < 0 and last;
-        $raf->Seek($epos, 2) or last;
+        $raf->Seek($epos-$offset, 2) or last;
         if ($verbose) {
             $et->VPrint(0, sprintf("Insta360 Record 0x%x (offset 0x%x, %d bytes):\n", $id, $fileEnd + $epos, $len));
         }
@@ -3218,7 +3220,7 @@ sub ProcessInsta360($;$)
                             $dlen = 20;
                         }
                     }
-                    $raf->Seek($epos, 2) or last;
+                    $raf->Seek($epos-$offset, 2) or last;
                 }
             } elsif ($id == 0x200) {
                 $dlen = $len;
@@ -3347,8 +3349,8 @@ sub ProcessInsta360($;$)
         } else {
             ($epos -= 6) + $trailerLen < 0 and last;    # step back to previous record
         }
-        $raf->Seek($epos, 2) or last;       # seek to start of next footer
-        $raf->Read($buff, 6) == 6 or last;  # read footer
+        $raf->Seek($epos-$offset, 2) or last;   # seek to start of next footer
+        $raf->Read($buff, 6) == 6 or last;      # read footer
     }
     delete $$et{DOC_NUM};
     SetByteOrder('MM');
@@ -3607,8 +3609,6 @@ sub ScanMediaData($)
         $et->VPrint(0, "--------------------------\n");
         $$et{INDENT} = substr $$et{INDENT}, 0, -2;
     }
-    # process Insta360 trailer if it exists
-    ProcessInsta360($et);
 }
 
 1;  # end

data/bin/lib/Image/ExifTool/README

@@ -905,7 +905,10 @@ numerical, and generated automatically otherwise.
   Deletable     : [Writable SubDirectory's only] Overrides internal test for
                   metadata types with permanent directories (currently QuickTime
                   and Jpeg2000), allowing the tag containing these directories
-                  to be deleted
+                  to be deleted.  Note that either the tag's SubDirectory
+                  DirName (which defaults to the TagName if not specified) or
+                  the family 0 group name of the SubDirectory TagTable must
+                  match a deletable group name.
 
   OffsetPair    : Used in EXIF table to specify the tagID for the corresponding
                   offset or length tag.

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

@@ -30,7 +30,7 @@ use strict;
 use vars qw($VERSION $AUTOLOAD);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.69';
+$VERSION = '1.70';
 
 sub ConvertTimecode($);
 sub ProcessSGLT($$$);
@@ -1319,6 +1319,11 @@ my %code2charset = (
         Name => 'ImageWidth',
         Format => 'int16u',
         Priority => 0,
+        # add " (lossless)" to FileType since image has a VP8L (lossless) chunk
+        RawConv => q{
+            $self->OverrideFileType($$self{VALUE}{FileType} . ' (lossless)', undef, 'webp');
+            return $val;
+        },
         ValueConv => '($val & 0x3fff) + 1',
     },
     2 => {
@@ -1327,6 +1332,11 @@ my %code2charset = (
         Priority => 0,
         ValueConv => '(($val >> 6) & 0x3fff) + 1',
     },
+    4 => {
+        Name => 'AlphaIsUsed',
+        Mask => 0x10,
+        PrintConv => { 0 => 'No', 1 => 'Yes' },
+    },
 );
 
 # WebP extended info (ref 14)

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

@@ -1718,7 +1718,7 @@ SamBlock:
                 $fixup->AddFixup(length($buff) - $offsetPos);
                 $fixup->AddFixup(length($buff) - $offsetPos + 4);
             }
-            $et->VPrint(0, "Writing Samsung trailer ($dirLen bytes)\n") if $verbose;
+            $et->VPrint(0, "  Writing Samsung trailer ($dirLen bytes)\n") if $verbose;
             Write($$dirInfo{OutFile}, $buff) or return -1;
             return 1;
         }