byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Error checking

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@243 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2004-06-11 20:00:15 +00:00
parent b2b7602d32
commit 8c32a22d27
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
plugins/queue/smtp-forward
View File

@ -52,15 +52,17 @@ sub queue_handler {
Port => $self->{_smtp_port},
Timeout => 60,
) || die $!;
$smtp->mail( $transaction->sender->address || "" );
$smtp->to($_->address) for $transaction->recipients;
$smtp->data();
$smtp->datasend($transaction->header->as_string);
$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);
$smtp->datasend($line) or return(DECLINED, "Unable to queue message ($!)");
}
$smtp->dataend();
$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!");