658d3bb555
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
71 lines
2.1 KiB
Plaintext
71 lines
2.1 KiB
Plaintext
=head1 NAME
|
|
|
|
smtp-forward
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This plugin forwards the mail via SMTP to a specified server, rather than
|
|
delivering the email locally.
|
|
|
|
=head1 CONFIG
|
|
|
|
It takes one required parameter, the IP address or hostname to forward to.
|
|
|
|
queue/smtp-forward 10.2.2.2
|
|
|
|
Optionally you can also add a port:
|
|
|
|
queue/smtp-forward 10.2.2.2 9025
|
|
|
|
=cut
|
|
|
|
use Net::SMTP;
|
|
|
|
sub register {
|
|
my ($self, $qp, @args) = @_;
|
|
$self->register_hook("queue", "queue_handler");
|
|
|
|
if (@args > 0) {
|
|
if ($args[0] =~ /^([\.\w_-]+)$/) {
|
|
$self->{_smtp_server} = $1;
|
|
}
|
|
else {
|
|
die "Bad data in smtp server: $args[0]";
|
|
}
|
|
$self->{_smtp_port} = 25;
|
|
if (@args > 1 and $args[1] =~ /^(\d+)$/) {
|
|
$self->{_smtp_port} = $1;
|
|
}
|
|
$self->log(LOGWARN, "WARNING: Ignoring additional arguments.") if (@args > 2);
|
|
} else {
|
|
die("No SMTP server specified in smtp-forward config");
|
|
}
|
|
|
|
}
|
|
|
|
sub queue_handler {
|
|
my ($self, $transaction) = @_;
|
|
|
|
$self->log(LOGINFO, "forwarding to $self->{_smtp_server}:$self->{_smtp_port}");
|
|
my $smtp = Net::SMTP->new(
|
|
$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) {
|
|
$smtp->to($_->address) or return(DECLINED, "Unable to queue message ($!)");
|
|
}
|
|
$smtp->data() or return(DECLINED, "Unable to queue message ($!)");
|
|
$smtp->datasend($transaction->header->as_string) or return(DECLINED, "Unable to queue message ($!)");
|
|
$transaction->body_resetpos;
|
|
while (my $line = $transaction->body_getline) {
|
|
$smtp->datasend($line) or return(DECLINED, "Unable to queue message ($!)");
|
|
}
|
|
$smtp->dataend() or return(DECLINED, "Unable to queue message ($!)");
|
|
$smtp->quit() or return(DECLINED, "Unable to queue message ($!)");
|
|
$self->log(LOGINFO, "finished queueing");
|
|
return (OK, "Queued!");
|
|
}
|