exiftool-vendored.pl 12.76.0 → 12.78.0

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

@@ -48,7 +48,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 
-$VERSION = '2.93';
+$VERSION = '2.94';
 
 sub ProcessMOV($$;$);
 sub ProcessKeys($$$);
@@ -58,11 +58,14 @@ sub ProcessEncodingParams($$$);
 sub ProcessSampleDesc($$$);
 sub ProcessHybrid($$$);
 sub ProcessRights($$$);
+sub ProcessNextbase($$$);
 # ++vvvvvvvvvvvv++ (in QuickTimeStream.pl)
 sub Process_mebx($$$);
 sub Process_3gf($$$);
 sub Process_gps0($$$);
 sub Process_gsen($$$);
+sub Process_gdat($$$);
+sub Process_nbmt($$$);
 sub ProcessKenwood($$$);
 sub ProcessLIGO_JSON($$$);
 sub ProcessRIFFTrailer($$$);
@@ -88,6 +91,7 @@ sub UnpackLang($;$);
 sub WriteKeys($$$);
 sub WriteQuickTime($$$);
 sub WriteMOV($$);
+sub WriteNextbase($$$);
 sub GetLangInfo($$);
 sub CheckQTValue($$$);
 
@@ -656,6 +660,14 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
             Name => 'SensorData', # sensor data for the 360Fly
             Condition => '$$valPt=~/^\xef\xe1\x58\x9a\xbb\x77\x49\xef\x80\x95\x27\x75\x9e\xb1\xdc\x6f/ and $$self{OPTIONS}{ExtractEmbedded}',
             SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::Tags360Fly' },
+        },{
+            Name => 'SensorData',
+            Condition => '$$valPt=~/^\xef\xe1\x58\x9a\xbb\x77\x49\xef\x80\x95\x27\x75\x9e\xb1\xdc\x6f/',
+            Notes => 'raw 360Fly sensor data without ExtractEmbedded option',
+            RawConv => q{
+                $self->WarnOnce('Use the ExtractEmbedded option to decode timed SensorData',3);
+                return \$val;
+            },
         },
         { #https://c2pa.org/specifications/
             Name => 'JUMBF',
@@ -685,18 +697,9 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
                 Start => 27,
             },
         },
-        {
-            Name => 'SensorData',
-            Condition => '$$valPt=~/^\xef\xe1\x58\x9a\xbb\x77\x49\xef\x80\x95\x27\x75\x9e\xb1\xdc\x6f/',
-            Notes => 'raw 360Fly sensor data without ExtractEmbedded option',
-            RawConv => q{
-                $self->WarnOnce('Use the ExtractEmbedded option to decode timed SensorData',3);
-                return \$val;
-            },
-        },
         { #PH (Canon CR3)
             Name => 'PreviewImage',
-            Condition => '$$valPt=~/^\xea\xf4\x2b\x5e\x1c\x98\x4b\x88\xb9\xfb\xb7\xdc\x40\x6e\x4d\x16/',
+            Condition => '$$valPt=~/^\xea\xf4\x2b\x5e\x1c\x98\x4b\x88\xb9\xfb\xb7\xdc\x40\x6e\x4d\x16.{32}/s',
             Groups => { 2 => 'Preview' },
             PreservePadding => 1,
             # 0x00 - undef[16]: UUID
@@ -711,6 +714,25 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
             # 0x3c - int32u: preview length
             RawConv => '$val = substr($val, 0x30); $self->ValidateImage(\$val, $tag)',
         },
+        { #PH (Garmin MP4)
+            Name => 'ThumbnailImage',
+            Condition => '$$valPt=~/^\x11\x6e\x40\xdc\xb1\x86\x46\xe4\x84\x7c\xd9\xc0\xc3\x49\x10\x81.{8}\xff\xd8\xff/s',
+            Groups => { 2 => 'Preview' },
+            Binary => 1,
+            # 0x00 - undef[16]: UUID
+            # 0x10 - int32u[2]: ThumbnailLength
+            # 0x14 - int16u[2]: width/height of image (160/120)
+            RawConv => q{
+                my $len = Get32u(\$val, 0x10);
+                return undef unless length($val) >= $len + 0x18;
+                return substr($val, 0x18, $len);
+            },
+        },
+        # also seen 120-byte record in Garmin MP4's, starting like this (model name at byte 9):
+        # 0000: 47 52 4d 4e 00 00 00 01 00 44 43 35 37 00 00 00 [GRMN.....DC57...]
+        # 0000: 47 52 4d 4e 00 00 00 01 00 44 43 36 36 57 00 00 [GRMN.....DC66W..]
+        # and this in Garmin, followed by 8 bytes of 0's:
+        # 0000: db 11 98 3d 8f 65 43 8c bb b8 e1 ac 56 fe 6b 04
         { #8
             Name => 'UUID-Unknown',
             %unknownInfo,
@@ -835,6 +857,20 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
     },
     # gpsa - seen hex "01 20 00 00" (DuDuBell M1, VSYS M6L)
     # gsea - 20 bytes hex "05 00's..." (DuDuBell M1) "05 08 02 01 ..." (VSYS M6L)
+    gdat => {   # Base64-encoded JSON-format timed GPS (Nextbase software)
+        Name => 'GPSData',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::QuickTime::Stream',
+            ProcessProc => \&Process_gdat,
+        },
+    },
+    nbmt => { # (Nextbase)
+        Name => 'NextbaseMeta',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::QuickTime::Stream',
+            ProcessProc => \&Process_nbmt,
+        },
+    },
    'GPS ' => {  # GPS data written by 70mai dashcam (parsed in QuickTimeStream.pl)
         Name => 'GPSDataList2',
         Unknown => 1,
@@ -2090,8 +2126,21 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
         Condition => '$$valPt =~ /^VIRBactioncamera/',
         RawConv => 'substr($val, 16)',
         RawConvInv => '"VIRBactioncamera$val"',
+    },{
+        Name => 'GarminModel', # (NC)
+        Condition => '$$valPt =~ /^\xf7\x6c\xd7\x6a\x07\x5b\x4a\x1e\xb3\x1c\x0e\x7f\xab\x7e\x09\xd4/',
+        Writable => 0,
+        RawConv => q{
+            return undef unless length($val) > 25;
+            my $len = unpack('x24C', $val);
+            return undef unless length($val) >= 25 + $len;
+            return substr($val, 25, $len);
+        },
     },{
         # have seen "28 f3 11 e2 b7 91 4f 6f 94 e2 4f 5d ea cb 3c 01" for RicohThetaZ1 accelerometer RADT data (not yet decoded)
+        # also seen in Garmin MP4:
+        # 51 0b 63 46 6c fd 4a 17 87 42 ea c9 ea ae b3 bd - seems to contain a duplicate of the trak atom
+        # b3 e8 21 f4 fe 33 4e 10 8f 92 f5 e1 d4 36 c9 8a - 8 bytes of zeros
         Name => 'UUID-Unknown',
         Writable => 0,
         %unknownInfo,
@@ -2399,6 +2448,30 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
         Groups => { 2 => 'Preview' },
         Binary => 1,
     },
+    # ---- Nextbase ----
+    info => 'FirmwareVersion',
+   'time' => {
+        Name => 'TimeStamp',
+        Format => 'int32u', # (followed by 4 unknown bytes 00 0d 00 00)
+        Writable => 0,
+        Groups => { 2 => 'Time' },
+        ValueConv => '$val =~ s/ .*//; ConvertUnixTime($val)',
+        PrintConv => '$self->ConvertDateTime($val)',
+    },
+    infi => {
+        Name => 'CameraInfo',
+        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::Nextbase' },
+    },
+    finm => {
+        Name => 'OriginalFileName',
+        Writable => 0,
+    },
+    # AMBA ? - (133 bytes)
+    # nbpl ? - "FP-433-KC"
+    nbpl => { Name => 'Unknown_nbpl', Unknown => 1, Hidden => 1 },
+    # maca ? - b8 2d 28 15 f1 48
+    # sern ? - 0d 69 42 74
+    # nbid ? - 0d 69 42 74 65 df 72 65 03 de c0 fb 01 01 00 00
     # ---- Unknown ----
     # CDET - 128 bytes (unknown origin)
     # mtyp - 4 bytes all zero (some drone video)
@@ -8087,6 +8160,88 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
     },
 );
 
+# Nextbase tags (ref PH)
+%Image::ExifTool::QuickTime::Nextbase = (
+    GROUPS => { 1 => 'Nextbase', 2 => 'Camera' },
+    PROCESS_PROC => \&ProcessNextbase,
+    WRITE_PROC => \&WriteNextbase,
+    VARS => { LONG_TAGS => 3 },
+    NOTES => q{
+        Tags found in 'infi' atom from some Nextbase videos.  As well as these tags,
+        other existing tags are also extracted.  These tags are not currently
+        writable but they may all be removed by deleting the Nextbase group.
+    },
+   'Wi-Fi SSID' => { },
+   'Wi-Fi Password' => { },
+   'Wi-Fi MAC Address' => { },
+   'Model' => { },
+   'Firmware' => { },
+   'Serial No' => { Name => 'SerialNumber' },
+   'FCC-ID' => { },
+   'Battery Status' => { },
+   'SD Card Manf ID' => { },
+   'SD Card OEM ID' => { },
+   'SD Card Model No' => { },
+   'SD Card Serial No' => { },
+   'SD Card Manf Date' => { },
+   'SD Card Type' => { },
+   'SD Card Used Space' => { },
+   'SD Card Class' => { },
+   'SD Card Size' => { },
+   'SD Card Format' => { },
+   'Wi-Fi SSID' => { },
+   'Wi-Fi Password' => { },
+   'Wi-Fi MAC Address' => { },
+   'Bluetooth Name' => { },
+   'Bluetooth MAC Address' => { },
+   'Resolution' => { },
+   'Exposure' => { },
+   'Video Length' => { },
+   'Audio' => { },
+   'Time Stamp' => { Name => 'VideoTimeStamp' },
+   'Speed Stamp' => { },
+   'GPS Stamp' => { },
+   'Model Stamp' => { },
+   'Dual Files' => { },
+   'Time Lapse' => { },
+   'Number / License Plate' => { },
+   'G Sensor' => { },
+   'Image Stabilisation' => { },
+   'Extreme Weather Mode' => { },
+   'Screen Saver' => { },
+   'Alerts' => { },
+   'Recording History' => { },
+   'Parking Mode' => { },
+   'Language' => { },
+   'Country' => { },
+   'Time Zone / DST' => { Groups => { 2 => 'Time' } },
+   'Time & Date' => { Name => 'TimeAndDate', Groups => { 2 => 'Time' } },
+   'Speed Units' => { },
+   'Device Sounds' => { },
+   'Screen Dimming' => { },
+   'Auto Power Off' => { },
+   'Keep User Settings' => { },
+   'System Info' => { },
+   'Format SD Card' => { },
+   'Default Settings' => { },
+   'Emergency SOS' => { },
+   'Reversing Camera' => { },
+   'what3words' => { Name => 'What3Words' },
+   'MyNextbase - Pairing' => { },
+   'MyNextbase - Paired Device Name' => { },
+   'Alexa' => { },
+   'Alexa - Pairing' => { },
+   'Alexa - Paired Device Name' => { },
+   'Alexa - Privacy Mode' => { },
+   'Alexa - Wake Word Language' => { },
+   'Firmware Version' => { },
+   'RTOS' => { },
+   'Linux' => { },
+   'NBCD' => { },
+   'Alexa' => { },
+   '2nd Cam' => { Name => 'SecondCam' },
+);
+
 # QuickTime composite tags
 %Image::ExifTool::QuickTime::Composite = (
     GROUPS => { 2 => 'Video' },
@@ -9149,6 +9304,23 @@ sub ProcessRights($$$)
     return 1;
 }
 
+#------------------------------------------------------------------------------
+# Process Nextbase 'infi' atom (ref PH)
+# Inputs: 0) ExifTool object ref, 1) dirInfo ref, 2) tag table ref
+# Returns: 1 on success
+sub ProcessNextbase($$$)
+{
+    my ($et, $dirInfo, $tagTbl) = @_;
+    my $dataPt = $$dirInfo{DataPt};
+    $et->VerboseDir('Nextbase', undef, length($$dataPt));
+    while ($$dataPt =~ /(.*?): +(.*)\x0d/g) {
+        my ($id, $val) = ($1, $2);
+        $$tagTbl{$id} or AddTagToTable($tagTbl, $id, { Name => Image::ExifTool::MakeTagName($id) });
+        $et->HandleTag($tagTbl, $id, $val, Size => length($val));
+    }
+    return 1;
+}
+
 #------------------------------------------------------------------------------
 # Process iTunes Encoding Params (ref PH)
 # Inputs: 0) ExifTool object ref, 1) dirInfo ref, 2) tag table ref