exiftool_vendored 12.54.0 → 12.55.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 556931dee6ac163b8e4b8249baaba174050a2069510b368c6d8669f6f60dd60e
-  data.tar.gz: e057290ad28b94817a7cef2f6379a9a8cf23fddcbc60b04129dc02858983cc82
+  metadata.gz: '08dd80f8e21b9b1cdb9c94d397452030151b485db6f08e25fdb408a4eade1052'
+  data.tar.gz: 6db554ec80bedd0d2022bd019cba25f5f7e61862bec88b00659790edbe123952
 SHA512:
-  metadata.gz: e6d7aae1216168a7f041da0e14b274808ba4866dcfee8f36106428b994d8fb87bdd4d6025da7f0c692704d8a097a2287368cd7ff0be4078d43f0e6614605af0a
-  data.tar.gz: 402e27906748e39a5246a1edf5dba1b42584bdd80519ea3db1aa69eb73b77980d9ab2d8fb8efd400eb13736c1c60d9213d2fe5a736da48e54ff26609ba5ee8df
+  metadata.gz: 64da9fcb6865573609dfb79388711aa9d74bd24718a9d076846158d74ffd962bb956a722671dca51b406de6581b9b2220528b09971c2ebe8f3afc0b1a2b3f281
+  data.tar.gz: 9601c888737e9e4c31f5edaa1b2fba847bbdb8cf2b4dc20013522ee0045c58736491a0d9e0b715f09a1113e23fd8a4672278292f45a6ed07f45507fa50a84bb6

data/bin/Changes

@@ -7,13 +7,25 @@ RSS feed: https://exiftool.org/rss.xml
 Note: The most recent production release is Version 12.50. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
+Jan. 17, 2023 - Version 12.55
+
+  - Added support for geotagging from FlightAware KML files
+  - Decode two more types of timed GPS from MOV/MP4 videos (66 types now)
+  - Decode a few new Nikon tags (thanks Warren Hatch)
+  - Decode a new Samsung HEIC tag
+  - Decode FujiFilm RollAngle
+  - Fixed bug where FlatName property wasn't working properly for some
+    user-defined structure tags
+
 Jan. 6, 2023 - Version 12.54
 
-  - Increased precision of Sony FocusDistance2 conversion
   - Decode a number of new Apple tags (thanks Frank Rupprecht)
-  - Fixed bug writing QuickTime-format files which have a zero-sized mdat (ie.
-    media data extends to end of file) which would cause an incorrect mdat size
-    to be written
+  - Increased precision of Sony FocusDistance2 conversion
+  - Fixed problem where GPSAltitude wasn't being set when geotagging from KML
+    files
+  - Fixed bug writing HEIC/AVIF files which have a zero-sized mdat (ie. media
+    data extends to end of file) which could cause an incorrect mdat size to be
+    written
 
 Jan. 4, 2023 - Version 12.53
 

data/bin/META.json

@@ -47,5 +47,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "12.54"
+   "version" : "12.55"
 }

data/bin/META.yml

@@ -28,4 +28,4 @@ recommends:
   Time::HiRes: 0
 requires:
   perl: 5.004
-version: 12.54
+version: 12.55

data/bin/README

@@ -107,8 +107,8 @@ your home directory, then you would type the following commands in a
 terminal window to extract and run ExifTool:
 
   cd ~/Desktop
-  gzip -dc Image-ExifTool-12.54.tar.gz | tar -xf -
-  cd Image-ExifTool-12.54
+  gzip -dc Image-ExifTool-12.55.tar.gz | tar -xf -
+  cd Image-ExifTool-12.55
   ./exiftool t/images/ExifTool.jpg
 
 Note:  These commands extract meta information from one of the test images. 

data/bin/exiftool

@@ -11,7 +11,7 @@ use strict;
 use warnings;
 require 5.004;
 
-my $version = '12.54';
+my $version = '12.55';
 
 # add our 'lib' directory to the include list BEFORE 'use Image::ExifTool'
 BEGIN {
@@ -5477,7 +5477,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 12.54 --
+    -- Generated by ExifTool 12.55 --
     File: a.jpg - 2003:10:31 15:44:19
     (f/5.6, 1/60s, ISO 100)
     File: b.jpg - 2006:05:23 11:57:38
@@ -6326,9 +6326,9 @@ seconds behind GPS:
 
     exiftool -geosync=+1:20 -geotag a.log DIR
 
-Advanced C<Geosync> features allow a linear time drift correction and
-synchronization from previously geotagged images.  See "geotag.html" in the
-full ExifTool distribution for more information.
+Advanced C<Geosync> features allow a piecewise linear time drift correction
+and synchronization from previously geotagged images.  See "geotag.html" in
+the full ExifTool distribution for more information.
 
 Multiple B<-geotag> options may be used to concatenate GPS track log data.
 Also, a single B<-geotag> option may be used to load multiple track log

data/bin/fmt_files/kml_track.fmt

@@ -1,5 +1,5 @@
 #------------------------------------------------------------------------------
-# File:         kml.fmt
+# File:         kml_track.fmt
 #
 # Description:  Example ExifTool print format file for generating a
 #               track in Google Earth KML format from a collection of
@@ -7,11 +7,11 @@
 #
 # Usage:        From a collection of images:
 #
-#                 exiftool -p kml.fmt -r DIR [...] > out.kml
+#                 exiftool -p kml_track.fmt -r DIR [...] > out.kml
 #
 #               From video files:
 #
-#                 exiftool -p kml.fmt -ee3 FILEorDIR [...] > out.kml
+#                 exiftool -p kml_track.fmt -ee3 FILEorDIR [...] > out.kml
 #
 # Requires:     ExifTool version 10.41 or later
 #

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

@@ -238,7 +238,7 @@ types of meta information.  To determine a tag name, either consult this
 documentation or run C<exiftool -s> on a file containing the information in
 question.
 
-I<(This documentation is the result of years of research, testing and
+I<(This documentation is the result of decades of research, testing and
 reverse engineering, and is the most complete metadata tag list available
 anywhere on the internet.  It is provided not only for ExifTool users, but
 more importantly as a public service to help augment the collective

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

@@ -31,7 +31,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 
-$VERSION = '1.85';
+$VERSION = '1.86';
 
 sub ProcessFujiDir($$$);
 sub ProcessFaceRec($$$);
@@ -798,6 +798,7 @@ my %faceCategories = (
     },
     0x1447 => { Name => 'FujiModel',  Writable => 'string' },
     0x1448 => { Name => 'FujiModel2', Writable => 'string' },
+    0x144d => { Name => 'RollAngle',  Writable => 'rational64s' }, #forum14319
     0x3803 => { #forum10037
         Name => 'VideoRecordingMode',
         Groups => { 2 => 'Video' },

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

@@ -29,7 +29,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:Public);
 use Image::ExifTool::GPS;
 
-$VERSION = '1.69';
+$VERSION = '1.70';
 
 sub JITTER() { return 2 }       # maximum time jitter
 
@@ -210,7 +210,7 @@ sub LoadTrackLog($$;$)
     my $fix = { };
     my $csvDelim = $et->Options('CSVDelim');
     $csvDelim = ',' unless defined $csvDelim;
-    my (@saveFix, $timeSpan);
+    my (@saveFix, @saveTime, $timeSpan);
     for (;;) {
         $raf->ReadLine($_) or last;
         # determine file format
@@ -357,8 +357,13 @@ sub LoadTrackLog($$;$)
                                 }
                                 # read KML "Point" coordinates
                                 @$fix{'lon','lat','alt'} = split ',', $1;
+                                $$has{alt} = 1 if $$fix{alt};
                             } else {
-                                $$fix{$tag} = $1;
+                                if ($tok eq 'when' and $$fix{'time'}) {
+                                    push @saveTime, $1; # flightaware KML stores times in array
+                                } else {
+                                    $$fix{$tag} = $1;
+                                }
                                 if ($isOrient{$tag}) {
                                     $$has{orient} = 1;
                                 } elsif ($tag eq 'alt') {
@@ -375,7 +380,11 @@ sub LoadTrackLog($$;$)
                         $td = 1;
                     }
                     # validate and store GPS fix
-                    next unless defined $$fix{lat} and defined $$fix{lon} and $$fix{'time'};
+                    next unless defined $$fix{lat} and defined $$fix{lon};
+                    unless (defined $$fix{'time'}) {
+                        next unless @saveTime;
+                        $$fix{'time'} = shift @saveTime; # get next time in flightaware KML list
+                    }
                     unless ($$fix{lat} =~ /^[+-]?\d+\.?\d*/ and $$fix{lon} =~ /^[+-]?\d+\.?\d*/) {
                         $e0 or $et->VPrint(0, "Coordinate format error in $from\n"), $e0 = 1;
                         next;

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

@@ -15,7 +15,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.13';
+$VERSION = '1.14';
 
 sub HandleStruct($$;$$$$);
 
@@ -708,11 +708,11 @@ my %uidInfo = (
 );
 
 # standardized tag names (ref 2)
-%Image::ExifTool::Matroska::Tags = (
+%Image::ExifTool::Matroska::StdTag = (
     GROUPS => { 2 => 'Video' },
     VARS => { LONG_TAGS => 1 },
     NOTES => q{
-        Standardized Matroska tags (see
+        Standardized Matroska tags, stored in a SimpleTag structure (see
         L<https://www.matroska.org/technical/tagging.html>).
     },
     ORIGINAL    => 'Original',  # struct
@@ -826,7 +826,7 @@ sub HandleStruct($$;$$$$)
 {
     local $_;
     my ($et, $struct, $pid, $pname, $lang, $ctry) = @_;
-    my $tagTbl = GetTagTable('Image::ExifTool::Matroska::Tags');
+    my $tagTbl = GetTagTable('Image::ExifTool::Matroska::StdTag');
     my $tag = $$struct{TagName};
     my $tagInfo = $$tagTbl{$tag};
     # create tag if necessary

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

@@ -64,7 +64,7 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 use Image::ExifTool::XMP;
 
-$VERSION = '4.16';
+$VERSION = '4.17';
 
 sub LensIDConv($$$);
 sub ProcessNikonAVI($$$);
@@ -4292,10 +4292,10 @@ my %base64coord = (
             $$self{ContrastDetectAF} == 2 and $$self{AFInfo2Version} =~ /^03/ or
             $$self{ContrastDetectAF} == 1 and $$self{AFInfo2Version} =~ /^0301/
         },
-        Format => 'int16u',
+        Format => 'int16u', # (decodes same byte as 0x2f)
     },
     0x2f => { #28 (Z7) Still photography range 1-17 for the 493 point Z7 (arranged in a 29x17 grid. Center at x=16, y=10).
-        Name => 'AFFocusPointXPosition',
+        Name => 'FocusPositionHorizontal',
         Condition => q{
             $$self{ContrastDetectAF} == 2 and $$self{AFInfo2Version} =~ /^03/ or
             $$self{ContrastDetectAF} == 1 and $$self{AFInfo2Version} =~ /^0301/
@@ -4309,7 +4309,7 @@ my %base64coord = (
                 $$self{ContrastDetectAF} == 2 and $$self{AFInfo2Version} =~ /^03/ or
                 $$self{ContrastDetectAF} == 1 and $$self{AFInfo2Version} =~ /^0301/
             },
-            Format => 'int16u',
+            Format => 'int16u', # (decodes same byte as 0x31)
         },{ #PH (D500, see forum11190)
             Name => 'AFPointsInFocus',
             Condition => '$$self{AFInfo2Version} eq "0101" and $$self{PhaseDetectAF} == 7',
@@ -4322,7 +4322,7 @@ my %base64coord = (
         },
     ],
     0x31 => { #28 (Z7)
-        Name => 'AFFocusPointYPosition',
+        Name => 'FocusPositionVertical',
         Condition => q{
             $$self{ContrastDetectAF} == 2 and $$self{AFInfo2Version} =~ /^03/ or
             $$self{ContrastDetectAF} == 1 and $$self{AFInfo2Version} =~ /^0301/
@@ -4452,6 +4452,21 @@ my %base64coord = (
         Writable => 0,
         RawConv => '$$self{AFInfo2Version} = $val',
     },
+    5 => { #28
+        Name => 'AFAreaMode',     #reflects the mode active when the shutter is tripped, not the position of the Focus Mode button (which is recorded in MenuSettingsZ9 tag also named AfAreaMode)
+        PrintConv => {
+            192 => 'Pinpoint',
+            193 => 'Single',
+            195 => 'Wide (S)',
+            196 => 'Wide (L)',
+            197 => 'Auto',
+            204 => 'Dynamic Area (S)',
+            205 => 'Dynamic Area (M)',
+            206 => 'Dynamic Area (L)',
+            207 => '3D-tracking',
+            208 => 'Wide (C1/C2)',
+        },
+    },
     0x3e => {
         Name => 'AFImageWidth',
         Format => 'int16u',
@@ -4460,6 +4475,11 @@ my %base64coord = (
         Name => 'AFImageHeight',
         Format => 'int16u',
     },
+    0x42 => { #28
+        Name => 'AFAreaXPosition',            #top left image corner is the origin
+        Format => 'int16u', # (decodes same byte as 0x43)
+        RawConv => '$val ? $val : undef',
+    },
     0x43 => {
         Name => 'FocusPositionHorizontal',
         Notes => q{
@@ -4471,6 +4491,11 @@ my %base64coord = (
         # (the 11R (5) position is not used, for a total of 29 columns, ref AlbertShan email)
         PrintConv => sub { my ($val) = @_; PrintAFPointsLeftRight($val, 29); },
     },
+    0x44 => { #28
+        Name => 'AFAreaYPosition',
+        Format => 'int16u', # (decodes same byte as 0x45)
+        RawConv => '$val ? $val : undef',
+    },
     0x45 => {
         Name => 'FocusPositionVertical',
         # (the 6U (4) and 2D (12) are not used, for a total of 17 rows, ref AlbertShan email)

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

@@ -47,7 +47,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 
-$VERSION = '2.82';
+$VERSION = '2.83';
 
 sub ProcessMOV($$;$);
 sub ProcessKeys($$$);
@@ -62,6 +62,7 @@ sub Process_mebx($$$);
 sub Process_3gf($$$);
 sub Process_gps0($$$);
 sub Process_gsen($$$);
+sub ProcessKenwood($$$);
 sub ProcessRIFFTrailer($$$);
 sub ProcessTTAD($$$);
 sub ProcessNMEA($$$);
@@ -652,10 +653,17 @@ my %eeBox2 = (
         Name => 'HTCInfo',
         SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::HTCInfo' },
     },
-    udta => {
-        Name => 'UserData',
+    udta => [{
+        Name => 'KenwoodData',
+        Condition => '$$valPt =~ /^VIDEOUUUUUUUUUUUUUUUUUUUUUU/',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::QuickTime::Stream',
+            ProcessProc => \&ProcessKenwood,
+        },
+    },{
+        Name => 'FLIRData',
         SubDirectory => { TagTable => 'Image::ExifTool::FLIR::UserData' },
-    },
+    }],
     thum => { #PH
         Name => 'ThumbnailImage',
         Groups => { 2 => 'Preview' },
@@ -763,6 +771,13 @@ my %eeBox2 = (
         SubDirectory => { TagTable => 'Image::ExifTool::Samsung::Trailer' },
     },
     # 'samn'? - seen in Vantrue N2S sample video
+    mpvd => {
+        Name => 'MotionPhotoVideo',
+        Notes => 'MP4-format video saved in Samsung motion-photo HEIC images.',
+        Binary => 1,
+        # note that this may be written and/or deleted, but can't currently be added back again
+        Writable => 1,
+    },
 );
 
 # stuff seen in 'skip' atom (70mai Pro Plus+ MP4 videos)

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

@@ -102,7 +102,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 63 different formats of timed GPS metadata from video files.
+        currently reads 66 different formats 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' },
@@ -880,9 +880,10 @@ sub HandleTextTags($$$)
 #------------------------------------------------------------------------------
 # Process subtitle 'text'
 # Inputs: 0) ExifTool ref, 1) data ref or dirInfo ref, 2) tag table ref
-sub Process_text($$$)
+#         3) flag set if text was already stored
+sub Process_text($$$;$)
 {
-    my ($et, $dataPt, $tagTbl) = @_;
+    my ($et, $dataPt, $tagTbl, $handled) = @_;
     my %tags;
 
     return if $$et{NoMoreTextDecoding};
@@ -938,6 +939,16 @@ sub Process_text($$$)
             $tags{GPSSatellites} = $10 if defined $10;
             $tags{GPSDOP} = $11 if defined $11;
             $tags{GPSAltitude} = $12 if defined $12;
+        # ($G and $GS are ref https://exiftool.org/forum/index.php?topic=13115.msg71743#msg71743)
+        } elsif ($tag eq 'G' and $dat =~ /:(\d{4})-(\d{2})-(\d{2}) (\d{2}:\d{2}:\d{2})-([NS])(\d+\.\d+)-([EW])(\d+\.\d+)-S(\d+)/) {
+            $tags{GPSDateTime} = "$1:$2:$3 $4";
+            $tags{GPSLatitude} = $6 * ($5 eq 'S' ? -1 : 1);
+            $tags{GPSLongitude} = $8 * ($7 eq 'W' ? -1 : 1);
+            $tags{GPSSpeed} = $9;
+        } elsif ($tag eq 'GS' and $dat =~ /:([-+]?\d+),([-+]?\d+),([-+]?\d+)/) {
+            # scale and re-arrange to match gsensor output from Win app (forum11665)
+            my @acc = ( ($2+2432)/1000, ($3 + 361)/1000, ($1-3708)/1000 );
+            $tags{Accelerometer} = "@acc";
         } elsif ($tag eq 'BEGINGSENSOR' and $dat =~ /^:([-+]\d+\.\d+):([-+]\d+\.\d+):([-+]\d+\.\d+)/) {
             $tags{Accelerometer} = "$1 $2 $3";
         } elsif ($tag eq 'TIME' and $dat =~ /^:(\d+)/) {
@@ -946,7 +957,7 @@ sub Process_text($$$)
             $tags{Text} = $dat if length $dat;
             $tags{done} = 1;
         } elsif ($tag ne 'END') {
-            $tags{Text} = "\$$tag$dat";
+            $tags{Text} = "\$$tag$dat" unless $handled;
         }
     }
     %tags and HandleTextTags($et, $tagTbl, \%tags), return;
@@ -1234,6 +1245,7 @@ Sample:     for ($i=0; ; ) {
             ($type eq 'sbtl' and $metaFormat eq 'tx3g' and $buff =~ /^..PNDM/s))
         {
 
+            my $handled;
             FoundSomething($et, $tagTbl, $time[$i], $dur[$i]);
             unless ($buff =~ /^\$BEGIN/) {
                 # remove ending "encd" box if it exists
@@ -1273,9 +1285,10 @@ Sample:     for ($i=0; ; ) {
                 }
                 unless (defined $val) {
                     $et->HandleTag($tagTbl, Text => $buff); # just store any other text
+                    $handled = 1;
                 }
             }
-            Process_text($et, \$buff, $tagTbl);
+            Process_text($et, \$buff, $tagTbl, $handled);
 
         } elsif ($processByMetaFormat{$type}) {
 
@@ -1371,6 +1384,7 @@ sub ProcessFreeGPS($$$)
 
     if (substr($$dataPt,18,8) eq "\xaa\xaa\xf2\xe1\xf0\xee\x54\x54") {
 
+        $debug and $et->FoundTag(GPSType => '1A');
         # (this is very similar to the encrypted text format)
         # decode encrypted ASCII-based GPS (DashCam Azdome GS63H, ref 5)
         # header looks like this in my sample:
@@ -1425,10 +1439,10 @@ sub ProcessFreeGPS($$$)
         } elsif ($buf2 =~ /^.{173}([-+]\d{3})([-+]\d{3})([-+]\d{3})/s) { # (Azdome)
             @acc = ($1/100, $2/100, $3/100);
         }
-        $debug and $et->FoundTag(GPSType => '1A');
 
     } elsif ($$dataPt =~ /^.{52}(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/s) {
 
+        $debug and $et->FoundTag(GPSType => '1B');
         # decode NMEA-format GPS data (NextBase 512GW dashcam, ref PH)
         # header looks like this in my sample:
         #  0000: 00 00 80 00 66 72 65 65 47 50 53 20 40 01 00 00 [....freeGPS @...]
@@ -1454,10 +1468,10 @@ sub ProcessFreeGPS($$$)
             # change to signed integer and divide by 256
             map { $_ = $_ - 4294967296 if $_ >= 0x80000000; $_ /= 256 } @acc;
         }
-        $debug and $et->FoundTag(GPSType => '1B');
 
     } elsif ($$dataPt =~ /^.{37}\0\0\0A([NS])([EW])/s) {
 
+        $debug and $et->FoundTag(GPSType => '1C');
         # decode freeGPS from ViofoA119v3 dashcam (similar to Novatek GPS format)
         # 0000: 00 00 40 00 66 72 65 65 47 50 53 20 f0 03 00 00 [..@.freeGPS ....]
         # 0010: 05 00 00 00 2f 00 00 00 03 00 00 00 13 00 00 00 [..../...........]
@@ -1489,10 +1503,10 @@ sub ProcessFreeGPS($$$)
             map { $_ = $_ - 4294967296 if $_ >= 0x80000000; $_ /= 256 } @acc;
         }
         SetByteOrder('MM');
-        $debug and $et->FoundTag(GPSType => '1C');
 
     } elsif ($$dataPt =~ /^.{21}\0\0\0A([NS])([EW])/s) {
 
+        $debug and $et->FoundTag(GPSType => '1D');
         # also decode 'gpmd' chunk from Kingslim D4 dashcam videos
         # 0000: 0a 00 00 00 0b 00 00 00 07 00 00 00 e5 07 00 00 [................]
         # 0010: 06 00 00 00 03 00 00 00 41 4e 57 31 91 52 83 45 [........ANW1.R.E]
@@ -1518,10 +1532,10 @@ sub ProcessFreeGPS($$$)
         $acc[1] = GetFloat($dataPt, 0x30);
         $acc[2] = GetFloat($dataPt, 0x34);
         SetByteOrder('MM');
-        $debug and $et->FoundTag(GPSType => '1D');
 
     } elsif ($$dataPt =~ /^.{60}A\0{3}.{4}([NS])\0{3}.{4}([EW])\0{3}/s) {
 
+        $debug and $et->FoundTag(GPSType => '1E');
         # decode freeGPS from Akaso dashcam
         # 0000: 00 00 80 00 66 72 65 65 47 50 53 20 60 00 00 00 [....freeGPS `...]
         # 0010: 78 2e 78 78 00 00 00 00 00 00 00 00 00 00 00 00 [x.xx............]
@@ -1539,10 +1553,10 @@ sub ProcessFreeGPS($$$)
         $trk = GetFloat($dataPt, 0x54) + 180;   # (why is this off by 180?)
         $trk -= 360 if $trk >= 360;
         SetByteOrder('MM');
-        $debug and $et->FoundTag(GPSType => '1E');
 
     } elsif ($$dataPt =~ /^.{60}4W`b]S</s and length($$dataPt) >= 140) {
 
+        $debug and $et->FoundTag(GPSType => '1F');
         # 0000: 00 00 40 00 66 72 65 65 47 50 53 20 f0 01 00 00 [..@.freeGPS ....]
         # 0010: 5a 58 53 42 4e 58 59 53 00 00 00 00 00 00 00 00 [ZXSBNXYS........]
         # 0020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 [................]
@@ -1557,10 +1571,10 @@ sub ProcessFreeGPS($$$)
         $yr += ($yr >= 70 ? 1900 : 2000);
         $spd = $9 * $knotsToKph if length $9;
         $trk = $10 if length $10;
-        $debug and $et->FoundTag(GPSType => '1F');
 
     } elsif ($$dataPt =~ /^.{64}[\x01-\x0c]\0{3}[\x01-\x1f]\0{3}A[NS][EW]\0{5}/s) {
 
+        $debug and $et->FoundTag(GPSType => '1G');
         # Akaso V1 dascham
         #  0000: 00 00 80 00 66 72 65 65 47 50 53 20 78 00 00 00 [....freeGPS x...]
         #  0010: 59 6e 64 41 6b 61 73 6f 43 61 72 00 00 00 00 00 [YndAkasoCar.....]
@@ -1601,10 +1615,10 @@ sub ProcessFreeGPS($$$)
 
         SetByteOrder('MM');
         #my $serialNum = substr($$dataPt, 0x68, 20);
-        $debug and $et->FoundTag(GPSType => '1G');
 
     } elsif ($$dataPt =~ /^.{12}\xac\0\0\0.{44}(.{72})/s) {
 
+        $debug and $et->FoundTag(GPSType => '1H');
         # EACHPAI dash cam
         #  0000: 00 00 80 00 66 72 65 65 47 50 53 20 ac 00 00 00 [....freeGPS ....]
         #  0010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 [................]
@@ -1624,10 +1638,10 @@ sub ProcessFreeGPS($$$)
         # bytes 7-12 are the timestamp in ASCII HHMMSS after xor-ing with 0x70
         substr($time,7,6) = pack 'C*', map { $_ ^= 0x70 } unpack 'C*', substr($time,7,6);
         # (other values are currently unknown)
-        $debug and $et->FoundTag(GPSType => '1H');
 
     } elsif ($$dataPt =~ /^.{64}A([NS])([EW])\0/s) {
 
+        $debug and $et->FoundTag(GPSType => '1I');
         # Vantrue S1 dashcam
         #  0000: 00 00 80 00 66 72 65 65 47 50 53 20 78 00 00 00 [....freeGPS x...]
         #  0010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 [................]
@@ -1650,10 +1664,10 @@ sub ProcessFreeGPS($$$)
         $trk = GetFloat($dataPt, 0x68);
         $alt = GetFloat($dataPt, 0x6c);
         SetByteOrder('MM');
-        $debug and $et->FoundTag(GPSType => '1I');
 
     } else {
 
+        $debug and $et->FoundTag(GPSType => '1J');
         # decode binary GPS format (Viofo A119S, ref 2)
         # header looks like this in my sample:
         #  0000: 00 00 80 00 66 72 65 65 47 50 53 20 4c 00 00 00 [....freeGPS L...]
@@ -1687,7 +1701,6 @@ sub ProcessFreeGPS($$$)
         $yr += 2000 if $yr < 2000;
         $spd *= $knotsToKph;    # convert speed to km/h
         # ($trk is not confirmed; may be GPSImageDirection, ref PH)
-        $debug and $et->FoundTag(GPSType => '1J');
     }
 #
 # save tag values extracted by above code
@@ -1734,6 +1747,7 @@ sub ProcessFreeGPS2($$$)
 
     if (substr($$dataPt,0x45,3) eq 'ATC') {
 
+        $debug and $et->FoundTag(GPSType => '2A');
         # header looks like this: (sample 1)
         #  0000: 00 00 80 00 66 72 65 65 47 50 53 20 38 06 00 00 [....freeGPS 8...]
         #  0010: 49 51 53 32 30 31 33 30 33 30 36 42 00 00 00 00 [IQS20130306B....]
@@ -1841,11 +1855,11 @@ ATCRec: for ($recPos = 0x30; $recPos + 52 < $dirLen; $recPos += 52) {
         }
         # save position of most recent record (needed when parsing the next freeGPS block)
         $$et{FreeGPS2}{RecentRecPos} = $lastRecPos;
-        $debug and $et->FoundTag(GPSType => '2A');
         return 1;
 
     } elsif ($$dataPt =~ /^.{60}A\0.{10}([NS])\0.{14}([EW])\0/s) {
 
+        $debug and $et->FoundTag(GPSType => '2B');
         # header looks like this in my sample:
         #  0000: 00 00 80 00 66 72 65 65 47 50 53 20 08 01 00 00 [....freeGPS ....]
         #  0010: 32 30 31 33 30 38 31 35 2e 30 31 00 00 00 00 00 [20130815.01.....]
@@ -1873,7 +1887,6 @@ ATCRec: for ($recPos = 0x30; $recPos + 52 < $dirLen; $recPos += 52) {
         $lon = GetDouble($dataPt, 0x50);
         $spd = GetDouble($dataPt, 0x60) * $knotsToKph;
         $trk = GetDouble($dataPt, 0x68);
-        $debug and $et->FoundTag(GPSType => '2B');
 
     } elsif ($$dataPt =~ /^.{72}A([NS])([EW])/s) {
 
@@ -1900,6 +1913,7 @@ ATCRec: for ($recPos = 0x30; $recPos + 52 < $dirLen; $recPos += 52) {
         ($latRef, $lonRef) = ($1, $2);
         ($hr,$min,$sec,$yr,$mon,$day) = unpack('x48V6', $$dataPt);
         if (substr($$dataPt, 16, 3) eq 'IQS') {
+            $debug and $et->FoundTag(GPSType => '2C');
             # Type 3b (ref PH)
             # header looks like this in my sample:
             #  0000: 00 00 80 00 66 72 65 65 47 50 53 20 4c 00 00 00 [....freeGPS L...]
@@ -1910,20 +1924,20 @@ ATCRec: for ($recPos = 0x30; $recPos + 52 < $dirLen; $recPos += 52) {
             $lon = abs Get32s($dataPt, 0x50) / 1e7;
             $spd = Get32s($dataPt, 0x54) / 100 * $mpsToKph;
             $alt = GetFloat($dataPt, 0x58) / 1000; # (NC)
-            $debug and $et->FoundTag(GPSType => '2C');
 
         } else {
+            $debug and $et->FoundTag(GPSType => '2D');
             # Type 3 (ref 2)
             # (no sample with this format)
             $lat = GetFloat($dataPt, 0x4c);
             $lon = GetFloat($dataPt, 0x50);
             $spd = GetFloat($dataPt, 0x54) * $knotsToKph;
             $trk = GetFloat($dataPt, 0x58);
-            $debug and $et->FoundTag(GPSType => '2D');
         }
 
     } elsif ($$dataPt =~ /^.{60}A\0.{6}([NS])\0.{6}([EW])\0/s and $dirLen >= 112) {
 
+        $debug and $et->FoundTag(GPSType => '2E');
         # header looks like this in my sample (unknown dashcam, "Anticlock 2 2020_1125_1455_007.MOV"):
         #  0000: 00 00 80 00 66 72 65 65 47 50 53 20 68 00 00 00 [....freeGPS h...]
         #  0010: 32 30 31 33 30 33 32 35 41 00 00 00 00 00 00 00 [20130325A.......]
@@ -1940,10 +1954,10 @@ ATCRec: for ($recPos = 0x30; $recPos + 52 < $dirLen; $recPos += 52) {
         $lon = GetFloat($dataPt, 0x48);
         $spd = GetFloat($dataPt, 0x50);
         $trk = GetFloat($dataPt, 0x54);
-        $debug and $et->FoundTag(GPSType => '2E');
 
     } elsif ($$dataPt =~ /^.{16}A([NS])([EW])\0/s) {
 
+        $debug and $et->FoundTag(GPSType => '2F');
         # INNOVV MP4 video (same format as INNOVV TS)
         while ($$dataPt =~ /(A[NS][EW]\0.{28})/g) {
             my $dat = $1;
@@ -1961,11 +1975,36 @@ ATCRec: for ($recPos = 0x30; $recPos + 52 < $dirLen; $recPos += 52) {
             $et->HandleTag($tagTbl, GPSTrack     => $trk);
             $et->HandleTag($tagTbl, Accelerometer => "@acc");
         }
-        $debug and $et->FoundTag(GPSType => '2F');
         return 1;
 
+    } elsif ($$dataPt =~ /^.{28}A.{11}([NS]).{15}([EW])/s) {
+ 
+        $debug and $et->FoundTag(GPSType => '2G');
+        # Vantrue N4 dashcam
+        #  0000: 00 00 40 00 66 72 65 65 47 50 53 20 f0 03 00 00 [..@.freeGPS ....]
+        #  0010: 0d 00 00 00 16 00 00 00 1e 00 00 00 41 00 00 00 [............A...]
+        #  0020: 2c b7 b4 1a 5a 71 b2 40 4e 00 00 00 00 00 00 00 [,...Zq.@N.......]
+        #  0030: fb ae 08 fe 77 f6 89 40 45 00 00 00 00 00 00 00 [....w..@E.......]
+        #  0040: be 9f 1a 2f dd 84 36 40 5c 8f c2 f5 28 fc 68 40 [.../..6@\...(.h@]
+        #  0050: 16 00 00 00 0c 00 00 00 0e 00 00 00 f2 fb ff ff [................]
+        #  0060: 42 00 00 00 02 00 00 00 20 24 47 4e 52 4d 43 2c [B....... $GNRMC,]
+        #  0070: 31 33 32 32 33 30 2e 30 30 30 2c 41 2c 34 37 32 [132230.000,A,472]
+        #  0080: 31 2e 33 35 31 39 37 2c 4e 2c 30 30 38 33 30 2e [1.35197,N,00830.]
+        #  0090: 38 30 38 35 39 2c 45 2c 32 32 2e 35 31 39 2c 31 [80859,E,22.519,1]
+        #  00a0: 39 39 2e 38 38 2c 31 34 31 32 32 32 2c 2c 2c 41 [99.88,141222,,,A]
+        #  00b0: 2a 37 35 0d 0a 00 00 00 00 00 00 00 00 00 00 00 [*75.............]
+        ($latRef, $lonRef) = ($1, $2);
+        ($hr,$min,$sec,$yr,$mon,$day,@acc) = unpack('x16V3x52V3V3',$$dataPt);
+        $lat = abs(GetDouble($dataPt, 32)); # (abs just to be safe)
+        $lon = abs(GetDouble($dataPt, 48)); # (abs just to be safe)
+        $spd = GetDouble($dataPt, 64) * $knotsToKph;
+        $trk = GetDouble($dataPt, 72);
+        map { $_ = $_ - 4294967296 if $_ >= 0x80000000; $_ /= 1000 } @acc; # (NC)
+        # (not necessary to read RMC sentence because we already have it all)
+
     } else {
 
+        $debug and $et->FoundTag(GPSType => '2H');
         # (look for binary GPS as stored by NextBase 512G, ref PH)
         # header looks like this in my sample:
         #  0000: 00 00 80 00 66 72 65 65 47 50 53 20 78 01 00 00 [....freeGPS x...]
@@ -2008,7 +2047,6 @@ ATCRec: for ($recPos = 0x30; $recPos + 52 < $dirLen; $recPos += 52) {
             $et->HandleTag($tagTbl, GPSTrack     => $trk);
             last if $pos += 0x20 > length($$dataPt) - 0x1e;
         }
-        $debug and $et->FoundTag(GPSType => '2G');
         return $$et{DOC_NUM} ? 1 : 0;   # return 0 if nothing extracted
     }
 #
@@ -2025,9 +2063,7 @@ ATCRec: for ($recPos = 0x30; $recPos + 52 < $dirLen; $recPos += 52) {
     $et->HandleTag($tagTbl, GPSLongitude => $lon * ($lonRef eq 'W' ? -1 : 1));
     $et->HandleTag($tagTbl, GPSSpeed     => $spd) if defined $spd; # (now in km/h)
     $et->HandleTag($tagTbl, GPSTrack     => $trk) if defined $trk;
-    if (defined $alt) {
-        $et->HandleTag($tagTbl, GPSAltitude  => $alt);
-    }
+    $et->HandleTag($tagTbl, GPSAltitude  => $alt) if defined $alt;
     $et->HandleTag($tagTbl, Accelerometer => "@acc") if @acc;
     return 1;
 }
@@ -2322,6 +2358,49 @@ sub Process_gsen($$$)
     return 1;
 }
 
+#------------------------------------------------------------------------------
+# Process Kenwood drv-a301w dashcam 'udta' atom (ref PH)
+# Inputs: 0) ExifTool ref, 1) dirInfo ref, 2) tag table ref
+# Returns: 1 on success
+# Sample data:
+# 0000: 56 49 44 45 4f 55 55 55 55 55 55 55 55 55 55 55 [VIDEOUUUUUUUUUUU]
+# 0010: 55 55 55 55 55 55 55 55 55 55 55 fe fe 32 30 32 [UUUUUUUUUUU..202]
+# 0020: 33 30 31 30 37 31 31 31 39 31 34 2e 32 30 32 33 [30107111914.2023]
+# 0030: 30 31 30 37 31 31 31 39 31 35 03 4e 34 37 33 37 [0107111915.N4737]
+# 0040: 37 30 35 33 57 31 32 32 30 39 39 30 31 34 2b 30 [7053W122099014+0]
+# 0050: 30 35 38 30 30 30 2b 30 30 36 2b 30 30 39 2b 30 [058000+006+009+0]
+# 0060: 30 34 2b 30 30 32 2b 30 30 39 2b 30 30 35 2b 30 [04+002+009+005+0]
+sub ProcessKenwood($$$)
+{
+    my ($et, $dirInfo, $tagTbl) = @_;
+    my $dataPt = $$dirInfo{DataPt};
+    my $dirLen = $$dirInfo{DirLen};
+    while ($$dataPt =~ /\xfe\xfe([^\xfe]+)/g) {
+        my $dat = $1;
+        next unless $dat =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})./gs;
+        my $time = "$1:$2:$3 $4:$5:$6"; # (likely local time zone, but not confirmed)
+        # ignore second date (what is this for?)
+        next unless $dat =~ /\G(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})./gs;
+        next unless $dat =~ /\G([NS])(\d+)([EW])(\d+)/g;
+        my ($lat, $lon) = ($2/1e4, $4/1e4);
+        ConvertLatLon($lat, $lon);
+        $$et{DOC_NUM} = ++$$et{DOC_COUNT};
+        $et->HandleTag($tagTbl, GPSDateTime  => $time);
+        $et->HandleTag($tagTbl, GPSLatitude  => $lat * ($1 eq 'S' ? -1 : 1));
+        $et->HandleTag($tagTbl, GPSLongitude => $lon * ($3 eq 'W' ? -1 : 1));
+        next unless $dat =~ /\G([-+]\d{4})(\d+)/g;
+        $et->HandleTag($tagTbl, GPSAltitude => $1 + 0); # (NC, educated guess)
+        $et->HandleTag($tagTbl, GPSSpeed => $2); # (km/h)
+        my @acc;
+        while ($dat =~ /\G([-+]\d+)([-+]\d+)([-+]\d+)/g) {
+            push @acc, $1/1000, $2/1000, $3/1000;
+        }
+        $et->HandleTag($tagTbl, Accelerometer => "@acc") if @acc;
+    }
+    delete $$et{DOC_NUM};
+    return 1;
+}
+
 #------------------------------------------------------------------------------
 # Process RIFF-format trailer written by Auto-Vox dashcam (ref PH)
 # Inputs: 0) ExifTool ref, 1) dirInfo ref, 2) tag table ref

data/bin/lib/Image/ExifTool/README

@@ -3,6 +3,9 @@ File:         Image/ExifTool/README
 
 Description:  ExifTool support modules documentation
 
+Note:         This documentation is a reference to be used by developers when
+              adding new tags to ExifTool.
+
 The ExifTool support modules are loaded by ExifTool to allow processing of
 various meta information formats.
 

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

@@ -17,7 +17,7 @@ require Exporter;
 use vars qw($VERSION @ISA @EXPORT_OK);
 use Image::ExifTool qw(:Utils);
 
-$VERSION = '1.18';
+$VERSION = '1.19';
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(FindTagInfo TagExists);
 
@@ -652,16 +652,16 @@ my %tagLookup = (
 	'afaperture' => { 220 => 0x5, 221 => 0x5, 225 => 0x5 },
 	'afareaheight' => { 193 => [0x1a,0x34,0x50], 194 => 0x48 },
 	'afareaillumination' => { 184 => 0x4b, 293 => '15.3' },
-	'afareamode' => { 126 => '0.3', 180 => 0x33, 184 => 0xe, 192 => 0x0, 193 => 0x5, 230 => 0x210, 231 => 0x224, 323 => 0xf, 390 => 0x1205, 403 => [0xa,0x3a], 410 => 0x11, 411 => 0x10, 412 => 0x24, 423 => 0xb043, 448 => 0x17 },
+	'afareamode' => { 126 => '0.3', 180 => 0x33, 184 => 0xe, 192 => 0x0, 193 => 0x5, 194 => 0x5, 230 => 0x210, 231 => 0x224, 323 => 0xf, 390 => 0x1205, 403 => [0xa,0x3a], 410 => 0x11, 411 => 0x10, 412 => 0x24, 423 => 0xb043, 448 => 0x17 },
 	'afareamodesetting' => { 284 => '11.1', 287 => '0.1', 293 => '16.1', 297 => '2.1', 423 => 0x201c },
 	'afareapointsize' => { 126 => '0.4' },
 	'afareas' => { 300 => 0x304 },
 	'afareaselectionmethod' => { 2 => 0xd },
 	'afareaselectmethod' => { 84 => 0x51b },
 	'afareawidth' => { 193 => [0x18,0x32,0x4e], 194 => 0x46 },
-	'afareaxposition' => { 193 => [0x14,0x2e,0x4a], 390 => 0x1203 },
+	'afareaxposition' => { 193 => [0x14,0x2e,0x4a], 194 => 0x42, 390 => 0x1203 },
 	'afareaxposition1' => { 390 => 0x1201 },
-	'afareayposition' => { 193 => [0x16,0x30,0x4c], 390 => 0x1204 },
+	'afareayposition' => { 193 => [0x16,0x30,0x4c], 194 => 0x44, 390 => 0x1204 },
 	'afareayposition1' => { 390 => 0x1202 },
 	'afareazonesize' => { 126 => '0.5' },
 	'afassist' => { 82 => 0x5, 90 => 0x5, 184 => 0x48, 282 => '2.5', 284 => '0.2', 287 => '0.2', 288 => '1.1', 289 => '1.1', 290 => '1.3', 291 => '2.4', 292 => '1.3', 293 => '0.2', 295 => '2.4', 297 => '2.3' },
@@ -682,8 +682,6 @@ my %tagLookup = (
 	'affinetuneindex' => { 195 => 0x1 },
 	'affinex' => { 475 => 'AffineX' },
 	'affiney' => { 475 => 'AffineY' },
-	'affocuspointxposition' => { 193 => 0x2f },
-	'affocuspointyposition' => { 193 => 0x31 },
 	'afhold' => { 334 => 0x1fd },
 	'afilluminator' => { 410 => 0x29, 423 => 0xb044 },
 	'afimageheight' => { 193 => [0x12,0x2c,0x48], 194 => 0x40 },
@@ -2957,8 +2955,8 @@ my %tagLookup = (
 	'focuspointwrap' => { 282 => '2.2', 283 => '2.2', 285 => '2.1', 286 => '2.1', 290 => '1.1', 291 => '2.2', 292 => '1.1', 295 => '2.2', 296 => '2.1', 297 => '2.5', 298 => 0x16 },
 	'focusposition' => { 1 => 0x2f, 220 => 0x8, 221 => 0x8, 358 => 0x10, 421 => 0x9bb },
 	'focusposition2' => { 428 => [0x29,0x2b,0x2f], 448 => 0x2d, 451 => 0x20 },
-	'focuspositionhorizontal' => { 194 => 0x43 },
-	'focuspositionvertical' => { 194 => 0x45 },
+	'focuspositionhorizontal' => { 193 => 0x2f, 194 => 0x43 },
+	'focuspositionvertical' => { 193 => 0x31, 194 => 0x45 },
 	'focusprocess' => { 300 => 0x302 },
 	'focusrange' => { 34 => 0x12, 305 => 0x100a },
 	'focusrangeindex' => { 349 => '3.1' },
@@ -4617,6 +4615,7 @@ my %tagLookup = (
 	'mood' => { 179 => 'WM/Mood' },
 	'moonphase' => { 384 => 0x12, 385 => 0x43, 386 => 0x4c },
 	'morepermissions' => { 479 => 'morePermissions' },
+	'motionphotovideo' => { 378 => 'mpvd' },
 	'motionsensitivity' => { 384 => 0x29, 386 => 0x60 },
 	'movementcount' => { 375 => "\xa9mvc" },
 	'movementname' => { 375 => "\xa9mvn" },
@@ -5939,7 +5938,7 @@ my %tagLookup = (
 	'rightsagent' => { 501 => 'rightsAgent' },
 	'rightsowner' => { 501 => 'rightsOwner' },
 	'roll' => { 115 => 0x8, 383 => ['roll',"\xa9frl"] },
-	'rollangle' => { 250 => 0x350b, 251 => 0x2c24, 255 => 0xc21a, 260 => 0x36f4, 261 => 0x2efb, 263 => 0xce32, 264 => 0xeaeb, 300 => 0x903, 323 => 0x90, 357 => 0x1, 395 => 0x2 },
+	'rollangle' => { 127 => 0x144d, 250 => 0x350b, 251 => 0x2c24, 255 => 0xc21a, 260 => 0x36f4, 261 => 0x2efb, 263 => 0xce32, 264 => 0xeaeb, 300 => 0x903, 323 => 0x90, 357 => 0x1, 395 => 0x2 },
 	'romoperationmode' => { 97 => 0x80d },
 	'rotation' => { 30 => 0x17, 31 => 0x18, 96 => 0x3, 103 => 0x10002, 108 => 0x26e, 114 => 'QuickTime-Rotation', 123 => 0x4, 165 => 'Rotation', 182 => [0x65,0x50], 183 => 0x46, 184 => 0x5a, 187 => 0x10, 250 => 0x3693, 251 => 0xca, 258 => '590.1', 275 => 0x76a43207, 323 => 0x30, 339 => '17.2', 369 => 0xd8, 376 => 'irot', 410 => 0x3f, 411 => 0x3f, 421 => 0x10 },
 	'routedto' => { 489 => 'RoutedTo' },
@@ -9034,6 +9033,7 @@ my %tagExists = (
 	'flir_serial' => 1,
 	'flir_unknown' => 1,
 	'flir_unknownuuid' => 1,
+	'flirdata' => 1,
 	'fluormat0' => 1,
 	'fluormat1' => 1,
 	'fluormat2' => 1,
@@ -9702,6 +9702,7 @@ my %tagExists = (
 	'keepexposurewithteleconverter' => 1,
 	'keepuntil' => 1,
 	'kelvinwb' => 1,
+	'kenwooddata' => 1,
 	'keycode' => 1,
 	'keyframepositions' => 1,
 	'keyframestimes' => 1,
@@ -12513,7 +12514,7 @@ if (@Image::ExifTool::pluginTags) {
 
 
 #------------------------------------------------------------------------------
-# Add tag names corresponding to flattened XMP tags for all structure fields
+# Add tag names to lookup corresponding to flattened XMP tags for all structure fields
 # Inputs: 0) tag table ref for flattened tags, 1) tagID, 2) lowercase tag name,
 #         3) tag ID list ref, 4) reference to list of lowercase tag names
 #         5) table number in lookup, 6) tagInfo hash for parent structure
@@ -12596,7 +12597,8 @@ sub AddTags($$)
             my (@lcTags, @tagIDs, $existed, $isFlat);
             # if this is a structure, add all flattened tag names to lookup
             if ($$newInfo{Struct}) {
-                AddFields($tagTablePtr, $tagID, $lcTag, \@tagIDs, \@lcTags, $tnum);
+                my $lcFlat = $$newInfo{FlatName} ? lc($$newInfo{FlatName}) : $lcTag;
+                AddFields($tagTablePtr, $tagID, $lcFlat, \@tagIDs, \@lcTags, $tnum);
             }
             # add tags to lookup even though we don't know if they are writable
             # (to save speed by not having to load the module)

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 26269 tags, with 16758 unique tag names.
+They contain a total of 26274 tags, with 16757 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
@@ -82,7 +82,7 @@ types of meta information.  To determine a tag name, either consult this
 documentation or run C<exiftool -s> on a file containing the information in
 question.
 
-I<(This documentation is the result of years of research, testing and
+I<(This documentation is the result of decades of research, testing and
 reverse engineering, and is the most complete metadata tag list available
 anywhere on the internet.  It is provided not only for ExifTool users, but
 more importantly as a public service to help augment the collective
@@ -11362,6 +11362,7 @@ Tags extracted from FLIR Public image Format (FPF) files.
   0x1446   FlickerReduction                     int32u
   0x1447   FujiModel                            string
   0x1448   FujiModel2                           string
+  0x144d   RollAngle                            rational64s
   0x3803   VideoRecordingMode                   int32u
   0x3804   PeripheralLighting                   int16u
   0x3806   VideoCompression                     int16u
@@ -15030,9 +15031,12 @@ These tags are used by the D4S, D750, D810, D5500, D7200 (FlashInfoVersion
   Index1   Tag Name                             Writable
   ------   --------                             --------
       0    AFInfo2Version                       no
+      5    AFAreaMode                           int8u
      62    AFImageWidth                         int16u
      64    AFImageHeight                        int16u
+     66    AFAreaXPosition                      int16u
      67    FocusPositionHorizontal              int8u~
+     68    AFAreaYPosition                      int16u
      69    FocusPositionVertical                int8u~
      70    AFAreaWidth                          int16u
      72    AFAreaHeight                         int16u
@@ -15072,10 +15076,10 @@ These tags are written by Nikon DSLR's which have the live view feature.
      42    AFImageWidth                         int16u
      44    AFImageHeight                        int16u
      46    AFAreaXPosition                      int16u
-     47    AFFocusPointXPosition                int8u~
+     47    FocusPositionHorizontal              int8u~
      48    AFAreaYPosition                      int16u
            AFPointsInFocus                      undef[20]
-     49    AFFocusPointYPosition                int8u~
+     49    FocusPositionVertical                int8u~
      50    AFAreaWidth                          int16u
      52    AFAreaHeight                         int16u
      56    PrimaryAFPoint                       int8u
@@ -27570,6 +27574,7 @@ for the official specification.
   'meta'               Meta                     QuickTime Meta
   'moof'               MovieFragment            QuickTime MovieFragment
   'moov'               Movie                    QuickTime Movie
+  'mpvd'               MotionPhotoVideo         yes
   'pict'               PreviewPICT              no
   'pnot'               Preview                  QuickTime Preview
   'prrt'               ARDroneTelemetry         no
@@ -27581,7 +27586,8 @@ for the official specification.
   'thm '               ThumbnailImage           no
   'thum'               ThumbnailImage           no
   'udat'               GPSLog                   no
-  'udta'               UserData                 FLIR UserData
+  'udta'               KenwoodData              QuickTime Stream
+                       FLIRData                 FLIR UserData
   'uuid'               XMP                      XMP
                        UUID-PROF                QuickTime Profile
                        UUID-Flip                QuickTime Flip
@@ -27597,7 +27603,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 63 different formats of timed GPS metadata from video files.
+currently reads 66 different formats of timed GPS metadata from video files.
 
   Tag Name                                      Writable
   --------                                      --------
@@ -30631,9 +30637,9 @@ for the specification.
   0x7674   ProjectionPosePitch                  no
   0x7675   ProjectionPoseRoll                   no
 
-=head3 Matroska  Tags
+=head3 Matroska StdTag Tags
 
-Standardized Matroska tags (see
+Standardized Matroska tags, stored in a SimpleTag structure (see
 L<https://www.matroska.org/technical/tagging.html>).
 
   Tag ID                  Tag Name              Writable

data/bin/lib/Image/ExifTool.pm

@@ -29,7 +29,7 @@ use vars qw($VERSION $RELEASE @ISA @EXPORT_OK %EXPORT_TAGS $AUTOLOAD @fileTypes
             %jpegMarker %specialTags %fileTypeLookup $testLen $exeDir
             %static_vars);
 
-$VERSION = '12.54';
+$VERSION = '12.55';
 $RELEASE = '';
 @ISA = qw(Exporter);
 %EXPORT_TAGS = (
@@ -146,7 +146,7 @@ sub ReadValue($$$;$$$);
     Samsung::Trailer Sony::SRF2 Sony::SR2SubIFD Sony::PMP ITC ID3 ID3::Lyrics3
     FLAC Ogg Vorbis APE APE::NewHeader APE::OldHeader Audible MPC MPEG::Audio
     MPEG::Video MPEG::Xing M2TS QuickTime QuickTime::ImageFile QuickTime::Stream
-    QuickTime::Tags360Fly Matroska Matroska::Tags MOI MXF DV Flash Flash::FLV
+    QuickTime::Tags360Fly Matroska Matroska::StdTag MOI MXF DV Flash Flash::FLV
     Real::Media Real::Audio Real::Metafile Red RIFF AIFF ASF WTV DICOM FITS MIE
     JSON HTML XMP::SVG Palm Palm::MOBI Palm::EXTH Torrent EXE EXE::PEVersion
     EXE::PEString EXE::MachO EXE::PEF EXE::ELF EXE::AR EXE::CHM LNK Font VCard

data/bin/perl-Image-ExifTool.spec

@@ -1,6 +1,6 @@
 Summary: perl module for image data extraction
 Name: perl-Image-ExifTool
-Version: 12.54
+Version: 12.55
 Release: 1
 License: Artistic/GPL
 Group: Development/Libraries/Perl

data/lib/exiftool_vendored/version.rb

@@ -1,5 +1,5 @@
 # frozen_string_literal: true
 
 module ExiftoolVendored
-  VERSION = Gem::Version.new('12.54.0')
+  VERSION = Gem::Version.new('12.55.0')
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: exiftool_vendored
 version: !ruby/object:Gem::Version
-  version: 12.54.0
+  version: 12.55.0
 platform: ruby
 authors:
 - Matthew McEachen
@@ -9,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2023-01-10 00:00:00.000000000 Z
+date: 2023-01-17 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: exiftool