Hello community, here is the log from the commit of package perl-MailTools for openSUSE:Factory checked in at 2017-08-29 11:34:28 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-MailTools (Old) and /work/SRC/openSUSE:Factory/.perl-MailTools.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-MailTools" Tue Aug 29 11:34:28 2017 rev:33 rq:518508 version:2.19 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-MailTools/perl-MailTools.changes 2016-06-03 16:34:35.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-MailTools.new/perl-MailTools.changes 2017-08-29 11:34:29.501273340 +0200 @@ -1,0 +2,17 @@ +Thu Aug 24 05:54:45 UTC 2017 - [email protected] + +- updated to 2.19 + see /usr/share/doc/packages/perl-MailTools/ChangeLog + +------------------------------------------------------------------- +Wed Aug 23 05:46:29 UTC 2017 - [email protected] + +- updated to 2.19 + see /usr/share/doc/packages/perl-MailTools/ChangeLog + + version 2.19: Tue 22 Aug 13:30:41 CEST 2017 + + Improvements: + - block namespace MailTools rt.cpan.org#120905 [Karen Etheridge] + +------------------------------------------------------------------- Old: ---- MailTools-2.18.tar.gz New: ---- MailTools-2.19.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-MailTools.spec ++++++ --- /var/tmp/diff_new_pack.b7yo7n/_old 2017-08-29 11:34:30.613117119 +0200 +++ /var/tmp/diff_new_pack.b7yo7n/_new 2017-08-29 11:34:30.625115433 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-MailTools # -# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,14 +17,14 @@ Name: perl-MailTools -Version: 2.18 +Version: 2.19 Release: 0 %define cpan_name MailTools -Summary: Various e-mail related modules +Summary: Bundle of Ancient Email Modules License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/MailTools/ -Source0: http://www.cpan.org/authors/id/M/MA/MARKOV/%{cpan_name}-%{version}.tar.gz +Source0: https://cpan.metacpan.org/authors/id/M/MA/MARKOV/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build @@ -37,7 +37,14 @@ %{perl_requires} %description -Various e-mail related modules +MailTools is a bundle: an ancient form of combining packages into one +distribution. Gladly, it can be distributed as if it is a normal +distribution as well. + +*Be warned:* The code you find here is very old. It works for simple +emails, but when you start with new code then please use more sofisticated +libraries. The main reason that you still find this code on CPAN, is +because many books use it as example. %prep %setup -q -n %{cpan_name}-%{version} ++++++ MailTools-2.18.tar.gz -> MailTools-2.19.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/ChangeLog new/MailTools-2.19/ChangeLog --- old/MailTools-2.18/ChangeLog 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/ChangeLog 2017-08-22 13:30:46.000000000 +0200 @@ -1,6 +1,11 @@ ==== version history for MailTools +version 2.19: Tue 22 Aug 13:30:41 CEST 2017 + + Improvements: + - block namespace MailTools rt.cpan.org#120905 [Karen Etheridge] + version 2.18: Wed 18 May 23:52:30 CEST 2016 Fixes: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/MANIFEST new/MailTools-2.19/MANIFEST --- old/MailTools-2.18/MANIFEST 2016-05-18 23:52:37.000000000 +0200 +++ new/MailTools-2.19/MANIFEST 2017-08-22 13:36:20.000000000 +0200 @@ -38,6 +38,8 @@ lib/Mail/Send.pod lib/Mail/Util.pm lib/Mail/Util.pod +lib/MailTools.pm +lib/MailTools.pod t/extract.t t/header.t t/internet.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/META.json new/MailTools-2.19/META.json --- old/MailTools-2.18/META.json 2016-05-18 23:52:37.000000000 +0200 +++ new/MailTools-2.19/META.json 2017-08-22 13:36:20.000000000 +0200 @@ -1,5 +1,5 @@ { - "abstract" : "Various e-mail related modules", + "abstract" : "Various ancient e-mail related modules", "author" : [ "Mark Overmeer <[email protected]>" ], @@ -10,7 +10,7 @@ ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, - "version" : "2" + "version" : 2 }, "name" : "MailTools", "no_index" : { @@ -42,5 +42,5 @@ } }, "release_status" : "stable", - "version" : "2.18" + "version" : "2.19" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/META.yml new/MailTools-2.19/META.yml --- old/MailTools-2.18/META.yml 2016-05-18 23:52:36.000000000 +0200 +++ new/MailTools-2.19/META.yml 2017-08-22 13:36:20.000000000 +0200 @@ -1,5 +1,5 @@ --- -abstract: 'Various e-mail related modules' +abstract: 'Various ancient e-mail related modules' author: - 'Mark Overmeer <[email protected]>' build_requires: @@ -24,4 +24,4 @@ Net::Domain: 1.05 Net::SMTP: 1.03 Test::More: 0 -version: 2.18 +version: 2.19 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/Makefile.PL new/MailTools-2.19/Makefile.PL --- old/MailTools-2.18/Makefile.PL 2016-05-18 23:50:54.000000000 +0200 +++ new/MailTools-2.19/Makefile.PL 2017-08-22 13:36:19.000000000 +0200 @@ -4,10 +4,9 @@ WriteMakefile ( DISTNAME => 'MailTools' - , VERSION => '2.18' - , NAME => 'Mail' + , VERSION => '2.19' , AUTHOR => 'Mark Overmeer <[email protected]>' - , ABSTRACT => 'Various e-mail related modules' + , ABSTRACT => 'Various ancient e-mail related modules' , LICENSE => 'perl' , PREREQ_PM => @@ -42,7 +41,7 @@ # for OODoc's oodist, POD FIRST_YEAR = 1995 EMAIL = [email protected] -WEBSITE = http://perl.overmeer.net/log-report/ +WEBSITE = http://perl.overmeer.net/ ESQ } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Address.pm new/MailTools-2.19/lib/Mail/Address.pm --- old/MailTools-2.18/lib/Mail/Address.pm 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Address.pm 2017-08-22 13:36:19.000000000 +0200 @@ -1,10 +1,10 @@ -# Copyrights 1995-2016 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2017 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. package Mail::Address; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; use strict; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Address.pod new/MailTools-2.19/lib/Mail/Address.pod --- old/MailTools-2.18/lib/Mail/Address.pod 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Address.pod 2017-08-22 13:36:19.000000000 +0200 @@ -2,7 +2,7 @@ =head1 NAME -Mail::Address - Parse mail addresses +Mail::Address - parse mail addresses =head1 SYNOPSIS @@ -49,6 +49,18 @@ implementation you may take a look at L<Mail::Message::Field::Full>, part of MailBox. +B<. Example> + + my $s = Mail::Message::Field::Full->new($from_header); + # ref $s isa Mail::Message::Field::Addresses; + + my @g = $s->groups; # all groups, at least one + # ref $g[0] isa Mail::Message::Field::AddrGroup; + my $ga = $g[0]->addresses; # group addresses + + my @a = $s->addresses; # all addresses + # ref $a[0] isa Mail::Message::Field::Address; + =head1 METHODS =head2 Constructors @@ -144,7 +156,7 @@ =head1 LICENSE Copyrights 1995-2000 Graham Barr E<lt>[email protected]<gt> and -2001-2007 Mark Overmeer E<lt>[email protected]<gt>. +2001-2017 Mark Overmeer E<lt>[email protected]<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Cap.pm new/MailTools-2.19/lib/Mail/Cap.pm --- old/MailTools-2.18/lib/Mail/Cap.pm 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Cap.pm 2017-08-22 13:36:19.000000000 +0200 @@ -1,10 +1,10 @@ -# Copyrights 1995-2016 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2017 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. package Mail::Cap; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; use strict; @@ -24,6 +24,7 @@ ); # this path is specified under RFC1524 appendix A } +#-------- sub new { my $class = shift; @@ -114,6 +115,7 @@ close MAILCAP; } +#------------------ sub view { my $self = shift; $self->_run($self->viewCmd(@_)) } sub compose { my $self = shift; $self->_run($self->composeCmd(@_)) } @@ -128,6 +130,7 @@ 1; } +#------------------ sub viewCmd { shift->_createCommand(view => @_) } sub composeCmd { shift->_createCommand(compose => @_) } @@ -153,6 +156,7 @@ $template; } +#------------------ sub field($$) { my($self, $type, $field) = @_; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Cap.pod new/MailTools-2.19/lib/Mail/Cap.pod --- old/MailTools-2.18/lib/Mail/Cap.pod 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Cap.pod 2017-08-22 13:36:19.000000000 +0200 @@ -2,15 +2,16 @@ =head1 NAME -Mail::Cap - Parse mailcap files +Mail::Cap - understand mailcap files =head1 SYNOPSIS - my $mc = new Mail::Cap; - $desc = $mc->description('image/gif'); + my $mc = Mail::Cap->new; + my $desc = $mc->description('image/gif'); print "GIF desc: $desc\n"; - $cmd = $mc->viewCmd('text/plain; charset=iso-8859-1', 'file.txt'); + + my $cmd = $mc->viewCmd('text/plain; charset=iso-8859-1', 'file.txt'); =head1 DESCRIPTION @@ -148,7 +149,7 @@ =head1 LICENSE Copyrights 1995-2000 Graham Barr E<lt>[email protected]<gt> and -2001-2007 Mark Overmeer E<lt>[email protected]<gt>. +2001-2017 Mark Overmeer E<lt>[email protected]<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Field/AddrList.pm new/MailTools-2.19/lib/Mail/Field/AddrList.pm --- old/MailTools-2.18/lib/Mail/Field/AddrList.pm 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Field/AddrList.pm 2017-08-22 13:36:19.000000000 +0200 @@ -1,4 +1,4 @@ -# Copyrights 1995-2016 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2017 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. @@ -6,7 +6,7 @@ package Mail::Field::AddrList; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; use base 'Mail::Field'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Field/AddrList.pod new/MailTools-2.19/lib/Mail/Field/AddrList.pod --- old/MailTools-2.18/lib/Mail/Field/AddrList.pod 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Field/AddrList.pod 2017-08-22 13:36:19.000000000 +0200 @@ -167,7 +167,7 @@ =head1 LICENSE Copyrights 1995-2000 Graham Barr E<lt>[email protected]<gt> and -2001-2007 Mark Overmeer E<lt>[email protected]<gt>. +2001-2017 Mark Overmeer E<lt>[email protected]<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Field/Date.pm new/MailTools-2.19/lib/Mail/Field/Date.pm --- old/MailTools-2.18/lib/Mail/Field/Date.pm 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Field/Date.pm 2017-08-22 13:36:19.000000000 +0200 @@ -1,4 +1,4 @@ -# Copyrights 1995-2016 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2017 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. @@ -6,7 +6,7 @@ package Mail::Field::Date; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; use base 'Mail::Field'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Field/Date.pod new/MailTools-2.19/lib/Mail/Field/Date.pod --- old/MailTools-2.18/lib/Mail/Field/Date.pod 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Field/Date.pod 2017-08-22 13:36:19.000000000 +0200 @@ -144,7 +144,7 @@ =head1 LICENSE Copyrights 1995-2000 Graham Barr E<lt>[email protected]<gt> and -2001-2007 Mark Overmeer E<lt>[email protected]<gt>. +2001-2017 Mark Overmeer E<lt>[email protected]<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Field/Generic.pm new/MailTools-2.19/lib/Mail/Field/Generic.pm --- old/MailTools-2.18/lib/Mail/Field/Generic.pm 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Field/Generic.pm 2017-08-22 13:36:19.000000000 +0200 @@ -1,10 +1,10 @@ -# Copyrights 1995-2016 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2017 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. package Mail::Field::Generic; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; use Carp; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Field/Generic.pod new/MailTools-2.19/lib/Mail/Field/Generic.pod --- old/MailTools-2.18/lib/Mail/Field/Generic.pod 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Field/Generic.pod 2017-08-22 13:36:19.000000000 +0200 @@ -139,7 +139,7 @@ =head1 LICENSE Copyrights 1995-2000 Graham Barr E<lt>[email protected]<gt> and -2001-2007 Mark Overmeer E<lt>[email protected]<gt>. +2001-2017 Mark Overmeer E<lt>[email protected]<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Field.pm new/MailTools-2.19/lib/Mail/Field.pm --- old/MailTools-2.18/lib/Mail/Field.pm 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Field.pm 2017-08-22 13:36:19.000000000 +0200 @@ -1,14 +1,15 @@ -# Copyrights 1995-2016 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2017 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. package Mail::Field; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; -use Carp; use strict; + +use Carp; use Mail::Field::Generic; @@ -108,6 +109,7 @@ @_==1 ? $self->parse(@_) : $self->create(@_); } +#------------- sub new { my $class = shift; @@ -173,6 +175,7 @@ $class->$method($text); } +#------------- # before 2.00, this method could be called as class method, however # not all extensions supported that. @@ -190,6 +193,7 @@ confess "parse() not implemented"; } +#------------- sub stringify { confess "stringify() not implemented" } @@ -211,11 +215,13 @@ # prevent the calling of AUTOLOAD for DESTROY :-) sub DESTROY {} +#------------- sub text { my $self = shift; @_ ? $self->parse(@_) : $self->stringify; } +#------------- 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Field.pod new/MailTools-2.19/lib/Mail/Field.pod --- old/MailTools-2.18/lib/Mail/Field.pod 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Field.pod 2017-08-22 13:36:19.000000000 +0200 @@ -2,7 +2,7 @@ =head1 NAME -Mail::Field - Base class for manipulation of mail header fields +Mail::Field - base-class for manipulation of mail header fields =head1 INHERITANCE @@ -188,7 +188,7 @@ =head1 LICENSE Copyrights 1995-2000 Graham Barr E<lt>[email protected]<gt> and -2001-2007 Mark Overmeer E<lt>[email protected]<gt>. +2001-2017 Mark Overmeer E<lt>[email protected]<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Filter.pm new/MailTools-2.19/lib/Mail/Filter.pm --- old/MailTools-2.18/lib/Mail/Filter.pm 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Filter.pm 2017-08-22 13:36:19.000000000 +0200 @@ -1,26 +1,29 @@ -# Copyrights 1995-2016 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2017 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. -use strict; package Mail::Filter; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; +use strict; use Carp; + sub new(@) { my $class = shift; bless { filters => [ @_ ] }, $class; } +#------------ sub add(@) { my $self = shift; push @{$self->{filters}}, @_; } +#------------ sub _filter($) { my ($self, $mail) = @_; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Filter.pod new/MailTools-2.19/lib/Mail/Filter.pod --- old/MailTools-2.18/lib/Mail/Filter.pod 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Filter.pod 2017-08-22 13:36:19.000000000 +0200 @@ -2,7 +2,7 @@ =head1 NAME -Mail::Filter - Filter mail through multiple subroutines +Mail::Filter - filter mail through multiple subroutines =head1 SYNOPSIS @@ -98,7 +98,7 @@ =head1 LICENSE Copyrights 1995-2000 Graham Barr E<lt>[email protected]<gt> and -2001-2007 Mark Overmeer E<lt>[email protected]<gt>. +2001-2017 Mark Overmeer E<lt>[email protected]<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Header.pm new/MailTools-2.19/lib/Mail/Header.pm --- old/MailTools-2.18/lib/Mail/Header.pm 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Header.pm 2017-08-22 13:36:19.000000000 +0200 @@ -1,10 +1,10 @@ -# Copyrights 1995-2016 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2017 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. package Mail::Header; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; use strict; @@ -13,17 +13,6 @@ my $MAIL_FROM = 'KEEP'; my %HDR_LENGTHS = (); -# Pattern to match a RFC822 Field name ( Extract from RFC #822) -# -# field = field-name ":" [ field-body ] CRLF -# -# field-name = 1*<any CHAR, excluding CTLs, SPACE, and ":"> -# -# CHAR = <any ASCII character> ; ( 0-177, 0.-127.) -# CTL = <any ASCII control ; ( 0- 37, 0.- 31.) -# character and DEL> ; ( 177, 127.) -# I have included the trailing ':' in the field-name -# our $FIELD_NAME = '[^\x00-\x1f\x7f-\xff :]+:'; @@ -229,6 +218,7 @@ } } +#------------ sub new { my $call = shift; @@ -277,6 +267,7 @@ $dup; } +#------------ sub extract { my ($self, $lines) = @_; @@ -371,6 +362,7 @@ }; } +#------------ sub modify { my $self = shift; @@ -423,6 +415,7 @@ $old; } +#------------ sub fold { my ($self, $maxlen) = @_; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Header.pod new/MailTools-2.19/lib/Mail/Header.pod --- old/MailTools-2.18/lib/Mail/Header.pod 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Header.pod 2017-08-22 13:36:19.000000000 +0200 @@ -247,7 +247,7 @@ =head1 LICENSE Copyrights 1995-2000 Graham Barr E<lt>[email protected]<gt> and -2001-2007 Mark Overmeer E<lt>[email protected]<gt>. +2001-2017 Mark Overmeer E<lt>[email protected]<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Internet.pm new/MailTools-2.19/lib/Mail/Internet.pm --- old/MailTools-2.18/lib/Mail/Internet.pm 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Internet.pm 2017-08-22 13:36:19.000000000 +0200 @@ -1,10 +1,10 @@ -# Copyrights 1995-2016 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2017 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. package Mail::Internet; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; use strict; # use warnings? probably breaking too much code @@ -85,6 +85,7 @@ $dup; } +#--------------- sub body(;$@) { my $self = shift; @@ -98,6 +99,7 @@ sub head { shift->{mail_inet_head} ||= Mail::Header->new } +#--------------- sub print($) { my $self = shift; @@ -138,6 +140,7 @@ $self->as_string . "\n"; } +#--------------- sub header { shift->head->header(@_) } sub fold { shift->head->fold(@_) } @@ -199,6 +202,7 @@ 1; } +#--------------- sub remove_sig($) { my $body = shift->body; @@ -251,6 +255,7 @@ $body; } +#--------------- sub reply(@) { my ($self, %arg) = @_; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Internet.pod new/MailTools-2.19/lib/Mail/Internet.pod --- old/MailTools-2.18/lib/Mail/Internet.pod 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Internet.pod 2017-08-22 13:36:19.000000000 +0200 @@ -379,7 +379,7 @@ =head1 LICENSE Copyrights 1995-2000 Graham Barr E<lt>[email protected]<gt> and -2001-2007 Mark Overmeer E<lt>[email protected]<gt>. +2001-2017 Mark Overmeer E<lt>[email protected]<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Mailer/qmail.pm new/MailTools-2.19/lib/Mail/Mailer/qmail.pm --- old/MailTools-2.18/lib/Mail/Mailer/qmail.pm 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Mailer/qmail.pm 2017-08-22 13:36:19.000000000 +0200 @@ -1,4 +1,4 @@ -# Copyrights 1995-2016 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2017 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. @@ -7,7 +7,7 @@ package Mail::Mailer::qmail; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; use base 'Mail::Mailer::rfc822'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Mailer/rfc822.pm new/MailTools-2.19/lib/Mail/Mailer/rfc822.pm --- old/MailTools-2.18/lib/Mail/Mailer/rfc822.pm 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Mailer/rfc822.pm 2017-08-22 13:36:19.000000000 +0200 @@ -1,4 +1,4 @@ -# Copyrights 1995-2016 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2017 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. @@ -6,7 +6,7 @@ package Mail::Mailer::rfc822; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; use base 'Mail::Mailer'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Mailer/sendmail.pm new/MailTools-2.19/lib/Mail/Mailer/sendmail.pm --- old/MailTools-2.18/lib/Mail/Mailer/sendmail.pm 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Mailer/sendmail.pm 2017-08-22 13:36:19.000000000 +0200 @@ -1,4 +1,4 @@ -# Copyrights 1995-2016 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2017 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. @@ -6,7 +6,7 @@ package Mail::Mailer::sendmail; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; use base 'Mail::Mailer::rfc822'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Mailer/smtp.pm new/MailTools-2.19/lib/Mail/Mailer/smtp.pm --- old/MailTools-2.18/lib/Mail/Mailer/smtp.pm 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Mailer/smtp.pm 2017-08-22 13:36:19.000000000 +0200 @@ -1,4 +1,4 @@ -# Copyrights 1995-2016 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2017 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. @@ -6,7 +6,7 @@ package Mail::Mailer::smtp; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; use base 'Mail::Mailer::rfc822'; @@ -85,7 +85,7 @@ package Mail::Mailer::smtp::pipe; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; sub TIEHANDLE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Mailer/smtps.pm new/MailTools-2.19/lib/Mail/Mailer/smtps.pm --- old/MailTools-2.18/lib/Mail/Mailer/smtps.pm 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Mailer/smtps.pm 2017-08-22 13:36:19.000000000 +0200 @@ -1,4 +1,4 @@ -# Copyrights 1995-2016 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2017 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. @@ -8,7 +8,7 @@ package Mail::Mailer::smtps; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; use base 'Mail::Mailer::rfc822'; @@ -90,7 +90,7 @@ package Mail::Mailer::smtps::pipe; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; sub TIEHANDLE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Mailer/testfile.pm new/MailTools-2.19/lib/Mail/Mailer/testfile.pm --- old/MailTools-2.18/lib/Mail/Mailer/testfile.pm 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Mailer/testfile.pm 2017-08-22 13:36:19.000000000 +0200 @@ -1,4 +1,4 @@ -# Copyrights 1995-2016 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2017 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. @@ -6,7 +6,7 @@ package Mail::Mailer::testfile; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; use base 'Mail::Mailer::rfc822'; @@ -36,7 +36,7 @@ package Mail::Mailer::testfile::pipe; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; sub TIEHANDLE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Mailer.pm new/MailTools-2.19/lib/Mail/Mailer.pm --- old/MailTools-2.18/lib/Mail/Mailer.pm 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Mailer.pm 2017-08-22 13:36:19.000000000 +0200 @@ -1,20 +1,20 @@ -# Copyrights 1995-2016 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2017 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. -use strict; - package Mail::Mailer; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; use base 'IO::Handle'; +use strict; use POSIX qw/_exit/; use Carp; use Config; +#-------------- sub is_exe($); @@ -212,5 +212,6 @@ sub DESTROY { shift->close } +#-------------- 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Mailer.pod new/MailTools-2.19/lib/Mail/Mailer.pod --- old/MailTools-2.18/lib/Mail/Mailer.pod 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Mailer.pod 2017-08-22 13:36:19.000000000 +0200 @@ -2,7 +2,7 @@ =head1 NAME -Mail::Mailer - Simple interface to electronic mailing mechanisms +Mail::Mailer - send simple emails =head1 INHERITANCE @@ -144,7 +144,7 @@ =head1 LICENSE Copyrights 1995-2000 Graham Barr E<lt>[email protected]<gt> and -2001-2007 Mark Overmeer E<lt>[email protected]<gt>. +2001-2017 Mark Overmeer E<lt>[email protected]<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Send.pm new/MailTools-2.19/lib/Mail/Send.pm --- old/MailTools-2.18/lib/Mail/Send.pm 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Send.pm 2017-08-22 13:36:19.000000000 +0200 @@ -1,19 +1,19 @@ -# Copyrights 1995-2016 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2017 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. - -use strict; package Mail::Send; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; -use Carp; -require Mail::Mailer; +use strict; + +use Mail::Mailer (); sub Version { our $VERSION } +#------------------ sub new(@) { my ($class, %attr) = @_; @@ -27,6 +27,7 @@ $self; } +#--------------- sub set($@) { my ($self, $hdr, @values) = @_; @@ -52,6 +53,7 @@ sub bcc { my $self=shift; $self->set('Bcc', @_); } sub subject { my $self=shift; $self->set('Subject', join (' ', @_)); } +#--------------- sub open(@) { my $self = shift; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Send.pod new/MailTools-2.19/lib/Mail/Send.pod --- old/MailTools-2.18/lib/Mail/Send.pod 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Send.pod 2017-08-22 13:36:19.000000000 +0200 @@ -108,7 +108,7 @@ =head1 LICENSE Copyrights 1995-2000 Graham Barr E<lt>[email protected]<gt> and -2001-2007 Mark Overmeer E<lt>[email protected]<gt>. +2001-2017 Mark Overmeer E<lt>[email protected]<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Util.pm new/MailTools-2.19/lib/Mail/Util.pm --- old/MailTools-2.18/lib/Mail/Util.pm 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Util.pm 2017-08-22 13:36:19.000000000 +0200 @@ -1,18 +1,18 @@ -# Copyrights 1995-2016 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2017 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. -use strict; - package Mail::Util; use vars '$VERSION'; -$VERSION = '2.18'; +$VERSION = '2.19'; use base 'Exporter'; +use strict; +use Carp; + our @EXPORT_OK = qw(read_mbox maildomain mailaddress); -use Carp; sub Version { our $VERSION } my ($domain, $mailaddress); @@ -35,13 +35,13 @@ while(<FH>) { if($blank && /^From .*\d{4}/) { push @mbox, $mail if @$mail; - $mail = [ $_ ]; - $blank = 0; - } - else + $mail = [ $_ ]; + $blank = 0; + } + else { $blank = m/^$/ ? 1 : 0; - push @$mail, $_; - } + push @$mail, $_; + } } push @mbox, $mail if @$mail; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/Mail/Util.pod new/MailTools-2.19/lib/Mail/Util.pod --- old/MailTools-2.18/lib/Mail/Util.pod 2016-05-18 23:52:35.000000000 +0200 +++ new/MailTools-2.19/lib/Mail/Util.pod 2017-08-22 13:36:19.000000000 +0200 @@ -111,7 +111,7 @@ =head1 LICENSE Copyrights 1995-2000 Graham Barr E<lt>[email protected]<gt> and -2001-2007 Mark Overmeer E<lt>[email protected]<gt>. +2001-2017 Mark Overmeer E<lt>[email protected]<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/MailTools.pm new/MailTools-2.19/lib/MailTools.pm --- old/MailTools-2.18/lib/MailTools.pm 1970-01-01 01:00:00.000000000 +0100 +++ new/MailTools-2.19/lib/MailTools.pm 2017-08-22 13:36:19.000000000 +0200 @@ -0,0 +1,11 @@ +# Copyrights 1995-2017 by [Mark Overmeer <[email protected]>]. +# For other contributors see ChangeLog. +# See the manual pages for details on the licensing terms. +# Pod stripped from pm file by OODoc 2.02. +package MailTools; +use vars '$VERSION'; +$VERSION = '2.19'; + + + +1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/lib/MailTools.pod new/MailTools-2.19/lib/MailTools.pod --- old/MailTools-2.18/lib/MailTools.pod 1970-01-01 01:00:00.000000000 +0100 +++ new/MailTools-2.19/lib/MailTools.pod 2017-08-22 13:36:19.000000000 +0200 @@ -0,0 +1,92 @@ +=encoding utf8 + +=head1 NAME + +MailTools - bundle of ancient email modules + +=head1 SYNOPSIS + + # This is a place-holder for the distribution + +=head1 DESCRIPTION + +MailTools is a bundle: an ancient form of combining packages into one +distribution. Gladly, it can be distributed as if it is a normal +distribution as well. + +B<Be warned:> The code you find here is very old. It works for simple +emails, but when you start with new code then please use more +sofisticated libraries. The main reason that you still find this code +on CPAN, is because many books use it as example. + +=head2 Component + +In this distribution, you find + +=over 4 + +=item Mail::Address + +Parse email address from a header line. + +=item Mail::Cap + +Interpret mailcap files: mappings of file-types to applications as used +by many command-line email programs. + +=item Mail::Field + +Simplifies access to (some) email header fields. Used by L<Mail::Header|Mail::Header>. + +=item Mail::Filter + +Process L<Mail::Internet|Mail::Internet> messages. + +=item Mail::Header + +Collection of L<Mail::Field|Mail::Field> objects, representing the header of a +L<Mail::Internet|Mail::Internet> object. + +=item Mail::Internet + +Represents a single email message, with header and body. + +=item Mail::Mailer + +Send L<Mail::Internet|Mail::Internet> emails via direct smtp or local MTA's. + +=item Mail::Send + +Build a L<Mail::Internet|Mail::Internet> object, and then send it out using +L<Mail::Mailer|Mail::Mailer>. + +=item Mail::Util + +"Smart functions" you should not depend on. + +=back + +=head1 SEE ALSO + +This module is part of the MailTools distribution, +F<http://perl.overmeer.net/mailtools/>. + +=head1 AUTHORS + +The MailTools bundle was developed by Graham Barr. Later, Mark +Overmeer took over maintenance without commitment to further development. + +Mail::Cap by Gisle Aas E<lt>[email protected]<gt>. +Mail::Field::AddrList by Peter Orbaek E<lt>[email protected]<gt>. +Mail::Mailer and Mail::Send by Tim Bunce E<lt>[email protected]<gt>. +For other contributors see ChangeLog. + +=head1 LICENSE + +Copyrights 1995-2000 Graham Barr E<lt>[email protected]<gt> and +2001-2017 Mark Overmeer E<lt>[email protected]<gt>. + +This program is free software; you can redistribute it and/or modify it +under the same terms as Perl itself. +See F<http://www.perl.com/perl/misc/Artistic.html> + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.18/t/require.t new/MailTools-2.19/t/require.t --- old/MailTools-2.18/t/require.t 2016-04-15 09:58:59.000000000 +0200 +++ new/MailTools-2.19/t/require.t 2017-08-22 13:30:46.000000000 +0200 @@ -1,5 +1,5 @@ #!/usr/local/bin/perl -w -print "1..8\n"; +print "1..9\n"; require Mail::Address; print "ok 1\n"; require Mail::Cap; @@ -16,4 +16,6 @@ print "ok 7\n"; require Mail::Util; print "ok 8\n"; +require MailTools; +print "ok 9\n";
