#------------------------------------------------------------------------------ # File: XMP.pm # # Description: Read XMP meta information # # Revisions: 11/25/2003 - P. Harvey Created # 10/28/2004 - P. Harvey Major overhaul to conform with XMP spec # 02/27/2005 - P. Harvey Also read UTF-16 and UTF-32 XMP # 08/30/2005 - P. Harvey Split tag tables into separate namespaces # 10/24/2005 - P. Harvey Added ability to parse .XMP files # 08/25/2006 - P. Harvey Added ability to handle blank nodes # 08/22/2007 - P. Harvey Added ability to handle alternate language tags # 09/26/2008 - P. Harvey Added Iptc4xmpExt tags (version 1.0 rev 2) # # References: 1) http://www.adobe.com/products/xmp/pdfs/xmpspec.pdf # 2) http://www.w3.org/TR/rdf-syntax-grammar/ (20040210) # 3) http://www.portfoliofaq.com/pfaq/v7mappings.htm # 4) http://www.iptc.org/IPTC4XMP/ # 5) http://creativecommons.org/technology/xmp # --> changed to http://wiki.creativecommons.org/Companion_File_metadata_specification (2007/12/21) # 6) http://www.optimasc.com/products/fileid/xmp-extensions.pdf # 7) Lou Salkind private communication # 8) http://partners.adobe.com/public/developer/en/xmp/sdk/XMPspecification.pdf # 9) http://www.w3.org/TR/SVG11/ # 10) http://www.adobe.com/devnet/xmp/pdfs/XMPSpecificationPart2.pdf (Oct 2008) # 11) http://www.extensis.com/en/support/kb_article.jsp?articleNumber=6102211 # 12) http://www.cipa.jp/std/documents/e/DC-010-2012_E.pdf # 13) http://www.cipa.jp/std/documents/e/DC-010-2017_E.pdf # # Notes: - Property qualifiers are handled as if they were separate # properties (with no associated namespace). # # - Currently, there is no special treatment of the following # properties which could potentially affect the extracted # information: xml:base, rdf:parseType (note that parseType # Literal isn't allowed by the XMP spec). # # - The family 2 group names will be set to 'Unknown' for any XMP # tags not found in the XMP or Exif tag tables. #------------------------------------------------------------------------------ package Image::ExifTool::XMP; use strict; use vars qw($VERSION $AUTOLOAD @ISA @EXPORT_OK %stdXlatNS %nsURI %latConv %longConv %dateTimeInfo %xmpTableDefaults %specialStruct %sDimensions %sArea %sColorant); use Image::ExifTool qw(:Utils); use Image::ExifTool::Exif; use Image::ExifTool::GPS; require Exporter; $VERSION = '3.17'; @ISA = qw(Exporter); @EXPORT_OK = qw(EscapeXML UnescapeXML); sub ProcessXMP($$;$); sub WriteXMP($$;$); sub CheckXMP($$$); sub ParseXMPElement($$$;$$$$); sub DecodeBase64($); sub EncodeBase64($;$); sub SaveBlankInfo($$$;$); sub ProcessBlankInfo($$$;$); sub ValidateXMP($;$); sub ValidateProperty($$); sub UnescapeChar($$); sub AddFlattenedTags($;$$); sub FormatXMPDate($); sub ConvertRational($); sub ConvertRationalList($); # lookup for translating to ExifTool namespaces (and family 1 group names) %stdXlatNS = ( # shorten ugly namespace prefixes 'Iptc4xmpCore' => 'iptcCore', 'Iptc4xmpExt' => 'iptcExt', 'photomechanic'=> 'photomech', 'MicrosoftPhoto' => 'microsoft', 'prismusagerights' => 'pur', 'GettyImagesGIFT' => 'getty', ); # translate ExifTool XMP family 1 group names back to standard XMP namespace prefixes my %xmpNS = ( 'iptcCore' => 'Iptc4xmpCore', 'iptcExt' => 'Iptc4xmpExt', 'photomech'=> 'photomechanic', 'microsoft' => 'MicrosoftPhoto', 'getty' => 'GettyImagesGIFT', # (prism changed their spec to now use 'pur') # 'pur' => 'prismusagerights', ); # Lookup to translate standard XMP namespace prefixes into URI's. This list # need not be complete, but it must contain an entry for each namespace prefix # (NAMESPACE) for writable tags in the XMP tables or in structures that doesn't # define a URI. Also, the namespace must be defined here for non-standard # namespace prefixes to be recognized. %nsURI = ( aux => 'http://ns.adobe.com/exif/1.0/aux/', album => 'http://ns.adobe.com/album/1.0/', cc => 'http://creativecommons.org/ns#', # changed 2007/12/21 - PH crs => 'http://ns.adobe.com/camera-raw-settings/1.0/', crss => 'http://ns.adobe.com/camera-raw-saved-settings/1.0/', dc => 'http://purl.org/dc/elements/1.1/', exif => 'http://ns.adobe.com/exif/1.0/', exifEX => 'http://cipa.jp/exif/1.0/', iX => 'http://ns.adobe.com/iX/1.0/', pdf => 'http://ns.adobe.com/pdf/1.3/', pdfx => 'http://ns.adobe.com/pdfx/1.3/', photoshop => 'http://ns.adobe.com/photoshop/1.0/', rdf => 'http://www.w3.org/1999/02/22-rdf-syntax-ns#', rdfs => 'http://www.w3.org/2000/01/rdf-schema#', stDim => 'http://ns.adobe.com/xap/1.0/sType/Dimensions#', stEvt => 'http://ns.adobe.com/xap/1.0/sType/ResourceEvent#', stFnt => 'http://ns.adobe.com/xap/1.0/sType/Font#', stJob => 'http://ns.adobe.com/xap/1.0/sType/Job#', stRef => 'http://ns.adobe.com/xap/1.0/sType/ResourceRef#', stVer => 'http://ns.adobe.com/xap/1.0/sType/Version#', stMfs => 'http://ns.adobe.com/xap/1.0/sType/ManifestItem#', tiff => 'http://ns.adobe.com/tiff/1.0/', 'x' => 'adobe:ns:meta/', xmpG => 'http://ns.adobe.com/xap/1.0/g/', xmpGImg => 'http://ns.adobe.com/xap/1.0/g/img/', xmp => 'http://ns.adobe.com/xap/1.0/', xmpBJ => 'http://ns.adobe.com/xap/1.0/bj/', xmpDM => 'http://ns.adobe.com/xmp/1.0/DynamicMedia/', xmpMM => 'http://ns.adobe.com/xap/1.0/mm/', xmpRights => 'http://ns.adobe.com/xap/1.0/rights/', xmpNote => 'http://ns.adobe.com/xmp/note/', xmpTPg => 'http://ns.adobe.com/xap/1.0/t/pg/', xmpidq => 'http://ns.adobe.com/xmp/Identifier/qual/1.0/', xmpPLUS => 'http://ns.adobe.com/xap/1.0/PLUS/', dex => 'http://ns.optimasc.com/dex/1.0/', mediapro => 'http://ns.iview-multimedia.com/mediapro/1.0/', expressionmedia => 'http://ns.microsoft.com/expressionmedia/1.0/', Iptc4xmpCore => 'http://iptc.org/std/Iptc4xmpCore/1.0/xmlns/', Iptc4xmpExt => 'http://iptc.org/std/Iptc4xmpExt/2008-02-29/', MicrosoftPhoto => 'http://ns.microsoft.com/photo/1.0', MP1 => 'http://ns.microsoft.com/photo/1.1', #PH (MP1 is fabricated) MP => 'http://ns.microsoft.com/photo/1.2/', MPRI => 'http://ns.microsoft.com/photo/1.2/t/RegionInfo#', MPReg => 'http://ns.microsoft.com/photo/1.2/t/Region#', lr => 'http://ns.adobe.com/lightroom/1.0/', DICOM => 'http://ns.adobe.com/DICOM/', 'drone-dji'=> 'http://www.dji.com/drone-dji/1.0/', svg => 'http://www.w3.org/2000/svg', et => 'http://ns.exiftool.ca/1.0/', # # namespaces defined in XMP2.pl: # plus => 'http://ns.useplus.org/ldf/xmp/1.0/', # (prism recommendations from http://www.prismstandard.org/specifications/3.0/Image_Guide_3.0.htm) prism => 'http://prismstandard.org/namespaces/basic/2.0/', prl => 'http://prismstandard.org/namespaces/prl/2.1/', pur => 'http://prismstandard.org/namespaces/prismusagerights/2.1/', pmi => 'http://prismstandard.org/namespaces/pmi/2.2/', prm => 'http://prismstandard.org/namespaces/prm/3.0/', acdsee => 'http://ns.acdsee.com/iptc/1.0/', digiKam => 'http://www.digikam.org/ns/1.0/', swf => 'http://ns.adobe.com/swf/1.0/', cell => 'http://developer.sonyericsson.com/cell/1.0/', aas => 'http://ns.apple.com/adjustment-settings/1.0/', 'mwg-rs' => 'http://www.metadataworkinggroup.com/schemas/regions/', 'mwg-kw' => 'http://www.metadataworkinggroup.com/schemas/keywords/', 'mwg-coll' => 'http://www.metadataworkinggroup.com/schemas/collections/', stArea => 'http://ns.adobe.com/xmp/sType/Area#', extensis => 'http://ns.extensis.com/extensis/1.0/', ics => 'http://ns.idimager.com/ics/1.0/', fpv => 'http://ns.fastpictureviewer.com/fpv/1.0/', creatorAtom=>'http://ns.adobe.com/creatorAtom/1.0/', 'apple-fi' => 'http://ns.apple.com/faceinfo/1.0/', GAudio => 'http://ns.google.com/photos/1.0/audio/', GImage => 'http://ns.google.com/photos/1.0/image/', GPano => 'http://ns.google.com/photos/1.0/panorama/', GSpherical=> 'http://ns.google.com/videos/1.0/spherical/', GDepth => 'http://ns.google.com/photos/1.0/depthmap/', GFocus => 'http://ns.google.com/photos/1.0/focus/', dwc => 'http://rs.tdwg.org/dwc/index.htm', GettyImagesGIFT => 'http://xmp.gettyimages.com/gift/1.0/', LImage => 'http://ns.leiainc.com/photos/1.0/image/', ); # build reverse namespace lookup my %uri2ns; { my $ns; foreach $ns (keys %nsURI) { $uri2ns{$nsURI{$ns}} = $ns; } } # conversions for GPS coordinates %latConv = ( ValueConv => 'Image::ExifTool::GPS::ToDegrees($val, 1)', ValueConvInv => 'Image::ExifTool::GPS::ToDMS($self, $val, 2, "N")', PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "N")', PrintConvInv => 'Image::ExifTool::GPS::ToDegrees($val, 1)', ); %longConv = ( ValueConv => 'Image::ExifTool::GPS::ToDegrees($val, 1)', ValueConvInv => 'Image::ExifTool::GPS::ToDMS($self, $val, 2, "E")', PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "E")', PrintConvInv => 'Image::ExifTool::GPS::ToDegrees($val, 1)', ); %dateTimeInfo = ( # NOTE: Do NOT put "Groups" here because Groups hash must not be common! Writable => 'date', Shift => 'Time', Validate => 'ValidateXMPDate($val)', PrintConv => '$self->ConvertDateTime($val)', PrintConvInv => '$self->InverseDateTime($val,undef,1)', ); # this conversion allows alternate language support for designated boolean tags my %boolConv = ( PrintConv => { OTHER => sub { # (inverse conversion is the same) my $val = shift; return 'False' if lc $val eq 'false'; return 'True' if lc $val eq 'true'; return $val; }, True => 'True', False => 'False', }, ); # XMP namespaces which we don't want to contribute to generated EXIF tag names # (Note: namespaces with non-standard prefixes aren't currently ignored) my %ignoreNamespace = ( 'x'=>1, rdf=>1, xmlns=>1, xml=>1, svg=>1, et=>1, office=>1 ); # XMP properties to ignore (set dynamically via dirInfo IgnoreProp) my %ignoreProp; # these are the attributes that we handle for properties that contain # sub-properties. Attributes for simple properties are easy, and we # just copy them over. These are harder since we don't store attributes # for properties without simple values. (maybe this will change...) # (special attributes are indicated by a list reference of tag information) my %recognizedAttrs = ( 'rdf:about' => [ 'Image::ExifTool::XMP::rdf', 'about', 'About' ], 'x:xmptk' => [ 'Image::ExifTool::XMP::x', 'xmptk', 'XMPToolkit' ], 'x:xaptk' => [ 'Image::ExifTool::XMP::x', 'xmptk', 'XMPToolkit' ], 'rdf:parseType' => 1, 'rdf:nodeID' => 1, 'et:toolkit' => 1, 'rdf:xmlns' => 1, # this is presumably the default namespace, which we currently ignore 'lastUpdate' => [ 'Image::ExifTool::XMP::XML', 'lastUpdate', 'LastUpdate' ], # found in XML from Sony ILCE-7S MP4 ); # special tags in structures below # NOTE: this lookup is duplicated in TagLookup.pm!! %specialStruct = ( STRUCT_NAME => 1, # [optional] name of structure NAMESPACE => 1, # [mandatory] namespace prefix used for fields of this structure NOTES => 1, # [optional] notes for documentation about this structure TYPE => 1, # [optional] rdf:type resource for struct (if used, the StructType flag # will be set automatically for all derived flattened tags when writing) GROUPS => 1, # [optional] specifies family group 2 name for the structure ); # XMP structures (each structure is similar to a tag table so we can # recurse through them in SetPropertyPath() as if they were tag tables) # The main differences between structure field information and tagInfo hashes are: # 1) Field information hashes do not contain Name, Groups or Table entries, and # 2) The TagID entry is optional, and is used only if the key in the structure hash # is different from the TagID (currently only true for alternate language fields) # 3) Field information hashes support a additional "Namespace" property. my %sResourceRef = ( STRUCT_NAME => 'ResourceRef', NAMESPACE => 'stRef', documentID => { }, instanceID => { }, manager => { }, managerVariant => { }, manageTo => { }, manageUI => { }, renditionClass => { }, renditionParams => { }, versionID => { }, # added Oct 2008 alternatePaths => { List => 'Seq' }, filePath => { }, fromPart => { }, lastModifyDate => { %dateTimeInfo, Groups => { 2 => 'Time' } }, maskMarkers => { PrintConv => { All => 'All', None => 'None' } }, partMapping => { }, toPart => { }, # added May 2010 originalDocumentID => { }, # (undocumented property written by Adobe InDesign) # added Aug 2016 (INDD again) lastURL => { }, linkForm => { }, linkCategory => { }, placedXResolution => { }, placedYResolution => { }, placedResolutionUnit => { }, ); my %sResourceEvent = ( STRUCT_NAME => 'ResourceEvent', NAMESPACE => 'stEvt', action => { }, instanceID => { }, parameters => { }, softwareAgent => { }, when => { %dateTimeInfo, Groups => { 2 => 'Time' } }, # added Oct 2008 changed => { }, ); my %sJobRef = ( STRUCT_NAME => 'JobRef', NAMESPACE => 'stJob', id => { }, name => { }, url => { }, ); my %sVersion = ( STRUCT_NAME => 'Version', NAMESPACE => 'stVer', comments => { }, event => { Struct => \%sResourceEvent }, modifier => { }, modifyDate => { %dateTimeInfo, Groups => { 2 => 'Time' } }, version => { }, ); my %sThumbnail = ( STRUCT_NAME => 'Thumbnail', NAMESPACE => 'xmpGImg', height => { Writable => 'integer' }, width => { Writable => 'integer' }, 'format' => { }, image => { Avoid => 1, Groups => { 2 => 'Preview' }, ValueConv => 'Image::ExifTool::XMP::DecodeBase64($val)', ValueConvInv => 'Image::ExifTool::XMP::EncodeBase64($val)', }, ); my %sPageInfo = ( STRUCT_NAME => 'PageInfo', NAMESPACE => 'xmpGImg', PageNumber => { Writable => 'integer', Namespace => 'xmpTPg' }, # override default namespace height => { Writable => 'integer' }, width => { Writable => 'integer' }, 'format' => { }, image => { Groups => { 2 => 'Preview' }, ValueConv => 'Image::ExifTool::XMP::DecodeBase64($val)', ValueConvInv => 'Image::ExifTool::XMP::EncodeBase64($val)', }, ); #my %sIdentifierScheme = ( # NAMESPACE => 'xmpidq', # Scheme => { }, # qualifier for xmp:Identifier only #); %sDimensions = ( STRUCT_NAME => 'Dimensions', NAMESPACE => 'stDim', w => { Writable => 'real' }, h => { Writable => 'real' }, unit => { }, ); %sArea = ( STRUCT_NAME => 'Area', NAMESPACE => 'stArea', 'x' => { Writable => 'real' }, 'y' => { Writable => 'real' }, w => { Writable => 'real' }, h => { Writable => 'real' }, d => { Writable => 'real' }, unit => { }, ); %sColorant = ( STRUCT_NAME => 'Colorant', NAMESPACE => 'xmpG', swatchName => { }, mode => { PrintConv => { CMYK=>'CMYK', RGB=>'RGB', LAB=>'Lab' } }, # note: do not implement closed choice for "type" because Adobe can't # get the case right: spec. says "PROCESS" but Indesign writes "Process" type => { }, cyan => { Writable => 'real' }, magenta => { Writable => 'real' }, yellow => { Writable => 'real' }, black => { Writable => 'real' }, red => { Writable => 'integer' }, green => { Writable => 'integer' }, blue => { Writable => 'integer' }, gray => { Writable => 'integer' }, L => { Writable => 'real' }, A => { Writable => 'integer' }, B => { Writable => 'integer' }, # 'tint' observed in INDD sample - PH tint => { Writable => 'integer', Notes => 'not part of 2010 XMP specification' }, ); my %sSwatchGroup = ( STRUCT_NAME => 'SwatchGroup', NAMESPACE => 'xmpG', groupName => { }, groupType => { Writable => 'integer' }, Colorants => { FlatName => 'SwatchColorant', Struct => \%sColorant, List => 'Seq', }, ); my %sFont = ( STRUCT_NAME => 'Font', NAMESPACE => 'stFnt', fontName => { }, fontFamily => { }, fontFace => { }, fontType => { }, versionString => { }, composite => { Writable => 'boolean' }, fontFileName=> { }, childFontFiles => { List => 'Seq' }, ); my %sOECF = ( STRUCT_NAME => 'OECF', NAMESPACE => 'exif', Columns => { Writable => 'integer' }, Rows => { Writable => 'integer' }, Names => { List => 'Seq' }, Values => { List => 'Seq', Writable => 'rational' }, ); # new LR2 crs structures (PH) my %sCorrectionMask = ( STRUCT_NAME => 'CorrectionMask', NAMESPACE => 'crs', # disable List behaviour of flattened Gradient/PaintBasedCorrections # because these are nested in lists and the flattened tags can't # do justice to this complex structure What => { List => 0 }, MaskValue => { Writable => 'real', List => 0, FlatName => 'Value' }, Radius => { Writable => 'real', List => 0 }, Flow => { Writable => 'real', List => 0 }, CenterWeight => { Writable => 'real', List => 0 }, Dabs => { List => 'Seq' }, ZeroX => { Writable => 'real', List => 0 }, ZeroY => { Writable => 'real', List => 0 }, FullX => { Writable => 'real', List => 0 }, FullY => { Writable => 'real', List => 0 }, # new elements used in CircularGradientBasedCorrections CorrectionMasks # and RetouchAreas Masks Top => { Writable => 'real', List => 0 }, Left => { Writable => 'real', List => 0 }, Bottom => { Writable => 'real', List => 0 }, Right => { Writable => 'real', List => 0 }, Angle => { Writable => 'real', List => 0 }, Midpoint => { Writable => 'real', List => 0 }, Roundness => { Writable => 'real', List => 0 }, Feather => { Writable => 'real', List => 0 }, Flipped => { Writable => 'boolean', List => 0 }, Version => { Writable => 'integer', List => 0 }, SizeX => { Writable => 'real', List => 0 }, SizeY => { Writable => 'real', List => 0 }, X => { Writable => 'real', List => 0 }, Y => { Writable => 'real', List => 0 }, Alpha => { Writable => 'real', List => 0 }, CenterValue => { Writable => 'real', List => 0 }, PerimeterValue=>{ Writable => 'real', List => 0 }, ); my %sCorrection = ( STRUCT_NAME => 'Correction', NAMESPACE => 'crs', What => { List => 0 }, CorrectionAmount => { FlatName => 'Amount', Writable => 'real', List => 0 }, CorrectionActive => { FlatName => 'Active', Writable => 'boolean', List => 0 }, LocalExposure => { FlatName => 'Exposure', Writable => 'real', List => 0 }, LocalSaturation => { FlatName => 'Saturation', Writable => 'real', List => 0 }, LocalContrast => { FlatName => 'Contrast', Writable => 'real', List => 0 }, LocalClarity => { FlatName => 'Clarity', Writable => 'real', List => 0 }, LocalSharpness => { FlatName => 'Sharpness', Writable => 'real', List => 0 }, LocalBrightness => { FlatName => 'Brightness', Writable => 'real', List => 0 }, LocalToningHue => { FlatName => 'Hue', Writable => 'real', List => 0 }, LocalToningSaturation => { FlatName => 'Saturation', Writable => 'real', List => 0 }, LocalExposure2012 => { FlatName => 'Exposure2012', Writable => 'real', List => 0 }, LocalContrast2012 => { FlatName => 'Contrast2012', Writable => 'real', List => 0 }, LocalHighlights2012 => { FlatName => 'Highlights2012', Writable => 'real', List => 0 }, LocalShadows2012 => { FlatName => 'Shadows2012', Writable => 'real', List => 0 }, LocalClarity2012 => { FlatName => 'Clarity2012', Writable => 'real', List => 0 }, LocalLuminanceNoise => { FlatName => 'LuminanceNoise', Writable => 'real', List => 0 }, LocalMoire => { FlatName => 'Moire', Writable => 'real', List => 0 }, LocalDefringe => { FlatName => 'Defringe', Writable => 'real', List => 0 }, LocalTemperature => { FlatName => 'Temperature',Writable => 'real', List => 0 }, LocalTint => { FlatName => 'Tint', Writable => 'real', List => 0 }, CorrectionMasks => { FlatName => 'Mask', Struct => \%sCorrectionMask, List => 'Seq', }, ); my %sRetouchArea = ( STRUCT_NAME => 'RetouchArea', NAMESPACE => 'crs', SpotType => { List => 0 }, SourceState => { List => 0 }, Method => { List => 0 }, SourceX => { Writable => 'real', List => 0 }, OffsetY => { Writable => 'real', List => 0 }, Opacity => { Writable => 'real', List => 0 }, Feather => { Writable => 'real', List => 0 }, Seed => { Writable => 'integer', List => 0 }, Masks => { FlatName => 'Mask', Struct => \%sCorrectionMask, List => 'Seq', }, ); # main XMP tag table (tag ID's are used for the family 1 group names) %Image::ExifTool::XMP::Main = ( GROUPS => { 2 => 'Unknown' }, PROCESS_PROC => \&ProcessXMP, WRITE_PROC => \&WriteXMP, dc => { Name => 'dc', # (otherwise generated name would be 'Dc') SubDirectory => { TagTable => 'Image::ExifTool::XMP::dc' }, }, xmp => { Name => 'xmp', SubDirectory => { TagTable => 'Image::ExifTool::XMP::xmp' }, }, xmpDM => { Name => 'xmpDM', SubDirectory => { TagTable => 'Image::ExifTool::XMP::xmpDM' }, }, xmpRights => { Name => 'xmpRights', SubDirectory => { TagTable => 'Image::ExifTool::XMP::xmpRights' }, }, xmpNote => { Name => 'xmpNote', SubDirectory => { TagTable => 'Image::ExifTool::XMP::xmpNote' }, }, xmpMM => { Name => 'xmpMM', SubDirectory => { TagTable => 'Image::ExifTool::XMP::xmpMM' }, }, xmpBJ => { Name => 'xmpBJ', SubDirectory => { TagTable => 'Image::ExifTool::XMP::xmpBJ' }, }, xmpTPg => { Name => 'xmpTPg', SubDirectory => { TagTable => 'Image::ExifTool::XMP::xmpTPg' }, }, pdf => { Name => 'pdf', SubDirectory => { TagTable => 'Image::ExifTool::XMP::pdf' }, }, pdfx => { Name => 'pdfx', SubDirectory => { TagTable => 'Image::ExifTool::XMP::pdfx' }, }, photoshop => { Name => 'photoshop', SubDirectory => { TagTable => 'Image::ExifTool::XMP::photoshop' }, }, crs => { Name => 'crs', SubDirectory => { TagTable => 'Image::ExifTool::XMP::crs' }, }, # crss - it would be tedious to add the ability to write this aux => { Name => 'aux', SubDirectory => { TagTable => 'Image::ExifTool::XMP::aux' }, }, tiff => { Name => 'tiff', SubDirectory => { TagTable => 'Image::ExifTool::XMP::tiff' }, }, exif => { Name => 'exif', SubDirectory => { TagTable => 'Image::ExifTool::XMP::exif' }, }, exifEX => { Name => 'exifEX', SubDirectory => { TagTable => 'Image::ExifTool::XMP::exifEX' }, }, iptcCore => { Name => 'iptcCore', SubDirectory => { TagTable => 'Image::ExifTool::XMP::iptcCore' }, }, iptcExt => { Name => 'iptcExt', SubDirectory => { TagTable => 'Image::ExifTool::XMP::iptcExt' }, }, PixelLive => { SubDirectory => { TagTable => 'Image::ExifTool::XMP::PixelLive' }, }, xmpPLUS => { Name => 'xmpPLUS', SubDirectory => { TagTable => 'Image::ExifTool::XMP::xmpPLUS' }, }, plus => { Name => 'plus', SubDirectory => { TagTable => 'Image::ExifTool::PLUS::XMP' }, }, cc => { Name => 'cc', SubDirectory => { TagTable => 'Image::ExifTool::XMP::cc' }, }, dex => { Name => 'dex', SubDirectory => { TagTable => 'Image::ExifTool::XMP::dex' }, }, photomech => { Name => 'photomech', SubDirectory => { TagTable => 'Image::ExifTool::PhotoMechanic::XMP' }, }, mediapro => { Name => 'mediapro', SubDirectory => { TagTable => 'Image::ExifTool::XMP::MediaPro' }, }, expressionmedia => { Name => 'expressionmedia', SubDirectory => { TagTable => 'Image::ExifTool::XMP::ExpressionMedia' }, }, microsoft => { Name => 'microsoft', SubDirectory => { TagTable => 'Image::ExifTool::Microsoft::XMP' }, }, MP => { Name => 'MP', SubDirectory => { TagTable => 'Image::ExifTool::Microsoft::MP' }, }, MP1 => { Name => 'MP1', SubDirectory => { TagTable => 'Image::ExifTool::Microsoft::MP1' }, }, lr => { Name => 'lr', SubDirectory => { TagTable => 'Image::ExifTool::XMP::Lightroom' }, }, DICOM => { Name => 'DICOM', SubDirectory => { TagTable => 'Image::ExifTool::XMP::DICOM' }, }, album => { Name => 'album', SubDirectory => { TagTable => 'Image::ExifTool::XMP::Album' }, }, prism => { Name => 'prism', SubDirectory => { TagTable => 'Image::ExifTool::XMP::prism' }, }, prl => { Name => 'prl', SubDirectory => { TagTable => 'Image::ExifTool::XMP::prl' }, }, pur => { Name => 'pur', SubDirectory => { TagTable => 'Image::ExifTool::XMP::pur' }, }, pmi => { Name => 'pmi', SubDirectory => { TagTable => 'Image::ExifTool::XMP::pmi' }, }, prm => { Name => 'prm', SubDirectory => { TagTable => 'Image::ExifTool::XMP::prm' }, }, rdf => { Name => 'rdf', SubDirectory => { TagTable => 'Image::ExifTool::XMP::rdf' }, }, 'x' => { Name => 'x', SubDirectory => { TagTable => 'Image::ExifTool::XMP::x' }, }, acdsee => { Name => 'acdsee', SubDirectory => { TagTable => 'Image::ExifTool::XMP::acdsee' }, }, digiKam => { Name => 'digiKam', SubDirectory => { TagTable => 'Image::ExifTool::XMP::digiKam' }, }, swf => { Name => 'swf', SubDirectory => { TagTable => 'Image::ExifTool::XMP::swf' }, }, cell => { Name => 'cell', SubDirectory => { TagTable => 'Image::ExifTool::XMP::cell' }, }, aas => { Name => 'aas', SubDirectory => { TagTable => 'Image::ExifTool::XMP::aas' }, }, 'mwg-rs' => { Name => 'mwg-rs', SubDirectory => { TagTable => 'Image::ExifTool::MWG::Regions' }, }, 'mwg-kw' => { Name => 'mwg-kw', SubDirectory => { TagTable => 'Image::ExifTool::MWG::Keywords' }, }, 'mwg-coll' => { Name => 'mwg-coll', SubDirectory => { TagTable => 'Image::ExifTool::MWG::Collections' }, }, extensis => { Name => 'extensis', SubDirectory => { TagTable => 'Image::ExifTool::XMP::extensis' }, }, ics => { Name => 'ics', SubDirectory => { TagTable => 'Image::ExifTool::XMP::ics' }, }, fpv => { Name => 'fpv', SubDirectory => { TagTable => 'Image::ExifTool::XMP::fpv' }, }, creatorAtom => { Name => 'creatorAtom', SubDirectory => { TagTable => 'Image::ExifTool::XMP::creatorAtom' }, }, 'apple-fi' => { Name => 'apple-fi', SubDirectory => { TagTable => 'Image::ExifTool::XMP::apple_fi' }, }, GAudio => { Name => 'GAudio', SubDirectory => { TagTable => 'Image::ExifTool::XMP::GAudio' }, }, GImage => { Name => 'GImage', SubDirectory => { TagTable => 'Image::ExifTool::XMP::GImage' }, }, GPano => { Name => 'GPano', SubDirectory => { TagTable => 'Image::ExifTool::XMP::GPano' }, }, GSpherical => { Name => 'GSpherical', SubDirectory => { TagTable => 'Image::ExifTool::XMP::GSpherical' }, }, GDepth => { Name => 'GDepth', SubDirectory => { TagTable => 'Image::ExifTool::XMP::GDepth' }, }, GFocus => { Name => 'GFocus', SubDirectory => { TagTable => 'Image::ExifTool::XMP::GFocus' }, }, dwc => { Name => 'dwc', SubDirectory => { TagTable => 'Image::ExifTool::DarwinCore::Main' }, }, getty => { Name => 'getty', SubDirectory => { TagTable => 'Image::ExifTool::XMP::GettyImages' }, }, 'drone-dji' => { Name => 'drone-dji', SubDirectory => { TagTable => 'Image::ExifTool::DJI::XMP' }, }, LImage => { Name => 'LImage', SubDirectory => { TagTable => 'Image::ExifTool::XMP::LImage' }, }, ); # hack to allow XML containing Dublin Core metadata to be handled like XMP (eg. EPUB - see ZIP.pm) %Image::ExifTool::XMP::XML = ( GROUPS => { 0 => 'XML', 1 => 'XML', 2 => 'Unknown' }, PROCESS_PROC => \&ProcessXMP, dc => { Name => 'dc', SubDirectory => { TagTable => 'Image::ExifTool::XMP::dc' }, }, lastUpdate => { Groups => { 2 => 'Time' }, ValueConv => 'Image::ExifTool::XMP::ConvertXMPDate($val)', PrintConv => '$self->ConvertDateTime($val)', }, ); # # Tag tables for all XMP namespaces: # # Writable - only need to define this for writable tags if not plain text # (boolean, integer, rational, real, date or lang-alt) # List - XMP list type (Bag, Seq or Alt, or set to 1 for elements in Struct lists -- # this is necessary to obtain proper list behaviour when reading/writing) # # (Note that family 1 group names are generated from the property namespace, not # the group1 names below which exist so the groups will appear in the list.) # %xmpTableDefaults = ( WRITE_PROC => \&WriteXMP, CHECK_PROC => \&CheckXMP, WRITABLE => 'string', LANG_INFO => \&GetLangInfo, ); # rdf attributes extracted %Image::ExifTool::XMP::rdf = ( %xmpTableDefaults, GROUPS => { 1 => 'XMP-rdf', 2 => 'Document' }, NAMESPACE => 'rdf', NOTES => q{ Most RDF attributes are handled internally, but the "about" attribute is treated specially to allow it to be set to a specific value if required. }, about => { Protected => 1 }, ); # x attributes extracted %Image::ExifTool::XMP::x = ( %xmpTableDefaults, GROUPS => { 1 => 'XMP-x', 2 => 'Document' }, NAMESPACE => 'x', NOTES => qq{ The "x" namespace is used for the "xmpmeta" wrapper, and may contain an "xmptk" attribute that is extracted as the XMPToolkit tag. When writing, the XMPToolkit tag is generated automatically by ExifTool unless specifically set to another value. }, xmptk => { Name => 'XMPToolkit', Protected => 1 }, ); # Dublin Core namespace properties (dc) %Image::ExifTool::XMP::dc = ( %xmpTableDefaults, GROUPS => { 1 => 'XMP-dc', 2 => 'Other' }, NAMESPACE => 'dc', TABLE_DESC => 'XMP Dublin Core', NOTES => 'Dublin Core namespace tags.', contributor => { Groups => { 2 => 'Author' }, List => 'Bag' }, coverage => { }, creator => { Groups => { 2 => 'Author' }, List => 'Seq' }, date => { Groups => { 2 => 'Time' }, List => 'Seq', %dateTimeInfo }, description => { Groups => { 2 => 'Image' }, Writable => 'lang-alt' }, 'format' => { Groups => { 2 => 'Image' } }, identifier => { Groups => { 2 => 'Image' } }, language => { List => 'Bag' }, publisher => { Groups => { 2 => 'Author' }, List => 'Bag' }, relation => { List => 'Bag' }, rights => { Groups => { 2 => 'Author' }, Writable => 'lang-alt' }, source => { Groups => { 2 => 'Author' }, Avoid => 1 }, subject => { Groups => { 2 => 'Image' }, List => 'Bag' }, title => { Groups => { 2 => 'Image' }, Writable => 'lang-alt' }, type => { Groups => { 2 => 'Image' }, List => 'Bag' }, ); # XMP namespace properties (xmp, xap) %Image::ExifTool::XMP::xmp = ( %xmpTableDefaults, GROUPS => { 1 => 'XMP-xmp', 2 => 'Image' }, NAMESPACE => 'xmp', NOTES => q{ XMP namespace tags. If the older "xap", "xapBJ", "xapMM" or "xapRights" namespace prefixes are found, they are translated to the newer "xmp", "xmpBJ", "xmpMM" and "xmpRights" prefixes for use in family 1 group names. }, Advisory => { List => 'Bag', Notes => 'deprecated' }, BaseURL => { }, # (date/time tags not as reliable as EXIF) CreateDate => { Groups => { 2 => 'Time' }, %dateTimeInfo, Priority => 0 }, CreatorTool => { }, Identifier => { Avoid => 1, List => 'Bag' }, Label => { }, MetadataDate=> { Groups => { 2 => 'Time' }, %dateTimeInfo }, ModifyDate => { Groups => { 2 => 'Time' }, %dateTimeInfo, Priority => 0 }, Nickname => { }, Rating => { Writable => 'real', Notes => 'a value from 0 to 5, or -1 for "rejected"' }, Thumbnails => { FlatName => 'Thumbnail', Struct => \%sThumbnail, List => 'Alt', }, # the following written by Adobe InDesign, not part of XMP spec: PageInfo => { FlatName => 'PageImage', Struct => \%sPageInfo, List => 'Seq', }, PageInfoImage => { Name => 'PageImage', Flat => 1 }, Title => { Avoid => 1, Notes => 'non-standard', Writable => 'lang-alt' }, #11 Author => { Avoid => 1, Notes => 'non-standard', Groups => { 2 => 'Author' } }, #11 Keywords => { Avoid => 1, Notes => 'non-standard' }, #11 Description => { Avoid => 1, Notes => 'non-standard', Writable => 'lang-alt' }, #11 Format => { Avoid => 1, Notes => 'non-standard' }, #11 ); # XMP Rights Management namespace properties (xmpRights, xapRights) %Image::ExifTool::XMP::xmpRights = ( %xmpTableDefaults, GROUPS => { 1 => 'XMP-xmpRights', 2 => 'Author' }, NAMESPACE => 'xmpRights', NOTES => 'XMP Rights Management namespace tags.', Certificate => { }, Marked => { Writable => 'boolean' }, Owner => { List => 'Bag' }, UsageTerms => { Writable => 'lang-alt' }, WebStatement => { }, ); # XMP Note namespace properties (xmpNote) %Image::ExifTool::XMP::xmpNote = ( %xmpTableDefaults, GROUPS => { 1 => 'XMP-xmpNote' }, NAMESPACE => 'xmpNote', NOTES => 'XMP Note namespace tags.', HasExtendedXMP => { Notes => q{ this tag is protected so it is not writable directly. Instead, it is set automatically to the GUID of the extended XMP when writing extended XMP to a JPEG image }, Protected => 2, }, ); # XMP xmpMM ManifestItem struct (ref PH, written by Adobe PDF library 8.0) my %sManifestItem = ( STRUCT_NAME => 'ManifestItem', NAMESPACE => 'stMfs', linkForm => { }, placedXResolution => { Namespace => 'xmpMM', Writable => 'real' }, placedYResolution => { Namespace => 'xmpMM', Writable => 'real' }, placedResolutionUnit=> { Namespace => 'xmpMM' }, reference => { Struct => \%sResourceRef }, ); # the xmpMM Pantry my %sPantryItem = ( STRUCT_NAME => 'PantryItem', NAMESPACE => undef, # stores any top-level XMP tags NOTES => q{ This structure must have an InstanceID field, but may also contain any other XMP properties. }, InstanceID => { Namespace => 'xmpMM' }, ); # XMP Media Management namespace properties (xmpMM, xapMM) %Image::ExifTool::XMP::xmpMM = ( %xmpTableDefaults, GROUPS => { 1 => 'XMP-xmpMM', 2 => 'Other' }, NAMESPACE => 'xmpMM', TABLE_DESC => 'XMP Media Management', NOTES => 'XMP Media Management namespace tags.', DerivedFrom => { Struct => \%sResourceRef }, DocumentID => { }, History => { Struct => \%sResourceEvent, List => 'Seq' }, # we treat these like list items since History is a list Ingredients => { Struct => \%sResourceRef, List => 'Bag' }, InstanceID => { }, #PH (CS3) ManagedFrom => { Struct => \%sResourceRef }, Manager => { Groups => { 2 => 'Author' } }, ManageTo => { Groups => { 2 => 'Author' } }, ManageUI => { }, ManagerVariant => { }, Manifest => { Struct => \%sManifestItem, List => 'Bag' }, OriginalDocumentID=> { }, Pantry => { Struct => \%sPantryItem, List => 'Bag' }, PreservedFileName => { }, # undocumented RenditionClass => { }, RenditionParams => { }, VersionID => { }, Versions => { Struct => \%sVersion, List => 'Seq' }, LastURL => { }, # (deprecated) RenditionOf => { Struct => \%sResourceRef }, # (deprecated) SaveID => { Writable => 'integer' }, # (deprecated) subject => { List => 'Seq', Avoid => 1, Notes => 'undocumented' }, ); # XMP Basic Job Ticket namespace properties (xmpBJ, xapBJ) %Image::ExifTool::XMP::xmpBJ = ( %xmpTableDefaults, GROUPS => { 1 => 'XMP-xmpBJ', 2 => 'Other' }, NAMESPACE => 'xmpBJ', TABLE_DESC => 'XMP Basic Job Ticket', NOTES => 'XMP Basic Job Ticket namespace tags.', # Note: JobRef is a List of structures. To accomplish this, we set the XMP # List=>'Bag', but since SubDirectory is defined, this tag isn't writable # directly. Then we need to set List=>1 for the members so the Writer logic # will allow us to add list items. JobRef => { Struct => \%sJobRef, List => 'Bag' }, ); # XMP Paged-Text namespace properties (xmpTPg) %Image::ExifTool::XMP::xmpTPg = ( %xmpTableDefaults, GROUPS => { 1 => 'XMP-xmpTPg', 2 => 'Image' }, NAMESPACE => 'xmpTPg', TABLE_DESC => 'XMP Paged-Text', NOTES => 'XMP Paged-Text namespace tags.', MaxPageSize => { Struct => \%sDimensions }, NPages => { Writable => 'integer' }, Fonts => { FlatName => '', Struct => \%sFont, List => 'Bag', }, FontsVersionString => { Name => 'FontVersion', Flat => 1 }, FontsComposite => { Name => 'FontComposite', Flat => 1 }, Colorants => { FlatName => 'Colorant', Struct => \%sColorant, List => 'Seq', }, PlateNames => { List => 'Seq' }, # the following found in an AI file: HasVisibleTransparency => { Writable => 'boolean' }, HasVisibleOverprint => { Writable => 'boolean' }, SwatchGroups => { Struct => \%sSwatchGroup, List => 'Seq', }, SwatchGroupsColorants => { Name => 'SwatchGroupsColorants', Flat => 1 }, SwatchGroupsGroupName => { Name => 'SwatchGroupName', Flat => 1 }, SwatchGroupsGroupType => { Name => 'SwatchGroupType', Flat => 1 }, ); # PDF namespace properties (pdf) %Image::ExifTool::XMP::pdf = ( %xmpTableDefaults, GROUPS => { 1 => 'XMP-pdf', 2 => 'Image' }, NAMESPACE => 'pdf', TABLE_DESC => 'XMP PDF', NOTES => q{ Adobe PDF namespace tags. The official XMP specification defines only Keywords, PDFVersion, Producer and Trapped. The other tags are included because they have been observed in PDF files, but some are avoided when writing due to name conflicts with other XMP namespaces. }, Author => { Groups => { 2 => 'Author' } }, #PH ModDate => { Groups => { 2 => 'Time' }, %dateTimeInfo }, #PH CreationDate=> { Groups => { 2 => 'Time' }, %dateTimeInfo }, #PH Creator => { Groups => { 2 => 'Author' }, Avoid => 1 }, Copyright => { Groups => { 2 => 'Author' }, Avoid => 1 }, #PH Marked => { Avoid => 1, Writable => 'boolean' }, #PH Subject => { Avoid => 1 }, Title => { Avoid => 1 }, Trapped => { #PH # remove leading '/' from '/True' or '/False' ValueConv => '$val=~s{^/}{}; $val', ValueConvInv => '"/$val"', PrintConv => { True => 'True', False => 'False', Unknown => 'Unknown' }, }, Keywords => { Priority => -1 }, # (-1 to get below Priority 0 PDF:Keywords) PDFVersion => { }, Producer => { Groups => { 2 => 'Author' } }, ); # PDF extension namespace properties (pdfx) %Image::ExifTool::XMP::pdfx = ( %xmpTableDefaults, GROUPS => { 1 => 'XMP-pdfx', 2 => 'Document' }, NAMESPACE => 'pdfx', NOTES => q{ PDF extension tags. This namespace is used to store application-defined PDF information, so there are no pre-defined tags. User-defined tags must be created to enable writing of XMP-pdfx information. }, ); # Photoshop namespace properties (photoshop) %Image::ExifTool::XMP::photoshop = ( %xmpTableDefaults, GROUPS => { 1 => 'XMP-photoshop', 2 => 'Image' }, NAMESPACE => 'photoshop', TABLE_DESC => 'XMP Photoshop', NOTES => 'Adobe Photoshop namespace tags.', AuthorsPosition => { Groups => { 2 => 'Author' } }, CaptionWriter => { Groups => { 2 => 'Author' } }, Category => { }, City => { Groups => { 2 => 'Location' } }, ColorMode => { Writable => 'integer', # (as of July 2010 spec, courtesy of yours truly) PrintConvColumns => 2, PrintConv => { 0 => 'Bitmap', 1 => 'Grayscale', 2 => 'Indexed', 3 => 'RGB', 4 => 'CMYK', 7 => 'Multichannel', 8 => 'Duotone', 9 => 'Lab', }, }, Country => { Groups => { 2 => 'Location' } }, Credit => { Groups => { 2 => 'Author' } }, DateCreated => { Groups => { 2 => 'Time' }, %dateTimeInfo }, DocumentAncestors => { List => 'Bag', # Contrary to their own XMP specification, Adobe writes this as a simple Bag # of strings instead of structures, so comment out the structure definition... # FlatName => 'Document', # Struct => { # STRUCT_NAME => 'Ancestor', # NAMESPACE => 'photoshop', # AncestorID => { }, # }, }, Headline => { }, History => { }, #PH (CS3) ICCProfile => { Name => 'ICCProfileName' }, #PH Instructions => { }, LegacyIPTCDigest=> { }, #PH SidecarForExtension => { }, #PH (CS3) Source => { Groups => { 2 => 'Author' } }, State => { Groups => { 2 => 'Location' } }, # the XMP spec doesn't show SupplementalCategories as a 'Bag', but # that's the way Photoshop writes it [fixed in the June 2005 XMP spec]. # Also, it is incorrectly listed as "SupplementalCategory" in the # IPTC Standard Photo Metadata docs (2008rev2 and July 2009rev1) - PH SupplementalCategories => { List => 'Bag' }, TextLayers => { FlatName => 'Text', List => 'Seq', Struct => { STRUCT_NAME => 'Layer', NAMESPACE => 'photoshop', LayerName => { }, LayerText => { }, }, }, TransmissionReference => { }, Urgency => { Writable => 'integer', Notes => 'should be in the range 1-8 to conform with the XMP spec', PrintConv => { # (same values as IPTC:Urgency) 0 => '0 (reserved)', # (not standard XMP) 1 => '1 (most urgent)', 2 => 2, 3 => 3, 4 => 4, 5 => '5 (normal urgency)', 6 => 6, 7 => 7, 8 => '8 (least urgent)', 9 => '9 (user-defined priority)', # (not standard XMP) }, }, EmbeddedXMPDigest => { }, #PH (LR5) ); # Photoshop Camera Raw namespace properties (crs) - (ref 8,PH) %Image::ExifTool::XMP::crs = ( %xmpTableDefaults, GROUPS => { 1 => 'XMP-crs', 2 => 'Image' }, NAMESPACE => 'crs', TABLE_DESC => 'Photoshop Camera Raw namespace', NOTES => q{ Photoshop Camera Raw namespace tags. It is a shame that Adobe pollutes the metadata space with these incredibly bulky image editing parameters. }, AlreadyApplied => { Writable => 'boolean' }, #PH (written by LightRoom beta 4.1) AutoBrightness => { Writable => 'boolean' }, AutoContrast => { Writable => 'boolean' }, AutoExposure => { Writable => 'boolean' }, AutoShadows => { Writable => 'boolean' }, BlueHue => { Writable => 'integer' }, BlueSaturation => { Writable => 'integer' }, Brightness => { Writable => 'integer' }, CameraProfile => { }, ChromaticAberrationB=> { Writable => 'integer' }, ChromaticAberrationR=> { Writable => 'integer' }, ColorNoiseReduction => { Writable => 'integer' }, Contrast => { Writable => 'integer', Avoid => 1 }, Converter => { }, #PH guess (found in EXIF) CropTop => { Writable => 'real' }, CropLeft => { Writable => 'real' }, CropBottom => { Writable => 'real' }, CropRight => { Writable => 'real' }, CropAngle => { Writable => 'real' }, CropWidth => { Writable => 'real' }, CropHeight => { Writable => 'real' }, CropUnits => { Writable => 'integer', PrintConv => { 0 => 'pixels', 1 => 'inches', 2 => 'cm', }, }, Exposure => { Writable => 'real' }, GreenHue => { Writable => 'integer' }, GreenSaturation => { Writable => 'integer' }, HasCrop => { Writable => 'boolean' }, HasSettings => { Writable => 'boolean' }, LuminanceSmoothing => { Writable => 'integer' }, MoireFilter => { PrintConv => { Off=>'Off', On=>'On' } }, RawFileName => { }, RedHue => { Writable => 'integer' }, RedSaturation => { Writable => 'integer' }, Saturation => { Writable => 'integer', Avoid => 1 }, Shadows => { Writable => 'integer' }, ShadowTint => { Writable => 'integer' }, Sharpness => { Writable => 'integer', Avoid => 1 }, Smoothness => { Writable => 'integer' }, Temperature => { Writable => 'integer', Name => 'ColorTemperature' }, Tint => { Writable => 'integer' }, ToneCurve => { List => 'Seq' }, ToneCurveName => { PrintConv => { Linear => 'Linear', 'Medium Contrast' => 'Medium Contrast', 'Strong Contrast' => 'Strong Contrast', Custom => 'Custom', }, }, Version => { }, VignetteAmount => { Writable => 'integer' }, VignetteMidpoint=> { Writable => 'integer' }, WhiteBalance => { Avoid => 1, PrintConv => { 'As Shot' => 'As Shot', Auto => 'Auto', Daylight => 'Daylight', Cloudy => 'Cloudy', Shade => 'Shade', Tungsten => 'Tungsten', Fluorescent => 'Fluorescent', Flash => 'Flash', Custom => 'Custom', }, }, # new tags observed in Adobe Lightroom output - PH CameraProfileDigest => { }, Clarity => { Writable => 'integer' }, ConvertToGrayscale => { Writable => 'boolean' }, Defringe => { Writable => 'integer' }, FillLight => { Writable => 'integer' }, HighlightRecovery => { Writable => 'integer' }, HueAdjustmentAqua => { Writable => 'integer' }, HueAdjustmentBlue => { Writable => 'integer' }, HueAdjustmentGreen => { Writable => 'integer' }, HueAdjustmentMagenta => { Writable => 'integer' }, HueAdjustmentOrange => { Writable => 'integer' }, HueAdjustmentPurple => { Writable => 'integer' }, HueAdjustmentRed => { Writable => 'integer' }, HueAdjustmentYellow => { Writable => 'integer' }, IncrementalTemperature => { Writable => 'integer' }, IncrementalTint => { Writable => 'integer' }, LuminanceAdjustmentAqua => { Writable => 'integer' }, LuminanceAdjustmentBlue => { Writable => 'integer' }, LuminanceAdjustmentGreen => { Writable => 'integer' }, LuminanceAdjustmentMagenta => { Writable => 'integer' }, LuminanceAdjustmentOrange => { Writable => 'integer' }, LuminanceAdjustmentPurple => { Writable => 'integer' }, LuminanceAdjustmentRed => { Writable => 'integer' }, LuminanceAdjustmentYellow => { Writable => 'integer' }, ParametricDarks => { Writable => 'integer' }, ParametricHighlights => { Writable => 'integer' }, ParametricHighlightSplit => { Writable => 'integer' }, ParametricLights => { Writable => 'integer' }, ParametricMidtoneSplit => { Writable => 'integer' }, ParametricShadows => { Writable => 'integer' }, ParametricShadowSplit => { Writable => 'integer' }, SaturationAdjustmentAqua => { Writable => 'integer' }, SaturationAdjustmentBlue => { Writable => 'integer' }, SaturationAdjustmentGreen => { Writable => 'integer' }, SaturationAdjustmentMagenta => { Writable => 'integer' }, SaturationAdjustmentOrange => { Writable => 'integer' }, SaturationAdjustmentPurple => { Writable => 'integer' }, SaturationAdjustmentRed => { Writable => 'integer' }, SaturationAdjustmentYellow => { Writable => 'integer' }, SharpenDetail => { Writable => 'integer' }, SharpenEdgeMasking => { Writable => 'integer' }, SharpenRadius => { Writable => 'real' }, SplitToningBalance => { Writable => 'integer' }, SplitToningHighlightHue => { Writable => 'integer' }, SplitToningHighlightSaturation => { Writable => 'integer' }, SplitToningShadowHue => { Writable => 'integer' }, SplitToningShadowSaturation => { Writable => 'integer' }, Vibrance => { Writable => 'integer' }, # new tags written by LR 1.4 (not sure in what version they first appeared) GrayMixerRed => { Writable => 'integer' }, GrayMixerOrange => { Writable => 'integer' }, GrayMixerYellow => { Writable => 'integer' }, GrayMixerGreen => { Writable => 'integer' }, GrayMixerAqua => { Writable => 'integer' }, GrayMixerBlue => { Writable => 'integer' }, GrayMixerPurple => { Writable => 'integer' }, GrayMixerMagenta => { Writable => 'integer' }, RetouchInfo => { List => 'Seq' }, RedEyeInfo => { List => 'Seq' }, # new tags written by LR 2.0 (ref PH) CropUnit => { # was the XMP documentation wrong with "CropUnits"?? Writable => 'integer', PrintConv => { 0 => 'pixels', 1 => 'inches', 2 => 'cm', # have seen a value of 3 here! - PH }, }, PostCropVignetteAmount => { Writable => 'integer' }, PostCropVignetteMidpoint => { Writable => 'integer' }, PostCropVignetteFeather => { Writable => 'integer' }, PostCropVignetteRoundness => { Writable => 'integer' }, PostCropVignetteStyle => { Writable => 'integer' }, # disable List behaviour of flattened Gradient/PaintBasedCorrections # because these are nested in lists and the flattened tags can't # do justice to this complex structure GradientBasedCorrections => { FlatName => 'GradientBasedCorr', Struct => \%sCorrection, List => 'Seq', }, GradientBasedCorrectionsCorrectionMasks => { Name => 'GradientBasedCorrMasks', FlatName => 'GradientBasedCorrMask', Flat => 1 }, GradientBasedCorrectionsCorrectionMasksDabs => { Name => 'GradientBasedCorrMaskDabs', Flat => 1, List => 0, }, PaintBasedCorrections => { FlatName => 'PaintCorrection', Struct => \%sCorrection, List => 'Seq', }, PaintBasedCorrectionsCorrectionMasks => { Name => 'PaintBasedCorrectionMasks', FlatName => 'PaintCorrectionMask', Flat => 1, }, PaintBasedCorrectionsCorrectionMasksDabs => { Name => 'PaintCorrectionMaskDabs', Flat => 1, List => 0, }, # new tags written by LR 3 (thanks Wolfgang Guelcker) ProcessVersion => { }, LensProfileEnable => { Writable => 'integer' }, LensProfileSetup => { }, LensProfileName => { }, LensProfileFilename => { }, LensProfileDigest => { }, LensProfileDistortionScale => { Writable => 'integer' }, LensProfileChromaticAberrationScale => { Writable => 'integer' }, LensProfileVignettingScale => { Writable => 'integer' }, LensManualDistortionAmount => { Writable => 'integer' }, PerspectiveVertical => { Writable => 'integer' }, PerspectiveHorizontal => { Writable => 'integer' }, PerspectiveRotate => { Writable => 'real' }, PerspectiveScale => { Writable => 'integer' }, CropConstrainToWarp => { Writable => 'integer' }, LuminanceNoiseReductionDetail => { Writable => 'integer' }, LuminanceNoiseReductionContrast => { Writable => 'integer' }, ColorNoiseReductionDetail => { Writable => 'integer' }, GrainAmount => { Writable => 'integer' }, GrainSize => { Writable => 'integer' }, GrainFrequency => { Writable => 'integer' }, # new tags written by LR4 AutoLateralCA => { Writable => 'integer' }, Exposure2012 => { Writable => 'real' }, Contrast2012 => { Writable => 'integer' }, Highlights2012 => { Writable => 'integer' }, Shadows2012 => { Writable => 'integer' }, Whites2012 => { Writable => 'integer' }, Blacks2012 => { Writable => 'integer' }, Clarity2012 => { Writable => 'integer' }, PostCropVignetteHighlightContrast => { Writable => 'integer' }, ToneCurveName2012 => { }, ToneCurveRed => { List => 'Seq' }, ToneCurveGreen => { List => 'Seq' }, ToneCurveBlue => { List => 'Seq' }, ToneCurvePV2012 => { List => 'Seq' }, ToneCurvePV2012Red => { List => 'Seq' }, ToneCurvePV2012Green => { List => 'Seq' }, ToneCurvePV2012Blue => { List => 'Seq' }, DefringePurpleAmount => { Writable => 'integer' }, DefringePurpleHueLo => { Writable => 'integer' }, DefringePurpleHueHi => { Writable => 'integer' }, DefringeGreenAmount => { Writable => 'integer' }, DefringeGreenHueLo => { Writable => 'integer' }, DefringeGreenHueHi => { Writable => 'integer' }, # new tags written by LR5 AutoWhiteVersion => { Writable => 'integer' }, CircularGradientBasedCorrections => { FlatName => 'CircGradBasedCorr', Struct => \%sCorrection, List => 'Seq', }, CircularGradientBasedCorrectionsCorrectionMasks => { Name => 'CircGradBasedCorrMasks', FlatName => 'CircGradBasedCorrMask', Flat => 1 }, CircularGradientBasedCorrectionsCorrectionMasksDabs => { Name => 'CircGradBasedCorrMaskDabs', Flat => 1, List => 0, }, ColorNoiseReductionSmoothness => { Writable => 'integer' }, PerspectiveAspect => { Writable => 'integer' }, PerspectiveUpright => { Writable => 'integer' }, RetouchAreas => { FlatName => 'RetouchArea', Struct => \%sRetouchArea, List => 'Seq', }, RetouchAreasMasks => { Name => 'RetouchAreaMasks', FlatName => 'RetouchAreaMask', Flat => 1 }, RetouchAreasMasksDabs => { Name => 'RetouchAreaMaskDabs', Flat => 1, List => 0, }, UprightVersion => { Writable => 'integer' }, UprightCenterMode => { Writable => 'integer' }, UprightCenterNormX => { Writable => 'real' }, UprightCenterNormY => { Writable => 'real' }, UprightFocalMode => { Writable => 'integer' }, UprightFocalLength35mm => { Writable => 'real' }, UprightPreview => { Writable => 'boolean' }, UprightTransformCount => { Writable => 'integer' }, UprightDependentDigest => { }, UprightTransform_0 => { }, UprightTransform_1 => { }, UprightTransform_2 => { }, UprightTransform_3 => { }, UprightTransform_4 => { }, UprightTransform_5 => { }, # more stuff seen in lens profile file (unknown source) What => { }, # (with value "LensProfileDefaultSettings") LensProfileMatchKeyExifMake => { }, LensProfileMatchKeyExifModel => { }, LensProfileMatchKeyCameraModelName => { }, LensProfileMatchKeyLensInfo => { }, LensProfileMatchKeyLensID => { }, LensProfileMatchKeyLensName => { }, LensProfileMatchKeyIsRaw => { Writable => 'boolean' }, LensProfileMatchKeySensorFormatFactor=>{ Writable => 'real' }, # more stuff (ref forum6993) DefaultAutoTone => { Writable => 'boolean' }, DefaultAutoGray => { Writable => 'boolean' }, DefaultsSpecificToSerial => { Writable => 'boolean' }, DefaultsSpecificToISO => { Writable => 'boolean' }, DNGIgnoreSidecars => { Writable => 'boolean' }, NegativeCachePath => { }, NegativeCacheMaximumSize => { Writable => 'real' }, NegativeCacheLargePreviewSize => { Writable => 'integer' }, JPEGHandling => { }, TIFFHandling => { }, Dehaze => { Writable => 'real' }, ToneMapStrength => { Writable => 'real' }, # yet more PerspectiveX => { Writable => 'real' }, PerspectiveY => { Writable => 'real' }, UprightFourSegmentsCount => { Writable => 'integer' }, ); # Tiff namespace properties (tiff) %Image::ExifTool::XMP::tiff = ( %xmpTableDefaults, GROUPS => { 1 => 'XMP-tiff', 2 => 'Image' }, NAMESPACE => 'tiff', PRIORITY => 0, # not as reliable as actual TIFF tags TABLE_DESC => 'XMP TIFF', NOTES => q{ EXIF namespace for TIFF tags. See L for the specification. }, ImageWidth => { Writable => 'integer' }, ImageLength => { Writable => 'integer', Name => 'ImageHeight' }, BitsPerSample => { Writable => 'integer', List => 'Seq', AutoSplit => 1 }, Compression => { Writable => 'integer', SeparateTable => 'EXIF Compression', PrintConv => \%Image::ExifTool::Exif::compression, }, PhotometricInterpretation => { Writable => 'integer', PrintConv => \%Image::ExifTool::Exif::photometricInterpretation, }, Orientation => { Writable => 'integer', PrintConv => \%Image::ExifTool::Exif::orientation, }, SamplesPerPixel => { Writable => 'integer' }, PlanarConfiguration => { Writable => 'integer', PrintConv => { 1 => 'Chunky', 2 => 'Planar', }, }, YCbCrSubSampling => { Writable => 'integer', List => 'Seq', # join the raw values before conversion to allow PrintConv to operate on # the combined string as it does for the corresponding EXIF tag RawJoin => 1, Notes => q{ while technically this is a list-type tag, for compatibility with its EXIF counterpart it is written and read as a simple string }, PrintConv => \%Image::ExifTool::JPEG::yCbCrSubSampling, }, YCbCrPositioning => { Writable => 'integer', PrintConv => { 1 => 'Centered', 2 => 'Co-sited', }, }, XResolution => { Writable => 'rational' }, YResolution => { Writable => 'rational' }, ResolutionUnit => { Writable => 'integer', Notes => 'the value 1 is not standard EXIF', PrintConv => { 1 => 'None', 2 => 'inches', 3 => 'cm', }, }, TransferFunction => { Writable => 'integer', List => 'Seq', AutoSplit => 1 }, WhitePoint => { Writable => 'rational', List => 'Seq', AutoSplit => 1 }, PrimaryChromaticities => { Writable => 'rational', List => 'Seq', AutoSplit => 1 }, YCbCrCoefficients => { Writable => 'rational', List => 'Seq', AutoSplit => 1 }, ReferenceBlackWhite => { Writable => 'rational', List => 'Seq', AutoSplit => 1 }, DateTime => { # (EXIF tag named ModifyDate, but this exists in XMP-xmp) Description => 'Date/Time Modified', Groups => { 2 => 'Time' }, %dateTimeInfo, }, ImageDescription => { Writable => 'lang-alt' }, Make => { Groups => { 2 => 'Camera' }, RawConv => '$$self{Make} ? $val : $$self{Make} = $val', }, Model => { Groups => { 2 => 'Camera' }, Description => 'Camera Model Name', RawConv => '$$self{Model} ? $val : $$self{Model} = $val', }, Software => { }, Artist => { Groups => { 2 => 'Author' } }, Copyright => { Groups => { 2 => 'Author' }, Writable => 'lang-alt' }, NativeDigest => { }, #PH ); # Exif namespace properties (exif) %Image::ExifTool::XMP::exif = ( %xmpTableDefaults, GROUPS => { 1 => 'XMP-exif', 2 => 'Image' }, NAMESPACE => 'exif', PRIORITY => 0, # not as reliable as actual EXIF tags NOTES => q{ EXIF namespace for EXIF tags. See L for the specification. }, ExifVersion => { }, FlashpixVersion => { }, ColorSpace => { Writable => 'integer', # (some applications incorrectly write -1 as a long integer) ValueConv => '$val == 0xffffffff ? 0xffff : $val', ValueConvInv => '$val', PrintConv => { 1 => 'sRGB', 2 => 'Adobe RGB', 0xffff => 'Uncalibrated', }, }, ComponentsConfiguration => { Writable => 'integer', List => 'Seq', AutoSplit => 1, PrintConvColumns => 2, PrintConv => { 0 => '-', 1 => 'Y', 2 => 'Cb', 3 => 'Cr', 4 => 'R', 5 => 'G', 6 => 'B', }, }, CompressedBitsPerPixel => { Writable => 'rational' }, PixelXDimension => { Name => 'ExifImageWidth', Writable => 'integer' }, PixelYDimension => { Name => 'ExifImageHeight', Writable => 'integer' }, MakerNote => { }, UserComment => { Writable => 'lang-alt' }, RelatedSoundFile => { }, DateTimeOriginal => { Description => 'Date/Time Original', Groups => { 2 => 'Time' }, %dateTimeInfo, }, DateTimeDigitized => { # (EXIF tag named CreateDate, but this exists in XMP-xmp) Description => 'Date/Time Digitized', Groups => { 2 => 'Time' }, %dateTimeInfo, }, ExposureTime => { Writable => 'rational', PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)', PrintConvInv => '$val', }, FNumber => { Writable => 'rational', PrintConv => 'Image::ExifTool::Exif::PrintFNumber($val)', PrintConvInv => '$val', }, ExposureProgram => { Groups => { 2 => 'Camera' }, Writable => 'integer', PrintConv => { 0 => 'Not Defined', 1 => 'Manual', 2 => 'Program AE', 3 => 'Aperture-priority AE', 4 => 'Shutter speed priority AE', 5 => 'Creative (Slow speed)', 6 => 'Action (High speed)', 7 => 'Portrait', 8 => 'Landscape', }, }, SpectralSensitivity => { Groups => { 2 => 'Camera' } }, ISOSpeedRatings => { Name => 'ISO', Writable => 'integer', List => 'Seq', AutoSplit => 1, }, OECF => { Name => 'Opto-ElectricConvFactor', FlatName => 'OECF', Groups => { 2 => 'Camera' }, Struct => \%sOECF, }, ShutterSpeedValue => { Writable => 'rational', ValueConv => 'abs($val)<100 ? 1/(2**$val) : 0', PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)', ValueConvInv => '$val>0 ? -log($val)/log(2) : 0', PrintConvInv => 'Image::ExifTool::Exif::ConvertFraction($val)', }, ApertureValue => { Writable => 'rational', ValueConv => 'sqrt(2) ** $val', PrintConv => 'sprintf("%.1f",$val)', ValueConvInv => '$val>0 ? 2*log($val)/log(2) : 0', PrintConvInv => '$val', }, BrightnessValue => { Writable => 'rational' }, ExposureBiasValue => { Name => 'ExposureCompensation', Writable => 'rational', PrintConv => 'Image::ExifTool::Exif::PrintFraction($val)', PrintConvInv => '$val', }, MaxApertureValue => { Groups => { 2 => 'Camera' }, Writable => 'rational', ValueConv => 'sqrt(2) ** $val', PrintConv => 'sprintf("%.1f",$val)', ValueConvInv => '$val>0 ? 2*log($val)/log(2) : 0', PrintConvInv => '$val', }, SubjectDistance => { Groups => { 2 => 'Camera' }, Writable => 'rational', PrintConv => '$val =~ /^(inf|undef)$/ ? $val : "$val m"', PrintConvInv => '$val=~s/\s*m$//;$val', }, MeteringMode => { Groups => { 2 => 'Camera' }, Writable => 'integer', PrintConv => { 1 => 'Average', 2 => 'Center-weighted average', 3 => 'Spot', 4 => 'Multi-spot', 5 => 'Multi-segment', 6 => 'Partial', 255 => 'Other', }, }, LightSource => { Groups => { 2 => 'Camera' }, SeparateTable => 'EXIF LightSource', PrintConv => \%Image::ExifTool::Exif::lightSource, }, Flash => { Groups => { 2 => 'Camera' }, Struct => { STRUCT_NAME => 'Flash', NAMESPACE => 'exif', Fired => { Writable => 'boolean', %boolConv }, Return => { Writable => 'integer', PrintConv => { 0 => 'No return detection', 2 => 'Return not detected', 3 => 'Return detected', }, }, Mode => { Writable => 'integer', PrintConv => { 0 => 'Unknown', 1 => 'On', 2 => 'Off', 3 => 'Auto', }, }, Function => { Writable => 'boolean', %boolConv }, RedEyeMode => { Writable => 'boolean', %boolConv }, }, }, FocalLength=> { Groups => { 2 => 'Camera' }, Writable => 'rational', PrintConv => 'sprintf("%.1f mm",$val)', PrintConvInv => '$val=~s/\s*mm$//;$val', }, SubjectArea => { Writable => 'integer', List => 'Seq', AutoSplit => 1 }, FlashEnergy => { Groups => { 2 => 'Camera' }, Writable => 'rational' }, SpatialFrequencyResponse => { Groups => { 2 => 'Camera' }, Struct => \%sOECF, }, FocalPlaneXResolution => { Groups => { 2 => 'Camera' }, Writable => 'rational' }, FocalPlaneYResolution => { Groups => { 2 => 'Camera' }, Writable => 'rational' }, FocalPlaneResolutionUnit => { Groups => { 2 => 'Camera' }, Writable => 'integer', Notes => 'values 1, 4 and 5 are not standard EXIF', PrintConv => { 1 => 'None', # (not standard EXIF) 2 => 'inches', 3 => 'cm', 4 => 'mm', # (not standard EXIF) 5 => 'um', # (not standard EXIF) }, }, SubjectLocation => { Writable => 'integer', List => 'Seq', AutoSplit => 1 }, ExposureIndex => { Writable => 'rational' }, SensingMethod => { Groups => { 2 => 'Camera' }, Writable => 'integer', Notes => 'values 1 and 6 are not standard EXIF', PrintConv => { 1 => 'Monochrome area', # (not standard EXIF) 2 => 'One-chip color area', 3 => 'Two-chip color area', 4 => 'Three-chip color area', 5 => 'Color sequential area', 6 => 'Monochrome linear', # (not standard EXIF) 7 => 'Trilinear', 8 => 'Color sequential linear', }, }, FileSource => { Writable => 'integer', PrintConv => { 1 => 'Film Scanner', 2 => 'Reflection Print Scanner', 3 => 'Digital Camera', } }, SceneType => { Writable => 'integer', PrintConv => { 1 => 'Directly photographed' } }, CFAPattern => { Struct => { STRUCT_NAME => 'CFAPattern', NAMESPACE => 'exif', Columns => { Writable => 'integer' }, Rows => { Writable => 'integer' }, Values => { Writable => 'integer', List => 'Seq' }, }, }, CustomRendered => { Writable => 'integer', PrintConv => { 0 => 'Normal', 1 => 'Custom', }, }, ExposureMode => { Groups => { 2 => 'Camera' }, Writable => 'integer', PrintConv => { 0 => 'Auto', 1 => 'Manual', 2 => 'Auto bracket', }, }, WhiteBalance => { Groups => { 2 => 'Camera' }, Writable => 'integer', PrintConv => { 0 => 'Auto', 1 => 'Manual', }, }, DigitalZoomRatio => { Writable => 'rational' }, FocalLengthIn35mmFilm => { Name => 'FocalLengthIn35mmFormat', Writable => 'integer', Groups => { 2 => 'Camera' }, PrintConv => '"$val mm"', PrintConvInv => '$val=~s/\s*mm$//;$val', }, SceneCaptureType => { Groups => { 2 => 'Camera' }, Writable => 'integer', PrintConv => { 0 => 'Standard', 1 => 'Landscape', 2 => 'Portrait', 3 => 'Night', }, }, GainControl => { Groups => { 2 => 'Camera' }, Writable => 'integer', PrintConv => { 0 => 'None', 1 => 'Low gain up', 2 => 'High gain up', 3 => 'Low gain down', 4 => 'High gain down', }, }, Contrast => { Groups => { 2 => 'Camera' }, Writable => 'integer', PrintConv => { 0 => 'Normal', 1 => 'Low', 2 => 'High', }, PrintConvInv => 'Image::ExifTool::Exif::ConvertParameter($val)', }, Saturation => { Groups => { 2 => 'Camera' }, Writable => 'integer', PrintConv => { 0 => 'Normal', 1 => 'Low', 2 => 'High', }, PrintConvInv => 'Image::ExifTool::Exif::ConvertParameter($val)', }, Sharpness => { Groups => { 2 => 'Camera' }, Writable => 'integer', PrintConv => { 0 => 'Normal', 1 => 'Soft', 2 => 'Hard', }, PrintConvInv => 'Image::ExifTool::Exif::ConvertParameter($val)', }, DeviceSettingDescription => { Groups => { 2 => 'Camera' }, Struct => { STRUCT_NAME => 'DeviceSettings', NAMESPACE => 'exif', Columns => { Writable => 'integer' }, Rows => { Writable => 'integer' }, Settings => { List => 'Seq' }, }, }, SubjectDistanceRange => { Groups => { 2 => 'Camera' }, Writable => 'integer', PrintConv => { 0 => 'Unknown', 1 => 'Macro', 2 => 'Close', 3 => 'Distant', }, }, ImageUniqueID => { }, GPSVersionID => { Groups => { 2 => 'Location' } }, GPSLatitude => { Groups => { 2 => 'Location' }, %latConv }, GPSLongitude => { Groups => { 2 => 'Location' }, %longConv }, GPSAltitudeRef => { Groups => { 2 => 'Location' }, Writable => 'integer', PrintConv => { 0 => 'Above Sea Level', 1 => 'Below Sea Level', }, }, GPSAltitude => { Groups => { 2 => 'Location' }, Writable => 'rational', # extricate unsigned decimal number from string ValueConvInv => '$val=~/((?=\d|\.\d)\d*(?:\.\d*)?)/ ? $1 : undef', PrintConv => '$val =~ /^(inf|undef)$/ ? $val : "$val m"', PrintConvInv => '$val=~s/\s*m$//;$val', }, GPSTimeStamp => { Name => 'GPSDateTime', Description => 'GPS Date/Time', Groups => { 2 => 'Time' }, Notes => q{ a date/time tag called GPSTimeStamp by the XMP specification. This tag is renamed here to prevent direct copy from EXIF:GPSTimeStamp which is a time-only tag. Instead, the value of this tag should be taken from Composite:GPSDateTime when copying from EXIF }, %dateTimeInfo, }, GPSSatellites => { Groups => { 2 => 'Location' } }, GPSStatus => { Groups => { 2 => 'Location' }, PrintConv => { A => 'Measurement Active', V => 'Measurement Void', }, }, GPSMeasureMode => { Groups => { 2 => 'Location' }, Writable => 'integer', PrintConv => { 2 => '2-Dimensional', 3 => '3-Dimensional', }, }, GPSDOP => { Groups => { 2 => 'Location' }, Writable => 'rational' }, GPSSpeedRef => { Groups => { 2 => 'Location' }, PrintConv => { K => 'km/h', M => 'mph', N => 'knots', }, }, GPSSpeed => { Groups => { 2 => 'Location' }, Writable => 'rational' }, GPSTrackRef => { Groups => { 2 => 'Location' }, PrintConv => { M => 'Magnetic North', T => 'True North', }, }, GPSTrack => { Groups => { 2 => 'Location' }, Writable => 'rational' }, GPSImgDirectionRef => { Groups => { 2 => 'Location' }, PrintConv => { M => 'Magnetic North', T => 'True North', }, }, GPSImgDirection => { Groups => { 2 => 'Location' }, Writable => 'rational' }, GPSMapDatum => { Groups => { 2 => 'Location' } }, GPSDestLatitude => { Groups => { 2 => 'Location' }, %latConv }, GPSDestLongitude=> { Groups => { 2 => 'Location' }, %longConv }, GPSDestBearingRef => { Groups => { 2 => 'Location' }, PrintConv => { M => 'Magnetic North', T => 'True North', }, }, GPSDestBearing => { Groups => { 2 => 'Location' }, Writable => 'rational' }, GPSDestDistanceRef => { Groups => { 2 => 'Location' }, PrintConv => { K => 'Kilometers', M => 'Miles', N => 'Nautical Miles', }, }, GPSDestDistance => { Groups => { 2 => 'Location' }, Writable => 'rational', }, GPSProcessingMethod => { Groups => { 2 => 'Location' } }, GPSAreaInformation => { Groups => { 2 => 'Location' } }, GPSDifferential => { Groups => { 2 => 'Location' }, Writable => 'integer', PrintConv => { 0 => 'No Correction', 1 => 'Differential Corrected', }, }, GPSHPositioningError => { #12 Description => 'GPS Horizontal Positioning Error', Groups => { 2 => 'Location' }, Writable => 'rational', PrintConv => '"$val m"', PrintConvInv => '$val=~s/\s*m$//; $val', }, NativeDigest => { }, #PH ); # Exif extended properties (exifEX, ref 12) %Image::ExifTool::XMP::exifEX = ( %xmpTableDefaults, GROUPS => { 1 => 'XMP-exifEX', 2 => 'Image' }, NAMESPACE => 'exifEX', PRIORITY => 0, # not as reliable as actual EXIF tags NOTES => q{ EXIF tags added by the EXIF 2.31 for XMP specification (see L). }, Gamma => { Writable => 'rational' }, PhotographicSensitivity => { Writable => 'integer' }, SensitivityType => { Writable => 'integer', PrintConv => { 0 => 'Unknown', 1 => 'Standard Output Sensitivity', 2 => 'Recommended Exposure Index', 3 => 'ISO Speed', 4 => 'Standard Output Sensitivity and Recommended Exposure Index', 5 => 'Standard Output Sensitivity and ISO Speed', 6 => 'Recommended Exposure Index and ISO Speed', 7 => 'Standard Output Sensitivity, Recommended Exposure Index and ISO Speed', }, }, StandardOutputSensitivity => { Writable => 'integer' }, RecommendedExposureIndex => { Writable => 'integer' }, ISOSpeed => { Writable => 'integer' }, ISOSpeedLatitudeyyy => { Description => 'ISO Speed Latitude yyy', Writable => 'integer', }, ISOSpeedLatitudezzz => { Description => 'ISO Speed Latitude zzz', Writable => 'integer', }, CameraOwnerName => { Name => 'OwnerName' }, BodySerialNumber => { Name => 'SerialNumber' }, LensSpecification => { Name => 'LensInfo', Writable => 'rational', List => 'Seq', RawJoin => 1, # join list into a string before ValueConv ValueConv => \&ConvertRationalList, ValueConvInv => sub { my $val = shift; my @vals = split ' ', $val; return $val unless @vals == 4; foreach (@vals) { $_ eq 'inf' and $_ = '1/0', next; $_ eq 'undef' and $_ = '0/0', next; Image::ExifTool::IsFloat($_) or return $val; my @a = Image::ExifTool::Rationalize($_); $_ = join '/', @a; } return \@vals; # return list reference (List-type tag) }, PrintConv => \&Image::ExifTool::Exif::PrintLensInfo, PrintConvInv => \&Image::ExifTool::Exif::ConvertLensInfo, Notes => q{ unfortunately the EXIF 2.3 for XMP specification defined this new tag instead of using the existing XMP-aux:LensInfo }, }, LensMake => { }, LensModel => { }, LensSerialNumber => { }, InteroperabilityIndex => { Name => 'InteropIndex', Description => 'Interoperability Index', PrintConv => { R98 => 'R98 - DCF basic file (sRGB)', R03 => 'R03 - DCF option file (Adobe RGB)', THM => 'THM - DCF thumbnail file', }, }, # new in Exif 2.31 Temperature => { Writable => 'rational', Name => 'AmbientTemperature' }, Humidity => { Writable => 'rational' }, Pressure => { Writable => 'rational' }, WaterDepth => { Writable => 'rational' }, Acceleration => { Writable => 'rational' }, CameraElevationAngle=> { Writable => 'rational' }, ); # Auxiliary namespace properties (aux) - not fully documented (ref PH) %Image::ExifTool::XMP::aux = ( %xmpTableDefaults, GROUPS => { 1 => 'XMP-aux', 2 => 'Camera' }, NAMESPACE => 'aux', NOTES => q{ Adobe-defined auxiliary EXIF tags. This namespace existed in the XMP specification until it was dropped in 2012, presumably due to the introduction of the EXIF 2.3 for XMP specification and the exifEX namespace at this time. For this reason, tags below with equivalents in the L are avoided when writing. }, Firmware => { }, #7 FlashCompensation => { Writable => 'rational' }, #7 ImageNumber => { }, #7 LensInfo => { #7 Notes => '4 rational values giving focal and aperture ranges', Avoid => 1, # convert to floating point values (or 'inf' or 'undef') ValueConv => \&ConvertRationalList, ValueConvInv => sub { my $val = shift; my @vals = split ' ', $val; return $val unless @vals == 4; foreach (@vals) { $_ eq 'inf' and $_ = '1/0', next; $_ eq 'undef' and $_ = '0/0', next; Image::ExifTool::IsFloat($_) or return $val; my @a = Image::ExifTool::Rationalize($_); $_ = join '/', @a; } return join ' ', @vals; # return string (string tag) }, # convert to the form "12-20mm f/3.8-4.5" or "50mm f/1.4" PrintConv => \&Image::ExifTool::Exif::PrintLensInfo, PrintConvInv => \&Image::ExifTool::Exif::ConvertLensInfo, }, Lens => { }, OwnerName => { Avoid => 1 }, #7 SerialNumber => { Avoid => 1 }, LensSerialNumber=> { Avoid => 1 }, LensID => { Priority => 0, # prevent this from getting set from a LensID that has been converted ValueConvInv => q{ warn "Expected one or more integer values" if $val =~ /[^\d ]/; return $val; }, }, ApproximateFocusDistance => { Writable => 'rational' }, #PH (LR3) # the following new in LR6 (ref forum6497) IsMergedPanorama => { Writable => 'boolean' }, IsMergedHDR => { Writable => 'boolean' }, DistortionCorrectionAlreadyApplied => { Writable => 'boolean' }, VignetteCorrectionAlreadyApplied => { Writable => 'boolean' }, LateralChromaticAberrationCorrectionAlreadyApplied => { Writable => 'boolean' }, LensDistortInfo => { }, # (LR 7.5.1, 4 signed rational values) ); # IPTC Core namespace properties (Iptc4xmpCore) (ref 4) %Image::ExifTool::XMP::iptcCore = ( %xmpTableDefaults, GROUPS => { 1 => 'XMP-iptcCore', 2 => 'Author' }, NAMESPACE => 'Iptc4xmpCore', TABLE_DESC => 'XMP IPTC Core', NOTES => q{ IPTC Core namespace tags. The actual IPTC Core namespace prefix is "Iptc4xmpCore", which is the prefix recorded in the file, but ExifTool shortens this for the family 1 group name. (see L) }, CountryCode => { Groups => { 2 => 'Location' } }, CreatorContactInfo => { Struct => { STRUCT_NAME => 'ContactInfo', NAMESPACE => 'Iptc4xmpCore', CiAdrCity => { }, CiAdrCtry => { }, CiAdrExtadr => { }, CiAdrPcode => { }, CiAdrRegion => { }, CiEmailWork => { }, CiTelWork => { }, CiUrlWork => { }, }, }, CreatorContactInfoCiAdrCity => { Flat => 1, Name => 'CreatorCity' }, CreatorContactInfoCiAdrCtry => { Flat => 1, Name => 'CreatorCountry' }, CreatorContactInfoCiAdrExtadr => { Flat => 1, Name => 'CreatorAddress' }, CreatorContactInfoCiAdrPcode => { Flat => 1, Name => 'CreatorPostalCode' }, CreatorContactInfoCiAdrRegion => { Flat => 1, Name => 'CreatorRegion' }, CreatorContactInfoCiEmailWork => { Flat => 1, Name => 'CreatorWorkEmail' }, CreatorContactInfoCiTelWork => { Flat => 1, Name => 'CreatorWorkTelephone' }, CreatorContactInfoCiUrlWork => { Flat => 1, Name => 'CreatorWorkURL' }, IntellectualGenre => { Groups => { 2 => 'Other' } }, Location => { Groups => { 2 => 'Location' } }, Scene => { Groups => { 2 => 'Other' }, List => 'Bag' }, SubjectCode => { Groups => { 2 => 'Other' }, List => 'Bag' }, ); # Adobe Lightroom namespace properties (lr) (ref PH) %Image::ExifTool::XMP::Lightroom = ( %xmpTableDefaults, GROUPS => { 1 => 'XMP-lr', 2 => 'Image' }, NAMESPACE => 'lr', TABLE_DESC => 'XMP Adobe Lightroom', NOTES => 'Adobe Lightroom "lr" namespace tags.', privateRTKInfo => { }, hierarchicalSubject => { List => 'Bag' }, ); # Adobe Album namespace properties (album) (ref PH) %Image::ExifTool::XMP::Album = ( %xmpTableDefaults, GROUPS => { 1 => 'XMP-album', 2 => 'Image' }, NAMESPACE => 'album', TABLE_DESC => 'XMP Adobe Album', NOTES => 'Adobe Album namespace tags.', Notes => { }, ); # table to add tags in other namespaces %Image::ExifTool::XMP::other = ( GROUPS => { 2 => 'Unknown' }, LANG_INFO => \&GetLangInfo, ); # Composite XMP tags %Image::ExifTool::XMP::Composite = ( # get latitude/logitude reference from XMP lat/long tags # (used to set EXIF GPS position from XMP tags) GPSLatitudeRef => { Require => 'XMP:GPSLatitude', ValueConv => q{ IsFloat($val[0]) and return $val[0] < 0 ? "S" : "N"; $val[0] =~ /^.*([NS])/; return $1; }, PrintConv => { N => 'North', S => 'South' }, }, GPSLongitudeRef => { Require => 'XMP:GPSLongitude', ValueConv => q{ IsFloat($val[0]) and return $val[0] < 0 ? "W" : "E"; $val[0] =~ /^.*([EW])/; return $1; }, PrintConv => { E => 'East', W => 'West' }, }, GPSDestLatitudeRef => { Require => 'XMP:GPSDestLatitude', ValueConv => q{ IsFloat($val[0]) and return $val[0] < 0 ? "S" : "N"; $val[0] =~ /^.*([NS])/; return $1; }, PrintConv => { N => 'North', S => 'South' }, }, GPSDestLongitudeRef => { Require => 'XMP:GPSDestLongitude', ValueConv => q{ IsFloat($val[0]) and return $val[0] < 0 ? "W" : "E"; $val[0] =~ /^.*([EW])/; return $1; }, PrintConv => { E => 'East', W => 'West' }, }, LensID => { Notes => 'attempt to convert numerical XMP-aux:LensID stored by Adobe applications', Require => { 0 => 'XMP-aux:LensID', 1 => 'Make', }, Desire => { 2 => 'LensInfo', 3 => 'FocalLength', 4 => 'LensModel', 5 => 'MaxApertureValue', }, Inhibit => { 6 => 'Composite:LensID', # don't override existing Composite:LensID }, ValueConv => '$val', PrintConv => 'Image::ExifTool::XMP::PrintLensID($self, @val)', }, Flash => { Notes => 'facilitates copying camera flash information between XMP and EXIF', Desire => { 0 => 'XMP:FlashFired', 1 => 'XMP:FlashReturn', 2 => 'XMP:FlashMode', 3 => 'XMP:FlashFunction', 4 => 'XMP:FlashRedEyeMode', 5 => 'XMP:Flash', # handle structured flash information too }, Writable => 1, PrintHex => 1, SeparateTable => 'EXIF Flash', ValueConv => q{ if (ref $val[5] eq 'HASH') { # copy structure fields into value array my $i = 0; $val[$i++] = $val[5]{$_} foreach qw(Fired Return Mode Function RedEyeMode); } return (($val[0] and lc($val[0]) eq 'true') ? 0x01 : 0) | (($val[1] || 0) << 1) | (($val[2] || 0) << 3) | (($val[3] and lc($val[3]) eq 'true') ? 0x20 : 0) | (($val[4] and lc($val[4]) eq 'true') ? 0x40 : 0); }, PrintConv => \%Image::ExifTool::Exif::flash, WriteAlso => { 'XMP:FlashFired' => '$val & 0x01 ? "True" : "False"', 'XMP:FlashReturn' => '($val & 0x06) >> 1', 'XMP:FlashMode' => '($val & 0x18) >> 3', 'XMP:FlashFunction' => '$val & 0x20 ? "True" : "False"', 'XMP:FlashRedEyeMode' => '$val & 0x40 ? "True" : "False"', }, }, ); # add our composite tags Image::ExifTool::AddCompositeTags('Image::ExifTool::XMP'); #------------------------------------------------------------------------------ # AutoLoad our writer routines when necessary # sub AUTOLOAD { return Image::ExifTool::DoAutoLoad($AUTOLOAD, @_); } #------------------------------------------------------------------------------ # Escape necessary XML characters in UTF-8 string # Inputs: 0) string to be escaped # Returns: escaped string my %charName = ('"'=>'quot', '&'=>'amp', "'"=>'#39', '<'=>'lt', '>'=>'gt'); sub EscapeXML($) { my $str = shift; $str =~ s/([&><'"])/&$charName{$1};/sg; # escape necessary XML characters return $str; } #------------------------------------------------------------------------------ # Unescape XML character references (entities and numerical) # Inputs: 0) string to be unescaped # 1) optional hash reference to convert entity names to numbers # Returns: unescaped string my %charNum = ('quot'=>34, 'amp'=>38, 'apos'=>39, 'lt'=>60, 'gt'=>62); sub UnescapeXML($;$) { my ($str, $conv) = @_; $conv = \%charNum unless $conv; $str =~ s/&(#?\w+);/UnescapeChar($1,$conv)/sge; return $str; } #------------------------------------------------------------------------------ # Escape string for XML, ensuring valid XML and UTF-8 # Inputs: 0) string # Returns: escaped string sub FullEscapeXML($) { my $str = shift; $str =~ s/([&><'"])/&$charName{$1};/sg; # escape necessary XML characters $str =~ s/\\/\/sg; # escape backslashes too # then use C-escape sequences for invalid characters if ($str =~ /[\0-\x1f]/ or IsUTF8(\$str) < 0) { $str =~ s/([\0-\x1f\x80-\xff])/sprintf("\\x%.2x",ord $1)/sge; } return $str; } #------------------------------------------------------------------------------ # Unescape XML/C escaped string # Inputs: 0) string # Returns: unescaped string sub FullUnescapeXML($) { my $str = shift; # unescape C escape sequences first $str =~ s/\\x([\da-f]{2})/chr(hex($1))/sge; my $conv = \%charNum; $str =~ s/&(#?\w+);/UnescapeChar($1,$conv)/sge; return $str; } #------------------------------------------------------------------------------ # Convert XML character reference to UTF-8 # Inputs: 0) XML character reference stripped of the '&' and ';' (eg. 'quot', '#34', '#x22') # 1) hash reference for looking up character numbers by name # Returns: UTF-8 equivalent (or original character on conversion error) sub UnescapeChar($$) { my ($ch, $conv) = @_; my $val = $$conv{$ch}; unless (defined $val) { if ($ch =~ /^#x([0-9a-fA-F]+)$/) { $val = hex($1); } elsif ($ch =~ /^#(\d+)$/) { $val = $1; } else { return "&$ch;"; # should issue a warning here? [no] } } return chr($val) if $val < 0x80; # simple ASCII return pack('C0U', $val) if $] >= 5.006001; return Image::ExifTool::PackUTF8($val); } #------------------------------------------------------------------------------ # Does a string contain valid UTF-8 characters? # Inputs: 0) string reference # Returns: 0=regular ASCII, -1=invalid UTF-8, 1=valid UTF-8 with maximum 16-bit # wide characters, 2=valid UTF-8 requiring 32-bit wide characters # Notes: Changes current string position # (see http://www.fileformat.info/info/unicode/utf8.htm for help understanding this) sub IsUTF8($) { my $strPt = shift; pos($$strPt) = 0; # start at beginning of string return 0 unless $$strPt =~ /([\x80-\xff])/g; my $rtnVal = 1; for (;;) { my $ch = ord($1); # minimum lead byte for 2-byte sequence is 0xc2 (overlong sequences # not allowed), 0xf8-0xfd are restricted by RFC 3629 (no 5 or 6 byte # sequences), and 0xfe and 0xff are not valid in UTF-8 strings return -1 if $ch < 0xc2 or $ch >= 0xf8; # determine number of bytes remaining in sequence my $n; if ($ch < 0xe0) { $n = 1; } elsif ($ch < 0xf0) { $n = 2; } else { $n = 3; # character code is greater than 0xffff if more than 2 extra bytes # were required in the UTF-8 character $rtnVal = 2; } return -1 unless $$strPt =~ /\G([\x80-\xbf]{$n})/g; # the following is ref https://www.cl.cam.ac.uk/%7Emgk25/ucs/utf8_check.c if ($n == 2) { return -1 if ($ch == 0xe0 and (ord($1) & 0xe0) == 0x80) or ($ch == 0xed and (ord($1) & 0xe0) == 0xa0) or ($ch == 0xef and ord($1) == 0xbf and (ord(substr $1, 1) & 0xfe) == 0xbe); } else { return -1 if ($ch == 0xf0 and (ord($1) & 0xf0) == 0x80) or ($ch == 0xf4 and ord($1) > 0x8f) or $ch > 0xf4; } last unless $$strPt =~ /([\x80-\xff])/g; } return $rtnVal; } #------------------------------------------------------------------------------ # Fix malformed UTF8 (by replacing bad bytes with specified character) # Inputs: 0) string reference, 1) string to replace each bad byte, # may be '' to delete bad bytes, or undef to use '?' # Returns: true if string was fixed, and updates string sub FixUTF8($;$) { my ($strPt, $bad) = @_; my $fixed; pos($$strPt) = 0; # start at beginning of string for (;;) { last unless $$strPt =~ /([\x80-\xff])/g; my $ch = ord($1); my $pos = pos($$strPt); # (see comments in IsUTF8() above) if ($ch >= 0xc2 and $ch < 0xf8) { my $n = $ch < 0xe0 ? 1 : ($ch < 0xf0 ? 2 : 3); if ($$strPt =~ /\G([\x80-\xbf]{$n})/g) { next if $n == 1; if ($n == 2) { next unless ($ch == 0xe0 and (ord($1) & 0xe0) == 0x80) or ($ch == 0xed and (ord($1) & 0xe0) == 0xa0) or ($ch == 0xef and ord($1) == 0xbf and (ord(substr $1, 1) & 0xfe) == 0xbe); } else { next unless ($ch == 0xf0 and (ord($1) & 0xf0) == 0x80) or ($ch == 0xf4 and ord($1) > 0x8f) or $ch > 0xf4; } } } # replace bad character $bad = '?' unless defined $bad; substr($$strPt, $pos-1, 1) = $bad; pos($$strPt) = $pos-1 + length $bad; $fixed = 1; } return $fixed; } #------------------------------------------------------------------------------ # Utility routine to decode a base64 string # Inputs: 0) base64 string # Returns: reference to decoded data sub DecodeBase64($) { local($^W) = 0; # unpack('u',...) gives bogus warning in 5.00[123] my $str = shift; # truncate at first unrecognized character (base 64 data # may only contain A-Z, a-z, 0-9, +, /, =, or white space) $str =~ s/[^A-Za-z0-9+\/= \t\n\r\f].*//s; # translate to uucoded and remove padding and white space $str =~ tr/A-Za-z0-9+\/= \t\n\r\f/ -_/d; # convert the data to binary in chunks my $chunkSize = 60; my $uuLen = pack('c', 32 + $chunkSize * 3 / 4); # calculate length byte my $dat = ''; my ($i, $substr); # loop through the whole chunks my $len = length($str) - $chunkSize; for ($i=0; $i<=$len; $i+=$chunkSize) { $substr = substr($str, $i, $chunkSize); # get a chunk of the data $dat .= unpack('u', $uuLen . $substr); # decode it } $len += $chunkSize; # handle last partial chunk if necessary if ($i < $len) { $uuLen = pack('c', 32 + ($len-$i) * 3 / 4); # recalculate length $substr = substr($str, $i, $len-$i); # get the last partial chunk $dat .= unpack('u', $uuLen . $substr); # decode it } return \$dat; } #------------------------------------------------------------------------------ # Generate a tag ID for this XMP tag # Inputs: 0) tag property name list ref, 1) array ref for receiving structure property list # 2) array for receiving namespace list # Returns: tagID and outtermost interesting namespace (or '' if no namespace) sub GetXMPTagID($;$$) { my ($props, $structProps, $nsList) = @_; my ($tag, $prop, $namespace); foreach $prop (@$props) { # split name into namespace and property name # (Note: namespace can be '' for property qualifiers) my ($ns, $nm) = ($prop =~ /(.*?):(.*)/) ? ($1, $2) : ('', $prop); if ($ignoreNamespace{$ns} or $ignoreProp{$prop}) { # special case: don't ignore rdf numbered items # (not technically allowed in XMP, but used in RDF/XML) unless ($prop =~ /^rdf:(_\d+)$/) { # save list index if necessary for structures if ($structProps and @$structProps and $prop =~ /^rdf:li (\d+)$/) { push @{$$structProps[-1]}, $1; } next; } $tag .= $1 if defined $tag; } else { $nm =~ s/ .*//; # remove nodeID if it exists # all uppercase is ugly, so convert it if ($nm !~ /[a-z]/) { my $xlat = $stdXlatNS{$ns} || $ns; my $info = $Image::ExifTool::XMP::Main{$xlat}; my $table; if (ref $info eq 'HASH' and $$info{SubDirectory}) { $table = GetTagTable($$info{SubDirectory}{TagTable}); } unless ($table and $$table{$nm}) { $nm = lc($nm); $nm =~ s/_([a-z])/\u$1/g; } } if (defined $tag) { $tag .= ucfirst($nm); # add to tag name } else { $tag = $nm; } # save structure information if necessary if ($structProps) { push @$structProps, [ $nm ]; push @$nsList, $ns if $nsList; } } # save namespace of first property to contribute to tag name $namespace = $ns unless $namespace; } if (wantarray) { return ($tag, $namespace || ''); } else { return $tag; } } #------------------------------------------------------------------------------ # Register namespace for specified user-defined table # Inputs: 0) tag/structure table ref # Returns: namespace prefix sub RegisterNamespace($) { my $table = shift; return $$table{NAMESPACE} unless ref $$table{NAMESPACE}; my $nsRef = $$table{NAMESPACE}; # recognize as either a list or hash my $ns; if (ref $nsRef eq 'ARRAY') { $ns = $$nsRef[0]; $nsURI{$ns} = $$nsRef[1]; $uri2ns{$$nsRef[1]} = $ns; } else { # must be a hash my @ns = sort keys %$nsRef; # allow multiple namespace definitions while (@ns) { $ns = pop @ns; if ($nsURI{$ns} and $nsURI{$ns} ne $$nsRef{$ns}) { warn "User-defined namespace prefix '${ns}' conflicts with existing namespace\n"; } $nsURI{$ns} = $$nsRef{$ns}; $uri2ns{$$nsRef{$ns}} = $ns; } } return $$table{NAMESPACE} = $ns; } #------------------------------------------------------------------------------ # Generate flattened tags and add to table # Inputs: 0) tag table ref, 1) tag ID for Struct tag (if not defined, whole table is done), # 2) flag to not expand sub-structures # Returns: number of tags added (not counting those just initialized) # Notes: Must have verified that $$tagTablePtr{$tagID}{Struct} exists before calling this routine # - makes sure that the tagInfo Struct is a HASH reference sub AddFlattenedTags($;$$) { local $_; my ($tagTablePtr, $tagID, $noSubStruct) = @_; my $count = 0; my @tagIDs; if (defined $tagID) { push @tagIDs, $tagID; } else { foreach $tagID (TagTableKeys($tagTablePtr)) { my $tagInfo = $$tagTablePtr{$tagID}; next unless ref $tagInfo eq 'HASH' and $$tagInfo{Struct}; push @tagIDs, $tagID; } } # loop through specified tags foreach $tagID (@tagIDs) { my $tagInfo = $$tagTablePtr{$tagID}; $$tagInfo{Flattened} and next; # only generate flattened tags once $$tagInfo{Flattened} = 1; my $strTable = $$tagInfo{Struct}; unless (ref $strTable) { # (allow a structure name for backward compatibility only) my $strName = $strTable; $strTable = $Image::ExifTool::UserDefined::xmpStruct{$strTable} or next; $$strTable{STRUCT_NAME} or $$strTable{STRUCT_NAME} = "XMP $strName"; $$tagInfo{Struct} = $strTable; # replace old-style name with HASH ref delete $$tagInfo{SubDirectory}; # deprecated use of SubDirectory in Struct tags } # do not add flattened tags to variable-namespace structures next if exists $$strTable{NAMESPACE} and not defined $$strTable{NAMESPACE}; # get prefix for flattened tag names my $flat = (defined $$tagInfo{FlatName} ? $$tagInfo{FlatName} : $$tagInfo{Name}); # get family 2 group name for this structure tag my ($tagG2, $field); $tagG2 = $$tagInfo{Groups}{2} if $$tagInfo{Groups}; $tagG2 or $tagG2 = $$tagTablePtr{GROUPS}{2}; foreach $field (keys %$strTable) { next if $specialStruct{$field}; my $fieldInfo = $$strTable{$field}; next if $$fieldInfo{LangCode}; # don't flatten lang-alt tags next if $$fieldInfo{Struct} and $noSubStruct; # don't expand sub-structures if specified # build a tag ID for the corresponding flattened tag my $fieldName = ucfirst($field); my $flatField = $$fieldInfo{FlatName} || $fieldName; my $flatID = $tagID . $fieldName; my $flatInfo = $$tagTablePtr{$flatID}; if ($flatInfo) { ref $flatInfo eq 'HASH' or warn("$flatInfo is not a HASH!\n"), next; # (to be safe) # pre-defined flattened tags should have Flat flag set if (not defined $$flatInfo{Flat} and $Image::ExifTool::debug) { warn "Missing Flat flag for $$flatInfo{Name}\n"; } $$flatInfo{Flat} = 0; # copy all missing entries from field information foreach (keys %$fieldInfo) { # must not copy PropertyPath (but can't delete it afterwards # because the flat tag may already have this set) next if $_ eq 'PropertyPath' or defined $$flatInfo{$_}; # copy the property (making a copy of the Groups hash) $$flatInfo{$_} = $_ eq 'Groups' ? { %{$$fieldInfo{$_}} } : $$fieldInfo{$_}; } # (NOTE: Can NOT delete Groups because we need them if GotGroups was done) # re-generate List flag unless it is set to 0 delete $$flatInfo{List} if $$flatInfo{List}; } else { # generate new flattened tag information based on structure field my $flatName = $flat . $flatField; $flatInfo = { %$fieldInfo, Name => $flatName, Flat => 0 }; # make a copy of the Groups hash if necessary $$flatInfo{Groups} = { %{$$fieldInfo{Groups}} } if $$fieldInfo{Groups}; # add new flattened tag to table AddTagToTable($tagTablePtr, $flatID, $flatInfo); ++$count; } # propagate List flag (unless set to 0 in pre-defined flattened tag) unless (defined $$flatInfo{List}) { $$flatInfo{List} = $$fieldInfo{List} || 1 if $$fieldInfo{List} or $$tagInfo{List}; } # set group 2 name from the first existing family 2 group in the: # 1) structure field Groups, 2) structure table GROUPS, 3) structure tag Groups if ($$fieldInfo{Groups} and $$fieldInfo{Groups}{2}) { $$flatInfo{Groups}{2} = $$fieldInfo{Groups}{2}; } elsif ($$strTable{GROUPS} and $$strTable{GROUPS}{2}) { $$flatInfo{Groups}{2} = $$strTable{GROUPS}{2}; } else { $$flatInfo{Groups}{2} = $tagG2; } # save reference to top-level structure $$flatInfo{RootTagInfo} = $$tagInfo{RootTagInfo} || $tagInfo; # recursively generate flattened tags for sub-structures next unless $$flatInfo{Struct}; length($flatID) > 250 and warn("Possible deep recursion for tag $flatID\n"), last; # reset flattened tag just in case we flattened hierarchy in the wrong order # because we must start from the outtermost structure to get the List flags right # (this should only happen when building tag tables) delete $$flatInfo{Flattened}; $count += AddFlattenedTags($tagTablePtr, $flatID, $$flatInfo{NoSubStruct}); } } return $count; } #------------------------------------------------------------------------------ # Get localized version of tagInfo hash # Inputs: 0) tagInfo hash ref, 1) language code (eg. "x-default") # Returns: new tagInfo hash ref, or undef if invalid sub GetLangInfo($$) { my ($tagInfo, $langCode) = @_; # only allow alternate language tags in lang-alt lists return undef unless $$tagInfo{Writable} and $$tagInfo{Writable} eq 'lang-alt'; $langCode =~ tr/_/-/; # RFC 3066 specifies '-' as a separator my $langInfo = Image::ExifTool::GetLangInfo($tagInfo, $langCode); return $langInfo; } #------------------------------------------------------------------------------ # Get standard case for language code # Inputs: 0) Language code # Returns: Language code in standard case sub StandardLangCase($) { my $lang = shift; # make 2nd subtag uppercase only if it is 2 letters return lc($1) . uc($2) . lc($3) if $lang =~ /^([a-z]{2,3}|[xi])(-[a-z]{2})\b(.*)/i; return lc($lang); } #------------------------------------------------------------------------------ # Scan for XMP in a file # Inputs: 0) ExifTool object ref, 1) RAF reference # Returns: 1 if xmp was found, 0 otherwise # Notes: Currently only recognizes UTF8-encoded XMP sub ScanForXMP($$) { my ($et, $raf) = @_; my ($buff, $xmp); my $lastBuff = ''; $et->VPrint(0,"Scanning for XMP\n"); for (;;) { defined $buff or $raf->Read($buff, 65536) or return 0; unless (defined $xmp) { $lastBuff .= $buff; unless ($lastBuff =~ /(<\?xpacket begin=)/g) { # must keep last 15 bytes to match 16-byte "xpacket begin" string $lastBuff = length($buff) <= 15 ? $buff : substr($buff, -15); undef $buff; next; } $xmp = $1; $buff = substr($lastBuff, pos($lastBuff)); } my $pos = length($xmp) - 18; # (18 = length(" 0; # set start for "xpacket end" scan if ($xmp =~ /<\?xpacket end=['"][wr]['"]\?>/g) { $buff = substr($xmp, pos($xmp)); # save data after end of XMP $xmp = substr($xmp, 0, pos($xmp)); # isolate XMP # check XMP for validity (not valid if it contains null bytes) $pos = rindex($xmp, "\0") + 1 or last; $lastBuff = substr($xmp, $pos); # re-parse beginning after last null byte undef $xmp; } else { undef $buff; } } unless ($$et{VALUE}{FileType}) { $$et{FILE_TYPE} = $$et{FILE_EXT}; $et->SetFileType('', undef, ''); } my %dirInfo = ( DataPt => \$xmp, DirLen => length $xmp, DataLen => length $xmp, ); ProcessXMP($et, \%dirInfo); return 1; } #------------------------------------------------------------------------------ # Print conversion for XMP-aux:LensID # Inputs: 0) ExifTool ref, 1) LensID, 2) Make, 3) LensInfo, 4) FocalLength, # 5) LensModel, 6) MaxApertureValue # (yes, this is ugly -- blame Adobe) sub PrintLensID(@) { local $_; my ($et, $id, $make, $info, $focalLength, $lensModel, $maxAv) = @_; my ($mk, $printConv); my %alt = ( Pentax => 'Ricoh' ); # Pentax changed its name to Ricoh # missing: Olympus (no XMP:LensID written by Adobe) foreach $mk (qw(Canon Nikon Pentax Sony Sigma Samsung Leica)) { next unless $make =~ /$mk/i or ($alt{$mk} and $make =~ /$alt{$mk}/i); # get name of module containing the lens lookup (default "Make.pm") my $mod = { Sigma => 'SigmaRaw', Leica => 'Panasonic' }->{$mk} || $mk; require "Image/ExifTool/$mod.pm"; # get the name of the lens name lookup (default "makeLensTypes") # (canonLensTypes, pentaxLensTypes, nikonLensIDs, etc) my $convName = "Image::ExifTool::${mod}::" . ({ Nikon => 'nikonLensIDs' }->{$mk} || lc($mk) . 'LensTypes'); no strict 'refs'; %$convName or last; my $printConv = \%$convName; use strict 'refs'; # sf = short focal # lf = long focal # sa = max aperture at short focal # la = max aperture at long focal my ($sf, $lf, $sa, $la); if ($info) { my @a = split ' ', $info; $_ eq 'undef' and $_ = undef foreach @a; ($sf, $lf, $sa, $la) = @a; # for Sony and ambiguous LensID, $info data may be incorrect: # use only if it agrees with $focalLength and $maxAv (ref JR) if ($mk eq 'Sony' and (($focalLength and (($sf and $focalLength < $sf - 0.5) or ($lf and $focalLength > $lf + 0.5))) or ($maxAv and (($sa and $maxAv < $sa - 0.15) or ($la and $maxAv > $la + 0.15))))) { undef $sf; undef $lf; undef $sa; undef $la; } elsif ($maxAv) { # (using the short-focal-length max aperture in place of MaxAperture # is a bad approximation, so don't do this if MaxApertureValue exists) undef $sa; } } if ($mk eq 'Pentax' and $id =~ /^\d+$/) { # for Pentax, CS4 stores an int16u, but we use 2 x int8u $id = join(' ', unpack('C*', pack('n', $id))); } my $str = $$printConv{$id} || "Unknown ($id)"; # Nikon is a special case because Adobe doesn't store the full LensID if ($mk eq 'Nikon') { my $hex = sprintf("%.2X", $id); my (%newConv, %used); my $i = 0; foreach (grep /^$hex /, keys %$printConv) { my $lens = $$printConv{$_}; next if $used{$lens}; # avoid duplicates $used{$lens} = 1; $newConv{$i ? "$id.$i" : $id} = $lens; ++$i; } $printConv = \%newConv; } return Image::ExifTool::Exif::PrintLensID($et, $str, $printConv, undef, $id, $focalLength, $sa, $maxAv, $sf, $lf, $lensModel); } return "Unknown ($id)"; } #------------------------------------------------------------------------------ # Convert XMP date/time to EXIF format # Inputs: 0) XMP date/time string, 1) set if we aren't sure this is a date # Returns: EXIF date/time sub ConvertXMPDate($;$) { my ($val, $unsure) = @_; if ($val =~ /^(\d{4})-(\d{2})-(\d{2})[T ](\d{2}:\d{2})(:\d{2})?\s*(\S*)$/) { my $s = $5 || ''; # seconds may be missing $val = "$1:$2:$3 $4$s$6"; # convert back to EXIF time format } elsif (not $unsure and $val =~ /^(\d{4})(-\d{2}){0,2}/) { $val =~ tr/-/:/; } return $val; } #------------------------------------------------------------------------------ # Convert rational string value # Inputs: 0) string (converted to number, 'inf' or 'undef' on return if rational) # Returns: true if value was converted sub ConvertRational($) { my $val = $_[0]; $val =~ m{^(-?\d+)/(-?\d+)$} or return undef; if ($2 != 0) { $_[0] = $1 / $2; # calculate quotient } elsif ($1) { $_[0] = 'inf'; } else { $_[0] = 'undef'; } return 1; } #------------------------------------------------------------------------------ # Convert a string of floating point values to rationals # Inputs: 0) string of floating point numbers separated by spaces # Returns: string of rational numbers separated by spaces sub ConvertRationalList($) { my $val = shift; my @vals = split ' ', $val; return $val unless @vals == 4; foreach (@vals) { ConvertRational($_) or return $val; } return join ' ', @vals; } #------------------------------------------------------------------------------ # We found an XMP property name/value # Inputs: 0) ExifTool object ref, 1) Pointer to tag table # 2) reference to array of XMP property names (last is current property) # 3) property value, 4) attribute hash ref (for 'xml:lang' or 'rdf:datatype') # Returns: 1 if valid tag was found sub FoundXMP($$$$;$) { local $_; my ($et, $tagTablePtr, $props, $val, $attrs) = @_; my ($lang, @structProps, $rawVal, $rational); my ($tag, $ns) = GetXMPTagID($props, $$et{OPTIONS}{Struct} ? \@structProps : undef); return 0 unless $tag; # ignore things that aren't valid tags # translate namespace if necessary $ns = $stdXlatNS{$ns} if $stdXlatNS{$ns}; my $info = $$tagTablePtr{$ns}; my ($table, $added, $xns, $tagID); if ($info) { $table = $$info{SubDirectory}{TagTable} or warn "Missing TagTable for $tag!\n"; } elsif ($$props[0] eq 'svg:svg') { if (not $ns) { # disambiguate MetadataID by adding back the 'metadata' we ignored $tag = 'metadataId' if $tag eq 'id' and $$props[1] eq 'svg:metadata'; # use SVG namespace in SVG files if nothing better to use $table = 'Image::ExifTool::XMP::SVG'; } elsif (not grep /^rdf:/, @$props) { # only other SVG information if not inside RDF (call it XMP if in RDF) $table = 'Image::ExifTool::XMP::otherSVG'; } } if (not $ns and $$tagTablePtr{GROUPS}{0} ne 'XMP') { # this is a simple XML table (no namespaces) $tagID = $tag; } else { # look up this tag in the appropriate table $table or $table = 'Image::ExifTool::XMP::other'; $tagTablePtr = GetTagTable($table); if ($$tagTablePtr{NAMESPACE}) { $tagID = $tag; } else { # add XMP namespace prefix to avoid collisions in variable-namespace tables $xns = $xmpNS{$ns} || $ns; $tagID = "$xns:$tag"; # add namespace to top-level structure property $structProps[0][0] = "$xns:" . $structProps[0][0] if @structProps; } } my $tagInfo = $et->GetTagInfo($tagTablePtr, $tagID); $lang = $$attrs{'xml:lang'} if $attrs; # must add a new tag table entry if this tag isn't pre-defined # (or initialize from structure field if this is a pre-defined flattened tag) NoLoop: while (not $tagInfo or $$tagInfo{Flat}) { my (@tagList, @nsList); GetXMPTagID($props, \@tagList, \@nsList); my ($ta, $t, $ti, $addedFlat, $i, $j); # build tag ID strings for each level in the property path foreach $ta (@tagList) { # insert tag ID in index 1 of tagList list $t = $$ta[1] = $t ? $t . ucfirst($$ta[0]) : $$ta[0]; # generate flattened tags for top-level structure if necessary next if defined $addedFlat; $ti = $$tagTablePtr{$t} or next; next unless ref $ti eq 'HASH' and $$ti{Struct}; $addedFlat = AddFlattenedTags($tagTablePtr, $t); if ($tagInfo) { # all done if we just wanted to initialize the flattened tag if ($$tagInfo{Flat}) { warn "Orphan tagInfo with Flat flag set: $$tagInfo{Name}\n"; delete $$tagInfo{Flat}; } last NoLoop; } # all done if we generated the tag we are looking for $tagInfo = $$tagTablePtr{$tagID} and last NoLoop if $addedFlat; } my $name = ucfirst($tag); # search for the innermost containing structure # (in case tag is an unknown field in a known structure) # (only necessary if we found a structure above) if (defined $addedFlat) { my $t2 = ''; for ($i=$#tagList-1; $i>=0; --$i) { $t = $tagList[$i][1]; $t2 = $tagList[$i+1][0] . ucfirst($t2); # build relative tag id $ti = $$tagTablePtr{$t} or next; next unless ref $ti eq 'HASH'; my $strTable = $$ti{Struct} or next; my $flat = (defined $$ti{FlatName} ? $$ti{FlatName} : $$ti{Name}); $name = $flat . ucfirst($t2); # don't continue if structure is known but field is not last if $$strTable{NAMESPACE} or not exists $$strTable{NAMESPACE}; # this is a variable-namespace structure, so we must: # 1) get tagInfo from corresponding top-level XMP tag if it exists # 2) add new entry in this tag table, but with namespace prefix on tag ID my $n = $nsList[$i+1]; # namespace of structure field # translate to standard ExifTool namespace $n = $stdXlatNS{$n} if $stdXlatNS{$n}; my $xn = $xmpNS{$n} || $n; # standard XMP namespace # no need to continue with variable-namespace logic if # we are in our own namespace (right?) last if $xn eq ($$tagTablePtr{NAMESPACE} || ''); $tagID = "$xn:$tag"; # add namespace to avoid collisions # change structure properties to add the standard XMP namespace # prefix for this field (needed for variable-namespace fields) if (@structProps) { $structProps[$i+1][0] = "$xn:" . $structProps[$i+1][0]; } # copy tagInfo entries from the existing top-level XMP tag my $tg = $Image::ExifTool::XMP::Main{$n}; last unless ref $tg eq 'HASH' and $$tg{SubDirectory}; my $tbl = GetTagTable($$tg{SubDirectory}{TagTable}) or last; my $sti = $et->GetTagInfo($tbl, $t2); if (not $sti or $$sti{Flat}) { # again, we must initialize flattened tags if necessary # (but don't bother to recursively apply full logic to # allow nested variable-namespace strucures until someone # actually wants to do such a silly thing) my $t3 = ''; for ($j=$i+1; $j<@tagList; ++$j) { $t3 = $tagList[$j][0] . ucfirst($t3); my $ti3 = $$tbl{$t3} or next; next unless ref $ti3 eq 'HASH' and $$ti3{Struct}; last unless AddFlattenedTags($tbl, $t3); $sti = $$tbl{$t2}; last; } last unless $sti; } $tagInfo = { %$sti, Name => $flat . $$sti{Name}, WasAdded => 1, }; # be careful not to copy elements we shouldn't... delete $$tagInfo{Description}; # Description will be different # can't copy group hash because group 1 will be different and # we need to check this when writing tag to a specific group delete $$tagInfo{Groups}; $$tagInfo{Groups}{2} = $$sti{Groups}{2} if $$sti{Groups}; last; } } $tagInfo or $tagInfo = { Name => $name, WasAdded => 1, Priority => 0 }; # add tag Namespace entry for tags in variable-namespace tables $$tagInfo{Namespace} = $xns if $xns; if ($$et{curURI}{$ns} and $$et{curURI}{$ns} =~ m{^http://ns.exiftool.ca/(.*?)/(.*?)/}) { my %grps = ( 0 => $1, 1 => $2 ); # apply a little magic to recover original group names # from this exiftool-written RDF/XML file if ($grps{1} =~ /^\d/) { # URI's with only family 0 are internal tags from the source file, # so change the group name to avoid confusion with tags from this file $grps{1} = "XML-$grps{0}"; $grps{0} = 'XML'; } $$tagInfo{Groups} = \%grps; # flag to avoid setting group 1 later $$tagInfo{StaticGroup1} = 1; } # construct tag information for this unknown tag # -> make this a List or lang-alt tag if necessary if (@$props > 2 and $$props[-1] =~ /^rdf:li \d+$/ and $$props[-2] =~ /^rdf:(Bag|Seq|Alt)$/) { if ($lang and $1 eq 'Alt') { $$tagInfo{Writable} = 'lang-alt'; } else { $$tagInfo{List} = $1; } # tried this, but maybe not a good idea for complex structures: #} elsif (grep / /, @$props) { # $$tagInfo{List} = 1; } AddTagToTable($tagTablePtr, $tagID, $tagInfo); $added = 1; last; } # decode value if necessary (et:encoding was used before exiftool 7.71) if ($attrs) { my $enc = $$attrs{'rdf:datatype'} || $$attrs{'et:encoding'}; if ($enc and $enc =~ /base64/) { $val = DecodeBase64($val); # (now a value ref) $val = $$val unless length $$val > 100 or $$val =~ /[\0-\x08\x0b\0x0c\x0e-\x1f]/; } } if (defined $lang and lc($lang) ne 'x-default') { $lang = StandardLangCase($lang); my $langInfo = GetLangInfo($tagInfo, $lang); $tagInfo = $langInfo if $langInfo; } # un-escape XML character entities (handling CDATA) pos($val) = 0; if ($val =~ //sg) { my $p = pos $val; # unescape everything up to the start of the CDATA section # (the length of "<[[CDATA[]]>" is 12 characters) my $v = UnescapeXML(substr($val, 0, $p - length($1) - 12)) . $1; while ($val =~ //sg) { my $p1 = pos $val; $v .= UnescapeXML(substr($val, $p, $p1 - length($1) - 12)) . $1; $p = $p1; } $val = $v . UnescapeXML(substr($val, $p)); } else { $val = UnescapeXML($val); } # decode from UTF8 $val = $et->Decode($val, 'UTF8'); # convert rational and date values to a more sensible format my $fmt = $$tagInfo{Writable}; my $new = $$tagInfo{WasAdded} && $$et{OPTIONS}{XMPAutoConv}; if ($fmt or $new) { $rawVal = $val; # save raw value for verbose output if (($new or $fmt eq 'rational') and ConvertRational($val)) { $rational = $rawVal; } else { $val = ConvertXMPDate($val, $new) if $new or $fmt eq 'date'; } # protect against large binary data in unknown tags $$tagInfo{Binary} = 1 if $new and length($val) > 65536; } # store the value for this tag my $key = $et->FoundTag($tagInfo, $val) or return 0; # save original components of rational numbers (used when copying) $$et{RATIONAL}{$key} = $rational if defined $rational; # save structure/list information if necessary if (@structProps and (@structProps > 1 or defined $structProps[0][1]) and not $$et{NO_STRUCT}) { $$et{TAG_EXTRA}{$key}{Struct} = \@structProps; $$et{IsStruct} = 1; } if ($ns and not $$tagInfo{StaticGroup1}) { # set group1 dynamically according to the namespace $et->SetGroup($key, "$$tagTablePtr{GROUPS}{0}-$ns"); } if ($$et{OPTIONS}{Verbose}) { if ($added) { my $g1 = $et->GetGroup($key, 1); $et->VPrint(0, $$et{INDENT}, "[adding $g1:$tag]\n"); } my $tagID = join('/',@$props); $et->VerboseInfo($tagID, $tagInfo, Value => $rawVal || $val); } return 1; } #------------------------------------------------------------------------------ # Recursively parse nested XMP data element # Inputs: 0) ExifTool ref, 1) tag table ref, 2) XMP data ref # 3) offset to start of XMP element, 4) offset to end of XMP element # 5) reference to array of enclosing XMP property names (undef if none) # 6) reference to blank node information hash # Returns: Number of contained XMP elements sub ParseXMPElement($$$;$$$$) { local $_; my ($et, $tagTablePtr, $dataPt, $start, $end, $propList, $blankInfo) = @_; my ($count, $nItems) = (0, 0); my $isWriting = $$et{XMP_CAPTURE}; my $isSVG = $$et{XMP_IS_SVG}; my $saveNS; # save xlatNS lookup if changed for the scope of this element my (%definedNS, %usedNS); # namespaces defined and used in this scope # get our parse procs my ($attrProc, $foundProc); if ($$et{XMPParseOpts}) { $attrProc = $$et{XMPParseOpts}{AttrProc}; $foundProc = $$et{XMPParseOpts}{FoundProc} || \&FoundXMP; } else { $foundProc = \&FoundXMP; } $start or $start = 0; $end or $end = length $$dataPt; $propList or $propList = [ ]; my $processBlankInfo; # create empty blank node information hash if necessary $blankInfo or $blankInfo = $processBlankInfo = { Prop => { } }; # keep track of current nodeID at this nesting level my $oldNodeID = $$blankInfo{NodeID}; pos($$dataPt) = $start; # lookup for translating namespace prefixes my $xlatNS = $$et{xlatNS}; Element: for (;;) { # all done if there isn't enough data for another element # (the smallest possible element is 4 bytes, eg. "") last if pos($$dataPt) > $end - 4; # reset nodeID before processing each element my $nodeID = $$blankInfo{NodeID} = $oldNodeID; # get next element last if $$dataPt !~ m{<([?/]?)([-\w:.\x80-\xff]+|!--)([^>]*)>}sg or pos($$dataPt) > $end; # (the only reason we match '<[?/]' is to keep from scanning past the # "/sg; last; } my $valStart = pos($$dataPt); my $valEnd; # only look for closing token if this is not an empty element # (empty elements end with '/', eg. ) if ($attrs !~ s/\/$//) { my $nesting = 1; my $tok; for (;;) { # this match fails with perl 5.6.2 (perl bug!), but it works without # the '(.*?)', so we must do it differently... # $$dataPt =~ m/(.*?)<\/$prop>/sg or last Element; # my $val2 = $1; # find next matching closing token, or the next opening token # of a nested same-named element if ($$dataPt !~ m{<(/?)$prop([-\w:.\x80-\xff]*)(.*?(/?))>}sg or pos($$dataPt) > $end) { $et->Warn("XMP format error (no closing tag for $prop)"); last Element; } next if $2; # ignore opening properties with different names if ($1) { next if --$nesting; $valEnd = pos($$dataPt) - length($prop) - length($3) - 3; last; # this element is complete } # this is a nested opening token (or empty element) ++$nesting unless $4; } } else { $valEnd = $valStart; } $start = pos($$dataPt); # start from here the next time around # extract property attributes my ($parseResource, %attrs, @attrs); while ($attrs =~ m/(\S+?)\s*=\s*(['"])(.*?)\2/sg) { my ($attr, $val) = ($1, $3); # handle namespace prefixes (defined by xmlns:PREFIX, or used with PREFIX:tag) if ($attr =~ /(.*?):/) { if ($1 eq 'xmlns') { my $ns = substr($attr, 6); my $stdNS = $uri2ns{$val}; # keep track of namespace prefixes defined in this scope (for Validate) $$et{definedNS}{$ns} = $definedNS{$ns} = 1 unless $$et{definedNS}{$ns}; unless ($stdNS) { my $try = $val; # patch for Nikon NX2 URI bug for Microsoft PhotoInfo namespace $try =~ s{/$}{} or $try .= '/'; $stdNS = $uri2ns{$try}; if ($stdNS) { $val = $try; $et->WarnOnce("Fixed incorrect URI for xmlns:$ns", 1); } else { # look for same namespace with different version number $try = quotemeta $val; # (note: escapes slashes too) $try =~ s{\\/\d+\\\.\d+(\\/|$)}{\\/\\d+\\\.\\d+$1}; my ($good) = grep /^$try$/, keys %uri2ns; if ($good) { $stdNS = $uri2ns{$good}; $et->VPrint(0, $$et{INDENT}, "[different $stdNS version: $val]\n"); } } } # tame wild namespace prefixes (patches Microsoft stupidity) my $newNS; if ($stdNS) { # use standard namespace prefix if pre-defined if ($stdNS ne $ns) { $newNS = $stdNS; } elsif ($$xlatNS{$ns}) { # this prefix is re-defined to the standard prefix in this scope $newNS = ''; } } elsif ($$et{curNS}{$val}) { # use a consistent prefix over the entire XMP for a given namespace URI $newNS = $$et{curNS}{$val} if $$et{curNS}{$val} ne $ns; } else { my $curURI = $$et{curURI}; my $curNS = $$et{curNS}; my $usedNS = $ns; # use unique prefixes for all namespaces across the entire XMP if ($$curURI{$ns} or $nsURI{$ns}) { # generate a temporary namespace prefix to resolve any conflict my $i = 0; ++$i while $$curURI{"tmp$i"}; $newNS = $usedNS = "tmp$i"; } # keep track of the namespace prefixes and URI's used in this XMP $$curNS{$val} = $usedNS; $$curURI{$usedNS} = $val; } if (defined $newNS) { # save translation used in containing scope if necessary # create new namespace translation for the scope of this element $saveNS or $saveNS = $xlatNS, $xlatNS = $$et{xlatNS} = { %$xlatNS }; if (length $newNS) { # use the new namespace prefix $$xlatNS{$ns} = $newNS; $attr = 'xmlns:' . $newNS; # must go through previous attributes and change prefixes if necessary foreach (@attrs) { next unless /(.*?):/ and $1 eq $ns and $1 ne $newNS; my $newAttr = $newNS . substr($_, length($ns)); $attrs{$newAttr} = $attrs{$_}; delete $attrs{$_}; $_ = $newAttr; } } else { delete $$xlatNS{$ns}; } } } else { $attr = $$xlatNS{$1} . substr($attr, length($1)) if $$xlatNS{$1}; $usedNS{$1} = 1; } } push @attrs, $attr; # preserve order $attrs{$attr} = $val; } if ($prop =~ /(.*?):/) { $usedNS{$1} = 1; # tame wild namespace prefixes (patch for Microsoft stupidity) $prop = $$xlatNS{$1} . substr($prop, length($1)) if $$xlatNS{$1}; } if ($prop eq 'rdf:li') { # impose a reasonable maximum on the number of items in a list if ($nItems == 1000) { my ($tg,$ns) = GetXMPTagID($propList); if ($isWriting) { $et->Warn("Excessive number of items for $ns:$tg. Processing may be slow", 1); } elsif (not $$et{OPTIONS}{IgnoreMinorErrors}) { $et->Warn("Extracted only 1000 $ns:$tg items. Ignore minor errors to extract all", 2); last; } } # add index to list items so we can keep them in order # (this also enables us to keep structure elements grouped properly # for lists of structures, like JobRef) # Note: the list index is prefixed by the number of digits so sorting # alphabetically gives the correct order while still allowing a flexible # number of digits -- this scheme allows up to 9 digits in the index, # with index numbers ranging from 0 to 999999999. The sequence is: # 10,11,12-19,210,211-299,3100,3101-3999,41000...9999999999. $prop .= ' ' . length($nItems) . $nItems; # reset LIST_TAGS at the start of the outtermost list # (avoids accumulating incorrectly-written elements in a correctly-written list) if (not $nItems and not grep /^rdf:li /, @$propList) { $$et{LIST_TAGS} = { }; } ++$nItems; } elsif ($prop eq 'rdf:Description') { # remove unnecessary rdf:Description elements since parseType='Resource' # is more efficient (also necessary to make property path consistent) $parseResource = 1 if grep /^rdf:Description$/, @$propList; } elsif ($prop eq 'xmp:xmpmeta') { # patch MicrosoftPhoto unconformity $prop = 'x:xmpmeta'; $et->Warn('Wrong namespace for xmpmeta') if $$et{XmpValidate}; } # hook for special parsing of attributes my $val; if ($attrProc) { $val = substr($$dataPt, $valStart, $valEnd - $valStart); if (&$attrProc(\@attrs, \%attrs, \$prop, \$val)) { # the value was changed, so reset $valStart/$valEnd to use $val instead $valStart = $valEnd; } } # add nodeID to property path (with leading ' #') if it exists if (defined $attrs{'rdf:nodeID'}) { $nodeID = $$blankInfo{NodeID} = $attrs{'rdf:nodeID'}; delete $attrs{'rdf:nodeID'}; $prop .= ' #' . $nodeID; undef $parseResource; # can't ignore if this is a node } # push this property name onto our hierarchy list push @$propList, $prop unless $parseResource; if ($isSVG) { # ignore everything but top level SVG tags and metadata unless Unknown set unless ($$et{OPTIONS}{Unknown} > 1 or $$et{OPTIONS}{Verbose}) { if (@$propList > 1 and $$propList[1] !~ /\b(metadata|desc|title)$/) { pop @$propList; next; } } if ($prop eq 'svg' or $prop eq 'metadata') { # add svg namespace prefix if missing to ignore these entries in the tag name $$propList[-1] = "svg:$prop"; } } # handle properties inside element attributes (RDF shorthand format): # (attributes take the form a:b='c' or a:b="c") my ($shortName, $shorthand, $ignored); foreach $shortName (@attrs) { next unless defined $attrs{$shortName}; my $propName = $shortName; my ($ns, $name); if ($propName =~ /(.*?):(.*)/) { $ns = $1; # specified namespace $name = $2; } elsif ($prop =~ /(\S*?):/) { $ns = $1; # assume same namespace as parent $name = $propName; $propName = "$ns:$name"; # generate full property name } else { # a property qualifier is the only property name that may not # have a namespace, and a qualifier shouldn't have attributes, # but what the heck, let's allow this anyway $ns = ''; $name = $propName; } if ($propName eq 'rdf:about') { if (not $$et{XmpAbout}) { $$et{XmpAbout} = $attrs{$shortName}; } elsif ($$et{XmpAbout} ne $attrs{$shortName}) { if ($isWriting) { my $str = "Different 'rdf:about' attributes not handled"; unless ($$et{WARNED_ONCE}{$str}) { $et->Error($str, 1); $$et{WARNED_ONCE}{$str} = 1; } } elsif ($$et{XmpValidate}) { $et->WarnOnce("Different 'rdf:about' attributes"); } } } if ($isWriting) { # keep track of our namespaces when writing if ($ns eq 'xmlns') { my $stdNS = $uri2ns{$attrs{$shortName}}; unless ($stdNS and ($stdNS eq 'x' or $stdNS eq 'iX')) { my $nsUsed = $$et{XMP_NS}; $$nsUsed{$name} = $attrs{$shortName} unless defined $$nsUsed{$name}; } delete $attrs{$shortName}; # (handled by namespace logic) next; } elsif ($recognizedAttrs{$propName}) { next; } } my $shortVal = $attrs{$shortName}; if ($ignoreNamespace{$ns} or $ignoreProp{$prop}) { $ignored = $propName; # handle special attributes (extract as tags only once if not empty) if (ref $recognizedAttrs{$propName} and $shortVal) { my ($tbl, $id, $name) = @{$recognizedAttrs{$propName}}; my $tval = UnescapeXML($shortVal); unless (defined $$et{VALUE}{$name} and $$et{VALUE}{$name} eq $tval) { $et->HandleTag(GetTagTable($tbl), $id, $tval); } } next; } delete $attrs{$shortName}; # don't re-use this attribute push @$propList, $propName; # save this shorthand XMP property if (defined $nodeID) { SaveBlankInfo($blankInfo, $propList, $shortVal); } elsif ($isWriting) { CaptureXMP($et, $propList, $shortVal); } else { ValidateProperty($et, $propList) if $$et{XmpValidate}; &$foundProc($et, $tagTablePtr, $propList, $shortVal); } pop @$propList; $shorthand = 1; } if ($isWriting) { if (ParseXMPElement($et, $tagTablePtr, $dataPt, $valStart, $valEnd, $propList, $blankInfo)) { # (no value since we found more properties within this one) # set an error on any ignored attributes here, because they will be lost $$et{XMP_ERROR} = "Can't handle XMP attribute '${ignored}'" if $ignored; } elsif (not $shorthand or $valEnd != $valStart) { $val = substr($$dataPt, $valStart, $valEnd - $valStart); # remove comments and whitespace from rdf:Description only if ($prop eq 'rdf:Description') { $val =~ s///g; $val =~ s/^\s+//; $val =~ s/\s+$//; } if (defined $nodeID) { SaveBlankInfo($blankInfo, $propList, $val, \%attrs); } else { CaptureXMP($et, $propList, $val, \%attrs); } } } else { # look for additional elements contained within this one if ($valStart == $valEnd or !ParseXMPElement($et, $tagTablePtr, $dataPt, $valStart, $valEnd, $propList, $blankInfo)) { my $wasEmpty; unless (defined $val) { $val = substr($$dataPt, $valStart, $valEnd - $valStart); # remove comments and whitespace from rdf:Description only if ($prop eq 'rdf:Description' and $val) { $val =~ s///g; $val =~ s/^\s+//; $val =~ s/\s+$//; } # if element value is empty, take value from 'resource' attribute # (preferentially) or 'about' attribute (if no 'resource') if ($val eq '' and ($attrs =~ /\bresource=(['"])(.*?)\1/ or $attrs =~ /\babout=(['"])(.*?)\1/)) { $val = $2; $wasEmpty = 1; } } # there are no contained elements, so this must be a simple property value # (unless we already extracted shorthand values from this element) if (length $val or not $shorthand) { my $lastProp = $$propList[-1]; if (defined $nodeID) { SaveBlankInfo($blankInfo, $propList, $val); } elsif ($lastProp eq 'rdf:type' and $wasEmpty) { # do not extract empty structure types (for now) } elsif ($lastProp =~ /^et:(desc|prt|val)$/ and ($count or $1 eq 'desc')) { # ignore et:desc, and et:val if preceded by et:prt --$count; } else { ValidateProperty($et, $propList) if $$et{XmpValidate}; &$foundProc($et, $tagTablePtr, $propList, $val, \%attrs); } } } } pop @$propList unless $parseResource; ++$count; # validate namespace prefixes used at this level if necessary if ($$et{XmpValidate}) { foreach (sort keys %usedNS) { next if $$et{definedNS}{$_} or $_ eq 'xml'; if (defined $$et{definedNS}{$_}) { $et->Warn("XMP namespace $_ is used out of scope"); } else { $et->Warn("Undefined XMP namespace: $_"); } $$et{definedNS}{$_} = -1; # (don't warn again for this namespace) } # reset namespaces that went out of scope $$et{definedNS}{$_} = 0 foreach keys %definedNS; undef %usedNS; undef %definedNS; } last if $start >= $end; pos($$dataPt) = $start; $$dataPt =~ /\G\s+/gc; # skip white space after closing token } # # process resources referenced by blank nodeID's # if ($processBlankInfo and %{$$blankInfo{Prop}}) { ProcessBlankInfo($et, $tagTablePtr, $blankInfo, $isWriting); %$blankInfo = (); # free some memory } # restore namespace lookup from the containing scope $$et{xlatNS} = $saveNS if $saveNS; return $count; # return the number of elements found at this level } #------------------------------------------------------------------------------ # Process XMP data # Inputs: 0) ExifTool object reference, 1) DirInfo reference, 2) Pointer to tag table # Returns: 1 on success # Notes: The following flavours of XMP files are currently recognized: # - standard XMP with xpacket, x:xmpmeta and rdf:RDF elements # - XMP that is missing the xpacket and/or x:xmpmeta elements # - mutant Microsoft XMP with xmp:xmpmeta element # - XML files beginning with "MetadataPath(); my $nonStd; if ($$et{FILE_TYPE} =~ /^(JPEG|TIFF|PSD)$/ and $path !~ /^(JPEG-APP1-XMP|TIFF-IFD0-XMP|PSD-XMP)$/) { $nonStd = 1; } if ($nonStd and $Image::ExifTool::MWG::strict) { $et->Warn("Ignored non-standard XMP at $path"); return 1; } if ($nonStd) { $et->Warn("Non-standard XMP at $path", 1); } elsif (not $$dirInfo{IsExtended}) { $et->Warn("Duplicate XMP at $path") if $$et{DIR_COUNT}{XMP}; $$et{DIR_COUNT}{XMP} = ($$et{DIR_COUNT}{XMP} || 0) + 1; # count standard XMP } } if ($dataPt) { $dirStart = $$dirInfo{DirStart} || 0; $dirLen = $$dirInfo{DirLen} || (length($$dataPt) - $dirStart); $dataLen = $$dirInfo{DataLen} || length($$dataPt); # check leading BOM (may indicate double-encoded UTF) pos($$dataPt) = $dirStart; $double = $1 if $$dataPt =~ /\G((\0\0)?\xfe\xff|\xff\xfe(\0\0)?|\xef\xbb\xbf)\0*<\0*\?\0*x\0*p\0*a\0*c\0*k\0*e\0*t/g; } else { my ($type, $mime, $buf2, $buf3); # read information from XMP file my $raf = $$dirInfo{RAF} or return 0; $raf->Read($buff, 256) or return 0; ($buf2 = $buff) =~ tr/\0//d; # cheap conversion to UTF-8 # remove leading comments if they exist (eg. ImageIngester) while ($buf2 =~ /^\s*\s+//s) { # continue with parsing if we have more than 128 bytes remaining next if length $buf2 > 128; } else { # don't read more than 10k when looking for the end of comment return 0 if length($buf2) > 10000; } $raf->Read($buf3, 256) or last; # read more data if available $buff .= $buf3; $buf3 =~ tr/\0//d; $buf2 .= $buf3; } # check to see if this is XMP format # (CS2 writes .XMP files without the "xpacket begin") if ($buf2 =~ /^\s*(<\?xpacket begin=|Error("ExifTool does not yet support writing of INX files"); return 0; } $type = 'INX'; } elsif ($buf2 =~ /]/) { $isSVG = 1; } elsif ($buf2 =~ /]/) { $type = 'PLIST'; } if ($isSVG and $$et{XMP_CAPTURE}) { $et->Error("ExifTool does not yet support writing of SVG images"); return 0; } } $isXML = 1; } elsif ($2 eq 'SetFileType($type, $mime); my $fast = $et->Options('FastScan'); return 1 if $fast and $fast == 3; if ($type and $type eq 'INX') { # brute force search for first XMP packet in INX file # start: ']]>' (22 bytes) $raf->Seek(0, 0) or return 0; $raf->Read($buff, 65536) or return 1; for (;;) { last if $buff =~ /Read($buf2, 65536) or return 1; $buff = substr($buff, -24) . $buf2; } $buff = substr($buff, pos($buff) - 15); # (discard '\]\]>/g; my $n = length $buff; $raf->Read($buf2, 65536) or $et->Warn('Missing xpacket end'), return 1; $buff .= $buf2; pos($buff) = $n - 22; # don't miss end pattern if it was split } $size = pos($buff) - 3; # (discard ']]>' and after) $buff = substr($buff, 0, $size); } else { # read the entire file $raf->Seek(0, 2) or return 0; $size = $raf->Tell() or return 0; $raf->Seek(0, 0) or return 0; $raf->Read($buff, $size) == $size or return 0; } $dataPt = \$buff; $dirStart = 0; $dirLen = $dataLen = $size; } # decode the first layer of double-encoded UTF text (if necessary) if ($double) { my ($buf2, $fmt); $buff = substr($$dataPt, $dirStart + length $double); # remove leading BOM Image::ExifTool::SetWarning(undef); # clear old warning local $SIG{'__WARN__'} = \&Image::ExifTool::SetWarning; # assume that character data has been re-encoded in UTF, so re-pack # as characters and look for warnings indicating a false assumption if ($double eq "\xef\xbb\xbf") { require Image::ExifTool::Charset; my $uni = Image::ExifTool::Charset::Decompose(undef,$buff,'UTF8'); $buf2 = pack('C*', @$uni); } else { if (length($double) == 2) { $fmt = ($double eq "\xfe\xff") ? 'n' : 'v'; } else { $fmt = ($double eq "\0\0\xfe\xff") ? 'N' : 'V'; } $buf2 = pack('C*', unpack("$fmt*",$buff)); } if (Image::ExifTool::GetWarning()) { $et->Warn('Superfluous BOM at start of XMP'); $dataPt = \$buff; # use XMP with the BOM removed } else { $et->Warn('XMP is double UTF-encoded'); $dataPt = \$buf2; # use the decoded XMP } $dirStart = 0; $dirLen = $dataLen = length $$dataPt; } # extract XMP as a block if specified my $blockName = $$dirInfo{BlockInfo} ? $$dirInfo{BlockInfo}{Name} : 'XMP'; if (($$et{REQ_TAG_LOOKUP}{lc $blockName} or ($$et{TAGS_FROM_FILE} and not $$et{EXCL_TAG_LOOKUP}{lc $blockName})) and ($$dirInfo{DirName} and $$dirInfo{DirName} eq 'XMP')) { $et->FoundTag($$dirInfo{BlockInfo} || 'XMP', substr($$dataPt, $dirStart, $dirLen)); } $tagTablePtr or $tagTablePtr = GetTagTable('Image::ExifTool::XMP::Main'); if ($et->Options('Verbose') and not $$et{XMP_CAPTURE}) { my $dirType = $isSVG ? 'SVG' : $$tagTablePtr{GROUPS}{1}; $et->VerboseDir($dirType, 0, $dirLen); } # # convert UTF-16 or UTF-32 encoded XMP to UTF-8 if necessary # my $begin = ' $dirStart and pos($$dataPt) < $dirEnd) { $$et{XMP_NO_XPACKET} = 1 + $bom; } else { delete $$et{XMP_NO_XPACKET}; # check for UTF-16 encoding (insert one \0 between characters) $begin = join "\0", split //, $begin; # must reset pos because it was killed by previous unsuccessful //g match pos($$dataPt) = $dirStart; if ($$dataPt =~ /\G(\0)?\Q$begin\E\0./sg) { # validate byte ordering by checking for U+FEFF character if ($1) { # should be big-endian since we had a leading \0 $fmt = 'n' if $$dataPt =~ /\G\xfe\xff/g; } else { $fmt = 'v' if $$dataPt =~ /\G\0\xff\xfe/g; } } else { # check for UTF-32 encoding (with three \0's between characters) $begin =~ s/\0/\0\0\0/g; pos($$dataPt) = $dirStart; if ($$dataPt !~ /\G(\0\0\0)?\Q$begin\E\0\0\0./sg) { $fmt = 0; # set format to zero as indication we didn't find encoded XMP } elsif ($1) { # should be big-endian $fmt = 'N' if $$dataPt =~ /\G\0\0\xfe\xff/g; } else { $fmt = 'V' if $$dataPt =~ /\G\0\0\0\xff\xfe\0\0/g; } } defined $fmt or $et->Warn('XMP character encoding error'); } if ($fmt) { # trim if necessary to avoid converting non-UTF data if ($dirStart or $dirEnd != length($$dataPt)) { $buff = substr($$dataPt, $dirStart, $dirLen); $dataPt = \$buff; } # convert into UTF-8 if ($] >= 5.006001) { $buff = pack('C0U*', unpack("$fmt*",$$dataPt)); } else { $buff = Image::ExifTool::PackUTF8(unpack("$fmt*",$$dataPt)); } $dataPt = \$buff; $dirStart = 0; $dirLen = length $$dataPt; $dirEnd = $dirStart + $dirLen; } # avoid scanning for XMP later in case ScanForXMP is set $$et{FoundXMP} = 1 if $tagTablePtr eq \%Image::ExifTool::XMP::Main; # set XMP parsing options $$et{XMPParseOpts} = $$dirInfo{XMPParseOpts}; # ignore any specified properties (XML hack) if ($$dirInfo{IgnoreProp}) { %ignoreProp = %{$$dirInfo{IgnoreProp}}; } else { undef %ignoreProp; } # need to preserve list indices to be able to handle multi-dimensional lists my $keepFlat; if ($$et{OPTIONS}{Struct}) { if ($$et{OPTIONS}{Struct} eq '2') { $keepFlat = 1; # preserve flattened tags # setting NO_LIST to 0 combines list items in a TAG_EXTRA "NoList" element # to allow them to be re-listed later if necessary. A "NoListDel" element # is also created for tags that wouldn't have existed. $$et{NO_LIST} = 0; } else { $$et{NO_LIST} = 1; } } # don't generate structures if this isn't real XMP $$et{NO_STRUCT} = 1 if $$dirInfo{BlockInfo} or $$dirInfo{NoStruct}; # parse the XMP if (ParseXMPElement($et, $tagTablePtr, $dataPt, $dirStart, $dirEnd)) { $rtnVal = 1; } elsif ($$dirInfo{DirName} and $$dirInfo{DirName} eq 'XMP') { # if DirName was 'XMP' we expect well-formed XMP, so set Warning since it wasn't # (but allow empty XMP as written by some PhaseOne cameras) my $xmp = substr($$dataPt, $dirStart, $dirLen); if ($xmp =~ /^ *\0*$/) { $et->Warn('Invalid XMP'); } else { $et->Warn('Empty XMP',1); $rtnVal = 1; } } delete $$et{NO_STRUCT}; # return DataPt if successful in case we want it for writing $$dirInfo{DataPt} = $dataPt if $rtnVal and $$dirInfo{RAF}; # restore structures if necessary if ($$et{IsStruct}) { require 'Image/ExifTool/XMPStruct.pl'; RestoreStruct($et, $keepFlat); delete $$et{IsStruct}; } # reset NO_LIST flag (must do this _after_ RestoreStruct() above) delete $$et{NO_LIST}; delete $$et{XMPParseOpts}; delete $$et{curURI}; delete $$et{curNS}; delete $$et{xlatNS}; delete $$et{definedNS}; return $rtnVal; } 1; #end __END__ =head1 NAME Image::ExifTool::XMP - Read XMP meta information =head1 SYNOPSIS This module is loaded automatically by Image::ExifTool when required. =head1 DESCRIPTION XMP stands for Extensible Metadata Platform. It is a format based on XML that Adobe developed for embedding metadata information in image files. This module contains the definitions required by Image::ExifTool to read XMP information. =head1 AUTHOR Copyright 2003-2018, Phil Harvey (phil at owl.phy.queensu.ca) This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 REFERENCES =over 4 =item L =item L =item L =back =head1 SEE ALSO L, L =cut