From 658d3bb5553d281c40bbdd59d49b61060857fda3 Mon Sep 17 00:00:00 2001 From: Robert Spier Date: Fri, 16 Jul 2004 05:03:25 +0000 Subject: [PATCH] From: John Peacock 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 | 1 + 1 file changed, 1 insertion(+) diff --git a/plugins/queue/smtp-forward b/plugins/queue/smtp-forward index 43ad45d..eb196d8 100644 --- a/plugins/queue/smtp-forward +++ b/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) {