exiftool_vendored 12.11.0 → 12.16.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: b7f2c837f1bff7860cad5011a04c5671d88d4a761c197c2442c73791c5d87b22
-  data.tar.gz: 49b1ea22c9fe6668b08f0b021cbe492cc9b870d931d92a4fe127ba7ada41d757
+  metadata.gz: 6e5f50165965c391eee5f2088b8220f437030d2c6f03f3f1af04df861f962f24
+  data.tar.gz: e9c7f8127928dfc92efcbe0e851dffeea05f6a97282497ff7a1e456c4802c9b6
 SHA512:
-  metadata.gz: a66c9d7b5f2f9f4118ff5c4355fbff604a7173c0b6a90349e2884624a55e1216e77b9e00c958515447d58d5f9d3e612f48e6608aeea8ae6ee3528512c39db1b2
-  data.tar.gz: 6d74f8b745f7c964dad82bca92d98c07b318d4895d12d4f10cfc2e8c212d326abdd02e60afff8af7e936c2b89802277b4ae79b4f3d1da2642f0ffd9e4717d0eb
+  metadata.gz: 54b390d7d5dd0b4e8420b747301442137dba8efea7fb6fb3b509634560ac1f5845f5d8dfae09b35c8ce6793a13cdd88e8620068464437d97632f19fb567da837
+  data.tar.gz: c2f4c386d46378f95d080c67e9a06d8c0b4a8e48038aff3dda4dc3da32cfa280dd79f39ac85c15174dd6186a24e8093157ec2529944a72d19312f4a569806f77

data/bin/Changes

@@ -4,8 +4,68 @@ ExifTool Version History
 
 RSS feed: https://exiftool.org/rss.xml
 
-Note: The most recent production release is Version 12.00. (Other versions are
-considered development releases, and are not uploaded to CPAN.)
+Note: The most recent production release is Version 12.16. (Other versions are
+considered development releases, and are not uploaded to MetaCPAN.)
+
+Jan. 21, 2021 - Version 12.16 (production release)
+
+  - Extract another form of video subtitle text
+  - Enhanced -ee option with -ee2 and -ee3 to allow parsing of the H264 video
+    stream in MP4 files
+  - Changed a Nikon FlashMode value
+  - Fixed problem that caused a failed DPX test on Strawberry Perl
+
+Jan. 18, 2021 - Version 12.15 (production release)
+
+  - Added a couple of new Sony LensType values (thanks LibRaw and Jos Roost)
+  - Added a new Nikon FlashMode value (thanks Mike)
+  - Decode NikonSettings (thanks Warren Hatch)
+  - Decode thermal information from DJI RJPEG images
+  - Fixed extra newline in -echo3 and -echo4 outputs added in version 12.10
+  - Fixed out-of-memory problem when writing some very large PNG files under
+    Windows
+
+Jan. 6, 2021 - Version 12.14
+
+  - Added support for 2 more types of timed GPS in video files (that makes 49
+    different formats now supported)
+  - Added validity check for PDF trailer dictionary Size
+  - Added a new Pentax LensType
+  - Extract metadata from Jpeg2000 Association box
+  - Changed -g:XX:YY and -G:XX:YY options to show empty strings for non-existent
+    groups
+  - Patched to issue warning and avoid writing date/time values with a zero
+    month or day number
+  - Patched to avoid runtime warnings if trying to set FileName to an empty
+    string
+  - Fixed issue that could cause GPS test number 12 to fail on some systems
+  - Fixed problem extracting XML as a block from Jpeg2000 images, and extract
+    XML tags in the XML group instead of XMP
+
+Dec. 24, 2020 - Version 12.13
+
+  - Added -i HIDDEN option to ignore files with names that start with "."
+  - Added a few new Nikon ShutterMode values (thanks Jan Skoda)
+  - Added ability to write Google GCamera MicroVideo XMP tags
+  - Add time zone automatically to most string-based QuickTime date/time tags
+    when writing unless the PrintConv option is disabled
+  - Decode a new Sony tag (thanks LibRaw)
+  - Changed behaviour when writing only pseudo tags to return an error and avoid
+    writing any other tags if writing FileName fails
+  - Print "X image files read" message even if only 1 file is read when at least
+    one other file has failed the -if condition
+
+Dec. 4, 2020 - Version 12.12
+
+  - Added ability to geotag from DJI CSV log files
+  - Added a new CanonModelID
+  - Added a couple of new Sony LensType values (thanks LibRaw)
+  - Enhanced -csvDelim option to allow "\t", "\n", "\r" and "\\"
+  - Unescape "\b" and "\f" in imported JSON values
+  - Fixed bug introduced in 12.10 which generated a "Not an integer" warning
+    when attempting to shift some QuickTime date/time tags
+  - Fixed shared-write permission problem with -@ argfile when using -stay_open
+    and a filename containing special characters on Windows
 
 Nov. 27, 2020 - Version 12.11
 

data/bin/MANIFEST

@@ -115,6 +115,7 @@ html/TagNames/Motorola.html
 html/TagNames/Nikon.html
 html/TagNames/NikonCapture.html
 html/TagNames/NikonCustom.html
+html/TagNames/NikonSettings.html
 html/TagNames/Nintendo.html
 html/TagNames/OOXML.html
 html/TagNames/Ogg.html
@@ -337,6 +338,7 @@ lib/Image/ExifTool/Motorola.pm
 lib/Image/ExifTool/Nikon.pm
 lib/Image/ExifTool/NikonCapture.pm
 lib/Image/ExifTool/NikonCustom.pm
+lib/Image/ExifTool/NikonSettings.pm
 lib/Image/ExifTool/Nintendo.pm
 lib/Image/ExifTool/OOXML.pm
 lib/Image/ExifTool/Ogg.pm
@@ -567,6 +569,7 @@ t/GeoTiff_4.out
 t/Geotag.t
 t/Geotag_10.out
 t/Geotag_11.out
+t/Geotag_12.out
 t/Geotag_2.out
 t/Geotag_3.out
 t/Geotag_5.out
@@ -602,6 +605,7 @@ t/Jpeg2000.t
 t/Jpeg2000_2.out
 t/Jpeg2000_3.out
 t/Jpeg2000_4.out
+t/Jpeg2000_5.out
 t/Kodak.t
 t/Kodak_2.out
 t/Kodak_3.out
@@ -986,6 +990,7 @@ t/images/Geotag.log
 t/images/Geotag.xml
 t/images/Geotag2.log
 t/images/Geotag3.log
+t/images/Geotag_DJI_2020-12-02_[07-50-31].csv
 t/images/GoPro.jpg
 t/images/HTML.html
 t/images/ICC_Profile.icc

data/bin/META.json

@@ -47,5 +47,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "12.11"
+   "version" : "12.16"
 }

data/bin/META.yml

@@ -28,4 +28,4 @@ recommends:
   Time::HiRes: 0
 requires:
   perl: 5.004
-version: 12.11
+version: 12.16

data/bin/README

@@ -106,8 +106,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.11.tar.gz | tar -xf -
-  cd Image-ExifTool-12.11
+  gzip -dc Image-ExifTool-12.16.tar.gz | tar -xf -
+  cd Image-ExifTool-12.16
   ./exiftool t/images/ExifTool.jpg
 
 Note:  These commands extract meta information from one of the test images. 
@@ -161,7 +161,7 @@ for calculating digest values and providing other features listed below:
 
 COPYRIGHT AND LICENSE
 
-Copyright 2003-2020, Phil Harvey
+Copyright 2003-2021, Phil Harvey
 
 This is free software; you can redistribute it and/or modify it under the
 same terms as Perl itself.

data/bin/exiftool

@@ -10,7 +10,7 @@
 use strict;
 require 5.004;
 
-my $version = '12.11';
+my $version = '12.16';
 
 # add our 'lib' directory to the include list BEFORE 'use Image::ExifTool'
 my $exeDir;
@@ -106,6 +106,7 @@ my %csvTags;        # lookup for all found tags with CSV option (lower case keys
 my %database;       # lookup for database information based on file name (in ExifTool Charset)
 my %filterExt;      # lookup for filtered extensions
 my %ignore;         # directory names to ignore
+my $ignoreHidden;   # flag to ignore hidden files
 my %preserveTime;   # preserved timestamps for files
 my %printFmt;       # the contents of the print format file
 my %setTags;        # hash of list references for tags to set from files
@@ -370,12 +371,12 @@ if (grep /^-common_args$/i, @ARGV) {
 Command: for (;;) {
 
 if (@echo3) {
-    my $str = join "\n", @echo3, "\n";
+    my $str = join("\n", @echo3) . "\n";
     $str =~ s/\$\{status\}/$rtnVal/ig;
     print STDOUT $str;
 }
 if (@echo4) {
-    my $str = join "\n", @echo4, "\n";
+    my $str = join("\n", @echo4) . "\n";
     $str =~ s/\$\{status\}/$rtnVal/ig;
     print STDERR $str;
 }
@@ -468,6 +469,7 @@ undef $fileHeader;
 undef $filtered;
 undef $fixLen;
 undef $forcePrint;
+undef $ignoreHidden;
 undef $joinLists;
 undef $langOpt;
 undef $listItem;
@@ -859,7 +861,11 @@ for (;;) {
     }
     if (/^csvdelim$/i) {
         $csvDelim = shift;
-        defined $csvDelim or Error("Expecting argument for -csvDelim option\n"), $badCmd=1;
+        defined $csvDelim or Error("Expecting argument for -csvDelim option\n"), $badCmd=1, next;
+        $csvDelim =~ /"/ and Error("CSV delimiter can not contain a double quote\n"), $badCmd=1, next;
+        my %unescape = ( 't'=>"\t", 'n'=>"\n", 'r'=>"\r", '\\' => '\\' );
+        $csvDelim =~ s/\\(.)/$unescape{$1}||"\\$1"/sge;
+        $mt->Options(CSVDelim => $csvDelim);
         next;
     }
     if (/^d$/ or $a eq 'dateformat') {
@@ -888,8 +894,8 @@ for (;;) {
         $helped = 1;
         next;
     }
-    if (/^(ee|extractembedded)$/i) {
-        $mt->Options(ExtractEmbedded => 1);
+    if (/^(ee|extractembedded)(\d*)$/i) {
+        $mt->Options(ExtractEmbedded => $2 || 1);
         $mt->Options(Duplicates => 1);
         next;
     }
@@ -982,6 +988,7 @@ for (;;) {
         my $dir = shift;
         defined $dir or Error("Expecting directory name for -i option\n"), $badCmd=1, next;
         $ignore{$dir} = 1;
+        $dir eq 'HIDDEN' and $ignoreHidden = 1;
         next;
     }
     if (/^if(\d*)$/i) {
@@ -1859,7 +1866,7 @@ if (defined $deleteOrig) {
         printf($o "%5d image files %s\n", $countCopyWr, $overwriteOrig ? 'moved' : 'copied') if $countCopyWr;
         printf($o "%5d files weren't updated due to errors\n", $countBadWr) if $countBadWr;
         printf($o "%5d files weren't created due to errors\n", $countBadCr) if $countBadCr;
-        printf($o "%5d image files read\n", $count) if $tot>1 or ($countDir and not $totWr);
+        printf($o "%5d image files read\n", $count) if ($tot+$countFailed)>1 or ($countDir and not $totWr);
         printf($o "%5d files could not be read\n", $countBad) if $countBad;
         printf($o "%5d output files created\n", scalar(keys %created)) if $textOut;
         printf($o "%5d output files appended\n", scalar(keys %appended)) if %appended;
@@ -2851,6 +2858,10 @@ sub SetImageInfo($$$)
         # determine what our output file name should be
         my $newFileName = $et->GetNewValues('FileName');
         my $newDir = $et->GetNewValues('Directory');
+        if (defined $newFileName and not length $newFileName) {
+            Warn "Warning: New file name is empty - $ infile\n";
+            undef $newFileName;
+        }
         if (defined $testName) {
             my $err;
             $err = "You shouldn't write FileName or Directory with TestFile" if defined $newFileName or defined $newDir;
@@ -2929,14 +2940,19 @@ sub SetImageInfo($$$)
             }
             # quickly rename file and/or set file date if this is all we are doing
             if ($numSet == $numPseudo) {
-                my $r1 = $et->SetFileModifyDate($file,undef,'FileCreateDate');
-                my $r2 = $et->SetFileModifyDate($file);
-                my $r3 = $et->SetSystemTags($file);
-                my $r4 = 0;
-                $r4 = $et->SetFileName($file, $outfile) if defined $outfile;
-                if ($r1 > 0 or $r2 > 0 or $r3 > 0 or $r4 > 0) {
+                my ($r0, $r1, $r2, $r3) = (0, 0, 0, 0);
+                if (defined $outfile) {
+                    $r0 = $et->SetFileName($file, $outfile);
+                    $file = $$et{NewName} if $r0 > 0;   # continue with new name if changed
+                }
+                unless ($r0 < 0) {
+                    $r1 = $et->SetFileModifyDate($file,undef,'FileCreateDate');
+                    $r2 = $et->SetFileModifyDate($file);
+                    $r3 = $et->SetSystemTags($file);
+                }
+                if ($r0 > 0 or $r1 > 0 or $r2 > 0 or $r3 > 0) {
                     ++$countGoodWr;
-                } elsif ($r1 < 0 or $r2 < 0 or $r3 < 0 or $r4 < 0) {
+                } elsif ($r0 < 0 or $r1 < 0 or $r2 < 0 or $r3 < 0) {
                     EFile($infile);
                     ++$countBadWr;
                     return 0;
@@ -2945,8 +2961,7 @@ sub SetImageInfo($$$)
                     ++$countSameWr;
                 }
                 if (defined $hardLink or defined $symLink or defined $testName) {
-                    my $src = (defined $outfile and $r4 > 0) ? $outfile : $file;
-                    DoHardLink($et, $src, $hardLink, $symLink, $testName);
+                    DoHardLink($et, $file, $hardLink, $symLink, $testName);
                 }
                 return 1;
             }
@@ -3682,6 +3697,7 @@ sub ScanDir($$;$)
             next;
         }
         next if $endThisDir;
+        next if $ignoreHidden and $file =~ /^\./;   # ignore hidden files if specified
         # apply rules from -ext options
         my $accepted;
         if ($filterFlag) {
@@ -4557,7 +4573,7 @@ L<Processing control|/Processing control>
 
   -a          (-duplicates)        Allow duplicate tags to be extracted
   -e          (--composite)        Do not generate composite tags
-  -ee         (-extractEmbedded)   Extract information from embedded files
+  -ee[NUM]    (-extractEmbedded)   Extract information from embedded files
   -ext[+] EXT (-extension)         Process files with specified extension
   -F[OFFSET]  (-fixBase)           Fix the base for maker notes offsets
   -fast[NUM]                       Increase speed when extracting metadata
@@ -5095,8 +5111,10 @@ generate a fixed-column CSV file instead of using the B<-csv> option.
 
 =item B<-csvDelim> I<STR>
 
-Set the delimiter for separating CSV entries for the B<-csv> option. 
-Default is ','.
+Set the delimiter for separating CSV entries for CSV file input/output via
+the B<-csv> option.  I<STR> may contain "\t", "\n", "\r" and "\\" to
+represent TAB, LF, CR and '\' respectively.  A double quote is not allowed
+in the delimiter.  Default is ','.
 
 =item B<-d> I<FMT> (B<-dateFormat>)
 
@@ -5349,7 +5367,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 12.11 --
+    -- Generated by ExifTool 12.16 --
     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
@@ -5688,7 +5706,7 @@ when copying.
 
 Extract existing tags only -- don't generate composite tags.
 
-=item B<-ee> (B<-extractEmbedded>)
+=item B<-ee>[I<NUM>] (B<-extractEmbedded>)
 
 Extract information from embedded documents in EPS files, embedded EPS
 information and JPEG and Jpeg2000 images in PDF files, embedded MPF images
@@ -5706,6 +5724,11 @@ document as if it were a separate input file.  This allows, for example,
 generation of GPS track logs from timed metadata in videos.  See
 L<https://exiftool.org/geotag.html#Inverse> for examples.
 
+Setting I<NUM> to 2 causes the H264 video stream in MP4 videos to be parsed
+until the first Supplemental Enhancement Information (SEI) message is
+decoded, or 3 to parse the entire H624 stream and decode all SEI
+information.
+
 =item B<-ext>[+] I<EXT>, B<--ext> I<EXT> (B<-extension>)
 
 Process only files with (B<-ext>) or without (B<--ext>) a specified
@@ -5794,7 +5817,9 @@ name, or a full path.  If a full path is specified, it must match the
 Directory tag exactly to be ignored.  Use multiple B<-i> options to ignore
 more than one directory name.  A special I<DIR> value of C<SYMLINKS> (case
 sensitive) may be specified to ignore symbolic links when the B<-r> option
-is used.
+is used.  As well, a value of C<HIDDEN> (case sensitive) may be used to
+ignore files with names that start with a "." (ie. hidden files on Unix
+systems) when scanning a directory.
 
 =item B<-if>[I<NUM>] I<EXPR>
 
@@ -6353,10 +6378,10 @@ name and directory.
 
 =item B<-stay_open> I<FLAG>
 
-If I<FLAG> is C<1> or C<True>, causes exiftool keep reading from the B<-@>
-I<ARGFILE> even after reaching the end of file.  This feature allows calling
-applications to pre-load exiftool, thus avoiding the overhead of loading
-exiftool for each command.  The procedure is as follows:
+If I<FLAG> is C<1> or C<True> (case insensitive), causes exiftool keep
+reading from the B<-@> I<ARGFILE> even after reaching the end of file.  This
+feature allows calling applications to pre-load exiftool, thus avoiding the
+overhead of loading exiftool for each command.  The procedure is as follows:
 
 1) Execute C<exiftool -stay_open True -@ I<ARGFILE>>, where I<ARGFILE> is the
 name of an existing (possibly empty) argument file or C<-> to pipe arguments
@@ -6379,8 +6404,9 @@ signals back to your application.)
 
 4) Repeat steps 2 and 3 for each command.
 
-5) Write C<-stay_open\nFalse\n> to I<ARGFILE> when done.  This will cause
-exiftool to process any remaining command-line arguments then exit normally.
+5) Write C<-stay_open\nFalse\n> (or C<-stay_open\n0\n>) to I<ARGFILE> when
+done.  This will cause exiftool to process any remaining command-line
+arguments then exit normally.
 
 The input I<ARGFILE> may be changed at any time before step 5 above by
 writing the following lines to the currently open I<ARGFILE>:
@@ -6408,10 +6434,11 @@ an interface to the API UserParam option (see the
 L<Image::ExifTool Options|Image::ExifTool/Options> documentation), and
 provides a method to access user-defined parameters in arguments to the
 B<-if> and B<-p> options as if they were any other tag.  Appending a hash
-tag (C<#>) to I<PARAM> also causes the parameter to be extracted as a normal
-tag (in the UserParam group).  Similar to the B<-api> option, the parameter
-value is set to 1 if I<=VAL> is omitted, undef if just I<VAL> is omitted
-with C<=>, or an empty string if I<VAL> is omitted with C<^=>.
+tag (C<#>) to I<PARAM> (eg. C<-userParam MyTag#=yes>) also causes the
+parameter to be extracted as a normal tag in the UserParam group.  Similar
+to the B<-api> option, the parameter value is set to 1 if I<=VAL> is
+omitted, undef if just I<VAL> is omitted with C<=>, or an empty string if
+I<VAL> is omitted with C<^=>.
 
     exiftool -p '$test from $filename' -userparam test=Hello FILE
 
@@ -6481,9 +6508,9 @@ For example, the following command may be used to remove duplicate Keywords:
 The B<-sep> option is necessary to split the string back into individual
 list items when writing to a list-type tag.
 
-An optional flag argument may be set to 1 to cause C<NoDups> to return undef
-if no duplicates existed, thus preventing the file from being rewritten
-unnecessarily:
+An optional flag argument may be set to 1 to cause C<NoDups> to set C<$_> to
+undef if no duplicates existed, thus preventing the file from being
+rewritten unnecessarily:
 
     exiftool -sep '##' '-keywords<${keywords;NoDups(1)}' a.jpg
 
@@ -7121,6 +7148,13 @@ flexibility of ExifTool.)
 
 =back
 
+=head1 INTERRUPTING EXIFTOOL
+
+Interrupting exiftool with a CTRL-C or SIGINT will not result in partially
+written files or temporary files remaining on the hard disk.  The exiftool
+application traps SIGINT and defers it until the end of critical processes
+if necessary, then does a proper cleanup before exiting.
+
 =head1 EXIT STATUS
 
 The exiftool application exits with a status of 0 on success, or 1 if an
@@ -7129,7 +7163,7 @@ the commands if B<-execute> was used).
 
 =head1 AUTHOR
 
-Copyright 2003-2020, Phil Harvey
+Copyright 2003-2021, Phil Harvey
 
 This is free software; you can redistribute it and/or modify it under the
 same terms as Perl itself.

data/bin/lib/File/RandomAccess.pm

@@ -25,7 +25,7 @@
 #
 #               May also be used for string i/o (just pass a scalar reference)
 #
-# Legal:        Copyright (c) 2003-2020 Phil Harvey (philharvey66 at gmail.com)
+# Legal:        Copyright (c) 2003-2021 Phil Harvey (philharvey66 at gmail.com)
 #               This library is free software; you can redistribute it and/or
 #               modify it under the same terms as Perl itself.
 #------------------------------------------------------------------------------

data/bin/lib/File/RandomAccess.pod

@@ -3,7 +3,7 @@
 #
 # Description:  Buffer to support random access reading of sequential file
 #
-# Legal:        Copyright (c) 2003-2020 Phil Harvey (philharvey66 at gmail.com)
+# Legal:        Copyright (c) 2003-2021 Phil Harvey (philharvey66 at gmail.com)
 #               This library is free software; you can redistribute it and/or
 #               modify it under the same terms as Perl itself.
 #------------------------------------------------------------------------------
@@ -236,7 +236,7 @@ the end of file is not allowed.
 
 =head1 AUTHOR
 
-Copyright 2003-2020 Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2021 Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.