r29220 - in /branches/upstream/libemail-send-perl/current: Changes META.yml README lib/Email/Send.pm lib/Email/Send/NNTP.pm lib/Email/Send/Qmail.pm lib/Email/Send/SMTP.pm lib/Email/Send/Sendmail.pm lib/Email/Send/Test.pm
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Sun Jan 4 11:49:08 UTC 2009
Author: ansgar-guest
Date: Sun Jan 4 11:49:05 2009
New Revision: 29220
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29220
Log:
[svn-upgrade] Integrating new upstream version, libemail-send-perl (2.194)
Modified:
branches/upstream/libemail-send-perl/current/Changes
branches/upstream/libemail-send-perl/current/META.yml
branches/upstream/libemail-send-perl/current/README
branches/upstream/libemail-send-perl/current/lib/Email/Send.pm
branches/upstream/libemail-send-perl/current/lib/Email/Send/NNTP.pm
branches/upstream/libemail-send-perl/current/lib/Email/Send/Qmail.pm
branches/upstream/libemail-send-perl/current/lib/Email/Send/SMTP.pm
branches/upstream/libemail-send-perl/current/lib/Email/Send/Sendmail.pm
branches/upstream/libemail-send-perl/current/lib/Email/Send/Test.pm
Modified: branches/upstream/libemail-send-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-send-perl/current/Changes?rev=29220&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/Changes (original)
+++ branches/upstream/libemail-send-perl/current/Changes Sun Jan 4 11:49:05 2009
@@ -1,3 +1,8 @@
+2.194 2009-01-02
+ ** PLEASE CONSIDER USING EMAIL-SENDER INSTEAD **
+
+ attempt to fix "smtp client never sends QUIT"
+
2.193 2008-12-19
** PLEASE CONSIDER USING EMAIL-SENDER INSTEAD **
Modified: branches/upstream/libemail-send-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-send-perl/current/META.yml?rev=29220&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/META.yml (original)
+++ branches/upstream/libemail-send-perl/current/META.yml Sun Jan 4 11:49:05 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Email-Send
-version: 2.193
+version: 2.194
abstract: Simply Sending Email
author:
- Casey West <casey at geeknest.com>
Modified: branches/upstream/libemail-send-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-send-perl/current/README?rev=29220&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/README (original)
+++ branches/upstream/libemail-send-perl/current/README Sun Jan 4 11:49:05 2009
@@ -2,7 +2,7 @@
Email::Send - Simply Sending Email
VERSION
- 2.193
+ 2.194
SYNOPSIS
use Email::Send;
Modified: branches/upstream/libemail-send-perl/current/lib/Email/Send.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-send-perl/current/lib/Email/Send.pm?rev=29220&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/lib/Email/Send.pm (original)
+++ branches/upstream/libemail-send-perl/current/lib/Email/Send.pm Sun Jan 4 11:49:05 2009
@@ -2,7 +2,7 @@
use strict;
use vars qw[$VERSION];
-$VERSION = '2.193';
+$VERSION = '2.194';
use Email::Simple;
use Module::Pluggable
Modified: branches/upstream/libemail-send-perl/current/lib/Email/Send/NNTP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-send-perl/current/lib/Email/Send/NNTP.pm?rev=29220&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/lib/Email/Send/NNTP.pm (original)
+++ branches/upstream/libemail-send-perl/current/lib/Email/Send/NNTP.pm Sun Jan 4 11:49:05 2009
@@ -5,7 +5,7 @@
use Net::NNTP;
use Return::Value;
-$VERSION = '2.193';
+$VERSION = '2.194';
sub is_available {
return eval { require Net::NNTP }
Modified: branches/upstream/libemail-send-perl/current/lib/Email/Send/Qmail.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-send-perl/current/lib/Email/Send/Qmail.pm?rev=29220&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/lib/Email/Send/Qmail.pm (original)
+++ branches/upstream/libemail-send-perl/current/lib/Email/Send/Qmail.pm Sun Jan 4 11:49:05 2009
@@ -7,7 +7,7 @@
use vars qw[$QMAIL $VERSION];
$QMAIL ||= q[qmail-inject];
-$VERSION = '2.193';
+$VERSION = '2.194';
sub is_available {
my $class = shift;
Modified: branches/upstream/libemail-send-perl/current/lib/Email/Send/SMTP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-send-perl/current/lib/Email/Send/SMTP.pm?rev=29220&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/lib/Email/Send/SMTP.pm (original)
+++ branches/upstream/libemail-send-perl/current/lib/Email/Send/SMTP.pm Sun Jan 4 11:49:05 2009
@@ -1,11 +1,11 @@
package Email::Send::SMTP;
use strict;
-use vars qw[$SMTP $VERSION];
+use vars qw[$VERSION];
use Email::Address;
use Return::Value;
-$VERSION = '2.193';
+$VERSION = '2.194';
sub is_available {
my ($class, %args) = @_;
@@ -36,33 +36,31 @@
sub send {
my ($class, $message, @args) = @_;
- require Net::SMTP;
- if ( @_ > 1 ) {
- my %args;
- if ( @args % 2 ) {
- my $host = shift @args;
- %args = @args;
- $args{Host} = $host;
- } else {
- %args = @args;
- }
- my $host = delete($args{Host}) || 'localhost';
+ my %args;
+ if ( @args % 2 ) {
+ my $host = shift @args;
+ %args = @args;
+ $args{Host} = $host;
+ } else {
+ %args = @args;
+ }
- my $smtp_class = $args{ssl} ? 'Net::SMTP::SSL'
- : $args{tls} ? 'Net::SMTP::TLS'
- : 'Net::SMTP';
+ my $host = delete($args{Host}) || 'localhost';
- $SMTP->quit if $SMTP;
- $SMTP = $smtp_class->new($host, %args);
- return failure "Couldn't connect to $host" unless $SMTP;
-
- my ($user, $pass)
- = @args{qw[username password]};
- if ( $user ) {
- $SMTP->auth($user, $pass)
- or return failure "Couldn't authenticate '$user:...'";
- }
+ my $smtp_class = $args{ssl} ? 'Net::SMTP::SSL'
+ : $args{tls} ? 'Net::SMTP::TLS'
+ : 'Net::SMTP';
+
+ eval "require $smtp_class; 1" or die;
+ my $SMTP = $smtp_class->new($host, %args);
+ return failure "Couldn't connect to $host" unless $SMTP;
+
+ my ($user, $pass) = @args{qw[username password]};
+
+ if ( $user ) {
+ $SMTP->auth($user, $pass)
+ or return failure "Couldn't authenticate '$user:...'";
}
my @bad;
@@ -93,11 +91,8 @@
return failure "Can't send data" unless $SMTP->data( $message->as_string );
+ $SMTP->quit;
return success "Message sent", prop => { bad => [ @bad ], };
-}
-
-sub DESTROY {
- $SMTP->quit if $SMTP;
}
1;
Modified: branches/upstream/libemail-send-perl/current/lib/Email/Send/Sendmail.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-send-perl/current/lib/Email/Send/Sendmail.pm?rev=29220&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/lib/Email/Send/Sendmail.pm (original)
+++ branches/upstream/libemail-send-perl/current/lib/Email/Send/Sendmail.pm Sun Jan 4 11:49:05 2009
@@ -7,7 +7,7 @@
use vars qw[$SENDMAIL $VERSION];
-$VERSION = '2.193';
+$VERSION = '2.194';
sub is_available {
my $class = shift;
Modified: branches/upstream/libemail-send-perl/current/lib/Email/Send/Test.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-send-perl/current/lib/Email/Send/Test.pm?rev=29220&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/lib/Email/Send/Test.pm (original)
+++ branches/upstream/libemail-send-perl/current/lib/Email/Send/Test.pm Sun Jan 4 11:49:05 2009
@@ -70,7 +70,7 @@
use vars qw{$VERSION};
BEGIN {
- $VERSION = '2.193';
+ $VERSION = '2.194';
}
# No longer allow direct access to the array
More information about the Pkg-perl-cvs-commits
mailing list