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