exiftool_vendored 13.36.0 → 13.37.0

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

@@ -8,6 +8,7 @@
 # References:   1) RCNX_MN10.pdf (courtesy of Reconyx Inc.)
 #               2) ultrafire_makernote.pdf (courtesy of Reconyx Inc.)
 #               3) Reconyx private communication
+#               4) "Reconyx Metadata 1_4.pdf"
 #------------------------------------------------------------------------------
 
 package Image::ExifTool::Reconyx;
@@ -15,20 +16,56 @@ package Image::ExifTool::Reconyx;
 use strict;
 use vars qw($VERSION);
 
-$VERSION = '1.06';
+$VERSION = '1.07';
 
 # info for Type2 version tags
 my %versionInfo = (
     Format => 'undef[7]',
-    ValueConv => 'sprintf("V%.2x.%.2x %.4x:%.2x:%.2x Rev.%s", unpack("CCvCCa", $val))',
+    ValueConv => 'sprintf("%.2x.%.2x %.4x:%.2x:%.2x Rev.%s", unpack("CCvCCa", $val))',
     ValueConvInv => q{
-        my @v = $val =~ /^V([0-9a-f]+)\.([0-9a-f]+) (\d{4}):(\d{2}):(\d{2})\s*Rev\.(\w)/i or return undef;
+        my @v = $val =~ /^([0-9a-f]+)\.([0-9a-f]+) (\d{4}):(\d{2}):(\d{2})\s*Rev\.(\w)/i or return undef;
         pack('CCvCCa', map(hex, @v[0..4]), $v[5]);
     },
 );
 
-# maker notes for Reconyx Hyperfire cameras (ref PH)
-%Image::ExifTool::Reconyx::Main = (
+my %moonPhase = (
+    0 => 'New',
+    1 => 'New Crescent',
+    2 => 'First Quarter',
+    3 => 'Waxing Gibbous',
+    4 => 'Full',
+    5 => 'Waning Gibbous',
+    6 => 'Last Quarter',
+    7 => 'Old Crescent',
+);
+
+my %sunday0 = (
+    0 => 'Sunday',
+    1 => 'Monday',
+    2 => 'Tuesday',
+    3 => 'Wednesday',
+    4 => 'Thursday',
+    5 => 'Friday',
+    6 => 'Saturday',
+);
+
+my %sunday1 = (
+    1 => 'Sunday',
+    2 => 'Monday',
+    3 => 'Tuesday',
+    4 => 'Wednesday',
+    5 => 'Thursday',
+    6 => 'Friday',
+    7 => 'Saturday',
+);
+
+my %convUnicode = (
+    ValueConv => '$self->Decode($val, "UCS2", "II")',
+    ValueConvInv => '$self->Encode($val, "UCS2", "II")',
+);
+
+# maker notes for Reconyx HyperFire cameras (ref PH)
+%Image::ExifTool::Reconyx::HyperFire = (
     GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
     PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
     WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
@@ -38,20 +75,20 @@ my %versionInfo = (
     WRITABLE => 1,
     FIRST_ENTRY => 0,
     NOTES => q{
-        The following tags are extracted from the maker notes of Reconyx Hyperfire
-        cameras such as the HC500, HC600 and PC900.
+        The following tags are extracted from the maker notes of Reconyx RapidFire
+        and HyperFire models such as the HC500, HC600 and PC900.
     },
     0x00 => { #1
         Name => 'MakerNoteVersion',
-        PrintConv => 'sprintf("0x%.4x", $val)',
         Writable => 0, # (we use this for identification, 0xf101 --> rev 1.0)
+        PrintConv => 'sprintf("0x%.4x", $val)',
         PrintConvInv => 'hex $val',
     },
     0x01 => { #1
         Name => 'FirmwareVersion',
         Format => 'int16u[3]',
-        PrintConv => '$val=~tr/ /./; $val',
         Writable => 0, # (we use this for identification, 0x0003 --> ver 2 or 3)
+        PrintConv => '$val=~tr/ /./; $val',
     },
     0x04 => { #1
         Name => 'FirmwareDate',
@@ -113,16 +150,7 @@ my %versionInfo = (
     0x12 => {
         Name => 'MoonPhase',
         Groups => { 2 => 'Time' },
-        PrintConv => {
-            0 => 'New',
-            1 => 'New Crescent',
-            2 => 'First Quarter',
-            3 => 'Waxing Gibbous',
-            4 => 'Full',
-            5 => 'Waning Gibbous',
-            6 => 'Last Quarter',
-            7 => 'Old Crescent',
-        },
+        PrintConv => \%moonPhase,
     },
     0x13 => {
         Name => 'AmbientTemperatureFahrenheit',
@@ -136,16 +164,7 @@ my %versionInfo = (
         PrintConv => '"$val C"',
         PrintConvInv => '$val=~/(-?\d+)/ ? $1 : $val',
     },
-    0x15 => {
-        Name => 'SerialNumber',
-        Format => 'undef[30]',
-        RawConv => '$_ = $self->Decode($val, "UCS2"); s/\0.*//; $_',
-        RawConvInv => q{
-            $_ = $self->Encode($val, "UCS2");
-            $_ = substr($_, 0, 30) if length($_) > 30;
-            return $_;
-        },
-    },
+    0x15 => { Name => 'SerialNumber', Format => 'unicode[15]', %convUnicode },
     0x24 => 'Contrast', #1
     0x25 => 'Brightness', #1
     0x26 => 'Sharpness', #1
@@ -169,7 +188,7 @@ my %versionInfo = (
 );
 
 # maker notes for Reconyx UltraFire cameras (ref PH)
-%Image::ExifTool::Reconyx::Type2 = (
+%Image::ExifTool::Reconyx::UltraFire = (
     GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
     PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
     WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
@@ -177,7 +196,7 @@ my %versionInfo = (
     TAG_PREFIX => 'Reconyx',
     WRITABLE => 1,
     FIRST_ENTRY => 0,
-    NOTES => 'Tags extracted from models such as the UltraFire.',
+    NOTES => 'Maker notes tags for Reconyx UltraFire models.',
   # 0x0a - int32u makernote ID 0x00020000 #2
   # 0x0e - int16u makernote size #2
   # 0x12 - int32u public structure ID 0x07f100001 #2
@@ -212,17 +231,11 @@ my %versionInfo = (
         Groups => { 2 => 'Time' },
         Priority => 0, # (not as reliable as EXIF)
         Shift => 'Time',
-        ValueConv => q{
-            my @a = split ' ', $val;
-            $a[5] += pop(@a) * 256;
-            sprintf('%.4d:%.2d:%.2d %.2d:%.2d:%.2d', reverse @a);
-        },
+        ValueConv => 'sprintf("%.4d:%.2d:%.2d %.2d:%.2d:%.2d", reverse unpack("C5v",$val))',
         ValueConvInv => q{
             my @a = ($val =~ /\d+/g);
             return undef unless @a >= 6;
-            unshift @a, ($a[0] >> 8);
-            $a[1] -= $a[0] * 256;
-            join ' ', @a[6,5,4,3,2,1,0];
+            pack('C5v', @a[5,4,3,2,1,0]);
         },
         PrintConv => '$self->ConvertDateTime($val)',
         PrintConvInv => '$self->InverseDateTime($val)',
@@ -230,29 +243,12 @@ my %versionInfo = (
     0x42 => { #2
         Name => 'DayOfWeek',
         Groups => { 2 => 'Time' },
-        PrintConv => {
-            0 => 'Sunday',
-            1 => 'Monday',
-            2 => 'Tuesday',
-            3 => 'Wednesday',
-            4 => 'Thursday',
-            5 => 'Friday',
-            6 => 'Saturday',
-        },
+        PrintConv => \%sunday0,
     },
     0x43 => {
         Name => 'MoonPhase',
         Groups => { 2 => 'Time' },
-        PrintConv => {
-            0 => 'New',
-            1 => 'New Crescent',
-            2 => 'First Quarter',
-            3 => 'Waxing Gibbous',
-            4 => 'Full',
-            5 => 'Waning Gibbous',
-            6 => 'Last Quarter',
-            7 => 'Old Crescent',
-        },
+        PrintConv => \%moonPhase,
     },
     0x44 => {
         Name => 'AmbientTemperatureFahrenheit',
@@ -278,18 +274,12 @@ my %versionInfo = (
         PrintConv => '"$val V"',
         PrintConvInv => '$val=~s/ ?V$//; $val',
     },
-    0x4b => {
-        Name => 'SerialNumber',
-        Format => 'string[15]',
-    },
-    0x5a => {
-        Name => 'UserLabel',
-        Format => 'string[21]',
-    },
+    0x4b => { Name => 'SerialNumber', Format => 'string[15]' },
+    0x5a => { Name => 'UserLabel',    Format => 'string[21]' },
 );
 
 # maker notes for Reconyx HF2 PRO cameras (ref 3)
-%Image::ExifTool::Reconyx::Type3 = (
+%Image::ExifTool::Reconyx::HyperFire2 = (
     GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
     PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
     WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
@@ -297,13 +287,36 @@ my %versionInfo = (
     TAG_PREFIX => 'Reconyx',
     WRITABLE => 1,
     FIRST_ENTRY => 0,
-    NOTES => 'Tags extracted from models such as the HF2 PRO.',
+    NOTES => 'Maker notes tags for Reconyx HyperFire 2 models.',
   # 0x0a => { Name => 'StructureVersion',   Format => 'int16u' },
   # 0x0c => { Name => 'ParentFileSize',     Format => 'int32u' },
     0x10 => { Name => 'FileNumber',         Format => 'int16u' },
     0x12 => { Name => 'DirectoryNumber',    Format => 'int16u' },
-  # 0x14 => { Name => 'DirCreateDate',      Format => 'int16u' },
-  # 0x16 => { Name => 'DirCreateTime',      Format => 'int16u' },
+    0x14 => {
+        Name => 'DirectoryCreateDate',
+        Format => 'int16u[2]',
+        Groups => { 2 => 'Time' },
+        Shift => 'Time',
+        # similar to ZIP date/time, but date word comes first
+        ValueConv => q{
+            my @a = split / /, $val;
+            sprintf('%.4d:%.2d:%.2d %.2d:%.2d:%.2d',
+                ($a[0] >> 9)  + 1980, # year
+                ($a[0] >> 5)  & 0x0f, # month
+                 $a[0]        & 0x1f, # day
+                ($a[1] >> 11) & 0x1f, # hour
+                ($a[1] >> 5)  & 0x3f, # minute
+                ($a[1]        & 0x1f) * 2  # second
+            );
+        },
+        ValueConvInv => q{
+            my @a = $val =~ /\d+/g;
+            sprintf('%d %d', (($a[0]-1980) << 9) | ($a[1] << 5) | $a[2],
+                ($a[3] << 11) | ($a[4] << 5) | int($a[5] / 2));
+        },
+        PrintConv => '$self->ConvertDateTime($val)',
+        PrintConvInv => '$self->InverseDateTime($val)',
+    },
   # 0x18 - int16[8] SDCardLabel
   # 0x28 => { Name => 'MakerNoteVersion',   Format => 'int16u' },
     0x2a => {
@@ -353,7 +366,7 @@ my %versionInfo = (
         ValueConvInv => q{
             my @a = ($val =~ /\d+/g);
             return undef unless @a >= 6;
-            join ' ', @a[6,5,4,3,2,1,0];
+            join ' ', @a[5,4,3,2,1,0];
         },
         PrintConv => '$self->ConvertDateTime($val)',
         PrintConvInv => '$self->InverseDateTime($val)',
@@ -362,30 +375,13 @@ my %versionInfo = (
         Name => 'DayOfWeek',
         Groups => { 2 => 'Time' },
         Format => 'int16u',
-        PrintConv => {
-            0 => 'Sunday',
-            1 => 'Monday',
-            2 => 'Tuesday',
-            3 => 'Wednesday',
-            4 => 'Thursday',
-            5 => 'Friday',
-            6 => 'Saturday',
-        },
+        PrintConv => \%sunday0,
     },
     0x4c => {
         Name => 'MoonPhase',
         Groups => { 2 => 'Time' },
         Format => 'int16u',
-        PrintConv => {
-            0 => 'New',
-            1 => 'New Crescent',
-            2 => 'First Quarter',
-            3 => 'Waxing Gibbous',
-            4 => 'Full',
-            5 => 'Waning Gibbous',
-            6 => 'Last Quarter',
-            7 => 'Old Crescent',
-        },
+        PrintConv => \%moonPhase,
     },
     0x4e => {
         Name => 'AmbientTemperatureFahrenheit',
@@ -411,7 +407,295 @@ my %versionInfo = (
     0x64 => { Name => 'BatteryVoltageAvg',  Format => 'int16u' },
     0x66 => { Name => 'BatteryType',        Format => 'int16u' },
     0x68 => { Name => 'UserLabel',          Format => 'string[22]' },
-    0x7e => { Name => 'SerialNumber',       Format => 'unicode[15]' },
+    0x7e => { Name => 'SerialNumber',       Format => 'unicode[15]', %convUnicode },
+);
+
+# maker notes for Reconyx MicroFire cameras (ref 4) (no samples for testing)
+%Image::ExifTool::Reconyx::MicroFire = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
+    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
+    TAG_PREFIX => 'Reconyx',
+    WRITABLE => 1,
+    FIRST_ENTRY => 0,
+    NOTES => 'Maker notes tags for Reconyx MicroFire cameras.',
+    0x10 => { Name => 'FileNumber',         Format => 'int16u' },  
+    0x12 => { Name => 'DirectoryNumber',    Format => 'int16u' },
+    0x14 => {
+        Name => 'DirectoryCreateDate',
+        Format => 'int16u[2]',
+        Groups => { 2 => 'Time' },
+        Shift => 'Time',
+        # similar to ZIP date/time, but date word comes first
+        ValueConv => q{
+            my @a = split / /, $val;
+            sprintf('%.4d:%.2d:%.2d %.2d:%.2d:%.2d',
+                ($a[0] >> 9)  + 1980, # year
+                ($a[0] >> 5)  & 0x0f, # month
+                 $a[0]        & 0x1f, # day
+                ($a[1] >> 11) & 0x1f, # hour
+                ($a[1] >> 5)  & 0x3f, # minute
+                ($a[1]        & 0x1f) * 2  # second
+            );
+        },
+        ValueConvInv => q{
+            my @a = $val =~ /\d+/g;
+            sprintf('%d %d', (($a[0]-1980) << 9) | ($a[1] << 5) | $a[2],
+                ($a[3] << 11) | ($a[4] << 5) | int($a[5]/2));
+        },
+        PrintConv => '$self->ConvertDateTime($val)',
+        PrintConvInv => '$self->InverseDateTime($val)',
+    },
+    0x18 => {
+        Name => 'SDCardID',
+        Format => 'int16u[8]',
+        PrintConv => 'join "-", map sprintf("%.4x",$_), split / /, $val',
+    },
+    # 0x28 - INFO structure version
+    0x2a => {
+        Name => 'FirmwareVersion',
+        Format => 'int16u[3]',
+        ValueConv => 'my @a = split " ",$val; sprintf("%d.%d%c",@a)',
+        ValueConvInv => '$val=~/(\d+)\.(\d+)([a-zA-Z])/ ? "$1 $2 ".ord($3) : undef',
+    },
+    0x30 => {
+        Name => 'FirmwareDate',
+        Format => 'int16u[2]',
+        ValueConv => 'my ($y,$d) = split " ", $val; sprintf("%.4x:%.2x:%.2x",$y,$d>>8,$d&0xff)',
+        ValueConvInv => 'my @a=split ":", $val; hex($a[0])." ".hex($a[1].$a[2])',
+    },
+    0x34 => {
+        Name => 'BluetoothFirmwareVersion',
+        Format => 'int16u[3]',
+        ValueConv => 'my @a = split " ",$val; sprintf("%d.%d%c",@a)',
+        ValueConvInv => '$val=~/(\d+)\.(\d+)([a-zA-Z])/ ? "$1 $2 ".ord($3) : undef',
+    },
+    0x3a => {
+        Name => 'BluetoothFirmwareDate',
+        Format => 'int16u',
+        ValueConv => q{
+            sprintf('%.4d:%.2d:%.2d',
+                ($val >> 9)  + 1980, # year
+                ($val >> 5)  & 0x0f, # month
+                 $val        & 0x1f, # day
+            );
+        },
+        ValueConvInv => q{
+            my @a = $val =~ /\d+/g;
+            return (($a[0]-1980) << 9) | ($a[1] << 5) | $a[2];
+        },
+    },
+    0x3c => {
+        Name => 'WifiFirmwareVersion',
+        Format => 'int16u[3]',
+        ValueConv => 'my @a = split " ",$val; sprintf("%d.%d%c",@a)',
+        ValueConvInv => '$val=~/(\d+)\.(\d+)([a-zA-Z])/ ? "$1 $2 ".ord($3) : undef',
+    },
+    0x42 => {
+        Name => 'WifiFirmwareDate',
+        Format => 'int16u',
+        ValueConv => q{
+            sprintf('%.4d:%.2d:%.2d',
+                ($val >> 9)  + 1980, # year
+                ($val >> 5)  & 0x0f, # month
+                 $val        & 0x1f, # day
+            );
+        },
+        ValueConvInv => q{
+            my @a = $val =~ /\d+/g;
+            return (($a[0]-1980) << 9) | ($a[1] << 5) | $a[2];
+        },
+    },
+    0x44 => {
+        Name => 'TriggerMode',
+        Format => 'string[2]',
+        PrintConv => {
+            M => 'Motion Sensor',
+            E => 'External Sensor',
+            T => 'Time Lapse',
+            C => 'CodeLoc Not Entered',
+        },
+    },
+    0x46 => {
+        Name => 'Sequence',
+        Format => 'int16u[2]',
+        PrintConv => '$val =~ s/ / of /; $val',
+        PrintConvInv => 'join(" ", $val=~/\d+/g)',
+    },
+    0x4a => {
+        Name => 'EventNumber',
+        Format => 'int16u[2]',
+        ValueConv => 'my @a=split " ",$val;($a[0]<<16)+$a[1]',
+        ValueConvInv => '($val >> 16) . " " . ($val & 0xffff)',
+    },
+    0x4e => {
+        Name => 'DateTimeOriginal',
+        Description => 'Date/Time Original',
+        Format => 'int16u[6]',
+        Groups => { 2 => 'Time' },
+        Priority => 0, # (not as reliable as EXIF)
+        Shift => 'Time',
+        ValueConv => q{
+            my @a = split ' ', $val;
+            sprintf('%.4d:%.2d:%.2d %.2d:%.2d:%.2d', @a[5,3,4,2,1,0]);
+        },
+        ValueConvInv => q{
+            my @a = ($val =~ /\d+/g);
+            return undef unless @a >= 6;
+            join ' ', @a[5,4,3,1,2,0];
+        },
+        PrintConv => '$self->ConvertDateTime($val)',
+        PrintConvInv => '$self->InverseDateTime($val)',
+    },
+    0x5a => {
+        Name => 'DayOfWeek',
+        Format => 'int16u',
+        Groups => { 2 => 'Time' },
+        PrintConv => \%sunday1,
+    },
+    0x5c => {
+        Name => 'MoonPhase',
+        Format => 'int16u',
+        Groups => { 2 => 'Time' },
+        PrintConv => \%moonPhase,
+    },
+    0x5e => {
+        Name => 'AmbientTemperatureFahrenheit',
+        Format => 'int16s',
+        PrintConv => '"$val F"',
+        PrintConvInv => '$val=~/(-?\d+)/ ? $1 : $val',
+    },
+    0x60 => {
+        Name => 'AmbientTemperature',
+        Format => 'int16s',
+        PrintConv => '"$val C"',
+        PrintConvInv => '$val=~/(-?\d+)/ ? $1 : $val',
+    },
+    0x62 => { Name => 'Contrast',           Format => 'int16u' },
+    0x64 => { Name => 'Brightness',         Format => 'int16u' },
+    0x66 => { Name => 'Sharpness',          Format => 'int16u' },
+    0x68 => { Name => 'Saturation',         Format => 'int16u' },
+    0x6a => { Name => 'Flash',              Format => 'int8u', PrintConv => { 0 => 'Off', 1 => 'On' } },
+    0x6c => { Name => 'AmbientInfrared',    Format => 'int16u' },
+    0x6e => { Name => 'AmbientLight',       Format => 'int16u' },
+    0x70 => { Name => 'MotionSensitivity',  Format => 'int16u' },
+    0x72 => { Name => 'BatteryVoltage',     Format => 'int16u',
+        ValueConv => '$val / 1000', ValueConvInv => '$val * 1000',
+    },
+    0x74 => { Name => 'BatteryType',        Format => 'int16u',
+        PrintConv => {
+            0 => 'Lithium',
+            1 => 'NiMH',
+            2 => 'Alkaline',
+            3 => 'Lead Acid',
+        },
+    },
+    0x76 => { Name => 'UserLabel',          Format => 'string[22]' },
+    0x8c => { Name => 'SerialNumber',       Format => 'unicode[15]', %convUnicode },
+);
+
+# maker notes for Reconyx HyperFire 4K (ref 4)
+%Image::ExifTool::Reconyx::HyperFire4K = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
+    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
+    TAG_PREFIX => 'Reconyx',
+    WRITABLE => 1,
+    FIRST_ENTRY => 0,
+    NOTES => 'Maker notes tags for Reconyx HyperFire 4K models.',
+  # 0x0c => { Name => 'AgregateStructureVersion', Format => 'int32u' },
+  # 0x10 => { Name => 'AgregateStructureSize',    Format => 'int32u' },
+  # 0x14 => { Name => 'InfoStructureVersion',     Format => 'int32u' },
+  # 0x18 => { Name => 'InfoStructureSize',        Format => 'int16u' },
+    0x1a => { Name => 'FirmwareVersion', %versionInfo },
+    0x21 => { Name => 'UIBFirmwareVersion', %versionInfo },
+    0x28 => {
+        Name => 'TriggerMode',
+        Format => 'undef[1]',
+        PrintConv => {
+            M => 'Motion Sensor',
+            E => 'External Sensor',
+            T => 'Time Lapse',
+            C => 'CodeLoc Not Entered',
+            S => 'Cell Status',
+            L => 'Cell Live View',
+        },
+    },
+    0x29 => {
+        Name => 'Sequence',
+        Format => 'int8u[2]',
+        PrintConv => '$val =~ s/ / of /; $val',
+        PrintConvInv => 'join(" ", $val=~/\d+/g)',
+    },
+    0x2b => {
+        Name => 'EventNumber',
+        Format => 'int32u',
+    },
+    0x2f => {
+        Name => 'DateTimeOriginal',
+        Description => 'Date/Time Original',
+        Format => 'undef[7]',
+        Groups => { 2 => 'Time' },
+        Priority => 0, # (not as reliable as EXIF)
+        Shift => 'Time',
+        ValueConv => 'sprintf("%.4d:%.2d:%.2d %.2d:%.2d:%.2d", reverse unpack("C5v",$val))',
+        ValueConvInv => q{
+            my @a = ($val =~ /\d+/g);
+            return undef unless @a >= 6;
+            pack('C5v', @a[5,4,3,2,1,0]);
+        },
+        PrintConv => '$self->ConvertDateTime($val)',
+        PrintConvInv => '$self->InverseDateTime($val)',
+    },
+    0x36 => {
+        Name => 'DayOfWeek',
+        Groups => { 2 => 'Time' },
+        PrintConv => \%sunday1,
+    },
+    0x37 => {
+        Name => 'MoonPhase',
+        Groups => { 2 => 'Time' },
+        PrintConv => \%moonPhase,
+    },
+    0x38 => {
+        Name => 'AmbientTemperatureFahrenheit',
+        Format => 'int16s',
+        PrintConv => '"$val F"',
+        PrintConvInv => '$val=~/(-?\d+)/ ? $1 : $val',
+    },
+    0x3a => {
+        Name => 'AmbientTemperature',
+        Format => 'int16s',
+        PrintConv => '"$val C"',
+        PrintConvInv => '$val=~/(-?\d+)/ ? $1 : $val',
+    },
+    0x3c => { Name => 'Contrast',           Format => 'int16u' },
+    0x3e => { Name => 'Brightness',         Format => 'int16u' },
+    0x40 => { Name => 'Sharpness',          Format => 'int16u' },
+    0x42 => { Name => 'Saturation',         Format => 'int16u' },
+    0x44 => { Name => 'Flash',              Format => 'int8u', PrintConv => { 0 => 'Off', 1 => 'On' } },
+    0x45 => { Name => 'AmbientLight',       Format => 'int32u' },
+    0x49 => { Name => 'MotionSensitivity',  Format => 'int16u' },
+    0x4b => { Name => 'BatteryVoltage',     Format => 'int16u',
+        ValueConv => '$val / 1000', ValueConvInv => '$val * 1000',
+    },
+    0x4d => { Name => 'BatteryVoltageAvg',  Format => 'int16u',
+        ValueConv => '$val / 1000', ValueConvInv => '$val * 1000',
+    },
+    0x4f => { Name => 'BatteryType',        Format => 'int16u',
+        PrintConv => {
+            1 => 'NiMH',
+            2 => 'Lithium',
+            3 => 'External',
+            4 => 'SC10 Solar',
+        },
+    },
+    0x51 => { Name => 'UserLabel',          Format => 'string[51]' },
+    0x84 => { Name => 'SerialNumber',       Format => 'string[15]' },
+    0x93 => { Name => 'DirectoryNumber',    Format => 'int16u' },
+    0x95 => { Name => 'FileNumber',         Format => 'int16u' },  
 );
 
 __END__

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

@@ -947,7 +947,7 @@ my %formatMinMax = (
 #       if necessary to differentiate tags with the same ID but different names
 %Image::ExifTool::Samsung::Trailer = (
     GROUPS => { 0 => 'MakerNotes', 2 => 'Other' },
-    VARS => { NO_ID => 1, HEX_ID => 0 },
+    VARS => { ID_FMT => 'none' },
     PROCESS_PROC => \&ProcessSamsung,
     TAG_PREFIX => 'SamsungTrailer',
     PRIORITY => 0, # (first one takes priority so DepthMapWidth/Height match first DepthMapData)

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

@@ -19,7 +19,7 @@ package Image::ExifTool::Shortcuts;
 use strict;
 use vars qw($VERSION);
 
-$VERSION = '1.68';
+$VERSION = '1.69';
 
 # this is a special table used to define command-line shortcuts
 # (documentation Notes may be added for these via %shortcutNotes in BuildTagLookup.pm)
@@ -123,6 +123,7 @@ $VERSION = '1.68';
         'MakerNoteFujiFilm',
         'MakerNoteGE',
         'MakerNoteGE2',
+        'MakerNoteGoogle',
         'MakerNoteHasselblad',
         'MakerNoteHP',
         'MakerNoteHP2',
@@ -180,12 +181,14 @@ $VERSION = '1.68';
         'MakerNotePentax5',
         'MakerNotePentax6',
         'MakerNotePhaseOne',
-        'MakerNoteReconyx',
-        'MakerNoteReconyx2',
-        'MakerNoteReconyx3',
+        'MakerNoteReconyxHyperFire',
+        'MakerNoteReconyxUltraFire',
+        'MakerNoteReconyxHyperFire2',
+        'MakerNoteReconyxMicroFire',
+        'MakerNoteReconyxHyperFire4K',
+        'MakerNoteRicohPentax',
         'MakerNoteRicoh',
         'MakerNoteRicoh2',
-        'MakerNoteRicohPentax',
         'MakerNoteRicohText',
         'MakerNoteSamsung1a',
         'MakerNoteSamsung1b',