exiftool-vendored.pl 13.42.0 → 13.44.0

package/bin/lib/Image/ExifTool/README

@@ -348,7 +348,7 @@ numerical, and generated automatically otherwise.
                   but applied automatically to individual tags.  Value specifies
                   pattern for split, or 1 for default pattern ',?\\s+'.
 
-                  'Avoid' - avoid creating this tag when writing if possible. 
+                  'Avoid' - avoid creating this tag when writing if possible.
                   This is only effective if another tag exists with the same
                   name.  Setting this flag also sets the default Priority to 0
                   for this tag.
@@ -632,7 +632,7 @@ numerical, and generated automatically otherwise.
                   value, and $tag is the tag key.  The subroutine takes 2
                   arguments: the Raw value and a reference to the current
                   ExifTool object.  The advanced formatting expression (if any)
-                  may be accessed via the ExifTool "FMT_EXPR" member variable. 
+                  may be accessed via the ExifTool "FMT_EXPR" member variable.
                   The expression or subroutine is evaluated if and when the tag
                   value is requested (ie. only after all extraction is
                   complete), so if necessary at this time the values of all
@@ -650,7 +650,7 @@ numerical, and generated automatically otherwise.
                   enabled.  If this isn't possible (as with Composite tags where
                   the converted values of the source tags are needed), set the
                   Priority to 0 to avoid taking priority over a valid tag. If
-                  ValueConv is not specified, the Raw value is not converted. 
+                  ValueConv is not specified, the Raw value is not converted.
                   Composite tags which Require or Desire other tags may access
                   the ValueConv, PrintConv and Raw values of these tags through
                   the elements of the @val, @prt and @raw lists respectively
@@ -822,7 +822,7 @@ numerical, and generated automatically otherwise.
                   SubDirectory is writable as a block, or if the SubDirectory
                   can not be edited (in which case Writable is set to 0).  If
                   non-zero, the SubDirectory is also extracted as a block, so
-                  the Binary and Protected flags should usually set as well. 
+                  the Binary and Protected flags should usually set as well.
                   There is currently no way to specify a write format for a
                   SubDirectory that is not writable as a block (the default is
                   'int32u' for IFD-type SubDirectories, and 'undef' for all
@@ -970,7 +970,7 @@ numerical, and generated automatically otherwise.
                   data record), $dataPt (reference to the data block), and $pos
                   (position of this tag in the data block), and assign a new
                   value to $format to dynamically set the tag format, and/or
-                  increment $varSize to add a byte offset to subsequent tags. 
+                  increment $varSize to add a byte offset to subsequent tags.
                   $varSize may be set to a large number to effectively abort
                   processing of the directory after this tag.  Must have
                   corresponding DATAMEMBER entry in writable tables.  Must not

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

@@ -30,7 +30,7 @@ use strict;
 use vars qw($VERSION $AUTOLOAD);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.72';
+$VERSION = '1.73';
 
 sub ConvertTimecode($);
 sub ProcessSGLT($$$);
@@ -391,7 +391,7 @@ my %code2charset = (
     smpl => { #16
         Name => 'Sampler',
         SubDirectory => { TagTable => 'Image::ExifTool::RIFF::Sampler' },
-    },        
+    },
     inst => { #16
         Name => 'Instrument',
         SubDirectory => { TagTable => 'Image::ExifTool::RIFF::Instrument' },
@@ -546,11 +546,11 @@ my %code2charset = (
    'id3 ' => {
         Name => 'ID3',
         SubDirectory => { TagTable => 'Image::ExifTool::ID3::Main' },
-    },        
+    },
    'ID3 ' => { # (NC)
         Name => 'ID3-2',
         SubDirectory => { TagTable => 'Image::ExifTool::ID3::Main' },
-    },        
+    },
 #
 # WebP-specific tags
 #
@@ -851,6 +851,7 @@ my %code2charset = (
         Name => 'DateCreated',
         Groups => { 2 => 'Time' },
         ValueConv => '$_=$val; s/-/:/g; $_',
+        PrintConv => '$self->ConvertDateTime($val)',
     },
     ICRP => 'Cropped',
     IDIM => 'Dimensions',

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

@@ -420,7 +420,7 @@ my %convUnicode = (
     WRITABLE => 1,
     FIRST_ENTRY => 0,
     NOTES => 'Maker notes tags for Reconyx MicroFire cameras.',
-    0x10 => { Name => 'FileNumber',         Format => 'int16u' },  
+    0x10 => { Name => 'FileNumber',         Format => 'int16u' },
     0x12 => { Name => 'DirectoryNumber',    Format => 'int16u' },
     0x14 => {
         Name => 'DirectoryCreateDate',
@@ -695,7 +695,7 @@ my %convUnicode = (
     0x51 => { Name => 'UserLabel',          Format => 'string[51]' },
     0x84 => { Name => 'SerialNumber',       Format => 'string[15]' },
     0x93 => { Name => 'DirectoryNumber',    Format => 'int16u' },
-    0x95 => { Name => 'FileNumber',         Format => 'int16u' },  
+    0x95 => { Name => 'FileNumber',         Format => 'int16u' },
 );
 
 __END__

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

@@ -23,7 +23,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::JSON;
 
-$VERSION = '1.59';
+$VERSION = '1.60';
 
 sub WriteSTMN($$$);
 sub ProcessINFO($$$);
@@ -1314,7 +1314,17 @@ my %formatMinMax = (
    # 0x0da1-name - seen 'Captured_App_Info' #forum16086
    # 0xa050-name - seen 'Jpeg360_2D_Info' (Samsung Gear 360)
    # 0xa050 - seen 'Jpeg3602D' (Samsung Gear 360)
+   # 0x0c61-name - seen 'Camera_Capture_Mode_Info'
+   # 0x0c61 - seen '1'
    # 0x0c81-name - seen 'Watermark_Info'
+   # 0x0ce1-name - seen 'Gallery_DC_Data'
+   # 0x0ce1 - seen '0,109,2,19010102,4000,3000,0,0,0,0;116.284004;1.0'
+   # 0x0e41-name - seen 'Video_Edited_UTC_Offset'
+   # 0x0e41 - seen '+0800'
+    '0x0e41' => {
+        Name => 'VideoEditedTimeZone',
+        Groups => { 2 => 'Time' },
+    },
 );
 
 # DualShot Extra Info (ref PH)

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

@@ -34,7 +34,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::Minolta;
 
-$VERSION = '3.80';
+$VERSION = '3.82';
 
 sub ProcessSRF($$$);
 sub ProcessSR2($$$);
@@ -261,7 +261,7 @@ sub PrintInvLensSpec($;$$);
     49475 => 'Tamron 50-300mm F4.5-6.3 Di III VC VXD', #JR (Model A069)
     49476 => 'Tamron 28-300mm F4-7.1 Di III VC VXD', #JR (Model A074)
     49477 => 'Tamron 90mm F2.8 Di III Macro VXD', #JR (Model F072)
-    49478 => 'Tamron 16-30mm F2.8 Di III VXD G2', #JR (Model A064) 
+    49478 => 'Tamron 16-30mm F2.8 Di III VXD G2', #JR (Model A064)
 
     49712 => 'Tokina FiRIN 20mm F2 FE AF',       # (firmware Ver.01)
     49713 => 'Tokina FiRIN 100mm F2.8 FE MACRO', # (firmware Ver.01)
@@ -1534,6 +1534,7 @@ my %hidUnk = ( Hidden => 1, Unknown => 1 );
             0 => 'Compressed RAW',
             1 => 'Uncompressed RAW',
             2 => 'Lossless Compressed RAW', #JR (NC) seen for ILCE-1
+            3 => 'Compressed RAW (HQ)', # ILCE-7M5
            65535 => 'n/a', # seen for ILCE-7SM3 JPEG-only
         },
     },
@@ -2095,6 +2096,7 @@ my %hidUnk = ( Hidden => 1, Unknown => 1 );
             '4 0 1 0' => 'ARW 4.0.1', #github195 (ZV-E1)
             '5 0 0 0' => 'ARW 5.0', # (ILCE-9M3)
             '5 0 1 0' => 'ARW 5.0.1', # (ILCE-1 with FirmWare 2.0)
+            '6 0 0 0' => 'ARW 6.0.0', # (ILCE-7M5)
             # what about cRAW images?
         },
     },
@@ -2215,6 +2217,7 @@ my %hidUnk = ( Hidden => 1, Unknown => 1 );
             403 => 'ILCE-6100A', #JR
             404 => 'DSC-RX100M7A', #github347
             406 => 'ILME-FX2', #JR
+            407 => 'ILCE-7M5', #PH
             408 => 'ZV-1A', #JR
         },
     },
@@ -7563,6 +7566,12 @@ my %isoSetting2010 = (
 #           appears to be difference between used FNumber and MaxAperture, 256 being +1 APEX or stop
 #           however, not always valid e.g. bracketing, Shutter-prio e.a.
 #           difference between 0x0002 and 0x0004 mostly 0.0, 0.1 or 0.2 stops.
+    0x000a => { #github369
+        Name => 'ShutterCount',
+        Format => 'int32u',
+        Condition => '$$self{Model} =~ /^ILCE-7M5$/',
+        Notes => 'ILCE-7M5',
+    },
     0x0020 => {
         Name => 'Shutter',
         Format => 'int16u[3]',
@@ -7593,6 +7602,7 @@ my %isoSetting2010 = (
         # NEX-5N/7.  For the A99V it is definitely more than 16 bits, but it wraps at
         # 65536 for the A7R.
         Format => 'int32u',
+        Condition => '$$self{Model} !~ /^ILCE-7M5$/',
         Notes => q{
             total number of image exposures made by the camera, modulo 65536 for some
             models
@@ -9987,7 +9997,7 @@ my %isoSetting2010 = (
         PrintConv => \%sonyExposureProgram3,
     },
     0x0037 => {
-        Name => 'CreativeStyle',    
+        Name => 'CreativeStyle',
         Notes => 'offsets after this are shifted by 1 for the ILME-FX2',
         Hook => '$varSize += 1 if $$self{Model} =~ /^(ILME-FX2)/',
         PrintConv => {

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

@@ -345,7 +345,7 @@ sub ProcessProps($$$)
                 }
             }
             if (not defined $val) {
-                $val = ReadValue($dataPt, $pos, $fmt, $count, $size); 
+                $val = ReadValue($dataPt, $pos, $fmt, $count, $size);
                 if ($type == 0x06 or $type == 0x07 or $type == 0x0b or $type == 0x40) {
                     my @a = split ' ', $val;
                     if ($type == 0x06) {        # currency
@@ -377,7 +377,7 @@ sub ProcessProps($$$)
                 my $copy = $val;
                 $val = \$copy;  # change to a binary data reference
             }
-            $et->HandleTag($tagTbl, $tag, $val, 
+            $et->HandleTag($tagTbl, $tag, $val,
                 DataPt  => $dataPt,
                 DataPos => $dataPos,
                 Start   => $pos,