exiftool_vendored 9.60.0 → 9.64.0

data/bin/{Image-ExifTool-9.60 → Image-ExifTool-9.64}/lib/Image/ExifTool/Font.pm

@@ -215,7 +215,7 @@ my %ttCharset = (
     NOTES => q{
         The following tags are extracted from the TrueType font "name" table found
         in OTF, TTF, TTC and DFONT files.  These tags support localized languages by
-        adding a hyphen followed by a language code to the end of the tag name (ie.
+        adding a hyphen followed by a language code to the end of the tag name (eg.
         "Copyright-fr" or "License-en-US").  Tags with no language code use the
         default language of "en".
     },

data/bin/{Image-ExifTool-9.60 → Image-ExifTool-9.64}/lib/Image/ExifTool/FujiFilm.pm

@@ -79,7 +79,7 @@ my %faceCategories = (
             this number is unique, and contains the date of manufacture, but doesn't
             necessarily correspond to the camera body number -- this needs to be checked
         },
-        # ie)  "FPX20017035 592D31313034060427796060110384"
+        # eg)  "FPX20017035 592D31313034060427796060110384"
         # "FPX 20495643     592D313335310701318AD010110047" (F40fd)
         #                               yymmdd
         PrintConv => q{
@@ -396,7 +396,7 @@ my %faceCategories = (
     0x1304 => { #PH
         Name => 'GEImageSize',
         Condition => '$$self{Make} =~ /^GENERAL IMAGING/',
-        Format => 'string',
+        Writable => 'string',
         Notes => 'GE models only',
     },
     0x1400 => { #2
@@ -484,7 +484,7 @@ my %faceCategories = (
     },
     0x1436 => { #8
         Name => 'ImageGeneration',
-        Format => 'int16u',
+        Writable => 'int16u',
         PrintConv => {
             0 => 'Original Image',
             1 => 'Re-developed from RAW',
@@ -635,6 +635,52 @@ my %faceCategories = (
             return $val;
         },
     },
+    0x2000 => { #9
+        Name => 'WB_GRGBLevelsAuto',
+        Format => 'int16u',
+        Count => 4, # (ignore the duplicate values)
+    },
+    0x2100 => { #9
+        Name => 'WB_GRGBLevelsDaylight',
+        Format => 'int16u',
+        Count => 4,
+    },
+    0x2200 => { #9
+        Name => 'WB_GRGBLevelsCloudy',
+        Format => 'int16u',
+        Count => 4,
+    },
+    0x2300 => { #9
+        Name => 'WB_GRGBLevelsDaylightFluor',
+        Format => 'int16u',
+        Count => 4,
+    },
+    0x2301 => { #9
+        Name => 'WB_GRGBLevelsDayWhiteFluor',
+        Format => 'int16u',
+        Count => 4,
+    },
+    0x2302 => { #9
+        Name => 'WB_GRGBLevelsWhiteFluorescent',
+        Format => 'int16u',
+        Count => 4,
+    },
+    0x2310 => { #9
+        Name => 'WB_GRGBLevelsWarmWhiteFluor',
+        Format => 'int16u',
+        Count => 4,
+    },
+    0x2311 => { #9
+        Name => 'WB_GRGBLevelsLivingRoomWarmWhiteFluor',
+        Format => 'int16u',
+        Count => 4,
+    },
+    0x2400 => { #9
+        Name => 'WB_GRGBLevelsTungsten',
+        Format => 'int16u',
+        Count => 4,
+    },
+    # 0x2f00 => WB_GRGBLevelsCustom: int32u count, then count * (int16u GRGBGRGB), ref 9
     0x2ff0 => {
         Name => 'WB_GRGBLevels',
         Format => 'int16u',

data/bin/{Image-ExifTool-9.60 → Image-ExifTool-9.64}/lib/Image/ExifTool/GPS.pm

@@ -129,6 +129,7 @@ my %coordConv = (
         },
         ValueConv => 'Image::ExifTool::GPS::ConvertTimeStamp($val)',
         ValueConvInv => '$val=~tr/:/ /;$val',
+        PrintConv => 'Image::ExifTool::GPS::PrintTimeStamp($val)',
         # pull time out of any format date/time string
         # (converting to UTC if a timezone is given)
         PrintConvInv => sub {
@@ -333,7 +334,8 @@ my %coordConv = (
         PrintConvInv => '$val=~s/\s*m$//; $val',
         Writable => 'rational64u',
     },
-    # 0xea1c - Nokia Lumina 1020 writes this (padding) in GPS IFD - PH
+    # 0xea1c - Nokia Lumina 1020, Samsung GT-I8750, and other Windows 8
+    #          phones write this (padding) in GPS IFD - PH
 );
 
 # Composite GPS tags
@@ -408,13 +410,26 @@ sub ConvertTimeStamp($)
     $h = int($f / 3600); $f -= $h * 3600;
     $m = int($f / 60);   $f -= $m * 60;
     $s = int($f);        $f -= $s;
-    $f = int($f * 1000000 + 0.5);
+    $f = int($f * 1000000000 + 0.5);
     if ($f) {
-        ($f = sprintf(".%.6d", $f)) =~ s/0+$//;
+        ($f = sprintf(".%.9d", $f)) =~ s/0+$//;
     } else {
         $f = ''
     }
-    return sprintf("%.2d:%.2d:%.2d$f",$h,$m,$s);
+    return sprintf("%.2d:%.2d:%.2d%s",$h,$m,$s,$f);
+}
+
+#------------------------------------------------------------------------------
+# Print GPS timestamp
+# Inputs: 0) EXIF-formatted time string
+# Returns: time rounded to the nearest microsecond
+sub PrintTimeStamp($)
+{
+    my $val = shift;
+    return $val unless $val =~ s/:(\d{2}\.\d+)$//;
+    my $s = int($1 * 1000000 + 0.5) / 1000000;
+    $s = "0$s" if $s < 10;
+    return "${val}:$s";
 }
 
 #------------------------------------------------------------------------------

data/bin/{Image-ExifTool-9.60 → Image-ExifTool-9.64}/lib/Image/ExifTool/Geotag.pm

@@ -176,7 +176,7 @@ sub LoadTrackLog($$;$)
             if (/^<(\?xml|gpx)[\s>]/) { # look for XML or GPX header
                 $format = 'XML';
             # check for NMEA sentence
-            # (must ONLY start with ones that have timestamps! ie. not GSA or PTNTHPR!)
+            # (must ONLY start with ones that have timestamps! eg. not GSA or PTNTHPR!)
             } elsif (/^\$(GP(RMC|GGA|GLL)|PMGNTRK),/) {
                 $format = 'NMEA';
                 $nmeaStart = $2 || $1;    # save type of first sentence
@@ -211,7 +211,7 @@ sub LoadTrackLog($$;$)
             # lat/lon/alt are space-separated; we want commas.
             s{(\S+)\s+(\S+)\s+(\S+)(</gx:coord>)}{$1,$2,$3$4};
             foreach $arg (split) {
-                # parse attributes (ie. GPX 'lat' and 'lon')
+                # parse attributes (eg. GPX 'lat' and 'lon')
                 # (note: ignore namespace prefixes if they exist)
                 if ($arg =~ /^(\w+:)?(\w+)=(['"])(.*?)\3/g) {
                     my $tag = $xmlTag{lc $2};

data/bin/{Image-ExifTool-9.60 → Image-ExifTool-9.64}/lib/Image/ExifTool/H264.pm

@@ -24,7 +24,7 @@ use vars qw($VERSION %convMake);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 
-$VERSION = '1.11';
+$VERSION = '1.12';
 
 sub ProcessSEI($$);
 
@@ -297,6 +297,7 @@ my $parsePictureTiming; # flag to enable parsing of picture timing information (
         Combine => 2,    # the next tags (0xbc/0xbd) contain the minutes/seconds
         Notes => 'combined with tags 0xbc and 0xbd',
         ValueConv => 'Image::ExifTool::GPS::ConvertTimeStamp($val)',
+        PrintConv => 'Image::ExifTool::GPS::PrintTimeStamp($val)',
     },
     0xbe => {
         Name => 'GPSStatus',

data/bin/{Image-ExifTool-9.60 → Image-ExifTool-9.64}/lib/Image/ExifTool/HTML.pm

@@ -344,7 +344,7 @@ sub SetHTMLCharset($$)
 #------------------------------------------------------------------------------
 # Convert single UTF-8 character to HTML character reference
 # Inputs: 0) UTF-8 character sequence
-# Returns: HTML character reference (ie. """);
+# Returns: HTML character reference (eg. """);
 # Note: Must be called via EscapeHTML to load name lookup
 sub EscapeChar($)
 {

data/bin/{Image-ExifTool-9.60 → Image-ExifTool-9.64}/lib/Image/ExifTool/ID3.pm

@@ -69,9 +69,9 @@ my %dateTimeConv = (
     VARS => { NO_ID => 1 },
     NOTES => q{
         ExifTool extracts ID3 information from MP3, MPEG, AIFF, OGG, FLAC, APE, MPC
-        and RealAudio files.  ID3v2 tags which support multiple languages (ie.
+        and RealAudio files.  ID3v2 tags which support multiple languages (eg.
         Comment and Lyrics) are extracted by specifying the tag name, followed by a
-        dash ('-'), then a 3-character ISO 639-2 language code (ie. "Comment-spa").
+        dash ('-'), then a 3-character ISO 639-2 language code (eg. "Comment-spa").
         See L<http://www.id3.org/> for the official ID3 specification and
         L<http://www.loc.gov/standards/iso639-2/php/code_list.php> for a list of ISO
         639-2 language codes.
@@ -804,8 +804,8 @@ sub ConvertID3v1Text($$)
 
 #------------------------------------------------------------------------------
 # Re-format time stamp in synchronized lyrics
-# Inputs: 0) synchronized lyrics entry (ie. "[84.030]Da do do do")
-# Returns: entry with formatted timestamp (ie. "[01:24.03]Da do do do")
+# Inputs: 0) synchronized lyrics entry (eg. "[84.030]Da do do do")
+# Returns: entry with formatted timestamp (eg. "[01:24.03]Da do do do")
 sub ConvertTimeStamp($)
 {
     my $val = shift;

data/bin/{Image-ExifTool-9.60 → Image-ExifTool-9.64}/lib/Image/ExifTool/Import.pm

@@ -83,7 +83,7 @@ sub ReadCSV($$;$)
         } else {
             # the first row should be the tag names
             foreach (@vals) {
-                # terminate at first blank tag name (ie. extra comma at end of line)
+                # terminate at first blank tag name (eg. extra comma at end of line)
                 last unless length $_;
                 @tags or s/^\xef\xbb\xbf//; # remove UTF-8 BOM if it exists
                 /^[-\w]+(:[-\w+]+)?#?$/ or $err = "Invalid tag name '$_'", last;

data/bin/{Image-ExifTool-9.60 → Image-ExifTool-9.64}/lib/Image/ExifTool/JPEG.pm

@@ -100,7 +100,7 @@ sub ProcessJPEG_HDR($$$);
         Condition => '$$valPt =~ /^FPXR\0/',
         SubDirectory => { TagTable => 'Image::ExifTool::FlashPix::Main' },
       }, {
-        Name => 'PreviewImage', # (ie. Samsung S1060)
+        Name => 'PreviewImage', # (eg. Samsung S1060)
         Notes => 'continued from APP3',
     }],
     APP5 => [{
@@ -108,7 +108,7 @@ sub ProcessJPEG_HDR($$$);
         Condition => '$$valPt =~ /^RMETA\0/',
         SubDirectory => { TagTable => 'Image::ExifTool::Ricoh::RMETA' },
       }, {
-        Name => 'PreviewImage', # (ie. BenQ DC E1050)
+        Name => 'PreviewImage', # (eg. BenQ DC E1050)
         Notes => 'continued from APP4',
     }],
     APP6 => [{

data/bin/{Image-ExifTool-9.60 → Image-ExifTool-9.64}/lib/Image/ExifTool/Kodak.pm

@@ -23,7 +23,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 
-$VERSION = '1.33';
+$VERSION = '1.34';
 
 sub ProcessKodakIFD($$$);
 sub ProcessKodakText($$$);
@@ -750,7 +750,7 @@ sub WriteKodakIFD($$$);
         Notes => 'Kodak only',
     },
     0xa8 => {
-        Name => 'UnknownNumber', # (was SerialNumber, but not unique for all cameras. ie C1013)
+        Name => 'UnknownNumber', # (was SerialNumber, but not unique for all cameras. eg. C1013)
         Condition => '$$self{Make} =~ /Kodak/i and $$valPt =~ /^([A-Z0-9]{1,11}\0|[A-Z0-9]{12})/i',
         Format => 'string[12]',
         Notes => 'Kodak only',
@@ -854,7 +854,7 @@ sub WriteKodakIFD($$$);
     0xfa02 => {
         Name => 'SceneMode',
         Writable => 'int16u',
-        Notes => 'may not be valid for some models', # ie. M580?
+        Notes => 'may not be valid for some models', # eg. M580?
         PrintConvColumns => 2,
         PrintConv => {
             1 => 'Sport',
@@ -876,8 +876,8 @@ sub WriteKodakIFD($$$);
             25 => 'Back Light',
             28 => 'Candlelight',
             29 => 'Sunset',
-            31 => 'Panorama Left-Right',
-            32 => 'Panorama Right-Left',
+            31 => 'Panorama Left-right',
+            32 => 'Panorama Right-left',
             33 => 'Smart Scene',
             34 => 'High ISO',
         },

data/bin/{Image-ExifTool-9.60 → Image-ExifTool-9.64}/lib/Image/ExifTool/Lang/de.pm

@@ -378,8 +378,8 @@ $VERSION = '1.29';
         'Bottom Center' => 'Unten Mitte',
         'Bottom Left' => 'Unten Links',
         'Bottom Right' => 'Unten Rechts',
-        'Bottom-Left' => 'Unten Links',
-        'Bottom-Right' => 'Unten Rechts',
+        'Bottom-left' => 'Unten Links',
+        'Bottom-right' => 'Unten Rechts',
         'Bottom-center (horizontal)' => 'Unten Mitte (horizontal)',
         'Bottom-center (vertical)' => 'Unten Mitte (vertikal)',
         'Bottom-left (horizontal)' => 'Unten Links (horizontal)',
@@ -434,11 +434,11 @@ $VERSION = '1.29';
         'Top (vertical)' => 'Oben (vertikal)',
         'Top Center' => 'Oben Mitte',
         'Top Left' => 'Oben Links',
-        'Top Near-Left' => 'Oben nahe-Links',
-        'Top Near-Right' => 'Nahe Rechts-oben',
+        'Top Near-left' => 'Oben nahe-Links',
+        'Top Near-right' => 'Nahe Rechts-oben',
         'Top Right' => 'Oben Rechts',
-        'Top-Left' => 'Oben Links',
-        'Top-Right' => 'Oben Rechts',
+        'Top-left' => 'Oben Links',
+        'Top-right' => 'Oben Rechts',
         'Top-center (horizontal)' => 'Oben Mitte (horizontal)',
         'Top-center (vertical)' => 'Oben Mitte (vertikal)',
         'Top-left (horizontal)' => 'Oben Links (horizontal)',
@@ -622,8 +622,8 @@ $VERSION = '1.29';
         'Auto' => 'Automatisch',
         'Automatic Tracking AF' => 'Nachführ AF',
         'Bottom' => 'Unten',
-        'Bottom-Left' => 'Unten-links',
-        'Bottom-Right' => 'Unten-rechts',
+        'Bottom-left' => 'Unten-links',
+        'Bottom-right' => 'Unten-rechts',
         'Center' => 'Mitte',
         'Face Detect AF' => 'Gesichtserkennungs-AF',
         'Far Left' => 'Weit links',
@@ -641,8 +641,8 @@ $VERSION = '1.29';
         'Near Right' => 'Nahe Rechts',
         'Right' => 'Rechts',
         'Top' => 'Oben',
-        'Top-Left' => 'Oben-links',
-        'Top-Right' => 'Oben-rechts',
+        'Top-left' => 'Oben-links',
+        'Top-right' => 'Oben-rechts',
         'Upper Far Left' => 'Oben weit Links',
         'Upper Far Right' => 'Oben weit Rechts',
         'Upper-left' => 'Links oben',
@@ -817,13 +817,13 @@ $VERSION = '1.29';
       Description => 'Aktiver AF Sensor',
       PrintConv => {
         'Bottom' => 'Unten',
-        'Bottom-Left' => 'Unten Links',
-        'Bottom-Right' => 'Unten Rechts',
+        'Bottom-left' => 'Unten Links',
+        'Bottom-right' => 'Unten Rechts',
         'Center Vertical' => 'Mitte vertikal',
         'Middle Horizontal' => 'Mitte horizontal',
         'Top' => 'Oben',
-        'Top-Left' => 'Oben Links',
-        'Top-Right' => 'Rechts Oben',
+        'Top-left' => 'Oben Links',
+        'Top-right' => 'Rechts Oben',
       },
     },
    'AFStatusActiveSensor' => {
@@ -840,14 +840,14 @@ $VERSION = '1.29';
         'Out of Focus' => 'Nicht im Fokus',
       },
     },
-   'AFStatusBottom-Left' => {
+   'AFStatusBottom-left' => {
       Description => 'AF Status Unten Links',
       PrintConv => {
         'In Focus' => 'Im Fokus',
         'Out of Focus' => 'Nicht im Fokus',
       },
     },
-   'AFStatusBottom-Right' => {
+   'AFStatusBottom-right' => {
       Description => 'AF Status Unten Rechts',
       PrintConv => {
         'In Focus' => 'Im Fokus',
@@ -896,14 +896,14 @@ $VERSION = '1.29';
         'Out of Focus' => 'Nicht im Fokus',
       },
     },
-   'AFStatusTop-Left' => {
+   'AFStatusTop-left' => {
       Description => 'AF Status Oben Links',
       PrintConv => {
         'In Focus' => 'Im Fokus',
         'Out of Focus' => 'Nicht im Fokus',
       },
     },
-   'AFStatusTop-Right' => {
+   'AFStatusTop-right' => {
       Description => 'AF Status Oben Rechts',
       PrintConv => {
         'In Focus' => 'Im Fokus',

data/bin/{Image-ExifTool-9.60 → Image-ExifTool-9.64}/lib/Image/ExifTool/Lang/es.pm

@@ -11,7 +11,7 @@ package Image::ExifTool::Lang::es;
 use strict;
 use vars qw($VERSION);
 
-$VERSION = '1.12';
+$VERSION = '1.13';
 
 %Image::ExifTool::Lang::es::Translate = (
    'AEAperture' => 'Aperture AE',
@@ -874,6 +874,7 @@ $VERSION = '1.12';
    'Country' => 'País',
    'Country-PrimaryLocationCode' => 'Código País ISO',
    'Country-PrimaryLocationName' => 'País',
+   'CountryCode' => 'Código País',
    'CreateDate' => 'Fecha y Hora de Datos Digital',
    'CreationDate' => 'Fecha Creación',
    'CreativeStyle' => {
@@ -903,6 +904,7 @@ $VERSION = '1.12';
    'Creator' => 'Creador',
    'CreatorAddress' => 'Creador - Dirección',
    'CreatorCity' => 'Creador - Ciudad',
+   'CreatorContactInfo' => 'Contacto Creador',
    'CreatorCountry' => 'Creador - País',
    'CreatorPostalCode' => 'Creador - Código Postal',
    'CreatorRegion' => 'Creador - Estado/Provincia',
@@ -2215,6 +2217,7 @@ $VERSION = '1.12';
    'JPEGRestartInterval' => 'Intervalo Reinicio JPEG',
    'JPEGTables' => 'Tablas JPEG',
    'JobID' => 'ID del Trabajo',
+   'JobTitle' => 'Cargo',
    'Keyword' => 'Palabras Clave',
    'Keywords' => 'Clave',
    'LCDIllumination' => {
@@ -3492,7 +3495,6 @@ $VERSION = '1.12';
    'SubSecTimeOriginal' => 'Subsegundos DateTimeOriginal',
    'SubTileBlockSize' => 'Tamaño Bloque Submosaico',
    'SubTitle' => 'Subtitulo',
-   'Subtitle' => 'Subtitulo',
    'SubTitleDescription' => 'Descripción Subtitulo',
    'SubfileType' => 'Nuevo Tipo Subarchivo',
    'SubimageColor' => {
@@ -3524,6 +3526,7 @@ $VERSION = '1.12';
         'Unknown' => 'Desconocido',
       },
     },
+   'Subtitle' => 'Subtitulo',
    'SuperimposedDisplay' => {
       PrintConv => {
         'Off' => 'Desactivado',