From: John Peacock <jpeacock@rowman.com>

To: qpsmtpd@perl.org
Subject: [PATCH] queue/smtp-forward doesn't use correct HELO string
Message-ID: <20040714143007.31047.qmail@onion.perl.org>
Date: Wed, 14 Jul 2004 10:30:24 -0400

The current version of Net::SMTP doesn't make any attempt to determine
the hostname of the current computer (not that I blame Graham for
that), so that all e-mails are sent out as from
"localhost.localdomain" unless an explicit Hello string is provided.


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@266 958fd67b-6ff1-0310-b445-bb7760255be9

plugins/queue/smtp-forward

@@ -51,6 +51,7 @@ sub queue_handler {
                             $self->{_smtp_server},
                             Port => $self->{_smtp_port},
                             Timeout => 60,
+                            Hello => $self->qp->config("me"),
                            ) || die $!;
   $smtp->mail( $transaction->sender->address || "" ) or return(DECLINED, "Unable to queue message ($!)");
   for ($transaction->recipients) {