exiftool_vendored 12.52.0 → 12.55.0
Sign up to get free protection for your applications and to get access to all the features.
- checksums.yaml +4 -4
- data/bin/Changes +42 -1
- data/bin/META.json +1 -1
- data/bin/META.yml +1 -1
- data/bin/README +3 -3
- data/bin/exiftool +12 -10
- data/bin/fmt_files/kml_track.fmt +3 -3
- data/bin/lib/File/RandomAccess.pm +1 -1
- data/bin/lib/File/RandomAccess.pod +2 -2
- data/bin/lib/Image/ExifTool/AES.pm +1 -1
- data/bin/lib/Image/ExifTool/AFCP.pm +1 -1
- data/bin/lib/Image/ExifTool/AIFF.pm +1 -1
- data/bin/lib/Image/ExifTool/APE.pm +1 -1
- data/bin/lib/Image/ExifTool/APP12.pm +1 -1
- data/bin/lib/Image/ExifTool/ASF.pm +1 -1
- data/bin/lib/Image/ExifTool/Apple.pm +197 -27
- data/bin/lib/Image/ExifTool/Audible.pm +1 -1
- data/bin/lib/Image/ExifTool/BMP.pm +1 -1
- data/bin/lib/Image/ExifTool/BPG.pm +1 -1
- data/bin/lib/Image/ExifTool/BZZ.pm +1 -1
- data/bin/lib/Image/ExifTool/BigTIFF.pm +1 -1
- data/bin/lib/Image/ExifTool/BuildTagLookup.pm +4 -4
- data/bin/lib/Image/ExifTool/CBOR.pm +1 -1
- data/bin/lib/Image/ExifTool/Canon.pm +14 -2
- data/bin/lib/Image/ExifTool/CanonCustom.pm +1 -1
- data/bin/lib/Image/ExifTool/CanonRaw.pm +1 -1
- data/bin/lib/Image/ExifTool/CanonVRD.pm +9 -9
- data/bin/lib/Image/ExifTool/CaptureOne.pm +1 -1
- data/bin/lib/Image/ExifTool/Casio.pm +1 -1
- data/bin/lib/Image/ExifTool/Charset.pm +1 -1
- data/bin/lib/Image/ExifTool/DICOM.pm +1 -1
- data/bin/lib/Image/ExifTool/DJI.pm +1 -1
- data/bin/lib/Image/ExifTool/DNG.pm +1 -1
- data/bin/lib/Image/ExifTool/DPX.pm +1 -1
- data/bin/lib/Image/ExifTool/DV.pm +1 -1
- data/bin/lib/Image/ExifTool/DarwinCore.pm +1 -1
- data/bin/lib/Image/ExifTool/DjVu.pm +1 -1
- data/bin/lib/Image/ExifTool/EXE.pm +1 -1
- data/bin/lib/Image/ExifTool/Exif.pm +5 -16
- data/bin/lib/Image/ExifTool/FITS.pm +1 -1
- data/bin/lib/Image/ExifTool/FLAC.pm +1 -1
- data/bin/lib/Image/ExifTool/FLIF.pm +1 -1
- data/bin/lib/Image/ExifTool/FLIR.pm +1 -1
- data/bin/lib/Image/ExifTool/Fixup.pm +1 -1
- data/bin/lib/Image/ExifTool/Flash.pm +1 -1
- data/bin/lib/Image/ExifTool/FlashPix.pm +1 -1
- data/bin/lib/Image/ExifTool/Font.pm +1 -1
- data/bin/lib/Image/ExifTool/FotoStation.pm +1 -1
- data/bin/lib/Image/ExifTool/FujiFilm.pm +21 -13
- data/bin/lib/Image/ExifTool/GE.pm +1 -1
- data/bin/lib/Image/ExifTool/GIF.pm +1 -1
- data/bin/lib/Image/ExifTool/GIMP.pm +1 -1
- data/bin/lib/Image/ExifTool/GPS.pm +1 -1
- data/bin/lib/Image/ExifTool/GeoTiff.pm +1 -1
- data/bin/lib/Image/ExifTool/Geotag.pm +14 -5
- data/bin/lib/Image/ExifTool/GoPro.pm +1 -1
- data/bin/lib/Image/ExifTool/H264.pm +1 -1
- data/bin/lib/Image/ExifTool/HP.pm +1 -1
- data/bin/lib/Image/ExifTool/HTML.pm +1 -1
- data/bin/lib/Image/ExifTool/HtmlDump.pm +1 -1
- data/bin/lib/Image/ExifTool/ICC_Profile.pm +1 -1
- data/bin/lib/Image/ExifTool/ICO.pm +1 -1
- data/bin/lib/Image/ExifTool/ID3.pm +1 -1
- data/bin/lib/Image/ExifTool/IPTC.pm +1 -1
- data/bin/lib/Image/ExifTool/ISO.pm +1 -1
- data/bin/lib/Image/ExifTool/ITC.pm +1 -1
- data/bin/lib/Image/ExifTool/Import.pm +1 -1
- data/bin/lib/Image/ExifTool/InDesign.pm +1 -1
- data/bin/lib/Image/ExifTool/JPEG.pm +1 -1
- data/bin/lib/Image/ExifTool/JPEGDigest.pm +1 -1
- data/bin/lib/Image/ExifTool/JSON.pm +1 -1
- data/bin/lib/Image/ExifTool/JVC.pm +1 -1
- data/bin/lib/Image/ExifTool/Jpeg2000.pm +11 -5
- data/bin/lib/Image/ExifTool/Kodak.pm +1 -1
- data/bin/lib/Image/ExifTool/KyoceraRaw.pm +1 -1
- data/bin/lib/Image/ExifTool/LIF.pm +1 -1
- data/bin/lib/Image/ExifTool/LNK.pm +1 -1
- data/bin/lib/Image/ExifTool/Lang/cs.pm +1 -1
- data/bin/lib/Image/ExifTool/Lang/de.pm +1 -1
- data/bin/lib/Image/ExifTool/Lang/en_ca.pm +1 -1
- data/bin/lib/Image/ExifTool/Lang/en_gb.pm +1 -1
- data/bin/lib/Image/ExifTool/Lang/es.pm +1 -1
- data/bin/lib/Image/ExifTool/Lang/fi.pm +1 -1
- data/bin/lib/Image/ExifTool/Lang/fr.pm +1 -1
- data/bin/lib/Image/ExifTool/Lang/it.pm +1 -1
- data/bin/lib/Image/ExifTool/Lang/ja.pm +1 -1
- data/bin/lib/Image/ExifTool/Lang/ko.pm +1 -1
- data/bin/lib/Image/ExifTool/Lang/nl.pm +1 -1
- data/bin/lib/Image/ExifTool/Lang/pl.pm +1 -1
- data/bin/lib/Image/ExifTool/Lang/ru.pm +1 -1
- data/bin/lib/Image/ExifTool/Lang/sk.pm +1806 -1927
- data/bin/lib/Image/ExifTool/Lang/sv.pm +1 -1
- data/bin/lib/Image/ExifTool/Lang/tr.pm +1 -1
- data/bin/lib/Image/ExifTool/Lang/zh_cn.pm +1 -1
- data/bin/lib/Image/ExifTool/Lang/zh_tw.pm +1 -1
- data/bin/lib/Image/ExifTool/Leaf.pm +1 -1
- data/bin/lib/Image/ExifTool/Lytro.pm +1 -1
- data/bin/lib/Image/ExifTool/M2TS.pm +1 -1
- data/bin/lib/Image/ExifTool/MIE.pm +1 -1
- data/bin/lib/Image/ExifTool/MIEUnits.pod +1 -1
- data/bin/lib/Image/ExifTool/MIFF.pm +1 -1
- data/bin/lib/Image/ExifTool/MISB.pm +1 -1
- data/bin/lib/Image/ExifTool/MNG.pm +1 -1
- data/bin/lib/Image/ExifTool/MOI.pm +1 -1
- data/bin/lib/Image/ExifTool/MPC.pm +1 -1
- data/bin/lib/Image/ExifTool/MPEG.pm +1 -1
- data/bin/lib/Image/ExifTool/MPF.pm +1 -1
- data/bin/lib/Image/ExifTool/MRC.pm +1 -1
- data/bin/lib/Image/ExifTool/MWG.pm +1 -1
- data/bin/lib/Image/ExifTool/MXF.pm +1 -1
- data/bin/lib/Image/ExifTool/MacOS.pm +1 -1
- data/bin/lib/Image/ExifTool/MakerNotes.pm +1 -1
- data/bin/lib/Image/ExifTool/Matroska.pm +5 -5
- data/bin/lib/Image/ExifTool/Microsoft.pm +1 -1
- data/bin/lib/Image/ExifTool/Minolta.pm +1 -1
- data/bin/lib/Image/ExifTool/MinoltaRaw.pm +1 -1
- data/bin/lib/Image/ExifTool/Motorola.pm +1 -1
- data/bin/lib/Image/ExifTool/Nikon.pm +219 -10
- data/bin/lib/Image/ExifTool/NikonCapture.pm +1 -1
- data/bin/lib/Image/ExifTool/NikonCustom.pm +1 -1
- data/bin/lib/Image/ExifTool/NikonSettings.pm +1 -1
- data/bin/lib/Image/ExifTool/Nintendo.pm +1 -1
- data/bin/lib/Image/ExifTool/OOXML.pm +1 -1
- data/bin/lib/Image/ExifTool/Ogg.pm +1 -1
- data/bin/lib/Image/ExifTool/Olympus.pm +1 -1
- data/bin/lib/Image/ExifTool/OpenEXR.pm +1 -1
- data/bin/lib/Image/ExifTool/Opus.pm +1 -1
- data/bin/lib/Image/ExifTool/Other.pm +1 -1
- data/bin/lib/Image/ExifTool/PCX.pm +1 -1
- data/bin/lib/Image/ExifTool/PDF.pm +1 -1
- data/bin/lib/Image/ExifTool/PGF.pm +1 -1
- data/bin/lib/Image/ExifTool/PICT.pm +1 -1
- data/bin/lib/Image/ExifTool/PLIST.pm +12 -7
- data/bin/lib/Image/ExifTool/PLUS.pm +1 -1
- data/bin/lib/Image/ExifTool/PNG.pm +1 -1
- data/bin/lib/Image/ExifTool/PPM.pm +1 -1
- data/bin/lib/Image/ExifTool/PSP.pm +1 -1
- data/bin/lib/Image/ExifTool/Palm.pm +1 -1
- data/bin/lib/Image/ExifTool/Panasonic.pm +1 -1
- data/bin/lib/Image/ExifTool/PanasonicRaw.pm +1 -1
- data/bin/lib/Image/ExifTool/Parrot.pm +1 -1
- data/bin/lib/Image/ExifTool/Pentax.pm +1 -1
- data/bin/lib/Image/ExifTool/PhaseOne.pm +1 -1
- data/bin/lib/Image/ExifTool/PhotoCD.pm +1 -1
- data/bin/lib/Image/ExifTool/PhotoMechanic.pm +1 -1
- data/bin/lib/Image/ExifTool/Photoshop.pm +1 -1
- data/bin/lib/Image/ExifTool/PostScript.pm +1 -1
- data/bin/lib/Image/ExifTool/PrintIM.pm +1 -1
- data/bin/lib/Image/ExifTool/Qualcomm.pm +1 -1
- data/bin/lib/Image/ExifTool/QuickTime.pm +23 -7
- data/bin/lib/Image/ExifTool/QuickTimeStream.pl +122 -28
- data/bin/lib/Image/ExifTool/README +3 -0
- data/bin/lib/Image/ExifTool/RIFF.pm +1 -1
- data/bin/lib/Image/ExifTool/RSRC.pm +1 -1
- data/bin/lib/Image/ExifTool/RTF.pm +1 -1
- data/bin/lib/Image/ExifTool/Radiance.pm +1 -1
- data/bin/lib/Image/ExifTool/Rawzor.pm +1 -1
- data/bin/lib/Image/ExifTool/Real.pm +1 -1
- data/bin/lib/Image/ExifTool/Reconyx.pm +1 -1
- data/bin/lib/Image/ExifTool/Red.pm +1 -1
- data/bin/lib/Image/ExifTool/Ricoh.pm +1 -1
- data/bin/lib/Image/ExifTool/Samsung.pm +3 -1
- data/bin/lib/Image/ExifTool/Sanyo.pm +1 -1
- data/bin/lib/Image/ExifTool/Scalado.pm +1 -1
- data/bin/lib/Image/ExifTool/Shift.pl +1 -1
- data/bin/lib/Image/ExifTool/Shortcuts.pm +1 -1
- data/bin/lib/Image/ExifTool/Sigma.pm +1 -1
- data/bin/lib/Image/ExifTool/SigmaRaw.pm +1 -1
- data/bin/lib/Image/ExifTool/Sony.pm +3 -3
- data/bin/lib/Image/ExifTool/SonyIDC.pm +1 -1
- data/bin/lib/Image/ExifTool/Stim.pm +1 -1
- data/bin/lib/Image/ExifTool/TagInfoXML.pm +2 -2
- data/bin/lib/Image/ExifTool/TagLookup.pm +1023 -979
- data/bin/lib/Image/ExifTool/TagNames.pod +99 -9
- data/bin/lib/Image/ExifTool/Text.pm +1 -1
- data/bin/lib/Image/ExifTool/Theora.pm +1 -1
- data/bin/lib/Image/ExifTool/Torrent.pm +1 -1
- data/bin/lib/Image/ExifTool/Unknown.pm +1 -1
- data/bin/lib/Image/ExifTool/VCard.pm +1 -1
- data/bin/lib/Image/ExifTool/Validate.pm +1 -1
- data/bin/lib/Image/ExifTool/Vorbis.pm +1 -1
- data/bin/lib/Image/ExifTool/WTV.pm +1 -1
- data/bin/lib/Image/ExifTool/WriteCanonRaw.pl +1 -1
- data/bin/lib/Image/ExifTool/WriteExif.pl +14 -1
- data/bin/lib/Image/ExifTool/WriteIPTC.pl +1 -1
- data/bin/lib/Image/ExifTool/WritePDF.pl +5 -1
- data/bin/lib/Image/ExifTool/WritePNG.pl +1 -1
- data/bin/lib/Image/ExifTool/WritePhotoshop.pl +1 -1
- data/bin/lib/Image/ExifTool/WritePostScript.pl +1 -1
- data/bin/lib/Image/ExifTool/WriteQuickTime.pl +18 -7
- data/bin/lib/Image/ExifTool/WriteRIFF.pl +1 -1
- data/bin/lib/Image/ExifTool/WriteXMP.pl +1 -1
- data/bin/lib/Image/ExifTool/Writer.pl +2 -2
- data/bin/lib/Image/ExifTool/XMP.pm +23 -3
- data/bin/lib/Image/ExifTool/XMP2.pl +20 -1
- data/bin/lib/Image/ExifTool/XMPStruct.pl +1 -1
- data/bin/lib/Image/ExifTool/ZIP.pm +1 -1
- data/bin/lib/Image/ExifTool/ZISRAW.pm +1 -1
- data/bin/lib/Image/ExifTool/iWork.pm +1 -1
- data/bin/lib/Image/ExifTool.pm +4 -3
- data/bin/lib/Image/ExifTool.pod +39 -38
- data/bin/perl-Image-ExifTool.spec +1 -1
- data/lib/exiftool_vendored/version.rb +1 -1
- metadata +2 -2
@@ -307,7 +307,7 @@ specification.
|
|
307
307
|
|
308
308
|
=head1 AUTHOR
|
309
309
|
|
310
|
-
Copyright 2003-
|
310
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
311
311
|
|
312
312
|
This library is free software; you can redistribute it and/or modify it
|
313
313
|
under the same terms as Perl itself.
|
@@ -88,7 +88,7 @@ sub ProcessCTMD($$$);
|
|
88
88
|
sub ProcessExifInfo($$$);
|
89
89
|
sub SwapWords($);
|
90
90
|
|
91
|
-
$VERSION = '4.
|
91
|
+
$VERSION = '4.64';
|
92
92
|
|
93
93
|
# Note: Removed 'USM' from 'L' lenses since it is redundant - PH
|
94
94
|
# (or is it? Ref 32 shows 5 non-USM L-type lenses)
|
@@ -8578,6 +8578,10 @@ my %ciMaxFocal = (
|
|
8578
8578
|
Name => 'DistortionCorrectionSetting',
|
8579
8579
|
PrintConv => \%offOn,
|
8580
8580
|
},
|
8581
|
+
9 => { #forum14286
|
8582
|
+
Name => 'DigitalLensOptimizerSetting',
|
8583
|
+
PrintConv => \%offOn,
|
8584
|
+
},
|
8581
8585
|
);
|
8582
8586
|
|
8583
8587
|
# Auto Lighting Optimizater information (MakerNotes tag 0x4018) (ref PH)
|
@@ -8624,6 +8628,14 @@ my %ciMaxFocal = (
|
|
8624
8628
|
# 6 - related to ChromaticAberrationCorr
|
8625
8629
|
# 7 - related to DistortionCorrection (0=off, 1=On in a 5DmkIV sample)
|
8626
8630
|
# 8 - related to PeripheralIlluminationCorr and ChromaticAberrationCorr
|
8631
|
+
10 => { #forum14286
|
8632
|
+
Name => 'DigitalLensOptimizer',
|
8633
|
+
PrintConv => {
|
8634
|
+
0 => 'Off',
|
8635
|
+
1 => 'Stanard',
|
8636
|
+
2 => 'High',
|
8637
|
+
},
|
8638
|
+
},
|
8627
8639
|
);
|
8628
8640
|
|
8629
8641
|
# Lens information (MakerNotes tag 0x4019) (ref 20)
|
@@ -10176,7 +10188,7 @@ Canon maker notes in EXIF information.
|
|
10176
10188
|
|
10177
10189
|
=head1 AUTHOR
|
10178
10190
|
|
10179
|
-
Copyright 2003-
|
10191
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
10180
10192
|
|
10181
10193
|
This library is free software; you can redistribute it and/or modify it
|
10182
10194
|
under the same terms as Perl itself.
|
@@ -2873,7 +2873,7 @@ Image::ExifTool to read this information.
|
|
2873
2873
|
|
2874
2874
|
=head1 AUTHOR
|
2875
2875
|
|
2876
|
-
Copyright 2003-
|
2876
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
2877
2877
|
|
2878
2878
|
This library is free software; you can redistribute it and/or modify it
|
2879
2879
|
under the same terms as Perl itself.
|
@@ -884,7 +884,7 @@ tags.)
|
|
884
884
|
|
885
885
|
=head1 AUTHOR
|
886
886
|
|
887
|
-
Copyright 2003-
|
887
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
888
888
|
|
889
889
|
This library is free software; you can redistribute it and/or modify it
|
890
890
|
under the same terms as Perl itself.
|
@@ -23,7 +23,7 @@ use vars qw($VERSION);
|
|
23
23
|
use Image::ExifTool qw(:DataAccess :Utils);
|
24
24
|
use Image::ExifTool::Canon;
|
25
25
|
|
26
|
-
$VERSION = '1.
|
26
|
+
$VERSION = '1.35';
|
27
27
|
|
28
28
|
sub ProcessCanonVRD($$;$);
|
29
29
|
sub WriteCanonVRD($$;$);
|
@@ -999,7 +999,7 @@ my $blankFooter = "CANON OPTIONAL DATA\0" . ("\0" x 42) . "\xff\xd9";
|
|
999
999
|
PROCESS_PROC => \&ProcessDR4,
|
1000
1000
|
WRITE_PROC => \&ProcessDR4,
|
1001
1001
|
WRITABLE => 1,
|
1002
|
-
GROUPS => { 2 => 'Image' },
|
1002
|
+
GROUPS => { 1 => 'CanonDR4', 2 => 'Image' },
|
1003
1003
|
VARS => { HEX_ID => 1, SORT_PROC => \&SortDR4 },
|
1004
1004
|
NOTES => q{
|
1005
1005
|
Tags written by Canon DPP version 4 in CanonVRD trailers and DR4 files. Each
|
@@ -1276,7 +1276,7 @@ my $blankFooter = "CANON OPTIONAL DATA\0" . ("\0" x 42) . "\xff\xd9";
|
|
1276
1276
|
WRITABLE => 1,
|
1277
1277
|
FIRST_ENTRY => 0,
|
1278
1278
|
FORMAT => 'int32u',
|
1279
|
-
GROUPS => { 2 => 'Image' },
|
1279
|
+
GROUPS => { 1 => 'CanonDR4', 2 => 'Image' },
|
1280
1280
|
# 0 - value: 'IIII' (presumably byte order)
|
1281
1281
|
# 1 - value: 0x00040004 (currently use this for magic number)
|
1282
1282
|
# 2 - value: 6
|
@@ -1301,7 +1301,7 @@ my $blankFooter = "CANON OPTIONAL DATA\0" . ("\0" x 42) . "\xff\xd9";
|
|
1301
1301
|
WRITABLE => 1,
|
1302
1302
|
FIRST_ENTRY => 0,
|
1303
1303
|
FORMAT => 'int32u',
|
1304
|
-
GROUPS => { 2 => 'Image' },
|
1304
|
+
GROUPS => { 1 => 'CanonDR4', 2 => 'Image' },
|
1305
1305
|
0x00 => {
|
1306
1306
|
Name => 'ToneCurveColorSpace',
|
1307
1307
|
PrintConv => {
|
@@ -1354,7 +1354,7 @@ my $blankFooter = "CANON OPTIONAL DATA\0" . ("\0" x 42) . "\xff\xd9";
|
|
1354
1354
|
WRITABLE => 1,
|
1355
1355
|
FIRST_ENTRY => 0,
|
1356
1356
|
FORMAT => 'double',
|
1357
|
-
GROUPS => { 2 => 'Image' },
|
1357
|
+
GROUPS => { 1 => 'CanonDR4', 2 => 'Image' },
|
1358
1358
|
0x02 => 'GammaContrast',
|
1359
1359
|
0x03 => 'GammaColorTone',
|
1360
1360
|
0x04 => 'GammaSaturation',
|
@@ -1410,7 +1410,7 @@ my $blankFooter = "CANON OPTIONAL DATA\0" . ("\0" x 42) . "\xff\xd9";
|
|
1410
1410
|
WRITABLE => 1,
|
1411
1411
|
FIRST_ENTRY => 0,
|
1412
1412
|
FORMAT => 'int32s',
|
1413
|
-
GROUPS => { 2 => 'Image' },
|
1413
|
+
GROUPS => { 1 => 'CanonDR4', 2 => 'Image' },
|
1414
1414
|
0 => { Name => 'CropActive', %noYes },
|
1415
1415
|
1 => 'CropRotatedOriginalWidth',
|
1416
1416
|
2 => 'CropRotatedOriginalHeight',
|
@@ -1432,7 +1432,7 @@ my $blankFooter = "CANON OPTIONAL DATA\0" . ("\0" x 42) . "\xff\xd9";
|
|
1432
1432
|
# DR4 Stamp Tool tags (ref PH)
|
1433
1433
|
%Image::ExifTool::CanonVRD::StampInfo = (
|
1434
1434
|
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
|
1435
|
-
GROUPS => { 2 => 'Image' },
|
1435
|
+
GROUPS => { 1 => 'CanonDR4', 2 => 'Image' },
|
1436
1436
|
FORMAT => 'int32u',
|
1437
1437
|
FIRST_ENTRY => 0,
|
1438
1438
|
0x02 => 'StampToolCount',
|
@@ -1441,7 +1441,7 @@ my $blankFooter = "CANON OPTIONAL DATA\0" . ("\0" x 42) . "\xff\xd9";
|
|
1441
1441
|
# DR4 dust delete information (ref PH)
|
1442
1442
|
%Image::ExifTool::CanonVRD::DustInfo = (
|
1443
1443
|
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
|
1444
|
-
GROUPS => { 2 => 'Image' },
|
1444
|
+
GROUPS => { 1 => 'CanonDR4', 2 => 'Image' },
|
1445
1445
|
FORMAT => 'int32u',
|
1446
1446
|
FIRST_ENTRY => 0,
|
1447
1447
|
0x02 => { Name => 'DustDeleteApplied', %noYes },
|
@@ -2263,7 +2263,7 @@ files, and as a trailer in JPEG, CRW, CR2 and TIFF images.
|
|
2263
2263
|
|
2264
2264
|
=head1 AUTHOR
|
2265
2265
|
|
2266
|
-
Copyright 2003-
|
2266
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
2267
2267
|
|
2268
2268
|
This library is free software; you can redistribute it and/or modify it
|
2269
2269
|
under the same terms as Perl itself.
|
@@ -221,7 +221,7 @@ settings files (COS).
|
|
221
221
|
|
222
222
|
=head1 AUTHOR
|
223
223
|
|
224
|
-
Copyright 2003-
|
224
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
225
225
|
|
226
226
|
This library is free software; you can redistribute it and/or modify it
|
227
227
|
under the same terms as Perl itself.
|
@@ -2034,7 +2034,7 @@ Casio maker notes in EXIF information.
|
|
2034
2034
|
|
2035
2035
|
=head1 AUTHOR
|
2036
2036
|
|
2037
|
-
Copyright 2003-
|
2037
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
2038
2038
|
|
2039
2039
|
This library is free software; you can redistribute it and/or modify it
|
2040
2040
|
under the same terms as Perl itself.
|
@@ -422,7 +422,7 @@ when decoding certain types of information.
|
|
422
422
|
|
423
423
|
=head1 AUTHOR
|
424
424
|
|
425
|
-
Copyright 2003-
|
425
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
426
426
|
|
427
427
|
This library is free software; you can redistribute it and/or modify it
|
428
428
|
under the same terms as Perl itself.
|
@@ -3853,7 +3853,7 @@ No translation of special characters sets is done.
|
|
3853
3853
|
|
3854
3854
|
=head1 AUTHOR
|
3855
3855
|
|
3856
|
-
Copyright 2003-
|
3856
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
3857
3857
|
|
3858
3858
|
This library is free software; you can redistribute it and/or modify it
|
3859
3859
|
under the same terms as Perl itself.
|
@@ -210,7 +210,7 @@ the maker notes in images from some DJI Phantom drones.
|
|
210
210
|
|
211
211
|
=head1 AUTHOR
|
212
212
|
|
213
|
-
Copyright 2003-
|
213
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
214
214
|
|
215
215
|
This library is free software; you can redistribute it and/or modify it
|
216
216
|
under the same terms as Perl itself.
|
@@ -826,7 +826,7 @@ information in DNG (Digital Negative) images.
|
|
826
826
|
|
827
827
|
=head1 AUTHOR
|
828
828
|
|
829
|
-
Copyright 2003-
|
829
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
830
830
|
|
831
831
|
This library is free software; you can redistribute it and/or modify it
|
832
832
|
under the same terms as Perl itself.
|
@@ -225,7 +225,7 @@ metadata from DPX (Digital Picture Exchange) images.
|
|
225
225
|
|
226
226
|
=head1 AUTHOR
|
227
227
|
|
228
|
-
Copyright 2003-
|
228
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
229
229
|
|
230
230
|
This library is free software; you can redistribute it and/or modify it
|
231
231
|
under the same terms as Perl itself.
|
@@ -291,7 +291,7 @@ information from DV (raw Digital Video) files.
|
|
291
291
|
|
292
292
|
=head1 AUTHOR
|
293
293
|
|
294
|
-
Copyright 2003-
|
294
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
295
295
|
|
296
296
|
This library is free software; you can redistribute it and/or modify it
|
297
297
|
under the same terms as Perl itself.
|
@@ -372,7 +372,7 @@ This file contains tag definitions for the Darwin Core XMP namespace.
|
|
372
372
|
|
373
373
|
=head1 AUTHOR
|
374
374
|
|
375
|
-
Copyright 2003-
|
375
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
376
376
|
|
377
377
|
This library is free software; you can redistribute it and/or modify it
|
378
378
|
under the same terms as Perl itself.
|
@@ -353,7 +353,7 @@ Image::ExifTool::AIFF.
|
|
353
353
|
|
354
354
|
=head1 AUTHOR
|
355
355
|
|
356
|
-
Copyright 2003-
|
356
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
357
357
|
|
358
358
|
This library is free software; you can redistribute it and/or modify it
|
359
359
|
under the same terms as Perl itself.
|
@@ -1406,7 +1406,7 @@ library files.
|
|
1406
1406
|
|
1407
1407
|
=head1 AUTHOR
|
1408
1408
|
|
1409
|
-
Copyright 2003-
|
1409
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
1410
1410
|
|
1411
1411
|
This library is free software; you can redistribute it and/or modify it
|
1412
1412
|
under the same terms as Perl itself.
|
@@ -70,6 +70,7 @@ sub PrintParameter($$$);
|
|
70
70
|
sub GetOffList($$$$$);
|
71
71
|
sub PrintOpcode($$$);
|
72
72
|
sub PrintLensInfo($);
|
73
|
+
sub InverseOffsetTime($$);
|
73
74
|
sub ConvertLensInfo($);
|
74
75
|
|
75
76
|
# size limit for loading binary data block into memory
|
@@ -2082,11 +2083,7 @@ my %opcodeInfo = (
|
|
2082
2083
|
Notes => 'time zone for ModifyDate',
|
2083
2084
|
Writable => 'string',
|
2084
2085
|
Shift => 'Time',
|
2085
|
-
PrintConvInv =>
|
2086
|
-
return "+00:00" if $val =~ /\d{2}Z$/;
|
2087
|
-
return sprintf("%s%.2d:%.2d",$1,$2,$3) if $val =~ /([-+])(\d{1,2}):(\d{2})/;
|
2088
|
-
return undef;
|
2089
|
-
},
|
2086
|
+
PrintConvInv => \&InverseOffsetTime,
|
2090
2087
|
},
|
2091
2088
|
0x9011 => {
|
2092
2089
|
Name => 'OffsetTimeOriginal',
|
@@ -2094,11 +2091,7 @@ my %opcodeInfo = (
|
|
2094
2091
|
Notes => 'time zone for DateTimeOriginal',
|
2095
2092
|
Writable => 'string',
|
2096
2093
|
Shift => 'Time',
|
2097
|
-
PrintConvInv =>
|
2098
|
-
return "+00:00" if $val =~ /\d{2}Z$/;
|
2099
|
-
return sprintf("%s%.2d:%.2d",$1,$2,$3) if $val =~ /([-+])(\d{1,2}):(\d{2})/;
|
2100
|
-
return undef;
|
2101
|
-
},
|
2094
|
+
PrintConvInv => \&InverseOffsetTime,
|
2102
2095
|
},
|
2103
2096
|
0x9012 => {
|
2104
2097
|
Name => 'OffsetTimeDigitized',
|
@@ -2106,11 +2099,7 @@ my %opcodeInfo = (
|
|
2106
2099
|
Notes => 'time zone for CreateDate',
|
2107
2100
|
Writable => 'string',
|
2108
2101
|
Shift => 'Time',
|
2109
|
-
PrintConvInv =>
|
2110
|
-
return "+00:00" if $val =~ /\d{2}Z$/;
|
2111
|
-
return sprintf("%s%.2d:%.2d",$1,$2,$3) if $val =~ /([-+])(\d{1,2}):(\d{2})/;
|
2112
|
-
return undef;
|
2113
|
-
},
|
2102
|
+
PrintConvInv => \&InverseOffsetTime,
|
2114
2103
|
},
|
2115
2104
|
0x9101 => {
|
2116
2105
|
Name => 'ComponentsConfiguration',
|
@@ -6789,7 +6778,7 @@ EXIF and TIFF meta information.
|
|
6789
6778
|
|
6790
6779
|
=head1 AUTHOR
|
6791
6780
|
|
6792
|
-
Copyright 2003-
|
6781
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
6793
6782
|
|
6794
6783
|
This library is free software; you can redistribute it and/or modify it
|
6795
6784
|
under the same terms as Perl itself.
|
@@ -137,7 +137,7 @@ information from FITS (Flexible Image Transport System) images.
|
|
137
137
|
|
138
138
|
=head1 AUTHOR
|
139
139
|
|
140
|
-
Copyright 2003-
|
140
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
141
141
|
|
142
142
|
This library is free software; you can redistribute it and/or modify it
|
143
143
|
under the same terms as Perl itself.
|
@@ -298,7 +298,7 @@ information from Free Lossless Audio Codec (FLAC) audio files.
|
|
298
298
|
|
299
299
|
=head1 AUTHOR
|
300
300
|
|
301
|
-
Copyright 2003-
|
301
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
302
302
|
|
303
303
|
This library is free software; you can redistribute it and/or modify it
|
304
304
|
under the same terms as Perl itself.
|
@@ -329,7 +329,7 @@ meta information in FLIF (Free Lossless Image Format) images.
|
|
329
329
|
|
330
330
|
=head1 AUTHOR
|
331
331
|
|
332
|
-
Copyright 2003-
|
332
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
333
333
|
|
334
334
|
This library is free software; you can redistribute it and/or modify it
|
335
335
|
under the same terms as Perl itself.
|
@@ -1633,7 +1633,7 @@ Systems Inc. thermal image files (FFF, FPF and JPEG format).
|
|
1633
1633
|
|
1634
1634
|
=head1 AUTHOR
|
1635
1635
|
|
1636
|
-
Copyright 2003-
|
1636
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
1637
1637
|
|
1638
1638
|
This library is free software; you can redistribute it and/or modify it
|
1639
1639
|
under the same terms as Perl itself.
|
@@ -354,7 +354,7 @@ linear list when ApplyFixups() is called.
|
|
354
354
|
|
355
355
|
=head1 AUTHOR
|
356
356
|
|
357
|
-
Copyright 2003-
|
357
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
358
358
|
|
359
359
|
This library is free software; you can redistribute it and/or modify it
|
360
360
|
under the same terms as Perl itself.
|
@@ -721,7 +721,7 @@ will add AMF3 support.
|
|
721
721
|
|
722
722
|
=head1 AUTHOR
|
723
723
|
|
724
|
-
Copyright 2003-
|
724
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
725
725
|
|
726
726
|
This library is free software; you can redistribute it and/or modify it
|
727
727
|
under the same terms as Perl itself.
|
@@ -2418,7 +2418,7 @@ JPEG images.
|
|
2418
2418
|
|
2419
2419
|
=head1 AUTHOR
|
2420
2420
|
|
2421
|
-
Copyright 2003-
|
2421
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
2422
2422
|
|
2423
2423
|
This library is free software; you can redistribute it and/or modify it
|
2424
2424
|
under the same terms as Perl itself.
|
@@ -622,7 +622,7 @@ extracted from these formats.
|
|
622
622
|
|
623
623
|
=head1 AUTHOR
|
624
624
|
|
625
|
-
Copyright 2003-
|
625
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
626
626
|
|
627
627
|
This library is free software; you can redistribute it and/or modify it
|
628
628
|
under the same terms as Perl itself.
|
@@ -243,7 +243,7 @@ write information from the FotoWare FotoStation trailer.
|
|
243
243
|
|
244
244
|
=head1 AUTHOR
|
245
245
|
|
246
|
-
Copyright 2003-
|
246
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
247
247
|
|
248
248
|
This library is free software; you can redistribute it and/or modify it
|
249
249
|
under the same terms as Perl itself.
|
@@ -31,7 +31,7 @@ use vars qw($VERSION);
|
|
31
31
|
use Image::ExifTool qw(:DataAccess :Utils);
|
32
32
|
use Image::ExifTool::Exif;
|
33
33
|
|
34
|
-
$VERSION = '1.
|
34
|
+
$VERSION = '1.86';
|
35
35
|
|
36
36
|
sub ProcessFujiDir($$$);
|
37
37
|
sub ProcessFaceRec($$$);
|
@@ -222,6 +222,7 @@ my %faceCategories = (
|
|
222
222
|
},
|
223
223
|
0x100a => { #2
|
224
224
|
Name => 'WhiteBalanceFineTune',
|
225
|
+
Notes => 'newer cameras should divide these values by 20', #forum10800
|
225
226
|
Writable => 'int32s',
|
226
227
|
Count => 2,
|
227
228
|
PrintConv => 'sprintf("Red %+d, Blue %+d", split(" ", $val))',
|
@@ -478,14 +479,20 @@ my %faceCategories = (
|
|
478
479
|
64 => 'Strong',
|
479
480
|
},
|
480
481
|
},
|
481
|
-
0x1049 => { #12
|
482
|
+
0x1049 => { #12,forum14319
|
482
483
|
Name => 'BWAdjustment',
|
483
484
|
Notes => 'positive values are warm, negative values are cool',
|
484
485
|
Format => 'int8s',
|
485
486
|
PrintConv => '$val > 0 ? "+$val" : $val',
|
486
487
|
PrintConvInv => '$val + 0',
|
487
488
|
},
|
488
|
-
|
489
|
+
0x104b => { #forum10800,forum14319
|
490
|
+
Name => 'BWMagentaGreen',
|
491
|
+
Notes => 'positive values are green, negative values are magenta',
|
492
|
+
Format => 'int8s',
|
493
|
+
PrintConv => '$val > 0 ? "+$val" : $val',
|
494
|
+
PrintConvInv => '$val + 0',
|
495
|
+
},
|
489
496
|
0x104c => { #PR158
|
490
497
|
Name => "GrainEffectSize",
|
491
498
|
Writable => 'int16u', #PH
|
@@ -505,6 +512,15 @@ my %faceCategories = (
|
|
505
512
|
4 => 'Electronic Shutter 1.25x Crop', # (continuous high)
|
506
513
|
},
|
507
514
|
},
|
515
|
+
0x104e => { #forum10800 (X-Pro3)
|
516
|
+
Name => 'ColorChromeFXBlue',
|
517
|
+
Writable => 'int32s',
|
518
|
+
PrintConv => {
|
519
|
+
0 => 'Off',
|
520
|
+
32 => 'Weak', # (NC)
|
521
|
+
64 => 'Strong',
|
522
|
+
},
|
523
|
+
},
|
508
524
|
0x1050 => { #forum6109
|
509
525
|
Name => 'ShutterType',
|
510
526
|
Writable => 'int16u',
|
@@ -699,15 +715,6 @@ my %faceCategories = (
|
|
699
715
|
PrintConv => '"$val%"',
|
700
716
|
PrintConvInv => '$val=~s/\s*\%$//; $val',
|
701
717
|
},
|
702
|
-
0x104e => { #forum10800 (X-Pro3)
|
703
|
-
Name => 'ColorChromeFXBlue',
|
704
|
-
Writable => 'int32s',
|
705
|
-
PrintConv => {
|
706
|
-
0 => 'Off',
|
707
|
-
32 => 'Weak', # (NC)
|
708
|
-
64 => 'Strong',
|
709
|
-
},
|
710
|
-
},
|
711
718
|
0x1422 => { #8
|
712
719
|
Name => 'ImageStabilization',
|
713
720
|
Writable => 'int16u',
|
@@ -791,6 +798,7 @@ my %faceCategories = (
|
|
791
798
|
},
|
792
799
|
0x1447 => { Name => 'FujiModel', Writable => 'string' },
|
793
800
|
0x1448 => { Name => 'FujiModel2', Writable => 'string' },
|
801
|
+
0x144d => { Name => 'RollAngle', Writable => 'rational64s' }, #forum14319
|
794
802
|
0x3803 => { #forum10037
|
795
803
|
Name => 'VideoRecordingMode',
|
796
804
|
Groups => { 2 => 'Video' },
|
@@ -1717,7 +1725,7 @@ FujiFilm maker notes in EXIF information, and to read/write FujiFilm RAW
|
|
1717
1725
|
|
1718
1726
|
=head1 AUTHOR
|
1719
1727
|
|
1720
|
-
Copyright 2003-
|
1728
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
1721
1729
|
|
1722
1730
|
This library is free software; you can redistribute it and/or modify it
|
1723
1731
|
under the same terms as Perl itself.
|
@@ -68,7 +68,7 @@ General Imaging maker notes.
|
|
68
68
|
|
69
69
|
=head1 AUTHOR
|
70
70
|
|
71
|
-
Copyright 2003-
|
71
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
72
72
|
|
73
73
|
This library is free software; you can redistribute it and/or modify it
|
74
74
|
under the same terms as Perl itself.
|
@@ -541,7 +541,7 @@ write GIF meta information.
|
|
541
541
|
|
542
542
|
=head1 AUTHOR
|
543
543
|
|
544
|
-
Copyright 2003-
|
544
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
545
545
|
|
546
546
|
This library is free software; you can redistribute it and/or modify it
|
547
547
|
under the same terms as Perl itself.
|
@@ -270,7 +270,7 @@ GIMP software.
|
|
270
270
|
|
271
271
|
=head1 AUTHOR
|
272
272
|
|
273
|
-
Copyright 2003-
|
273
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
274
274
|
|
275
275
|
This library is free software; you can redistribute it and/or modify it
|
276
276
|
under the same terms as Perl itself.
|
@@ -605,7 +605,7 @@ GPS (Global Positioning System) meta information in EXIF data.
|
|
605
605
|
|
606
606
|
=head1 AUTHOR
|
607
607
|
|
608
|
-
Copyright 2003-
|
608
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
609
609
|
|
610
610
|
This library is free software; you can redistribute it and/or modify it
|
611
611
|
under the same terms as Perl itself.
|
@@ -2242,7 +2242,7 @@ coordinates.
|
|
2242
2242
|
|
2243
2243
|
=head1 AUTHOR
|
2244
2244
|
|
2245
|
-
Copyright 2003-
|
2245
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
2246
2246
|
|
2247
2247
|
This library is free software; you can redistribute it and/or modify it
|
2248
2248
|
under the same terms as Perl itself.
|
@@ -29,7 +29,7 @@ use vars qw($VERSION);
|
|
29
29
|
use Image::ExifTool qw(:Public);
|
30
30
|
use Image::ExifTool::GPS;
|
31
31
|
|
32
|
-
$VERSION = '1.
|
32
|
+
$VERSION = '1.70';
|
33
33
|
|
34
34
|
sub JITTER() { return 2 } # maximum time jitter
|
35
35
|
|
@@ -210,7 +210,7 @@ sub LoadTrackLog($$;$)
|
|
210
210
|
my $fix = { };
|
211
211
|
my $csvDelim = $et->Options('CSVDelim');
|
212
212
|
$csvDelim = ',' unless defined $csvDelim;
|
213
|
-
my (@saveFix, $timeSpan);
|
213
|
+
my (@saveFix, @saveTime, $timeSpan);
|
214
214
|
for (;;) {
|
215
215
|
$raf->ReadLine($_) or last;
|
216
216
|
# determine file format
|
@@ -357,8 +357,13 @@ sub LoadTrackLog($$;$)
|
|
357
357
|
}
|
358
358
|
# read KML "Point" coordinates
|
359
359
|
@$fix{'lon','lat','alt'} = split ',', $1;
|
360
|
+
$$has{alt} = 1 if $$fix{alt};
|
360
361
|
} else {
|
361
|
-
$$fix{
|
362
|
+
if ($tok eq 'when' and $$fix{'time'}) {
|
363
|
+
push @saveTime, $1; # flightaware KML stores times in array
|
364
|
+
} else {
|
365
|
+
$$fix{$tag} = $1;
|
366
|
+
}
|
362
367
|
if ($isOrient{$tag}) {
|
363
368
|
$$has{orient} = 1;
|
364
369
|
} elsif ($tag eq 'alt') {
|
@@ -375,7 +380,11 @@ sub LoadTrackLog($$;$)
|
|
375
380
|
$td = 1;
|
376
381
|
}
|
377
382
|
# validate and store GPS fix
|
378
|
-
next unless defined $$fix{lat} and defined $$fix{lon}
|
383
|
+
next unless defined $$fix{lat} and defined $$fix{lon};
|
384
|
+
unless (defined $$fix{'time'}) {
|
385
|
+
next unless @saveTime;
|
386
|
+
$$fix{'time'} = shift @saveTime; # get next time in flightaware KML list
|
387
|
+
}
|
379
388
|
unless ($$fix{lat} =~ /^[+-]?\d+\.?\d*/ and $$fix{lon} =~ /^[+-]?\d+\.?\d*/) {
|
380
389
|
$e0 or $et->VPrint(0, "Coordinate format error in $from\n"), $e0 = 1;
|
381
390
|
next;
|
@@ -1452,7 +1461,7 @@ user-defined tag GPSRoll, must be active.
|
|
1452
1461
|
|
1453
1462
|
=head1 AUTHOR
|
1454
1463
|
|
1455
|
-
Copyright 2003-
|
1464
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
1456
1465
|
|
1457
1466
|
This library is free software; you can redistribute it and/or modify it
|
1458
1467
|
under the same terms as Perl itself.
|
@@ -733,7 +733,7 @@ metadata from GoPro MP4 videos.
|
|
733
733
|
|
734
734
|
=head1 AUTHOR
|
735
735
|
|
736
|
-
Copyright 2003-
|
736
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
737
737
|
|
738
738
|
This library is free software; you can redistribute it and/or modify it
|
739
739
|
under the same terms as Perl itself.
|
@@ -1123,7 +1123,7 @@ information from H.264 video streams.
|
|
1123
1123
|
|
1124
1124
|
=head1 AUTHOR
|
1125
1125
|
|
1126
|
-
Copyright 2003-
|
1126
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
1127
1127
|
|
1128
1128
|
This library is free software; you can redistribute it and/or modify it
|
1129
1129
|
under the same terms as Perl itself.
|
@@ -250,7 +250,7 @@ Hewlett-Packard maker notes.
|
|
250
250
|
|
251
251
|
=head1 AUTHOR
|
252
252
|
|
253
|
-
Copyright 2003-
|
253
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
254
254
|
|
255
255
|
This library is free software; you can redistribute it and/or modify it
|
256
256
|
under the same terms as Perl itself.
|
@@ -555,7 +555,7 @@ meta information from HTML documents.
|
|
555
555
|
|
556
556
|
=head1 AUTHOR
|
557
557
|
|
558
|
-
Copyright 2003-
|
558
|
+
Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
|
559
559
|
|
560
560
|
This library is free software; you can redistribute it and/or modify it
|
561
561
|
under the same terms as Perl itself.
|