exiftool_vendored 11.65.0 → 11.67.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 7b7ab4c79fc1d811625bd4643955a68d924ef262
-  data.tar.gz: ac2f64040dc9f70ca62fd12d5945d25e18a99606
+  metadata.gz: bde7c46f693f484613c7cf4fe77dec3d59a38aef
+  data.tar.gz: 90b28efc64aca6df9015a99c18591e3bdf0edc77
 SHA512:
-  metadata.gz: e5e788b7497fa5a9d369efda1acf944a21f19d7859ef04660000f40fdd96b9a7db9844cd949b813ff32f8dc8ce451fecead32d16704fca9af17b3e493670e695
-  data.tar.gz: a1ff8ddd79c87d6489f1c109739f1ceb90cf2257921b266b26e79f1d16b7ef19f572f2e9640078e80e39de7ff4a40f0253432ba39e240e87bb335578be73d592
+  metadata.gz: 459ee5aa30a83cc36b44ad84cc86bfdf767c745f3707704035cde596c74b0ea7cfd7667f5529db48ea67a9d21e2483cde62c26123d82ecb071a36961f490672b
+  data.tar.gz: 1d7f84c0ed3bc2e6ea28ff1b511e0763e8fc49342ac888df64977b7113e65246497d98e2f09b90dbaeb6e4c3a1028d92fa7ac39975b754470bf667a75d7a2e4b

data/bin/Changes

@@ -7,14 +7,37 @@ RSS feed: http://owl.phy.queensu.ca/~phil/exiftool/rss.xml
 Note: The most recent production release is Version 11.50. (Other versions are
 considered development releases, and are not uploaded to CPAN.)
 
-[I will be on vacation and without access to my computer
-from Sept. 3-24, so don't expect any updates or email/forum responses from
-me during this time - PH]
+Sept. 30, 2019 - Version 11.67
+
+  - Added config_files/thinkware.config to the distribution
+  - Fixed bug decoding negative GPS coordinates from INSV videos
+
+Sept. 30, 2019 - Version 11.66
+
+  - Added a new Nikon LensID (thanks LibRaw)
+  - Added a few new Canon LensType values (thanks LibRaw and Tom Lachecki)
+  - Decode a few more Hasselblad tags (thanks LibRaw)
+  - Decode a new Canon tag (thanks Laurent Clevy)
+  - Decode more Samsung trailer tags
+  - Extract BWF iXML, aXML and UMID from RIFF-format files
+  - Extract ICC_Profile from more types of PDF files
+  - Enhanced %s of the -W option to recognize the PICT format
+  - Recognize MacOS alias files
+  - Changed name of Ricoh CropMode35mm tag and added a new value (thanks LibRaw)
+  - Minor change to a Minolta lens name (thanks Jos Roost)
+  - Fixed problem where NikonCapture information couldn't be deleted from an NEF
+  - Fixed problem identifying some SVG files
+  - Fixed typo in a CanonModelID value (thanks Dmitry)
+  - Fixed bug which could result in "Internal error: no list index" warning when
+    creating nested XMP lang-alt lists
+  - Fixed the names of a few Tamron lenses for Nikon (thanks Tom Lachecki)
+  - Fixed problem extracting Layer information from some PSD files
+  - Fixed writing of QuickTime GPSCoordinates to use the correct number of
+    digits before the decimal point for latitude and longitude
 
 Aug. 29, 2019 - Version 11.65
 
-  - Added some new SonyModelID and Sony LensType values (thanks LibRaw and Jos
-    Roost)
+  - Added new SonyModelID and Sony LensType values (thanks LibRaw and Jos Roost)
   - Added support for some new Sony models (thanks Jos Roost)
   - Added a couple of new CanonModelID values (thanks LibRaw)
   - Added a new Canon ColorDataVersion value

data/bin/MANIFEST

@@ -28,6 +28,7 @@ config_files/nksc.config
 config_files/photoshop_paths.config
 config_files/picasa_faces.config
 config_files/rotate_regions.config
+config_files/thinkware.config
 config_files/tiff_version.config
 config_files/time_zone.config
 exiftool

data/bin/META.json

@@ -47,6 +47,6 @@
       }
    },
    "release_status" : "stable",
-   "version" : "11.65",
+   "version" : "11.67",
    "x_serialization_backend" : "JSON::PP version 4.02"
 }

data/bin/META.yml

@@ -28,5 +28,5 @@ recommends:
   Time::HiRes: '0'
 requires:
   perl: '5.004'
-version: '11.65'
+version: '11.67'
 x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

data/bin/README

@@ -104,8 +104,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-11.65.tar.gz | tar -xf -
-  cd Image-ExifTool-11.65
+  gzip -dc Image-ExifTool-11.67.tar.gz | tar -xf -
+  cd Image-ExifTool-11.67
   ./exiftool t/images/ExifTool.jpg
 
 Note:  These commands extract meta information from one of the test images. 
@@ -201,6 +201,7 @@ distribution package:
     photoshop_paths.config    - For extracting or copying Photoshop paths
     picasa_faces.config       - Convert from Picasa to MWG/MP face regions
     rotate_regions.config     - Rotate MWG and MP region tags
+    thinkware.config          - Decode text from Thinkware dashcam videos
     tiff_version.config       - Determine the version of a TIFF file
     time_zone.config          - Calcuate time zone from EXIF tags
   exiftool                  - The exiftool application (Perl script)

data/bin/config_files/thinkware.config

@@ -0,0 +1,144 @@
+#------------------------------------------------------------------------------
+# File:         thinkware.config
+#
+# Description:  This config file defines Composite tags to decode subtitle text
+#               from Thinkware dashcam videos
+#
+# Usage:        exiftool -config thinkware.config -ee FILE
+#
+#               Example command to create .gpx log file from Thinkware video
+#               (requires gpx.fmt available in the full Exiftool distribution):
+#
+#               exiftool -config thinkware.config -p gpx.fmt -ee -api QuickTimeUTC FILE
+#
+# Requires:     ExifTool version 10.75 or later
+#
+# Revisions:    2019/09/30 - P. Harvey Created
+#------------------------------------------------------------------------------
+
+use Time::Local;
+
+#------------------------------------------------------------------------------
+# Decode GPS from Thinkware subtitle Text
+# Inputs: 0) ExifTool ref, 1) Text value
+# Returns: Hash containing GPS tags
+sub Image::ExifTool::UserDefined::DecodeGPS($$)
+{
+    my ($et, $val) = @_;
+    unless ($$et{ThinkwareInfo}{Text} and $val eq $$et{ThinkwareInfo}{Text}) {
+        my %gps;
+        $$et{ThinkwareInfo}{GPS} = \%gps;
+        $$et{ThinkwareInfo}{Text} = $val;
+#
+# Example embedded "Text" from a Thinkware Q800:
+#
+#   "gsensori,4,512,-67,-12,100;GNRMC,161313.00,A,4529.87489,N,07337.01215,W,6.225,35.34,310819,,,A*52..;
+#    CAR,0,0,0,0.0,0,0,0,0,0,0,0,0"
+#
+        if ($val =~ /[A-Z]{2}RMC,(\d{2})(\d{2})(\d+(\.\d*)?),A?,(\d*?)(\d{1,2}\.\d+),([NS]),(\d*?)(\d{1,2}\.\d+),([EW]),(\d*\.?\d*),(\d*\.?\d*),(\d{2})(\d{2})(\d+)/ and
+            # do some basic sanity checks on the date
+            $13 <= 31 and $14 <= 12 and $15 <= 99)
+        {
+            $gps{lat} = (($5 || 0) + $6/60) * ($7 eq 'N' ? 1 : -1);
+            $gps{lon} = (($8 || 0) + $9/60) * ($10 eq 'E' ? 1 : -1);
+            $gps{speed} = $11 if length $11;
+            $gps{track} = $12 if length $12;
+            my $year = $15 + ($15 >= 70 ? 1900 : 2000);
+            $gps{datetime} = sprintf('%.4d:%.2d:%.2d %.2d:%.2d:%.2dZ', $year, $14, $13, $1, $2, $3);
+        }
+    }
+    return $$et{ThinkwareInfo}{GPS};
+}
+
+# Composite tags to decode information from subtitle Text
+%Image::ExifTool::UserDefined = (
+    'Image::ExifTool::Composite' => {
+        GROUPS => { 2 => 'Location' },
+#
+# Note: SubDoc flag is set for all these tags so they will be generated for
+#       all embedded documents
+#
+        GPSDateTime => {
+            Description => 'GPS Date/Time',
+            Groups => { 2 => 'Time' },
+            SubDoc => 1,
+            Require => 'Text',
+            RawConv => q{
+                my $gps = Image::ExifTool::UserDefined::DecodeGPS($self, $val[0]);
+                return $$gps{datetime};
+            },
+            PrintConv => '$self->ConvertDateTime($val)',
+        },
+        GPSLatitude => {
+            SubDoc => 1,
+            Require => 'Text',
+            RawConv => q{
+                my $gps = Image::ExifTool::UserDefined::DecodeGPS($self, $val[0]);
+                return $$gps{lat};
+            },
+            PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "N")',
+        },
+        GPSLongitude => {
+            SubDoc => 1,
+            Require => 'Text',
+            RawConv => q{
+                my $gps = Image::ExifTool::UserDefined::DecodeGPS($self, $val[0]);
+                return $$gps{lon};
+            },
+            PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "E")',
+        },
+        GPSSpeed => {
+            SubDoc => 1,
+            Require => 'Text',
+            RawConv => q{
+                my $gps = Image::ExifTool::UserDefined::DecodeGPS($self, $val[0]);
+                # convert from knots to km/hr
+                return defined $$gps{speed} ? $$gps{speed} * 1.852 : undef;
+            },
+        },
+        GPSSpeedRef => {
+            SubDoc => 1,
+            Require => 'Text',
+            RawConv => q{
+                my $gps = Image::ExifTool::UserDefined::DecodeGPS($self, $val[0]);
+                return defined $$gps{speed} ? 'K' : undef;
+            },
+            PrintConv => { K => 'km/h', M => 'mph', N => 'knots' },
+        },
+        GPSTrack => {
+            SubDoc => 1,
+            Require => 'Text',
+            RawConv => q{
+                my $gps = Image::ExifTool::UserDefined::DecodeGPS($self, $val[0]);
+                return $$gps{track};
+            },
+        },
+        GPSTrackRef => {
+            SubDoc => 1,
+            Require => 'Text',
+            RawConv => q{
+                my $gps = Image::ExifTool::UserDefined::DecodeGPS($self, $val[0]);
+                return defined $$gps{track} ? 'T' : undef;
+            },
+            PrintConv => { M => 'Magnetic North', T => 'True North' },
+        },
+        GSensor => {
+            SubDoc => 1,
+            Require => 'Text',
+            RawConv => q{
+                return undef unless $val[0] =~ /gsensori,(.*?)(;|$)/;
+                return $1;
+            },
+        },
+        Car => {
+            SubDoc => 1,
+            Require => 'Text',
+            RawConv => q{
+                return undef unless $val[0] =~ /CAR,(.*?)(;|$)/;
+                return $1;
+            },
+        },
+    },
+);
+
+1;  #end

data/bin/exiftool

@@ -10,7 +10,7 @@
 use strict;
 require 5.004;
 
-my $version = '11.65';
+my $version = '11.67';
 
 # add our 'lib' directory to the include list BEFORE 'use Image::ExifTool'
 my $exeDir;
@@ -3787,6 +3787,8 @@ sub SuggestedExtension($$$)
         $ext = 'vrd';
     } elsif ($$valPt =~ /^IIII\x04\0\x04\0/) {
         $ext = 'dr4';
+    } elsif ($$valPt =~ /^(.{10}|.{522})(\x11\x01|\x00\x11)/) {
+        $ext = 'pict';
     } else {
         $ext = 'dat';
     }
@@ -4274,8 +4276,8 @@ directory are processed (in write mode only writable types are processed).
 However, files may be specified by name, or the B<-ext> option may be used
 to force processing of files with any extension.  Hidden files in the
 directory are also processed.  Adding the B<-r> option causes subdirectories
-to be processed recursively, but those with names beginning with "." are
-skipped unless B<-r.> is used.
+to be processed recursively, but subdirectories with names beginning with
+"." are skipped unless B<-r.> is used.
 
 Below is a list of file types and meta information formats currently
 supported by ExifTool (r = read, w = write, c = create):
@@ -5171,7 +5173,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 11.65 --
+    -- Generated by ExifTool 11.67 --
     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

data/bin/lib/Image/ExifTool.pm

@@ -27,7 +27,7 @@ use vars qw($VERSION $RELEASE @ISA @EXPORT_OK %EXPORT_TAGS $AUTOLOAD @fileTypes
             %mimeType $swapBytes $swapWords $currentByteOrder %unpackStd
             %jpegMarker %specialTags %fileTypeLookup);
 
-$VERSION = '11.65';
+$VERSION = '11.67';
 $RELEASE = '';
 @ISA = qw(Exporter);
 %EXPORT_TAGS = (
@@ -186,7 +186,7 @@ $defaultLang = 'en';    # default language
                 HTML VRD RTF FITS XCF DSS QTIF FPX PICT ZIP GZIP PLIST RAR BZ2
                 TAR RWZ EXE EXR HDR CHM LNK WMF AVC DEX DPX RAW Font RSRC M2TS
                 PHP PCX DCX DWF DWG WTV Torrent VCard LRI R3D AA PDB MOI ISO
-                JSON MP3 DICOM PCD);
+                ALIAS JSON MP3 DICOM PCD);
 
 # file types that we can write (edit)
 my @writeTypes = qw(JPEG TIFF GIF CRW MRW ORF RAF RAW PNG MIE PSD XMP PPM EPS
@@ -227,6 +227,7 @@ my %createTypes = map { $_ => 1 } qw(XMP ICC MIE VRD DR4 EXIF EXV);
     AIFC => ['AIFF', 'Audio Interchange File Format Compressed'],
     AIFF => ['AIFF', 'Audio Interchange File Format'],
     AIT  =>  'AI',
+    ALIAS=> ['ALIAS','MacOS file alias'],
     APE  => ['APE',  "Monkey's Audio format"],
     APNG => ['PNG',  'Animated Portable Network Graphics'],
     ARW  => ['TIFF', 'Sony Alpha RAW format'],
@@ -554,6 +555,7 @@ my %fileDescription = (
     AAE  => 'application/vnd.apple.photos',
     AI   => 'application/vnd.adobe.illustrator',
     AIFF => 'audio/x-aiff',
+    ALIAS=> 'application/x-macos',
     APE  => 'audio/x-monkeys-audio',
     APNG => 'image/apng',
     ASF  => 'video/x-ms-asf',
@@ -749,6 +751,7 @@ my %fileDescription = (
 # - module name '0' indicates a recognized but unsupported file
 my %moduleName = (
     AA   => 'Audible',
+    ALIAS=> 0,
     AVC  => 0,
     BTF  => 'BigTIFF',
     BZ2  => 0,
@@ -811,6 +814,7 @@ my %moduleName = (
 %magicNumber = (
     AA   => '.{4}\x57\x90\x75\x36',
     AIFF => '(FORM....AIF[FC]|AT&TFORM)',
+    ALIAS=> "book\0\0\0\0mark\0\0\0\0",
     APE  => '(MAC |APETAGEX|ID3)',
     ASF  => '\x30\x26\xb2\x75\x8e\x66\xcf\x11\xa6\xd9\x00\xaa\x00\x62\xce\x6c',
     AVC  => '\+A\+V\+C\+',
@@ -855,7 +859,7 @@ my %moduleName = (
     ITC  => '.{4}itch',
     JP2  => '(\0\0\0\x0cjP(  |\x1a\x1a)\x0d\x0a\x87\x0a|\xff\x4f\xff\x51\0)',
     JPEG => '\xff\xd8\xff',
-    JSON => '(\xef\xbb\xbf)?\s*(\[\s*)?\{\s*"[^"]+"\s*:',
+    JSON => '(\xef\xbb\xbf)?\s*(\[\s*)?\{\s*"[^"]*"\s*:',
     LFP  => '\x89LFP\x0d\x0a\x1a\x0a',
     LNK  => '.{4}\x01\x14\x02\0{5}\xc0\0{6}\x46',
     LRI  => 'LELR \0',
@@ -2240,7 +2244,7 @@ sub ExtractInfo($;@)
     my $fast = $$options{FastScan};
     my $req = $$self{REQ_TAG_LOOKUP};
     my $reqAll = $$options{RequestAll} || 0;
-    my (%saveOptions, $reEntry, $rsize, $type, @startTime);
+    my (%saveOptions, $reEntry, $rsize, $type, @startTime, $saveOrder);
 
     # check for internal ReEntry option to allow recursive calls to ExtractInfo
     if (ref $_[1] eq 'HASH' and $_[1]{ReEntry} and
@@ -2254,6 +2258,7 @@ sub ExtractInfo($;@)
             EXIF_POS  => $$self{EXIF_POS},
             FILE_TYPE => $$self{FILE_TYPE},
         };
+        $saveOrder = GetByteOrder(),
         $$self{RAF} = new File::RandomAccess($_[0]);
         $$self{PROCESSED} = { };
         delete $$self{EXIF_DATA};
@@ -2645,6 +2650,7 @@ sub ExtractInfo($;@)
     if ($reEntry) {
         # restore necessary members when exiting re-entrant code
         $$self{$_} = $$reEntry{$_} foreach keys %$reEntry;
+        SetByteOrder($saveOrder);
     }
 
     # ($type may be undef without an Error when processing sub-documents)

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

@@ -35,7 +35,7 @@ use Image::ExifTool::Sony;
 use Image::ExifTool::Validate;
 use Image::ExifTool::MacOS;
 
-$VERSION = '3.27';
+$VERSION = '3.28';
 @ISA = qw(Exporter);
 
 sub NumbersFirst($$);
@@ -217,8 +217,8 @@ writing.
 
 The HTML version of these tables also lists possible B<Values> for
 discrete-valued tags, as well as B<Notes> for some tags.  The B<Values> are
-listed as the computer-readable and human-readable values on the left and
-right hand side of an equals sign (C<=>) respectively.  The human-readable
+listed with the computer-readable values on the left of the equals sign
+(C<=>), and the human-readable values on the right.  The human-readable
 values are used by default when reading and writing, but the
 computer-readable values may be accessed by disabling the value conversion
 with the -n option on the command line, by setting the L<PrintConv|../ExifTool.html#PrintConv> option to 0

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

@@ -88,7 +88,7 @@ sub ProcessCTMD($$$);
 sub ProcessExifInfo($$$);
 sub SwapWords($);
 
-$VERSION = '4.24';
+$VERSION = '4.25';
 
 # Note: Removed 'USM' from 'L' lenses since it is redundant - PH
 # (or is it?  Ref 32 shows 5 non-USM L-type lenses)
@@ -224,7 +224,8 @@ $VERSION = '4.24';
     124 => 'Canon MP-E 65mm f/2.8 1-5x Macro Photo', #9
     125 => 'Canon TS-E 24mm f/3.5L',
     126 => 'Canon TS-E 45mm f/2.8', #15
-    127 => 'Canon TS-E 90mm f/2.8', #15
+    127 => 'Canon TS-E 90mm f/2.8 or Tamron Lens', #15
+    127.1 => 'Tamron 18-200mm f/3.5-6.3 Di II VC', #TomLachecki (model B018)
     129 => 'Canon EF 300mm f/2.8L USM', #32
     130 => 'Canon EF 50mm f/1.0L USM', #10/15
     131 => 'Canon EF 28-80mm f/2.8-4L USM or Sigma Lens', #32
@@ -242,6 +243,7 @@ $VERSION = '4.24';
     134 => 'Canon EF 600mm f/4L IS USM', #15
     135 => 'Canon EF 200mm f/1.8L USM',
     136 => 'Canon EF 300mm f/2.8L USM',
+    136.1 => 'Tamron SP 15-30mm f/2.8 Di VC USD', #TomLachecki (model A012)
     137 => 'Canon EF 85mm f/1.2L USM or Sigma or Tamron Lens', #10
     137.1 => 'Sigma 18-50mm f/2.8-4.5 DC OS HSM', #PH
     137.2 => 'Sigma 50-200mm f/4-5.6 DC OS HSM', #PH
@@ -345,6 +347,7 @@ $VERSION = '4.24';
     173.2 => 'Sigma APO Macro 150mm f/2.8 EX DG HSM', #14
     173.3 => 'Sigma 10mm f/2.8 EX DC Fisheye', #IB
     173.4 => 'Sigma 15mm f/2.8 EX DG Diagonal Fisheye', #IB
+    173.5 => 'Venus Laowa 100mm F2.8 2X Ultra Macro APO', #IB
     174 => 'Canon EF 135mm f/2L USM or Other Lens', #9
     174.1 => 'Sigma 70-200mm f/2.8 EX DG APO OS HSM', #PH (probably version II of this lens)
     174.2 => 'Sigma 50-500mm f/4.5-6.3 APO DG OS HSM', #forum4031
@@ -908,7 +911,7 @@ $VERSION = '4.24';
     0x80000408 => 'EOS 77D / 9000D',
     0x80000417 => 'EOS Rebel SL2 / 200D / Kiss X9', #IB/42
     0x80000422 => 'EOS Rebel T100 / 4000D / 3000D', #IB (3000D in China; Kiss? - PH)
-    0x80000424 => 'EOR R', #IB
+    0x80000424 => 'EOS R', #IB
     0x80000432 => 'EOS Rebel T7 / 2000D / 1500D / Kiss X90', #IB
     0x80000433 => 'EOS RP',
     0x80000436 => 'EOS SL3 / 250D / Kiss X10', #25
@@ -1885,7 +1888,7 @@ my %offOn = ( 0 => 'Off', 1 => 'On' );
     },
     0x4008 => { #53
         Name => 'PictureStyleUserDef', # (BasePictStyleOfUser)
-        Format => 'int16u',
+        Writable => 'int16u',
         Count => 3, # UserDef1, UserDef2, UserDef3
         PrintHex => 1,
         SeparateTable => 'PictureStyle',
@@ -1893,7 +1896,7 @@ my %offOn = ( 0 => 'Off', 1 => 'On' );
     },
     0x4009 => { #53
         Name => 'PictureStylePC', # (BasePictStyleOfUser)
-        Format => 'int16u',
+        Writable => 'int16u',
         Count => 3, # PC1, PC2, PC3
         PrintHex => 1,
         SeparateTable => 'PictureStyle',
@@ -1997,6 +2000,13 @@ my %offOn = ( 0 => 'Off', 1 => 'On' );
             TagTable => 'Image::ExifTool::Canon::AFConfig',
         }
     },
+    0x403f => { #25
+        Name => 'RawBurstModeRoll',
+        SubDirectory => {
+            Validate => 'Image::ExifTool::Canon::Validate($dirData,$subdirStart,$size)',
+            TagTable => 'Image::ExifTool::Canon::RawBurstInfo',
+        }
+    },
 );
 
 #..............................................................................
@@ -8438,6 +8448,16 @@ my %filterConv = (
     },
 );
 
+# RAW burst mode info (MakerNotes tag 0x403f) (ref 25)
+%Image::ExifTool::Canon::RawBurstInfo = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    FORMAT => 'int32u',
+    FIRST_ENTRY => 1,
+    1 => 'RawBurstImageNum',
+    2 => 'RawBurstImageCount',
+);
+
 # Canon UUID atoms (ref PH, SX280)
 %Image::ExifTool::Canon::uuid = (
     GROUPS => { 0 => 'MakerNotes', 1 => 'Canon', 2 => 'Video' },