exiftool_vendored 11.71.0 → 11.75.0

data/bin/config_files/dji.config

@@ -1,131 +0,0 @@
-#------------------------------------------------------------------------------
-# File:         dji.config
-#
-# Description:  This config file defines Composite tags to convert embedded
-#               metadata in videos from DJI drones
-#
-# Usage:        exiftool -config dji.config -ee FILE
-#
-#               Example command to create .gpx log file from DJI video
-#               (requires gpx.fmt available in the full Exiftool distribution):
-#
-#               exiftool -config dji.config -p gpx.fmt -ee -api QuickTimeUTC FILE
-#
-# Requires:     ExifTool version 10.75 or later
-#
-# Revisions:    2018/03/23 - P. Harvey Created
-#------------------------------------------------------------------------------
-
-%Image::ExifTool::UserDefined = (
-    'Image::ExifTool::Composite' => {
-        GROUPS => { 2 => 'Location' },
-#
-# Example embedded "Text" from a DJI FC6310:
-#
-#   "F/3.5, SS 1000, ISO 100, EV 0, GPS (8.6499, 53.1665, 18), D 24.26m,
-#    H 6.00m, H.S 2.10m/s, V.S 0.00m/s \n"
-#
-#   F/  = F Number
-#   SS  = shutter speed
-#   ISO = ISO
-#   GPS = (longitude, latitude, ???)
-#   D   = horizontal distance from home point
-#   H   = vertical distance from home point
-#   H.S = horizontal  speed
-#   V.S = vertical speed
-#
-# 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 => {
-                0 => 'Text',
-                1 => 'SampleTime',
-                2 => 'Main:CreateDate',
-                3 => 'Main:Duration',
-            },
-            # (assuming CreateDate is the end time of the video, we subtract
-            #  Duration because a SampleTime of zero is at the start of the video)
-            ValueConv => q{
-                my $diff = $val[1] - $val[3];
-                my $sign = $diff =~ s/^-// ? '-' : '';
-                my $time = $val[2] . '.000';
-                ShiftTime($time, "${sign}0:0:$diff");
-                return $time;
-            },
-            PrintConv => '$self->ConvertDateTime($val)',
-        },
-        GPSLatitude => {
-            SubDoc => 1,
-            Require => { 0 => 'Text' },
-            RawConv => '$val[0] =~ /GPS \(\S+,\s*([-+]?\d*\.\d+)/ ? $1 : undef',
-            PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "N")',
-        },
-        GPSLongitude => {
-            SubDoc => 1,
-            Require => { 0 => 'Text' },
-            RawConv => '$val[0] =~ /GPS \(([-+]?\d*\.\d+),/ ? $1 : undef',
-            PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "E")',
-        },
-        GPSAltitude => {
-            SubDoc => 1,
-            Require => { 0 => 'Text' },
-            RawConv => '$val[0] =~ /,\s*H\s+([-+]?\d+\.?\d*)m/ ? $1 : undef',
-        },
-        GPSSpeed => {
-            SubDoc => 1,
-            Require => { 0 => 'Text' },
-            RawConv => '$val[0] =~ /,\s*H.S\s+([-+]?\d+\.?\d*)/ ? $1 * 3.6 : undef',
-        },
-        GPSSpeedRef => {
-            SubDoc => 1,
-            Require => { 0 => 'Text' },
-            RawConv => '$val[0] =~ /,\s*H.S\s+([-+]?\d+\.?\d*)m\/s/ ? "K" : undef',
-            PrintConv => { K => 'km/h', M => 'mph', N => 'knots' },
-        },
-        Distance => {
-            SubDoc => 1,
-            Require => { 0 => 'Text' },
-            RawConv => '$val[0] =~ /,\s*D\s+(\d+\.?\d*)m/ ? $1 * 3.6 : undef',
-            PrintConv => '"$val m"',
-        },
-        VerticalSpeed => {
-            SubDoc => 1,
-            Require => { 0 => 'Text' },
-            RawConv => '$val[0] =~ /,\s*V.S\s+([-+]?\d+\.?\d*)/ ? $1 : undef',
-            PrintConv => '"$val m/s"',
-        },
-        FNumber => {
-            Groups => { 2 => 'Camera' },
-            SubDoc => 1,
-            Require => { 0 => 'Text' },
-            RawConv => '$val[0] =~ /\bF\/(\d+\.?\d*)/ ? $1 : undef',
-            PrintConv => 'Image::ExifTool::Exif::PrintFNumber($val)',
-        },
-        ExposureTime => {
-            Groups => { 2 => 'Camera' },
-            SubDoc => 1,
-            Require => { 0 => 'Text' },
-            RawConv => '$val[0] =~ /\bSS\s+(\d+\.?\d*)/ ? 1/$1 : undef',
-            PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
-        },
-        ExposureCompensation => {
-            Groups => { 2 => 'Camera' },
-            SubDoc => 1,
-            Require => { 0 => 'Text' },
-            RawConv => '$val[0] =~ /\bEV\s+([-+]?\d+\.?\d*)(\/\d+)?/ ? ($1 / ($2 || 1)) : undef',
-            PrintConv => 'Image::ExifTool::Exif::PrintFraction($val)',
-        },
-        ISO => {
-            Groups => { 2 => 'Camera' },
-            SubDoc => 1,
-            Require => { 0 => 'Text' },
-            RawConv => '$val[0] =~ /\bISO\s+(\d+\.?\d*)/ ? $1 : undef',
-        },
-    },
-);
-
-1;  #end

data/bin/config_files/mini0806.config

@@ -1,99 +0,0 @@
-#------------------------------------------------------------------------------
-# File:         mini0806.config
-#
-# Description:  This config file defines Composite tags to convert embedded
-#               metadata in Mini 0806 dashcam videos
-#
-# Usage:        exiftool -config mini0806.config -ee FILE
-#
-#               Example command to create .gpx log file from Mini 0806 video
-#               (requires gpx.fmt available in the full Exiftool distribution):
-#
-#               exiftool -config mini0806.config -p gpx.fmt -ee FILE
-#
-# Requires:     ExifTool version 10.75 or later
-#
-# Revisions:    2019/05/28 - P. Harvey Created
-#------------------------------------------------------------------------------
-
-%Image::ExifTool::UserDefined = (
-    'Image::ExifTool::Composite' => {
-        GROUPS => { 2 => 'Location' },
-#
-# Example embedded "Text" from a Mini 0806 MOV video:
-#
-#   "A,270519,201555.000,3356.8925,N,08420.2071,W,000.0,331.0M,+01.84,-09.80,-00.61;\n"
-#
-# 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{
-                if ($val[0] =~ /^A,(\d{2})(\d{2})(\d{2}),(\d{2})(\d{2})(\d{2}(\.\d+)?)/) {
-                    return "20$3:$2:$1 $4:$5:$6Z";
-                } else {
-                    return undef;
-                }
-            },
-            PrintConv => '$self->ConvertDateTime($val)',
-        },
-        GPSLatitude => {
-            SubDoc => 1,
-            Require => 'Text',
-            RawConv => q{
-                if ($val[0] =~ /^A,.*?,.*?,(\d{2})(\d+\.\d+),([NS])/) {
-                    return ($1 + $2/60) * ($3 eq 'S' ? -1 : 1);
-                } else {
-                    return undef;
-                }
-            },
-            PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "N")',
-        },
-        GPSLongitude => {
-            SubDoc => 1,
-            Require => 'Text',
-            RawConv => q{
-                if ($val[0] =~ /^A,.*?,.*?,.*?,.*?,(\d{3})(\d+\.\d+),([EW])/) {
-                    return ($1 + $2/60) * ($3 eq 'W' ? -1 : 1);
-                } else {
-                    return undef;
-                }
-            },
-            PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "E")',
-        },
-        GPSAltitude => {
-            SubDoc => 1,
-            Require => 'Text',
-            RawConv => q{
-                my @a = split ',', $val[0];
-                return undef unless $a[0] eq 'A' and $a[8] =~ s/M$//;
-                return $a[8];
-            },
-            PrintConv => '"$val m"',
-        },
-        GPSSpeed => {
-            SubDoc => 1,
-            Require => 'Text',
-            RawConv => q{
-                my @a = split ',', $val[0];
-                return undef unless $a[0] eq 'A' and $a[7] =~ /^\d+\.\d+$/;
-                return $a[7]; # (NC)
-            },
-        },
-        Accelerometer => {
-            SubDoc => 1,
-            Require => 'Text',
-            RawConv => q{
-                my @a = split ',', $val[0];
-                return undef unless $a[11] =~ s/;\s*$//;
-                return "$a[9] $a[10] $a[11]";
-            },
-        },
-    },
-);
-
-1;  #end

data/bin/config_files/thinkware.config

@@ -1,144 +0,0 @@
-#------------------------------------------------------------------------------
-# 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