Hello community, here is the log from the commit of package perl-MailTools checked in at Thu Apr 12 18:15:16 CEST 2007. -------- --- perl-MailTools/perl-MailTools.changes 2006-07-13 13:49:58.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-MailTools/perl-MailTools.changes 2007-04-12 11:49:15.000000000 +0200 @@ -1,0 +2,19 @@ +Thu Apr 12 11:38:05 CEST 2007 - anicka@suse.cz + +- update to 1.76 + * The tag (field label) casing is "normalized" which is not + required (as the comment in the code told), but a mis* + feature. The feature will not change, to avoid breaking + existing code. + * Do not ignore unknown argument to Mail::Internet::new(), + but complain about it + * Document that the \n is still after a header line, but folding + is removed. + * Document that unfolding is too greading, taking all leading + blanks where only one should be taken. + * [Mike Lerley] reported that environment variables are not + thread*safe in mod_perl. Therefore, he required to pass the + sender of the message explictly on qmail's command*line. + His addapted patch included. + +------------------------------------------------------------------- Old: ---- MailTools-1.74.tar.bz2 New: ---- MailTools-1.76.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-MailTools.spec ++++++ --- /var/tmp/diff_new_pack.u21181/_old 2007-04-12 18:13:58.000000000 +0200 +++ /var/tmp/diff_new_pack.u21181/_new 2007-04-12 18:13:58.000000000 +0200 @@ -1,7 +1,7 @@ # -# spec file for package perl-MailTools (Version 1.74) +# spec file for package perl-MailTools (Version 1.76) # -# Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2007 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine # package are under the same license as the package itself. # @@ -12,7 +12,7 @@ Name: perl-MailTools URL: http://cpan.org/modules/by-module/Mail/ -Version: 1.74 +Version: 1.76 Release: 1 Provides: p_mtools Obsoletes: p_mtools @@ -57,7 +57,23 @@ /var/adm/perl-modules/perl-MailTools %doc ChangeLog MANIFEST README README.demos examples -%changelog -n perl-MailTools +%changelog +* Thu Apr 12 2007 - anicka@suse.cz +- update to 1.76 + * The tag (field label) casing is "normalized" which is not + required (as the comment in the code told), but a mis* + feature. The feature will not change, to avoid breaking + existing code. + * Do not ignore unknown argument to Mail::Internet::new(), + but complain about it + * Document that the \n is still after a header line, but folding + is removed. + * Document that unfolding is too greading, taking all leading + blanks where only one should be taken. + * [Mike Lerley] reported that environment variables are not + thread*safe in mod_perl. Therefore, he required to pass the + sender of the message explictly on qmail's command*line. + His addapted patch included. * Thu Jul 13 2006 - anicka@suse.cz - update to 1.74 * minor improvements and bugfixes, new examples added ++++++ MailTools-1.74.tar.bz2 -> MailTools-1.76.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.74/ChangeLog new/MailTools-1.76/ChangeLog --- old/MailTools-1.74/ChangeLog 2006-02-28 08:39:16.000000000 +0100 +++ new/MailTools-1.76/ChangeLog 2007-04-10 09:25:31.000000000 +0200 @@ -1,7 +1,33 @@ +==== version history for MailTools + +version 1.77: Tue Apr 10 09:25:29 CEST 2007 + + - The tag (field label) casing is "normalized" which is not + required (as the comment in the code told), but a mis- + feature. The feature will not change, to avoid breaking + existing code. Original report by [Matt Swift] + + - Do not ignore unknown argument to Mail::Internet::new(), + but complain about it [JPBS] + + - Document that the \n is still after a header line, but folding + is removed. Suggested by [Roberto Jimenoca] + + - Document that unfolding is too greading, taking all leading + blanks where only one should be taken. Suggested by + [Roberto Jimenoca] + +version 1.75: Wed Jun 14 15:30:25 CEST 2006 + + - [Mike Lerley] reported that environment variables are not + thread-safe in mod_perl. Therefore, he required to pass the + sender of the message explictly on qmail's command-line. + His addapted patch included. + version 1.74: Tue Feb 28 08:39:14 CET 2006 - - Help from [Jun Kuriyama] + - Finally fixed exec with SMTP, with help from [Jun Kuriyama] version 1.73: Sat Jan 21 09:54:13 CET 2006 diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.74/Mail/Address.pm new/MailTools-1.76/Mail/Address.pm --- old/MailTools-1.74/Mail/Address.pm 2006-01-21 10:16:10.000000000 +0100 +++ new/MailTools-1.76/Mail/Address.pm 2007-04-10 09:23:01.000000000 +0200 @@ -10,9 +10,9 @@ use Carp; use vars qw($VERSION); -# use locale; removed in version 1.74, because it causes taint problems +# use locale; removed in version 1.76, because it causes taint problems -$VERSION = "1.74"; +$VERSION = "1.76"; sub Version { $VERSION } # diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.74/Mail/Cap.pm new/MailTools-1.76/Mail/Cap.pm --- old/MailTools-1.74/Mail/Cap.pm 2006-01-21 10:16:10.000000000 +0100 +++ new/MailTools-1.76/Mail/Cap.pm 2007-04-10 09:23:01.000000000 +0200 @@ -11,7 +11,7 @@ use vars qw($VERSION $useCache); -$VERSION = "1.74"; +$VERSION = "1.76"; sub Version { $VERSION; } =head1 NAME diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.74/Mail/Field/AddrList.pm new/MailTools-1.76/Mail/Field/AddrList.pm --- old/MailTools-1.74/Mail/Field/AddrList.pm 2006-01-21 10:16:10.000000000 +0100 +++ new/MailTools-1.76/Mail/Field/AddrList.pm 2007-04-10 09:23:01.000000000 +0200 @@ -53,7 +53,7 @@ use Mail::Address; @ISA = qw(Mail::Field); -$VERSION = '1.74'; +$VERSION = '1.76'; # install header interpretation, see Mail::Field INIT: { diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.74/Mail/Field/Date.pm new/MailTools-1.76/Mail/Field/Date.pm --- old/MailTools-1.74/Mail/Field/Date.pm 2006-01-21 10:16:10.000000000 +0100 +++ new/MailTools-1.76/Mail/Field/Date.pm 2007-04-10 09:23:01.000000000 +0200 @@ -15,7 +15,7 @@ use Date::Parse qw(str2time); @ISA = qw(Mail::Field); -$VERSION = '1.74'; +$VERSION = '1.76'; bless([])->register('Date'); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.74/Mail/Field.pm new/MailTools-1.76/Mail/Field.pm --- old/MailTools-1.74/Mail/Field.pm 2006-01-21 10:16:10.000000000 +0100 +++ new/MailTools-1.76/Mail/Field.pm 2007-04-10 09:23:01.000000000 +0200 @@ -13,7 +13,7 @@ use strict; use vars qw($AUTOLOAD $VERSION); -$VERSION = "1.74"; +$VERSION = "1.76"; unless(defined &UNIVERSAL::can) { *UNIVERSAL::can = sub { diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.74/Mail/Filter.pm new/MailTools-1.76/Mail/Filter.pm --- old/MailTools-1.74/Mail/Filter.pm 2006-01-21 10:16:10.000000000 +0100 +++ new/MailTools-1.76/Mail/Filter.pm 2007-04-10 09:23:01.000000000 +0200 @@ -11,7 +11,7 @@ use strict; use vars qw($VERSION); -$VERSION = "1.74"; +$VERSION = "1.76"; sub new { my $self = shift; diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.74/Mail/Header.pm new/MailTools-1.76/Mail/Header.pm --- old/MailTools-1.74/Mail/Header.pm 2006-01-21 10:16:10.000000000 +0100 +++ new/MailTools-1.76/Mail/Header.pm 2007-04-10 09:23:01.000000000 +0200 @@ -20,7 +20,7 @@ use Carp; use vars qw($VERSION $FIELD_NAME); -$VERSION = "1.74"; +$VERSION = "1.76"; my $MAIL_FROM = 'KEEP'; my %HDR_LENGTHS = (); @@ -144,10 +144,13 @@ $_[0] =~ s/\A(\S+)\n\s*(?=\S)/$1 /so; } -# attempt to change the case of a tag to that required by RFC822. That +# Tags are case-insensitive, but there is a (slightly) prefered construction # being all characters are lowercase except the first of each word. Also # if the word is an `acronym' then all characters are uppercase. We decide # a word is an acronym if it does not contain a vowel. +# In general, this change of capitization is a bad idea, but it is in +# the code for ages, and therefore probably crucial for existing +# applications. sub _tag_case { @@ -942,12 +945,14 @@ =item get ( TAG [, INDEX ] ) -Get the text form a line. If C<INDEX> is given then the text of the Nth +Get the text from a line. If C<INDEX> is given then the text of the Nth instance will be returned. If it is not given the return value depends on the context in which C<get> was called. In an array context a list of all the text from all the instances of C<TAG> will be returned. In a scalar context the text for the first instance will be returned. +The lines are unfolded, but still terminated with a new-line (see C<chomp>) + =item delete ( TAG [, INDEX ] ) Delete a tag from the header. If C<INDEX> id given then the Nth instance @@ -997,6 +1002,10 @@ Unfold all instances of the given tag so that they do not spread across multiple lines. IF C<TAG> is not given then all lines are unfolded. +The unfolding process is wrong but (for compatibility reasons) will +not be repaired: only one blank at the start of the line should be +removed, not all of them. + =back =head1 AUTHOR diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.74/Mail/Internet.pm new/MailTools-1.76/Mail/Internet.pm --- old/MailTools-1.74/Mail/Internet.pm 2006-01-21 10:16:10.000000000 +0100 +++ new/MailTools-1.76/Mail/Internet.pm 2007-04-10 09:23:01.000000000 +0200 @@ -17,7 +17,7 @@ use vars qw($VERSION); BEGIN { - $VERSION = "1.74"; + $VERSION = "1.76"; *AUTOLOAD = \&AutoLoader::AUTOLOAD; unless(defined &UNIVERSAL::isa) { @@ -60,18 +60,19 @@ $me->head->modify(exists $arg{Modify} ? $arg{Modify} : 1); if(defined $arg) - { + { if(ref($arg) eq 'ARRAY') - { - $me->header($arg) unless exists $arg{Header}; - $me->body($arg) unless exists $arg{Body}; - } + { $me->header($arg) unless exists $arg{Header}; + $me->body($arg) unless exists $arg{Body}; + } elsif(defined fileno($arg)) - { - $me->read_header($arg) unless exists $arg{Header}; - $me->read_body($arg) unless exists $arg{Body}; - } - } + { $me->read_header($arg) unless exists $arg{Header}; + $me->read_body($arg) unless exists $arg{Body}; + } + else + { croak "couldn't understand $arg to Mail::Internet constructor"; + } + } return $me; } diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.74/Mail/Mailer/qmail.pm new/MailTools-1.76/Mail/Mailer/qmail.pm --- old/MailTools-1.74/Mail/Mailer/qmail.pm 2006-01-21 10:16:10.000000000 +0100 +++ new/MailTools-1.76/Mail/Mailer/qmail.pm 2007-04-10 09:23:01.000000000 +0200 @@ -4,6 +4,7 @@ @ISA = qw(Mail::Mailer::rfc822); sub exec { - my($self, $exe, $args, $to) = @_; - exec(( $exe )); + my($self, $exe, $args, $to, $sender) = @_; + my $address = defined $sender && $sender =~ m/\<(.*?)\> ? $1 : $sender; + exec($exe, (defined $address ? "-f$address" : ())); } diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.74/Mail/Mailer.pm new/MailTools-1.76/Mail/Mailer.pm --- old/MailTools-1.74/Mail/Mailer.pm 2006-02-28 08:38:51.000000000 +0100 +++ new/MailTools-1.76/Mail/Mailer.pm 2007-04-10 09:23:01.000000000 +0200 @@ -1,5 +1,3 @@ -# - package Mail::Mailer; use POSIX qw/_exit/; @@ -129,7 +127,7 @@ use Config; use strict; -$VERSION = "1.74"; +$VERSION = "1.76"; sub Version { $VERSION } @@ -263,7 +261,8 @@ # removed MO 20050331: destroyed the folding # _cleanup_hdrs($hdrs); - my @to = $self->who_to($hdrs); + my @to = $self->who_to($hdrs); + my $sender = $self->who_sender($hdrs); $self->close; # just in case; @@ -275,14 +274,14 @@ if($child==0) { # Child process will handle sending, but this is not real exec() # this is a setup!!! - unless($self->exec($exe, $args, \@to)) + unless($self->exec($exe, $args, \@to, $sender)) { warn $!; # setup failed _exit(1); # no DESTROY(), keep it for parent } } } else - { $self->exec($exe, $args, \@to) + { $self->exec($exe, $args, \@to, $sender) or die $!; } @@ -326,6 +325,11 @@ @to; } +sub who_sender { + my($self, $hdrs) = @_; + ($self->to_array($hdrs->{Sender} || $hdrs->{From}))[0]; +} + sub epilogue { # This could send a .signature, also see ::smtp subclass } diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.74/Mail/Send.pm new/MailTools-1.76/Mail/Send.pm --- old/MailTools-1.74/Mail/Send.pm 2006-01-21 10:16:10.000000000 +0100 +++ new/MailTools-1.76/Mail/Send.pm 2007-04-10 09:23:01.000000000 +0200 @@ -8,7 +8,7 @@ use vars qw($VERSION); require Mail::Mailer; -$VERSION = "1.74"; +$VERSION = "1.76"; sub Version { $VERSION } diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.74/Mail/Util.pm new/MailTools-1.76/Mail/Util.pm --- old/MailTools-1.74/Mail/Util.pm 2006-01-21 10:16:10.000000000 +0100 +++ new/MailTools-1.76/Mail/Util.pm 2007-04-10 09:23:01.000000000 +0200 @@ -15,7 +15,7 @@ BEGIN { require 5.000; - $VERSION = "1.74"; + $VERSION = "1.76"; *AUTOLOAD = \&AutoLoader::AUTOLOAD; @ISA = qw(Exporter); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.74/MailTools.ppd new/MailTools-1.76/MailTools.ppd --- old/MailTools-1.74/MailTools.ppd 2006-02-28 08:39:31.000000000 +0100 +++ new/MailTools-1.76/MailTools.ppd 2006-06-14 15:30:33.000000000 +0200 @@ -1,10 +1,10 @@ -<SOFTPKG NAME="MailTools" VERSION="1,74,0,0"> +<SOFTPKG NAME="MailTools" VERSION="1,75,0,0"> <TITLE>MailTools</TITLE> <ABSTRACT>Various Mail related modules</ABSTRACT> <AUTHOR>Mark Overmeer <mailtools@overmeer.net></AUTHOR> <IMPLEMENTATION> <OS NAME="linux" /> - <ARCHITECTURE NAME="i686-linux" /> + <ARCHITECTURE NAME="i586-linux-thread-multi" /> <CODEBASE HREF="" /> </IMPLEMENTATION> </SOFTPKG> diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.74/Makefile.PL new/MailTools-1.76/Makefile.PL --- old/MailTools-1.74/Makefile.PL 2006-01-21 10:16:10.000000000 +0100 +++ new/MailTools-1.76/Makefile.PL 2007-04-10 09:23:00.000000000 +0200 @@ -5,7 +5,7 @@ $NAME = 'Mail'; $DISTNAME = "MailTools"; -$VERSION = "1.74"; +$VERSION = "1.76"; BEGIN { require 5.001 } diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.74/META.yml new/MailTools-1.76/META.yml --- old/MailTools-1.74/META.yml 2006-02-28 08:39:33.000000000 +0100 +++ new/MailTools-1.76/META.yml 2007-04-10 09:25:36.000000000 +0200 @@ -1,10 +1,10 @@ # http://module-build.sourceforge.net/META-spec.html #XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX# name: MailTools -version: 1.74 +version: 1.76 version_from: installdirs: site requires: distribution_type: module -generated_by: ExtUtils::MakeMaker version 6.17 +generated_by: ExtUtils::MakeMaker version 6.30 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org