exiftool_vendored 9.45.0 → 9.46.0

data/bin/Image-ExifTool-9.46/lib/Image/ExifTool/iWork.pm

@@ -0,0 +1,223 @@
+#------------------------------------------------------------------------------
+# File:         iWork.pm
+#
+# Description:  Read Apple iWork '09 XML+ZIP files
+#
+# Revisions:    2009/11/11 - P. Harvey Created
+#------------------------------------------------------------------------------
+
+package Image::ExifTool::iWork;
+
+use strict;
+use vars qw($VERSION);
+use Image::ExifTool qw(:DataAccess :Utils);
+use Image::ExifTool::XMP;
+use Image::ExifTool::ZIP;
+
+$VERSION = '1.03';
+
+# test for recognized iWork document extensions and outer XML elements
+my %iWorkType = (
+    # file extensions
+    NUMBERS => 'Apple Numbers',
+    PAGES   => 'Apple Pages',
+    KEY     => 'Apple Keynote',
+    KTH     => 'Apple Keynote Theme',
+    NMBTEMPLATE => 'Apple Numbers Template',
+    # we don't support double extensions --
+    # "PAGES.TEMPLATE" => 'Apple Pages Template',
+    # outer XML elements
+    'ls:document' => 'Apple Numbers',
+    'sl:document' => 'Apple Pages',
+    'key:presentation' => 'Apple Keynote',
+);
+
+# MIME types for iWork files (Apple has not registered these yet, but these
+# are my best guess after doing some googling.  I'm not 100% sure what "sff"
+# indicates, but I think it refers to the new "flattened" package format)
+my %mimeType = (
+    'Apple Numbers' => 'application/x-iwork-numbers-sffnumbers',
+    'Apple Pages'   => 'application/x-iwork-pages-sffpages',
+    'Apple Keynote' => 'application/x-iWork-keynote-sffkey',
+    'Apple Numbers Template' => 'application/x-iwork-numbers-sfftemplate',
+    'Apple Pages Template'   => 'application/x-iwork-pages-sfftemplate',
+    'Apple Keynote Theme'    => 'application/x-iWork-keynote-sffkth',
+);
+
+# iWork tags
+%Image::ExifTool::iWork::Main = (
+    GROUPS => { 0 => 'XML', 1 => 'XML', 2 => 'Document' },
+    PROCESS_PROC => \&Image::ExifTool::XMP::ProcessXMP,
+    VARS => { NO_ID => 1 },
+    NOTES => q{
+        The Apple iWork '09 file format is a ZIP archive containing XML files
+        similar to the Office Open XML (OOXML) format.  Metadata tags in iWork
+        files are extracted even if they don't appear below.
+    },
+    authors   => { Name => 'Author', Groups => { 2 => 'Author' } },
+    comment   => { },
+    copyright => { Groups => { 2 => 'Author' } },
+    keywords  => { },
+    projects  => { List => 1 },
+    title     => { },
+);
+
+#------------------------------------------------------------------------------
+# Generate a tag ID for this XML tag
+# Inputs: 0) tag property name list ref
+# Returns: tagID
+sub GetTagID($)
+{
+    my $props = shift;
+    return 0 if $$props[-1] =~ /^\w+:ID$/;  # ignore ID tags
+    return ($$props[0] =~ /^.*?:(.*)/) ? $1 : $$props[0];
+}
+
+#------------------------------------------------------------------------------
+# We found an XMP property name/value
+# Inputs: 0) ExifTool object ref, 1) tag table ref
+#         2) reference to array of XMP property names (last is current property)
+#         3) property value, 4) attribute hash ref (not used here)
+# Returns: 1 if valid tag was found
+sub FoundTag($$$$;$)
+{
+    my ($et, $tagTablePtr, $props, $val, $attrs) = @_;
+    return 0 unless @$props;
+    my $verbose = $et->Options('Verbose');
+
+    $et->VPrint(0, "  | - Tag '", join('/',@$props), "'\n") if $verbose > 1;
+
+    # un-escape XML character entities
+    $val = Image::ExifTool::XMP::UnescapeXML($val);
+    # convert from UTF8 to ExifTool Charset
+    $val = $et->Decode($val, 'UTF8');
+    my $tag = GetTagID($props) or return 0;
+
+    # add any unknown tags to table
+    unless ($$tagTablePtr{$tag}) {
+        $et->VPrint(0, "  [adding $tag]\n") if $verbose;
+        AddTagToTable($tagTablePtr, $tag, { Name => ucfirst $tag });
+    }
+    # save the tag
+    $et->HandleTag($tagTablePtr, $tag, $val);
+
+    return 1;
+}
+
+#------------------------------------------------------------------------------
+# Extract information from an iWork file
+# Inputs: 0) ExifTool object reference, 1) dirInfo reference
+# Returns: 1
+# Notes: Upon entry to this routine, the file type has already been verified
+# as ZIP and the dirInfo hash contains a 'ZIP' Archive::Zip object reference
+sub Process_iWork($$)
+{
+    my ($et, $dirInfo) = @_;
+    my $zip = $$dirInfo{ZIP};
+    my ($type, $index, $indexFile, $status);
+
+    # try to determine the file type
+    local $SIG{'__WARN__'} = \&Image::ExifTool::ZIP::WarnProc;
+    # trust type given by file extension if available
+    $type = $iWorkType{$$et{FILE_EXT}} if $$et{FILE_EXT};
+    unless ($type) {
+        # read the index file
+        my @members = $zip->membersMatching('^index\.(xml|apxl)$');
+        if (@members) {
+            ($index, $status) = $zip->contents($members[0]);
+            unless ($status) {
+                $indexFile = $members[0]->fileName();
+                if ($index =~ /^\s*<\?xml version=[^<]+<(\w+:\w+)/s) {
+                    $type = $iWorkType{$1} if $iWorkType{$1};
+                }
+            }
+        }
+        $type or $type = 'ZIP';     # assume ZIP by default
+    }
+    $et->SetFileType($type, $mimeType{$type});
+
+    my @members = $zip->members();
+    my $docNum = 0;
+    my $member;
+    foreach $member (@members) {
+        # get filename of this ZIP member
+        my $file = $member->fileName();
+        next unless defined $file;
+        $et->VPrint(0, "File: $file\n");
+        # set the document number and extract ZIP tags
+        $$et{DOC_NUM} = ++$docNum;
+        Image::ExifTool::ZIP::HandleMember($et, $member);
+
+        # process only the index XML and JPEG thumbnail files
+        next unless $file =~ m{^(index\.(xml|apxl)|QuickLook/Thumbnail\.jpg)$}i;
+        # get the file contents if necessary
+        # (CAREFUL! $buff MUST be local since we hand off a value ref to PreviewImage)
+        my ($buff, $buffPt);
+        if ($indexFile and $indexFile eq $file) {
+            # use the index file we already loaded
+            $buffPt = \$index;
+        } else {
+            ($buff, $status) = $zip->contents($member);
+            $status and $et->Warn("Error extracting $file"), next;
+            $buffPt = \$buff;
+        }
+        # extract JPEG as PreviewImage (should only be QuickLook/Thumbnail.jpg)
+        if ($file =~ /\.jpg$/) {
+            $et->FoundTag('PreviewImage', $buffPt);
+            next;
+        }
+        # process "metadata" section of XML index file
+        next unless $$buffPt =~ /<(\w+):metadata>/g;
+        my $ns = $1;
+        my $p1 = pos $$buffPt;
+        next unless $$buffPt =~ m{</${ns}:metadata>}g;
+        # construct XML data from "metadata" section only
+        $$buffPt = '<?xml version="1.0"?>' . substr($$buffPt, $p1, pos($$buffPt)-$p1);
+        my %dirInfo = (
+            DataPt => $buffPt,
+            DirLen => length $$buffPt,
+            DataLen => length $$buffPt,
+            XMPParseOpts => {
+                FoundProc => \&FoundTag,
+            },
+        );
+        my $tagTablePtr = GetTagTable('Image::ExifTool::iWork::Main');
+        $et->ProcessDirectory(\%dirInfo, $tagTablePtr);
+        undef $$buffPt; # (free memory now)
+    }
+    delete $$et{DOC_NUM};
+    return 1;
+}
+
+1;  # end
+
+__END__
+
+=head1 NAME
+
+Image::ExifTool::iWork - Read Apple iWork '09 XML+ZIP files
+
+=head1 SYNOPSIS
+
+This module is used by Image::ExifTool
+
+=head1 DESCRIPTION
+
+This module contains definitions required by Image::ExifTool to extract meta
+information from Apple iWork '09 XML+ZIP files.
+
+=head1 AUTHOR
+
+Copyright 2003-2014, 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 SEE ALSO
+
+L<Image::ExifTool::TagNames/iWork Tags>,
+L<Image::ExifTool::TagNames/OOXML Tags>,
+L<Image::ExifTool(3pm)|Image::ExifTool>
+
+=cut
+

data/bin/Image-ExifTool-9.46/perl-Image-ExifTool.spec

@@ -0,0 +1,105 @@
+Summary: perl module for image data extraction
+Name: perl-Image-ExifTool
+Version: 9.46
+Release: 1
+License: Artistic/GPL
+Group: Development/Libraries/Perl
+URL: http://owl.phy.queensu.ca/~phil/exiftool/
+Source0: Image-ExifTool-%{version}.tar.gz
+BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root
+
+%description
+ExifTool is a customizable set of Perl modules plus a full-featured
+application for reading and writing meta information in a wide variety of
+files, including the maker note information of many digital cameras by
+various manufacturers such as Canon, Casio, FLIR, FujiFilm, GE, HP,
+JVC/Victor, Kodak, Leaf, Minolta/Konica-Minolta, Nikon, Olympus/Epson,
+Panasonic/Leica, Pentax/Asahi, Phase One, Reconyx, Ricoh, Samsung, Sanyo,
+Sigma/Foveon and Sony.
+
+Below is a list of file types and meta information formats currently
+supported by ExifTool (r = read, w = write, c = create):
+
+  File Types
+  ------------+-------------+-------------+-------------+------------
+  3FR   r     | EIP   r     | LNK   r     | PAC   r     | RWL   r/w
+  3G2   r/w   | EPS   r/w   | M2TS  r     | PAGES r     | RWZ   r
+  3GP   r/w   | ERF   r/w   | M4A/V r/w   | PBM   r/w   | RM    r
+  ACR   r     | EXE   r     | MEF   r/w   | PCD   r     | SO    r
+  AFM   r     | EXIF  r/w/c | MIE   r/w/c | PDF   r/w   | SR2   r/w
+  AI    r/w   | EXR   r     | MIFF  r     | PEF   r/w   | SRF   r
+  AIFF  r     | F4A/V r/w   | MKA   r     | PFA   r     | SRW   r/w
+  APE   r     | FFF   r/w   | MKS   r     | PFB   r     | SVG   r
+  ARW   r/w   | FLA   r     | MKV   r     | PFM   r     | SWF   r
+  ASF   r     | FLAC  r     | MNG   r/w   | PGF   r     | THM   r/w
+  AVI   r     | FLV   r     | MODD  r     | PGM   r/w   | TIFF  r/w
+  BMP   r     | FPF   r     | MOS   r/w   | PLIST r     | TORRENT r
+  BTF   r     | FPX   r     | MOV   r/w   | PICT  r     | TTC   r
+  CHM   r     | GIF   r/w   | MP3   r     | PMP   r     | TTF   r
+  COS   r     | GZ    r     | MP4   r/w   | PNG   r/w   | VRD   r/w/c
+  CR2   r/w   | HDP   r/w   | MPC   r     | PPM   r/w   | VSD   r
+  CRW   r/w   | HDR   r     | MPG   r     | PPT   r     | WAV   r
+  CS1   r/w   | HTML  r     | MPO   r/w   | PPTX  r     | WDP   r/w
+  DCM   r     | ICC   r/w/c | MQV   r/w   | PS    r/w   | WEBP  r
+  DCP   r/w   | IDML  r     | MRW   r/w   | PSB   r/w   | WEBM  r
+  DCR   r     | IIQ   r/w   | MXF   r     | PSD   r/w   | WMA   r
+  DFONT r     | IND   r/w   | NEF   r/w   | PSP   r     | WMV   r
+  DIVX  r     | INX   r     | NRW   r/w   | QTIF  r/w   | WV    r
+  DJVU  r     | ITC   r     | NUMBERS r   | RA    r     | X3F   r/w
+  DLL   r     | J2C   r     | ODP   r     | RAF   r/w   | XCF   r
+  DNG   r/w   | JNG   r/w   | ODS   r     | RAM   r     | XLS   r
+  DOC   r     | JP2   r/w   | ODT   r     | RAR   r     | XLSX  r
+  DOCX  r     | JPEG  r/w   | OFR   r     | RAW   r/w   | XMP   r/w/c
+  DPX   r     | K25   r     | OGG   r     | RIFF  r     | ZIP   r
+  DV    r     | KDC   r     | OGV   r     | RSRC  r     |
+  DVB   r/w   | KEY   r     | ORF   r/w   | RTF   r     |
+  DYLIB r     | LA    r     | OTF   r     | RW2   r/w   |
+
+  Meta Information
+  ----------------------+----------------------+---------------------
+  EXIF           r/w/c  |  CIFF           r/w  |  Ricoh RMETA    r
+  GPS            r/w/c  |  AFCP           r/w  |  Picture Info   r
+  IPTC           r/w/c  |  Kodak Meta     r/w  |  Adobe APP14    r
+  XMP            r/w/c  |  FotoStation    r/w  |  MPF            r
+  MakerNotes     r/w/c  |  PhotoMechanic  r/w  |  Stim           r
+  Photoshop IRB  r/w/c  |  JPEG 2000      r    |  APE            r
+  ICC Profile    r/w/c  |  DICOM          r    |  Vorbis         r
+  MIE            r/w/c  |  Flash          r    |  SPIFF          r
+  JFIF           r/w/c  |  FlashPix       r    |  DjVu           r
+  Ducky APP12    r/w/c  |  QuickTime      r    |  M2TS           r
+  PDF            r/w/c  |  Matroska       r    |  PE/COFF        r
+  PNG            r/w/c  |  GeoTIFF        r    |  AVCHD          r
+  Canon VRD      r/w/c  |  PrintIM        r    |  ZIP            r
+  Nikon Capture  r/w/c  |  ID3            r    |  (and more)
+
+See html/index.html for more details about ExifTool features.
+
+%prep
+%setup -n Image-ExifTool-%{version}
+
+%build
+perl Makefile.PL INSTALLDIRS=vendor
+
+%install
+rm -rf $RPM_BUILD_ROOT
+%makeinstall DESTDIR=%{?buildroot:%{buildroot}}
+find $RPM_BUILD_ROOT -name perllocal.pod | xargs rm
+
+%clean
+rm -rf $RPM_BUILD_ROOT
+
+%files
+%defattr(-,root,root,-)
+%doc Changes html
+/usr/lib/perl5/*
+%{_mandir}/*/*
+%{_bindir}/*
+
+%changelog
+* Tue May 09 2006 - Niels Kristian Bech Jensen <nkbj@mail.tele.dk>
+- Spec file fixed for Mandriva Linux 2006.
+* Mon May 08 2006 - Volker Kuhlmann <VolkerKuhlmann@gmx.de>
+- Spec file fixed for SUSE.
+- Package available from: http://volker.dnsalias.net/soft/
+* Sat Jun 19 2004 Kayvan Sylvan <kayvan@sylvan.com> - Image-ExifTool
+- Initial build.