r29222 - in /trunk/libemail-send-perl: Changes META.yml README debian/changelog debian/control 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:59:36 UTC 2009
Author: ansgar-guest
Date: Sun Jan 4 11:59:33 2009
New Revision: 29222
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29222
Log:
* New upstream release.
* debian/control: Add myself to Uploaders.
Modified:
trunk/libemail-send-perl/Changes
trunk/libemail-send-perl/META.yml
trunk/libemail-send-perl/README
trunk/libemail-send-perl/debian/changelog
trunk/libemail-send-perl/debian/control
trunk/libemail-send-perl/lib/Email/Send.pm
trunk/libemail-send-perl/lib/Email/Send/NNTP.pm
trunk/libemail-send-perl/lib/Email/Send/Qmail.pm
trunk/libemail-send-perl/lib/Email/Send/SMTP.pm
trunk/libemail-send-perl/lib/Email/Send/Sendmail.pm
trunk/libemail-send-perl/lib/Email/Send/Test.pm
Modified: trunk/libemail-send-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/Changes?rev=29222&op=diff
==============================================================================
--- trunk/libemail-send-perl/Changes (original)
+++ trunk/libemail-send-perl/Changes Sun Jan 4 11:59:33 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: trunk/libemail-send-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/META.yml?rev=29222&op=diff
==============================================================================
--- trunk/libemail-send-perl/META.yml (original)
+++ trunk/libemail-send-perl/META.yml Sun Jan 4 11:59:33 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: trunk/libemail-send-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/README?rev=29222&op=diff
==============================================================================
--- trunk/libemail-send-perl/README (original)
+++ trunk/libemail-send-perl/README Sun Jan 4 11:59:33 2009
@@ -2,7 +2,7 @@
Email::Send - Simply Sending Email
VERSION
- 2.193
+ 2.194
SYNOPSIS
use Email::Send;
Modified: trunk/libemail-send-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/debian/changelog?rev=29222&op=diff
==============================================================================
--- trunk/libemail-send-perl/debian/changelog (original)
+++ trunk/libemail-send-perl/debian/changelog Sun Jan 4 11:59:33 2009
@@ -1,3 +1,10 @@
+libemail-send-perl (2.194-1) unstable; urgency=low
+
+ * New upstream release.
+ * debian/control: Add myself to Uploaders.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Sun, 04 Jan 2009 12:59:20 +0100
+
libemail-send-perl (2.193-1) unstable; urgency=low
* Add debian/README.source to document quilt usage, as required by
Modified: trunk/libemail-send-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/debian/control?rev=29222&op=diff
==============================================================================
--- trunk/libemail-send-perl/debian/control (original)
+++ trunk/libemail-send-perl/debian/control Sun Jan 4 11:59:33 2009
@@ -12,7 +12,8 @@
gregor herrmann <gregoa at debian.org>,
Carlo Segre <segre at debian.org>,
Damyan Ivanov <dmn at debian.org>,
- Gunnar Wolf <gwolf at debian.org>
+ Gunnar Wolf <gwolf at debian.org>,
+ Ansgar Burchardt <ansgar at 43-1.org>
Standards-Version: 3.8.0
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libemail-send-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libemail-send-perl/
Modified: trunk/libemail-send-perl/lib/Email/Send.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/lib/Email/Send.pm?rev=29222&op=diff
==============================================================================
--- trunk/libemail-send-perl/lib/Email/Send.pm (original)
+++ trunk/libemail-send-perl/lib/Email/Send.pm Sun Jan 4 11:59:33 2009
@@ -2,7 +2,7 @@
use strict;
use vars qw[$VERSION];
-$VERSION = '2.193';
+$VERSION = '2.194';
use Email::Simple;
use Module::Pluggable
Modified: trunk/libemail-send-perl/lib/Email/Send/NNTP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/lib/Email/Send/NNTP.pm?rev=29222&op=diff
==============================================================================
--- trunk/libemail-send-perl/lib/Email/Send/NNTP.pm (original)
+++ trunk/libemail-send-perl/lib/Email/Send/NNTP.pm Sun Jan 4 11:59:33 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: trunk/libemail-send-perl/lib/Email/Send/Qmail.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/lib/Email/Send/Qmail.pm?rev=29222&op=diff
==============================================================================
--- trunk/libemail-send-perl/lib/Email/Send/Qmail.pm (original)
+++ trunk/libemail-send-perl/lib/Email/Send/Qmail.pm Sun Jan 4 11:59:33 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: trunk/libemail-send-perl/lib/Email/Send/SMTP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/lib/Email/Send/SMTP.pm?rev=29222&op=diff
==============================================================================
--- trunk/libemail-send-perl/lib/Email/Send/SMTP.pm (original)
+++ trunk/libemail-send-perl/lib/Email/Send/SMTP.pm Sun Jan 4 11:59:33 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: trunk/libemail-send-perl/lib/Email/Send/Sendmail.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/lib/Email/Send/Sendmail.pm?rev=29222&op=diff
==============================================================================
--- trunk/libemail-send-perl/lib/Email/Send/Sendmail.pm (original)
+++ trunk/libemail-send-perl/lib/Email/Send/Sendmail.pm Sun Jan 4 11:59:33 2009
@@ -7,7 +7,7 @@
use vars qw[$SENDMAIL $VERSION];
-$VERSION = '2.193';
+$VERSION = '2.194';
sub is_available {
my $class = shift;
Modified: trunk/libemail-send-perl/lib/Email/Send/Test.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/lib/Email/Send/Test.pm?rev=29222&op=diff
==============================================================================
--- trunk/libemail-send-perl/lib/Email/Send/Test.pm (original)
+++ trunk/libemail-send-perl/lib/Email/Send/Test.pm Sun Jan 4 11:59:33 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