r4618 - in /packages/libemail-send-perl/trunk: Changes META.yml
debian/changelog debian/watch lib/Email/Send.pm lib/Email/Send/SMTP.pm
t/classic.t t/pod-coverage.t t/sendmail.t t/test.t
eloy at users.alioth.debian.org
eloy at users.alioth.debian.org
Tue Dec 12 12:24:48 CET 2006
Author: eloy
Date: Tue Dec 12 12:24:48 2006
New Revision: 4618
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=4618
Log:
eloy: new upstream version
Modified:
packages/libemail-send-perl/trunk/Changes
packages/libemail-send-perl/trunk/META.yml
packages/libemail-send-perl/trunk/debian/changelog
packages/libemail-send-perl/trunk/debian/watch
packages/libemail-send-perl/trunk/lib/Email/Send.pm
packages/libemail-send-perl/trunk/lib/Email/Send/SMTP.pm
packages/libemail-send-perl/trunk/t/classic.t
packages/libemail-send-perl/trunk/t/pod-coverage.t
packages/libemail-send-perl/trunk/t/sendmail.t
packages/libemail-send-perl/trunk/t/test.t
Modified: packages/libemail-send-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/Changes?rev=4618&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/Changes (original)
+++ packages/libemail-send-perl/trunk/Changes Tue Dec 12 12:24:48 2006
@@ -1,3 +1,7 @@
+2.182 2006-12-07
+ - skip/fix some tests on Win32
+ - move to/from finding to another method in ::SMTP
+
2.181 2006-11-25
- remove dependency on Class::Accessor::Fast, which broke its $VERSION
Modified: packages/libemail-send-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/META.yml?rev=4618&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/META.yml (original)
+++ packages/libemail-send-perl/trunk/META.yml Tue Dec 12 12:24:48 2006
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Email-Send
-version: 2.181
+version: 2.182
abstract: Simply Sending Email
license: perl
generated_by: ExtUtils::MakeMaker version 6.31
Modified: packages/libemail-send-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/debian/changelog?rev=4618&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/debian/changelog (original)
+++ packages/libemail-send-perl/trunk/debian/changelog Tue Dec 12 12:24:48 2006
@@ -1,3 +1,9 @@
+libemail-send-perl (2.182-1) unstable; urgency=low
+
+ * New upstream release
+
+ -- Krzysztof Krzyzaniak (eloy) <eloy at debian.org> Tue, 12 Dec 2006 12:23:52 +0100
+
libemail-send-perl (2.181-1) unstable; urgency=low
* New upstream release
Modified: packages/libemail-send-perl/trunk/debian/watch
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/debian/watch?rev=4618&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/debian/watch (original)
+++ packages/libemail-send-perl/trunk/debian/watch Tue Dec 12 12:24:48 2006
@@ -1,2 +1,2 @@
version=3
-http://mirrors.kernel.org/cpan/modules/by-module/Email/Email-Send-([\d\.]+)\.tar\.gz
+http://www.cpan.org/modules/by-module/Email/Email-Send-([\d\.]+)\.tar\.gz
Modified: packages/libemail-send-perl/trunk/lib/Email/Send.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/lib/Email/Send.pm?rev=4618&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/lib/Email/Send.pm (original)
+++ packages/libemail-send-perl/trunk/lib/Email/Send.pm Tue Dec 12 12:24:48 2006
@@ -2,7 +2,7 @@
use strict;
use vars qw[$VERSION];
-$VERSION = '2.181';
+$VERSION = '2.182';
use Email::Simple;
use Module::Pluggable search_path => 'Email::Send';
Modified: packages/libemail-send-perl/trunk/lib/Email/Send/SMTP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/lib/Email/Send/SMTP.pm?rev=4618&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/lib/Email/Send/SMTP.pm (original)
+++ packages/libemail-send-perl/trunk/lib/Email/Send/SMTP.pm Tue Dec 12 12:24:48 2006
@@ -5,7 +5,7 @@
use Email::Address;
use Return::Value;
-$VERSION = '2.180';
+$VERSION = '2.182';
sub is_available {
my ($class, %args) = @_;
@@ -16,6 +16,22 @@
return $success
? success
: failure $@;
+}
+
+sub get_env_sender {
+ my ($class, $message) = @_;
+
+ my $from = (Email::Address->parse($message->header('From')))[0]->address;
+}
+
+sub get_env_recipients {
+ my ($class, $message) = @_;
+
+ my %to = map { $_->address => 1 }
+ map { Email::Address->parse($message->header($_)) }
+ qw(To Cc Bcc);
+
+ return keys %to;
}
sub send {
@@ -50,19 +66,13 @@
}
my @bad;
- my @to;
eval {
- my $from =
- (Email::Address->parse($message->header('From')))[0]->address;
+ my $from = $class->get_env_sender($message);
# ::TLS has no useful return value, but will croak on failure.
eval { $SMTP->mail($from) } or return failure "FROM: <$from> denied";
- for my $header (qw(To Cc Bcc)) {
- push @to,
- map { $_->address }
- Email::Address->parse($message->header($header));
- }
+ my @to = $class->get_env_recipients($message);
if (eval { $SMTP->isa('Net::SMTP::TLS') }) {
$SMTP->to(@to);
@@ -149,6 +159,13 @@
For more information on these return values, see L<Return::Value>.
+=head2 ENVELOPE GENERATION
+
+The envelope sender and recipients are, by default, generated by looking at the
+From, To, Cc, and Bcc headers. This behavior can be modified by replacing the
+C<get_env_sender> and C<get_env_recipients> methods, both of which receive the
+Email::Simple object and their only parameter, and return email addresses.
+
=head1 SEE ALSO
L<Email::Send>,
Modified: packages/libemail-send-perl/trunk/t/classic.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/t/classic.t?rev=4618&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/t/classic.t (original)
+++ packages/libemail-send-perl/trunk/t/classic.t Tue Dec 12 12:24:48 2006
@@ -1,10 +1,16 @@
-use Test::More tests => 3;
+use Test::More;
use strict;
$^W =1;
BEGIN {
- use_ok 'Email::Send';
+ if ($^O eq 'MSWin32') {
+ plan skip_all => "Patches welcome to better test Win32";
+ } else {
+ plan tests => 3;
+ }
}
+
+BEGIN { use_ok 'Email::Send'; }
use Email::Simple;
Modified: packages/libemail-send-perl/trunk/t/pod-coverage.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/t/pod-coverage.t?rev=4618&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/t/pod-coverage.t (original)
+++ packages/libemail-send-perl/trunk/t/pod-coverage.t Tue Dec 12 12:24:48 2006
@@ -8,6 +8,6 @@
# Having to trustme these is obnoxious. It would be nice if there was a base
# class for mailers. Then again, whatever. -- rjbs, 2006-07-06
all_pod_coverage_ok({
- trustme => [ qw(send is_available) ],
+ trustme => [ qw(send is_available get_env_sender get_env_recipients) ],
coverage_class => 'Pod::Coverage::CountParents'
});
Modified: packages/libemail-send-perl/trunk/t/sendmail.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/t/sendmail.t?rev=4618&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/t/sendmail.t (original)
+++ packages/libemail-send-perl/trunk/t/sendmail.t Tue Dec 12 12:24:48 2006
@@ -56,6 +56,7 @@
SKIP:
{
skip 'Cannot run this test unless current perl is -x', 1 unless -x $^X;
+ skip 'Win32 does not understand shebang', 1 if $^O eq 'MSWin32';
skip 'Cannot run this test without File::Temp', 1 unless $has_FileTemp;
my $tempdir = File::Temp::tempdir();
@@ -84,6 +85,7 @@
SKIP:
{
skip 'Cannot run this test unless current perl is -x', 2 unless -x $^X;
+ skip 'Win32 does not understand shebang', 1 if $^O eq 'MSWin32';
skip 'Cannot run this test without File::Temp', 2 unless $has_FileTemp;
my $tempdir = File::Temp::tempdir();
Modified: packages/libemail-send-perl/trunk/t/test.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/t/test.t?rev=4618&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/t/test.t (original)
+++ packages/libemail-send-perl/trunk/t/test.t Tue Dec 12 12:24:48 2006
@@ -1,6 +1,6 @@
use Test::More tests => 3;
use strict;
-$^W =1;
+$^W = 1;
BEGIN {
use_ok 'Email::Send';
@@ -28,6 +28,7 @@
open T, 'testfile' or die "couldn't open testfile: $!";
<T>
};
+ close T;
my $test_message = Email::Simple->new($test);
@@ -50,6 +51,7 @@
->send($message_text);
my $test = do { local $/; open T, 'testfile'; <T> };
+ close T;
my $test_message = Email::Simple->new($test);
More information about the Pkg-perl-cvs-commits
mailing list