exiftool_vendored 12.22.0 → 12.25.0

data/bin/config_files/cuepointlist.config

@@ -0,0 +1,70 @@
+#------------------------------------------------------------------------------
+# File:         cuepointlist.config
+#
+# Description:  ExifTool config file to generate list of cue points and labels
+#               in WAV audio files
+#
+# Usage:        exiftool -config cuepointlist.config -cuepointlist -b FILE
+#
+# Requires:     ExifTool version 12.25 or later
+#
+# Revisions:    2021-04-20 - P. Harvey Created
+#------------------------------------------------------------------------------
+
+%Image::ExifTool::UserDefined = (
+    'Image::ExifTool::Composite' => {
+        CuePointList => {
+            Require => {
+                0 => 'CuePoints',
+                1 => 'SampleRate',
+            },
+            Desire => {
+                2 => 'CuePointLabel',
+                3 => 'CuePointNotes',
+                4 => 'LabeledText',
+            },
+            ValueConv => q{
+                SetByteOrder('II');
+                my (%lbl, %rgn, %rtyp, %rlbl, %note, $pos, $i);
+                # get labels if available
+                for ($i=1; defined $val[2]; ++$i) {
+                    $lbl{$1} = $2 if $val[2] =~ /^(\d+) (.*)/ and length $2;
+                    $val[2] = $self->GetValue("CuePointLabel ($i)");
+                }
+                # get notes if available
+                for ($i=1; defined $val[3]; ++$i) {
+                    $note{$1} = $2 if $val[3] =~ /^(\d+) (.*)/ and length $2;
+                    $val[3] = $self->GetValue("CuePointNotes ($i)");
+                }
+                # get regions if available
+                for ($i=1; defined $val[4]; ++$i) {
+                    if ($val[4] =~ /^(\d+) (\d+) '(.*)' \d+ \d+ \d+ \d+ (.*)/) {
+                        $rgn{$1} = $2;
+                        $rtyp{$1} = $3;
+                        $rlbl{$1} = $4;
+                    }
+                    $val[4] = $self->GetValue("LabeledText ($i)");
+                }
+                my $buff = "Cue\tStart\tEnd\tLabel\tPurpose\tText\tNotes\n";
+                for ($pos=4; $pos+24<=length(${$val[0]}); $pos+=24) {
+                    my $n = Get32u($val[0], $pos);
+                    my $start = Get32u($val[0], $pos + 4);
+                    my (@lbl, $lbl);
+                    push @lbl, $lbl{$n} if defined $lbl{$n};
+                    push @lbl, $rlbl{$n} if defined $rlbl{$n};
+                    push @lbl, '-', $note{$n} if defined $note{$n};
+                    my $lbl = join ' ', @lbl;
+                    $buff .= sprintf("%d\t%.3f\t%.3f\t%s\t%s\t%s\t%s\n",
+                             $n, $start/$val[1], ($start+($rgn{$n}||0))/$val[1],
+                             defined($lbl{$n}) ? $lbl{$n} : '',
+                             defined($rtyp{$n}) ? $rtyp{$n} : '',
+                             defined($rlbl{$n}) ? $rlbl{$n} : '',
+                             defined($note{$n}) ? $note{$n} : '');
+                }
+                return $buff;
+            },
+        },
+    },
+);
+
+1; # end

data/bin/exiftool

@@ -10,7 +10,7 @@
 use strict;
 require 5.004;
 
-my $version = '12.22';
+my $version = '12.25';
 
 # add our 'lib' directory to the include list BEFORE 'use Image::ExifTool'
 my $exeDir;
@@ -286,6 +286,7 @@ my @recommends = qw(
     Digest::SHA
     IO::Compress::Bzip2
     POSIX::strptime
+    Time::Local
     Unicode::LineBreak
     IO::Compress::RawDeflate
     IO::Uncompress::RawInflate
@@ -2279,7 +2280,7 @@ TAG:    foreach $tag (@foundTags) {
                 }
                 $val = ConvertBinary($val); # convert SCALAR references
                 next unless defined $val;
-                if ($structOpt) {
+                if ($structOpt and ref $val) {
                     # serialize structure if necessary
                     $val = Image::ExifTool::XMP::SerializeStruct($val) unless $xml or $json;
                 } elsif (ref $val eq 'ARRAY') {
@@ -4468,47 +4469,47 @@ supported by ExifTool (r = read, w = write, c = create):
 
   File Types
   ------------+-------------+-------------+-------------+------------
-  360   r/w   | DPX   r     | ITC   r     | ODP   r     | RIFF  r
-  3FR   r     | DR4   r/w/c | J2C   r     | ODS   r     | RSRC  r
-  3G2   r/w   | DSS   r     | JNG   r/w   | ODT   r     | RTF   r
-  3GP   r/w   | DV    r     | JP2   r/w   | OFR   r     | RW2   r/w
-  A     r     | DVB   r/w   | JPEG  r/w   | OGG   r     | RWL   r/w
-  AA    r     | DVR-MS r    | JSON  r     | OGV   r     | RWZ   r
-  AAE   r     | DYLIB r     | K25   r     | ONP   r     | RM    r
-  AAX   r/w   | EIP   r     | KDC   r     | OPUS  r     | SEQ   r
-  ACR   r     | EPS   r/w   | KEY   r     | ORF   r/w   | SKETCH r
-  AFM   r     | EPUB  r     | LA    r     | OTF   r     | SO    r
-  AI    r/w   | ERF   r/w   | LFP   r     | PAC   r     | SR2   r/w
-  AIFF  r     | EXE   r     | LNK   r     | PAGES r     | SRF   r
-  APE   r     | EXIF  r/w/c | LRV   r/w   | PBM   r/w   | SRW   r/w
-  ARQ   r/w   | EXR   r     | M2TS  r     | PCD   r     | SVG   r
-  ARW   r/w   | EXV   r/w/c | M4A/V r/w   | PCX   r     | SWF   r
-  ASF   r     | F4A/V r/w   | MACOS r     | PDB   r     | THM   r/w
-  AVI   r     | FFF   r/w   | MAX   r     | PDF   r/w   | TIFF  r/w
-  AVIF  r/w   | FITS  r     | MEF   r/w   | PEF   r/w   | TORRENT r
-  AZW   r     | FLA   r     | MIE   r/w/c | PFA   r     | TTC   r
-  BMP   r     | FLAC  r     | MIFF  r     | PFB   r     | TTF   r
-  BPG   r     | FLIF  r/w   | MKA   r     | PFM   r     | TXT   r
-  BTF   r     | FLV   r     | MKS   r     | PGF   r     | VCF   r
-  CHM   r     | FPF   r     | MKV   r     | PGM   r/w   | VRD   r/w/c
-  COS   r     | FPX   r     | MNG   r/w   | PLIST r     | VSD   r
-  CR2   r/w   | GIF   r/w   | MOBI  r     | PICT  r     | WAV   r
-  CR3   r/w   | GPR   r/w   | MODD  r     | PMP   r     | WDP   r/w
-  CRM   r/w   | GZ    r     | MOI   r     | PNG   r/w   | WEBP  r
-  CRW   r/w   | HDP   r/w   | MOS   r/w   | PPM   r/w   | WEBM  r
-  CS1   r/w   | HDR   r     | MOV   r/w   | PPT   r     | WMA   r
-  CSV   r     | HEIC  r/w   | MP3   r     | PPTX  r     | WMV   r
-  CZI   r     | HEIF  r/w   | MP4   r/w   | PS    r/w   | WTV   r
-  DCM   r     | HTML  r     | MPC   r     | PSB   r/w   | WV    r
-  DCP   r/w   | ICC   r/w/c | MPG   r     | PSD   r/w   | X3F   r/w
-  DCR   r     | ICS   r     | MPO   r/w   | PSP   r     | XCF   r
-  DFONT r     | IDML  r     | MQV   r/w   | QTIF  r/w   | XLS   r
-  DIVX  r     | IIQ   r/w   | MRW   r/w   | R3D   r     | XLSX  r
-  DJVU  r     | IND   r/w   | MXF   r     | RA    r     | XMP   r/w/c
-  DLL   r     | INSP  r/w   | NEF   r/w   | RAF   r/w   | ZIP   r
-  DNG   r/w   | INSV  r     | NRW   r/w   | RAM   r     |
-  DOC   r     | INX   r     | NUMBERS r   | RAR   r     |
-  DOCX  r     | ISO   r     | O     r     | RAW   r/w   |
+  360   r/w   | DPX   r     | ITC   r     | NUMBERS r   | RAM   r
+  3FR   r     | DR4   r/w/c | J2C   r     | O     r     | RAR   r
+  3G2   r/w   | DSS   r     | JNG   r/w   | ODP   r     | RAW   r/w
+  3GP   r/w   | DV    r     | JP2   r/w   | ODS   r     | RIFF  r
+  A     r     | DVB   r/w   | JPEG  r/w   | ODT   r     | RSRC  r
+  AA    r     | DVR-MS r    | JSON  r     | OFR   r     | RTF   r
+  AAE   r     | DYLIB r     | JXL   r     | OGG   r     | RW2   r/w
+  AAX   r/w   | EIP   r     | K25   r     | OGV   r     | RWL   r/w
+  ACR   r     | EPS   r/w   | KDC   r     | ONP   r     | RWZ   r
+  AFM   r     | EPUB  r     | KEY   r     | OPUS  r     | RM    r
+  AI    r/w   | ERF   r/w   | LA    r     | ORF   r/w   | SEQ   r
+  AIFF  r     | EXE   r     | LFP   r     | ORI   r/w   | SKETCH r
+  APE   r     | EXIF  r/w/c | LNK   r     | OTF   r     | SO    r
+  ARQ   r/w   | EXR   r     | LRV   r/w   | PAC   r     | SR2   r/w
+  ARW   r/w   | EXV   r/w/c | M2TS  r     | PAGES r     | SRF   r
+  ASF   r     | F4A/V r/w   | M4A/V r/w   | PBM   r/w   | SRW   r/w
+  AVI   r     | FFF   r/w   | MACOS r     | PCD   r     | SVG   r
+  AVIF  r/w   | FITS  r     | MAX   r     | PCX   r     | SWF   r
+  AZW   r     | FLA   r     | MEF   r/w   | PDB   r     | THM   r/w
+  BMP   r     | FLAC  r     | MIE   r/w/c | PDF   r/w   | TIFF  r/w
+  BPG   r     | FLIF  r/w   | MIFF  r     | PEF   r/w   | TORRENT r
+  BTF   r     | FLV   r     | MKA   r     | PFA   r     | TTC   r
+  CHM   r     | FPF   r     | MKS   r     | PFB   r     | TTF   r
+  COS   r     | FPX   r     | MKV   r     | PFM   r     | TXT   r
+  CR2   r/w   | GIF   r/w   | MNG   r/w   | PGF   r     | VCF   r
+  CR3   r/w   | GPR   r/w   | MOBI  r     | PGM   r/w   | VRD   r/w/c
+  CRM   r/w   | GZ    r     | MODD  r     | PLIST r     | VSD   r
+  CRW   r/w   | HDP   r/w   | MOI   r     | PICT  r     | WAV   r
+  CS1   r/w   | HDR   r     | MOS   r/w   | PMP   r     | WDP   r/w
+  CSV   r     | HEIC  r/w   | MOV   r/w   | PNG   r/w   | WEBP  r
+  CZI   r     | HEIF  r/w   | MP3   r     | PPM   r/w   | WEBM  r
+  DCM   r     | HTML  r     | MP4   r/w   | PPT   r     | WMA   r
+  DCP   r/w   | ICC   r/w/c | MPC   r     | PPTX  r     | WMV   r
+  DCR   r     | ICS   r     | MPG   r     | PS    r/w   | WTV   r
+  DFONT r     | IDML  r     | MPO   r/w   | PSB   r/w   | WV    r
+  DIVX  r     | IIQ   r/w   | MQV   r/w   | PSD   r/w   | X3F   r/w
+  DJVU  r     | IND   r/w   | MRC   r     | PSP   r     | XCF   r
+  DLL   r     | INSP  r/w   | MRW   r/w   | QTIF  r/w   | XLS   r
+  DNG   r/w   | INSV  r     | MXF   r     | R3D   r     | XLSX  r
+  DOC   r     | INX   r     | NEF   r/w   | RA    r     | XMP   r/w/c
+  DOCX  r     | ISO   r     | NRW   r/w   | RAF   r/w   | ZIP   r
 
   Meta Information
   ----------------------+----------------------+---------------------
@@ -5392,7 +5393,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 12.22 --
+    -- Generated by ExifTool 12.25 --
     File: a.jpg - 2003:10:31 15:44:19
     (f/5.6, 1/60s, ISO 100)
     File: b.jpg - 2006:05:23 11:57:38

data/bin/lib/Image/ExifTool.pm

@@ -28,7 +28,7 @@ use vars qw($VERSION $RELEASE @ISA @EXPORT_OK %EXPORT_TAGS $AUTOLOAD @fileTypes
             %mimeType $swapBytes $swapWords $currentByteOrder %unpackStd
             %jpegMarker %specialTags %fileTypeLookup $testLen $exePath);
 
-$VERSION = '12.22';
+$VERSION = '12.25';
 $RELEASE = '';
 @ISA = qw(Exporter);
 %EXPORT_TAGS = (
@@ -138,18 +138,18 @@ sub ReadValue($$$;$$$);
 @loadAllTables = qw(
     PhotoMechanic Exif GeoTiff CanonRaw KyoceraRaw Lytro MinoltaRaw PanasonicRaw
     SigmaRaw JPEG GIMP Jpeg2000 GIF BMP BMP::OS2 BMP::Extra BPG BPG::Extensions
-    PICT PNG MNG FLIF DjVu DPX OpenEXR ZISRAW MIFF PCX PGF PSP PhotoCD Radiance
-    PDF PostScript Photoshop::Header Photoshop::Layers Photoshop::ImageData
-    FujiFilm::RAF FujiFilm::IFD Samsung::Trailer Sony::SRF2 Sony::SR2SubIFD
-    Sony::PMP ITC ID3 ID3::Lyrics3 FLAC Ogg Vorbis APE APE::NewHeader
-    APE::OldHeader Audible MPC MPEG::Audio MPEG::Video MPEG::Xing M2TS QuickTime
-    QuickTime::ImageFile QuickTime::Stream QuickTime::Tags360Fly Matroska MOI
-    MXF DV Flash Flash::FLV Real::Media Real::Audio Real::Metafile Red RIFF AIFF
-    ASF WTV DICOM FITS MIE JSON HTML XMP::SVG Palm Palm::MOBI Palm::EXTH Torrent
-    EXE EXE::PEVersion EXE::PEString EXE::MachO EXE::PEF EXE::ELF EXE::AR
-    EXE::CHM LNK Font VCard Text VCard::VCalendar RSRC Rawzor ZIP ZIP::GZIP
-    ZIP::RAR RTF OOXML iWork ISO FLIR::AFF FLIR::FPF MacOS MacOS::MDItem
-    FlashPix::DocTable
+    PICT PNG MNG FLIF DjVu DPX OpenEXR ZISRAW MRC MRC::FEI12 MIFF PCX PGF PSP
+    PhotoCD Radiance PDF PostScript Photoshop::Header Photoshop::Layers
+    Photoshop::ImageData FujiFilm::RAF FujiFilm::IFD Samsung::Trailer Sony::SRF2
+    Sony::SR2SubIFD Sony::PMP ITC ID3 ID3::Lyrics3 FLAC Ogg Vorbis APE
+    APE::NewHeader APE::OldHeader Audible MPC MPEG::Audio MPEG::Video MPEG::Xing
+    M2TS QuickTime QuickTime::ImageFile QuickTime::Stream QuickTime::Tags360Fly
+    Matroska MOI MXF DV Flash Flash::FLV Real::Media Real::Audio Real::Metafile
+    Red RIFF AIFF ASF WTV DICOM FITS MIE JSON HTML XMP::SVG Palm Palm::MOBI
+    Palm::EXTH Torrent EXE EXE::PEVersion EXE::PEString EXE::MachO EXE::PEF
+    EXE::ELF EXE::AR EXE::CHM LNK Font VCard Text VCard::VCalendar RSRC Rawzor
+    ZIP ZIP::GZIP ZIP::RAR RTF OOXML iWork ISO FLIR::AFF FLIR::FPF MacOS
+    MacOS::MDItem FlashPix::DocTable
 );
 
 # alphabetical list of current Lang modules
@@ -189,12 +189,12 @@ $defaultLang = 'en';    # default language
                 FLAC APE MPC MKV MXF DV PMP IND PGF ICC ITC FLIR FLIF FPF LFP
                 HTML VRD RTF FITS XCF DSS QTIF FPX PICT ZIP GZIP PLIST RAR BZ2
                 CZI TAR  EXE EXR HDR CHM LNK WMF AVC DEX DPX RAW Font RSRC M2TS
-                MacOS PHP PCX DCX DWF DWG WTV Torrent VCard LRI R3D AA PDB MOI
-                ISO ALIAS JSON MP3 DICOM PCD TXT);
+                MacOS PHP PCX DCX DWF DWG DXF WTV Torrent VCard LRI R3D AA PDB
+                MRC JXL MOI ISO ALIAS JSON MP3 DICOM PCD TXT);
 
 # file types that we can write (edit)
 my @writeTypes = qw(JPEG TIFF GIF CRW MRW ORF RAF RAW PNG MIE PSD XMP PPM EPS
-                    X3F PS PDF ICC VRD DR4 JP2 EXIF AI AIT IND MOV EXV FLIF);
+                    X3F PS PDF ICC VRD DR4 JP2 JXL EXIF AI AIT IND MOV EXV FLIF);
 my %writeTypes; # lookup for writable file types (hash filled if required)
 
 # file extensions that we can't write for various base types
@@ -292,6 +292,7 @@ my %createTypes = map { $_ => 1 } qw(XMP ICC MIE VRD DR4 EXIF EXV);
     DWF  => ['DWF',  'Autodesk drawing (Design Web Format)'],
     DWG  => ['DWG',  'AutoCAD Drawing'],
     DYLIB=> ['EXE',  'Mach-O Dynamic Link Library'],
+    DXF  => ['DXF',  'AutoCAD Drawing Exchange Format'],
     EIP  => ['ZIP',  'Capture One Enhanced Image Package'],
     EPS  => ['EPS',  'Encapsulated PostScript Format'],
     EPS2 =>  'EPS',
@@ -355,6 +356,7 @@ my %createTypes = map { $_ => 1 } qw(XMP ICC MIE VRD DR4 EXIF EXV);
     JPM  => ['JP2',  'JPEG 2000 compound image'],
     JPX  => ['JP2',  'JPEG 2000 with extensions'],
     JSON => ['JSON', 'JavaScript Object Notation'],
+    JXL  => ['JXL',  'JPEG XL'],
     JXR  => ['TIFF', 'JPEG XR'],
     K25  => ['TIFF', 'Kodak DC25 RAW'],
     KDC  => ['TIFF', 'Kodak Digital Camera RAW'],
@@ -394,6 +396,7 @@ my %createTypes = map { $_ => 1 } qw(XMP ICC MIE VRD DR4 EXIF EXV);
     MPG  =>  'MPEG',
     MPO  => ['JPEG', 'Extended Multi-Picture format'],
     MQV  => ['MOV',  'Sony Mobile Quicktime Video'],
+    MRC  => ['MRC',  'Medical Research Council image'],
     MRW  => ['MRW',  'Minolta RAW format'],
     MTS  =>  'M2TS',
     MXF  => ['MXF',  'Material Exchange Format'],
@@ -418,6 +421,7 @@ my %createTypes = map { $_ => 1 } qw(XMP ICC MIE VRD DR4 EXIF EXV);
     ONP  => ['JSON', 'ON1 Presets'],
     OPUS => ['OGG',  'Ogg Opus audio file'],
     ORF  => ['ORF',  'Olympus RAW format'],
+    ORI  =>  'ORF',
     OTF  => ['Font', 'Open Type Font'],
     PAC  => ['RIFF', 'Lossless Predictive Audio Compression'],
     PAGES => ['ZIP', 'Apple Pages document'],
@@ -614,6 +618,7 @@ my %fileDescription = (
    'DVR-MS' => 'video/x-ms-dvr',
     DWF  => 'model/vnd.dwf',
     DWG  => 'image/vnd.dwg',
+    DXF  => 'application/dxf',
     EIP  => 'application/x-captureone', #(NC)
     EPS  => 'application/postscript',
     ERF  => 'image/x-epson-erf',
@@ -651,6 +656,7 @@ my %fileDescription = (
     JPM  => 'image/jpm',
     JPX  => 'image/jpx',
     JSON => 'application/json',
+    JXL  => 'image/jxl', #PH (NC)
     JXR  => 'image/jxr',
     K25  => 'image/x-kodak-k25',
     KDC  => 'image/x-kodak-kdc',
@@ -676,6 +682,7 @@ my %fileDescription = (
     MP4  => 'video/mp4',
     MPC  => 'audio/x-musepack',
     MPEG => 'video/mpeg',
+    MRC  => 'image/x-mrc',
     MRW  => 'image/x-minolta-mrw',
     MXF  => 'application/mxf',
     NEF  => 'image/x-nikon-nef',
@@ -800,6 +807,7 @@ my %moduleName = (
     DSS  => 'Olympus',
     DWF  => 0,
     DWG  => 0,
+    DXF  => 0,
     EPS  => 'PostScript',
     EXIF => '',
     EXR  => 'OpenEXR',
@@ -813,6 +821,7 @@ my %moduleName = (
     HDR  => 'Radiance',
     JP2  => 'Jpeg2000',
     JPEG => '',
+    JXL  => 'Jpeg2000',
     LFP  => 'Lytro',
     LRI  => 0,
     MOV  => 'QuickTime',
@@ -874,6 +883,7 @@ $testLen = 1024;    # number of bytes to read when testing for magic number
     DV   => '\x1f\x07\0[\x3f\xbf]', # (not tested if extension recognized)
     DWF  => '\(DWF V\d',
     DWG  => 'AC10\d{2}\0',
+    DXF  => '\s*0\s+\0?\s*SECTION\s+2\s+HEADER',
     EPS  => '(%!PS|%!Ad|\xc5\xd0\xd3\xc6)',
     EXE  => '(MZ|\xca\xfe\xba\xbe|\xfe\xed\xfa[\xce\xcf]|[\xce\xcf]\xfa\xed\xfe|Joy!peff|\x7fELF|#!\s*/\S*bin/|!<arch>\x0a)',
     EXIF => '(II\x2a\0|MM\0\x2a)',
@@ -899,6 +909,7 @@ $testLen = 1024;    # number of bytes to read when testing for magic number
     JP2  => '(\0\0\0\x0cjP(  |\x1a\x1a)\x0d\x0a\x87\x0a|\xff\x4f\xff\x51\0)',
     JPEG => '\xff\xd8\xff',
     JSON => '(\xef\xbb\xbf)?\s*(\[\s*)?\{\s*"[^"]*"\s*:',
+    JXL  => '\xff\x0a|\0\0\0\x0cJXL \x0d\x0a......ftypjxl ',
     LFP  => '\x89LFP\x0d\x0a\x1a\x0a',
     LNK  => '.{4}\x01\x14\x02\0{5}\xc0\0{6}\x46',
     LRI  => 'LELR \0',
@@ -911,6 +922,7 @@ $testLen = 1024;    # number of bytes to read when testing for magic number
     MPC  => '(MP\+|ID3)',
     MOI  => 'V6',
     MPEG => '\0\0\x01[\xb0-\xbf]',
+    MRC  => '.{64}[\x01\x02\x03]\0\0\0[\x01\x02\x03]\0\0\0[\x01\x02\x03]\0\0\0.{132}MAP[\0 ](\x44\x44|\x44\x41|\x11\x11)\0\0',
     MRW  => '\0MR[MI]',
     MXF  => '\x06\x0e\x2b\x34\x02\x05\x01\x01\x0d\x01\x02', # (not tested if extension recognized)
     OGG  => '(OggS|ID3)',
@@ -1756,7 +1768,10 @@ my %systemTagsNotes = (
     EmbeddedVideo => { Groups => { 0 => 'Trailer', 2 => 'Video' } },
     Trailer => {
         Groups => { 0 => 'Trailer' },
-        Notes => 'the full JPEG trailer data block.  Extracted only if specifically requested',
+        Notes => q{
+            the full JPEG trailer data block.  Extracted only if specifically requested
+            or the RequestAll API option is set to 3 or higher
+        },
         Writable => 1,
         Protected => 1,
     },
@@ -6120,9 +6135,10 @@ sub ProcessJPEG($$)
     my $out = $$options{TextOut};
     my $fast = $$options{FastScan} || 0;
     my $raf = $$dirInfo{RAF};
+    my $req = $$self{REQ_TAG_LOOKUP};
     my $htmlDump = $$self{HTML_DUMP};
     my %dumpParms = ( Out => $out );
-    my ($success, $wantTrailer, $trailInfo, $foundSOS);
+    my ($success, $wantTrailer, $trailInfo, $foundSOS, %jumbfChunk);
     my (@iccChunk, $iccChunkCount, $iccChunksTotal, @flirChunk, $flirCount, $flirTotal);
     my ($preview, $scalado, @dqt, $subSampling, $dumpEnd, %extendedXMP);
 
@@ -6133,7 +6149,7 @@ sub ProcessJPEG($$)
         $$self{FILE_TYPE} = 'EXV';
     }
     my $appBytes = 0;
-    my $calcImageLen = $$self{REQ_TAG_LOOKUP}{jpegimagelength};
+    my $calcImageLen = $$req{jpegimagelength};
     if ($$options{RequestAll} and $$options{RequestAll} > 2) {
         $calcImageLen = 1;
     }
@@ -6267,7 +6283,7 @@ sub ProcessJPEG($$)
             } else {
                 $self->Warn('Missing JPEG SOS');
             }
-            if ($$self{REQ_TAG_LOOKUP}{trailer}) {
+            if ($$req{trailer}) {
                 # read entire trailer into memory
                 if ($raf->Seek(0,2)) {
                     my $len = $raf->Tell() - $pos;
@@ -6401,7 +6417,7 @@ sub ProcessJPEG($$)
                 next if $trailInfo or $wantTrailer or $verbose > 2 or $htmlDump;
             }
             # must scan to EOI if Validate or JpegCompressionFactor used
-            next if $$options{Validate} or $calcImageLen or $$self{REQ_TAG_LOOKUP}{trailer};
+            next if $$options{Validate} or $calcImageLen or $$req{trailer};
             # nothing interesting to parse after start of scan (SOS)
             $success = 1;
             last;   # all done parsing file
@@ -6421,7 +6437,7 @@ sub ProcessJPEG($$)
             #  must use the RequestTags option to generate these tags if they have not been
             #  specifically requested.  The reason is that there is too much overhead involved
             #  in the calculation of this tag to make this worth the CPU time.)
-            ($$self{REQ_TAG_LOOKUP}{jpegdigest} or $$self{REQ_TAG_LOOKUP}{jpegqualityestimate}
+            ($$req{jpegdigest} or $$req{jpegqualityestimate}
             or ($$options{RequestAll} and $$options{RequestAll} > 2)))
         {
             my $num = unpack('C',$$segDataPt) & 0x0f;   # get table index
@@ -6539,7 +6555,7 @@ sub ProcessJPEG($$)
                 }
                 if ($start and $plen and IsInt($start) and IsInt($plen) and
                     $start + $plen > $$self{EXIF_POS} + length($$self{EXIF_DATA}) and
-                    ($$self{REQ_TAG_LOOKUP}{previewimage} or
+                    ($$req{previewimage} or
                     # (extracted normally, so check Binary option)
                     ($$options{Binary} and not $$self{EXCL_TAG_LOOKUP}{previewimage})))
                 {
@@ -6934,7 +6950,7 @@ sub ProcessJPEG($$)
                 # (with number of elements N = ImageHeight / 16 - 1, ref PH/NealKrawetz)
                 $xtra = 'segment (N=' . unpack('x6N', $$segDataPt) . ')';
             }
-        } elsif ($marker == 0xeb) {         # APP11 (JPEG-HDR)
+        } elsif ($marker == 0xeb) {         # APP11 (JPEG-HDR, JUMBF)
             if ($$segDataPt =~ /^HDR_RI /) {
                 $dumpType = 'JPEG-HDR';
                 my $dataPt = $segDataPt;
@@ -6954,6 +6970,47 @@ sub ProcessJPEG($$)
                     $self->ProcessDirectory(\%dirInfo, $tagTablePtr);
                     undef $combinedSegData;
                 }
+            } elsif ($$segDataPt =~ /^(JP..)/s and length($$segDataPt) >= 16) {
+                # JUMBF extension marker
+                my $hdr = $1;
+                $dumpType = 'JUMBF';
+                SetByteOrder('MM');
+                my $seq = Get32u($segDataPt, 4) - 1; # (start from 0)
+                my $len = Get32u($segDataPt, 8);
+                my $type = substr($$segDataPt, 12, 4);
+                my $hdrLen;
+                if ($len == 1 and length($$segDataPt) >= 24) {
+                    $len = Get64u($$segDataPt, 16);
+                    $hdrLen = 16;
+                } else {
+                    $hdrLen = 8;
+                }
+                $jumbfChunk{$type} or $jumbfChunk{$type} = [ ];
+                if ($len < $hdrLen) {
+                    $self->Warn('Invalid JUMBF segment');
+                } elsif ($seq < 0) {
+                    $self->Warn('Invalid JUMBF sequence number');
+                } elsif (defined $jumbfChunk{$type}[$seq]) {
+                    $self->Warn('Duplicate JUMBF sequence number');
+                } else {
+                    # add to list of JUMBF chunks
+                    $jumbfChunk{$type}[$seq] = substr($$segDataPt, 8 + $hdrLen);
+                    # check to see if we have a complete JUMBF box
+                    my $size = $hdrLen;
+                    foreach (@{$jumbfChunk{$type}}) {
+                        defined $_ or $size = 0, last;
+                        $size += length $_;
+                    }
+                    if ($size == $len) {
+                        my $buff = join '', substr($$segDataPt,8,$hdrLen), @{$jumbfChunk{$type}};
+                        $dirInfo{DataPt} = \$buff;
+                        $dirInfo{DataPos} = $segPos + 8; # (shows correct offsets for single-segment JUMBF)
+                        $dirInfo{DataLen} = $dirInfo{DirLen} = $size;
+                        my $tagTablePtr = GetTagTable('Image::ExifTool::Jpeg2000::Main');
+                        $self->ProcessDirectory(\%dirInfo, $tagTablePtr);
+                        delete $jumbfChunk{$type};
+                    }
+                }
             }
         } elsif ($marker == 0xec) {         # APP12 (Ducky, Picture Info)
             if ($$segDataPt =~ /^Ducky/) {
@@ -7005,7 +7062,7 @@ sub ProcessJPEG($$)
         } elsif ($marker == 0xee) {         # APP14 (Adobe)
             if ($$segDataPt =~ /^Adobe/) {
                 # extract as a block if requested, or if copying tags from file
-                if ($$self{REQ_TAG_LOOKUP}{adobe} or
+                if ($$req{adobe} or
                     # (not extracted normally, so check TAGS_FROM_FILE)
                     ($$self{TAGS_FROM_FILE} and not $$self{EXCL_TAG_LOOKUP}{adobe}))
                 {
@@ -7108,6 +7165,7 @@ sub ProcessJPEG($$)
         Image::ExifTool::JPEGDigest::Calculate($self, \@dqt, $subSampling);
     }
     # issue necessary warnings
+    $self->Warn('Invalid JUMBF size or missing JUMBF chunk') if %jumbfChunk;
     $self->Warn('Incomplete ICC_Profile record', 1) if defined $iccChunkCount;
     $self->Warn('Incomplete FLIR record', 1) if defined $flirCount;
     $self->Warn('Error reading PreviewImage', 1) if $$self{PreviewError};
@@ -7776,7 +7834,8 @@ sub GetTagInfo($$$;$$$)
             }
         }
         if ($$tagInfo{Unknown} and not $$self{OPTIONS}{Unknown} and
-            not $$self{OPTIONS}{Verbose} and not $$self{HTML_DUMP})
+            not $$self{OPTIONS}{Verbose} and not $$self{OPTIONS}{Validate} and
+            not $$self{HTML_DUMP})
         {
             # don't return Unknown tags unless that option is set
             return undef;