Hello community, here is the log from the commit of package perl-Convert-TNEF for openSUSE:Factory checked in at 2013-06-06 15:10:45 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Convert-TNEF (Old) and /work/SRC/openSUSE:Factory/.perl-Convert-TNEF.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Convert-TNEF" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Convert-TNEF/perl-Convert-TNEF.changes 2011-11-21 12:37:56.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Convert-TNEF.new/perl-Convert-TNEF.changes 2013-06-06 15:10:47.000000000 +0200 @@ -1,0 +2,8 @@ +Mon Jun 3 15:58:49 UTC 2013 - [email protected] + +- updated to 0.18 + - Add IO::Wrap dependency to Makefile.PL (RT78412). + - Change longname() to detect names in newer versions of Outlook. + (RT78484) + +------------------------------------------------------------------- Old: ---- Convert-TNEF-0.17.tar.gz New: ---- Convert-TNEF-0.18.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Convert-TNEF.spec ++++++ --- /var/tmp/diff_new_pack.YJf7UG/_old 2013-06-06 15:10:47.000000000 +0200 +++ /var/tmp/diff_new_pack.YJf7UG/_new 2013-06-06 15:10:47.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Convert-TNEF # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -15,56 +15,132 @@ # Please submit bugfixes or comments via http://bugs.opensuse.org/ # -# norootforbuild - Name: perl-Convert-TNEF +Version: 0.18 +Release: 0 %define cpan_name Convert-TNEF -BuildRequires: perl-MIME-tools -BuildRequires: perl-macros -License: Artistic-1.0 -Group: Development/Libraries/Perl -Provides: p_tnef -Obsoletes: p_tnef -AutoReqProv: on Summary: Perl module to read TNEF files -Version: 0.17 -Release: 408 -Source: %{cpan_name}-%{version}.tar.gz +License: GPL-1.0+ or Artistic-1.0 +Group: Development/Libraries/Perl +Url: http://search.cpan.org/dist/Convert-TNEF/ +Source: http://www.cpan.org/authors/id/D/DO/DOUGW/%{cpan_name}-%{version}.tar.gz +BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build +BuildRequires: perl +BuildRequires: perl-macros +BuildRequires: perl(IO::Wrap) +BuildRequires: perl(MIME::Body) >= 4.109 +#BuildRequires: perl(Convert::TNEF) +Requires: perl(IO::Wrap) +Requires: perl(MIME::Body) >= 4.109 %{perl_requires} %description -Perl module to read TNEF files + TNEF stands for Transport Neutral Encapsulation Format, and if you've + ever been unfortunate enough to receive one of these files as an email + attachment, you may want to use this module. + + read() takes as its first argument any file handle open + for reading. The optional second argument is a hash reference + which contains one or more of the following keys: + + output_dir - Path for storing TNEF attribute data kept in files + (default: current directory). + + output_prefix - File prefix for TNEF attribute data kept in files + (default: 'tnef'). + + output_to_core - TNEF attribute data will be saved in core memory unless + it is greater than this many bytes (default: 4096). May also be set to + 'NONE' to keep all data in files, or 'ALL' to keep all data in core. + + buffer_size - Buffer size for reading in the TNEF file (default: 1024). + + debug - If true, outputs all sorts of info about what the read() function + is reading, including the raw ascii data along with the data converted + to hex (default: false). + + display_after_err - If debug is true and an error is encountered, + reads and displays this many bytes of data following the error + (default: 32). + + debug_max_display - If debug is true then read and display at most + this many bytes of data for each TNEF attribute (default: 1024). + debug_max_line_size - If debug is true then at most this many bytes of + data will be displayed on each line for each TNEF attribute + (default: 64). + ignore_checksum - If true, will ignore checksum errors while parsing + data (default: false). -Authors: --------- - Douglas Wilson <[email protected]> + read() returns an object containing the TNEF 'attributes' read from the + file and the data for those attributes. If all you want are the + attachments, then this is mostly garbage, but if you're interested then + you can see all the garbage by turning on debugging. If the garbage + proves useful to you, then let me know how I can maybe make it more + useful. + + If an error is encountered, an undefined value is returned and the + package variable $errstr is set to some helpful message. + + read_in() is a convienient front end for read() which takes a filename + instead of a handle. + + read_ent() is another convient front end for read() which can take a + MIME::Entity object (or any object with like methods, specifically + open("r"), read($buff,$num_bytes), and close ). + + purge() deletes any on-disk data that may be in the attachments of + the TNEF object. + + message() returns the message portion of the tnef object, if any. + The thing it returns is like an attachment, but its not an attachment. + For instance, it more than likely does not have a name or any + attachment data. + + attachments() returns a list of the attachments that the given TNEF + object contains. Returns a list ref if not called in array context. + + data() takes a TNEF attribute name, and returns a string value for that + attribute for that attachment. Its your own problem if the string is too + big for memory. If no argument is given, then the 'AttachData' attribute + is assumed, which is probably the attachment data you're looking for. + + name() is the same as data(), except the attribute 'AttachTitle' is + the default, which returns the 8 character + 3 character extension name + of the attachment. + + longname() returns the long filename and extension of an attachment. This + is embedded within a MAPI property of the 'Attachment' attribute data, so + we attempt to extract the name out of that. + + size() takes an TNEF attribute name, and returns the size in bytes for + the data for that attachment attribute. + + datahandle() is a method for attachments which takes a TNEF attribute + name, and returns the data for that attribute as a handle which is + the same as a MIME::Body handle. See MIME::Body for all the applicable + methods. If no argument is given, then 'AttachData' is assumed. %prep -%setup -n %{cpan_name}-%{version} -# --------------------------------------------------------------------------- +%setup -q -n %{cpan_name}-%{version} %build -perl Makefile.PL -make %{?_smp_mflags} -make test -# --------------------------------------------------------------------------- +%{__perl} Makefile.PL INSTALLDIRS=vendor +%{__make} %{?_smp_mflags} + +%check +%{__make} test %install -[ "$RPM_BUILD_ROOT" != "/" ] && [ -d $RPM_BUILD_ROOT ] && rm -rf $RPM_BUILD_ROOT; -make DESTDIR=$RPM_BUILD_ROOT install_vendor +%perl_make_install %perl_process_packlist +%perl_gen_filelist -%files -%defattr(-,root,root) -%dir %{perl_vendorlib}/Convert -%{perl_vendorlib}/Convert/TNEF.pm -%dir %{perl_vendorarch}/auto/Convert -%{perl_vendorarch}/auto/Convert/TNEF -%doc %{_mandir}/man3/Convert::TNEF.3pm.gz -%doc Changes MANIFEST README +%files -f %{name}.files +%defattr(-,root,root,755) +%doc Changes README %changelog ++++++ Convert-TNEF-0.17.tar.gz -> Convert-TNEF-0.18.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Convert-TNEF-0.17/Changes new/Convert-TNEF-0.18/Changes --- old/Convert-TNEF-0.17/Changes 2002-02-24 19:16:48.000000000 +0100 +++ new/Convert-TNEF-0.18/Changes 2012-07-23 20:48:25.000000000 +0200 @@ -1,5 +1,9 @@ Revision history for Perl extension Convert::TNEF. +0.18 Mon Jul 23 2012 + - Add IO::Wrap dependency to Makefile.PL (RT78412). + - Change longname() to detect names in newer versions of Outlook. + (RT78484) 0.17 Sun Feb 24 2001 - It appears that messages no longer need start with a TnefVersion attribute, and a message without this attribute diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Convert-TNEF-0.17/MANIFEST new/Convert-TNEF-0.18/MANIFEST --- old/Convert-TNEF-0.17/MANIFEST 2001-01-17 20:41:40.000000000 +0100 +++ new/Convert-TNEF-0.18/MANIFEST 2012-07-23 20:52:19.000000000 +0200 @@ -5,3 +5,4 @@ TNEF.pm t/test.t t/tnef.doc +META.yml Module meta-data (added by MakeMaker) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Convert-TNEF-0.17/META.yml new/Convert-TNEF-0.18/META.yml --- old/Convert-TNEF-0.17/META.yml 1970-01-01 01:00:00.000000000 +0100 +++ new/Convert-TNEF-0.18/META.yml 2012-07-23 20:55:46.000000000 +0200 @@ -0,0 +1,22 @@ +--- #YAML:1.0 +name: Convert-TNEF +version: 0.18 +abstract: ~ +author: [] +license: unknown +distribution_type: module +configure_requires: + ExtUtils::MakeMaker: 0 +build_requires: + ExtUtils::MakeMaker: 0 +requires: + IO::Wrap: 0 + MIME::Body: 4.109 +no_index: + directory: + - t + - inc +generated_by: ExtUtils::MakeMaker version 6.57_05 +meta-spec: + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: 1.4 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Convert-TNEF-0.17/Makefile.PL new/Convert-TNEF-0.18/Makefile.PL --- old/Convert-TNEF-0.17/Makefile.PL 2001-07-31 00:39:18.000000000 +0200 +++ new/Convert-TNEF-0.18/Makefile.PL 2012-07-23 20:45:21.000000000 +0200 @@ -4,5 +4,5 @@ WriteMakefile( 'NAME' => 'Convert::TNEF', 'VERSION_FROM' => 'TNEF.pm', # finds $VERSION - 'PREREQ_PM' => { 'MIME::Body' => 4.109 }, + 'PREREQ_PM' => { 'MIME::Body' => 4.109, 'IO::Wrap' => 0 }, ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Convert-TNEF-0.17/TNEF.pm new/Convert-TNEF-0.18/TNEF.pm --- old/Convert-TNEF-0.17/TNEF.pm 2002-02-24 19:10:32.000000000 +0100 +++ new/Convert-TNEF-0.18/TNEF.pm 2012-07-23 20:50:21.000000000 +0200 @@ -27,7 +27,7 @@ use File::Spec; use MIME::Body; -$VERSION = '0.17'; +$VERSION = '0.18'; # Set some TNEF constants. Everything turned # out to be in little endian order, so I just added @@ -484,6 +484,7 @@ my $data = $self->data("Attachment"); return unless $data; my $pos = index( $data, pack( "H*", "1e00013001" ) ); + $pos = index( $data, pack( "H*", "1e00073701" ) ) if ($pos < 0); return $self->name unless $pos >= 0; my $len = unpack( "V", substr( $data, $pos + 8, 4 ) ); my $longname = substr( $data, $pos + 12, $len ); -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
