Add program to extract Postfix constants from source files and generate
Qpsmtpd::Postfix::Constants (to be used by postfix-queue). Patch by Hanno Hecker. git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.3x@668 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
John Peacock
parent
bdf3f983a7
commit
86e202d19e
86
lib/Qpsmtpd/Postfix/Constants.pm
Normal file
86
lib/Qpsmtpd/Postfix/Constants.pm
Normal file
@ -0,0 +1,86 @@
|
|||||||
|
#
|
||||||
|
# Qpsmtpd::Postfix::Constants
|
||||||
|
#
|
||||||
|
# This is a generated file, do not edit
|
||||||
|
#
|
||||||
|
# created by pf2qp.pl v0.1 @ Sun Oct 29 09:10:18 2006
|
||||||
|
# postfix version 2.4
|
||||||
|
#
|
||||||
|
package Qpsmtpd::Postfix::Constants;
|
||||||
|
|
||||||
|
use Qpsmtpd::Constants;
|
||||||
|
|
||||||
|
require Exporter;
|
||||||
|
|
||||||
|
use vars qw(@ISA @EXPORT %cleanup_soft %cleanup_hard $postfix_version);
|
||||||
|
use strict;
|
||||||
|
|
||||||
|
@ISA = qw(Exporter);
|
||||||
|
@EXPORT = qw(
|
||||||
|
%cleanup_soft
|
||||||
|
%cleanup_hard
|
||||||
|
$postfix_version
|
||||||
|
CLEANUP_FLAG_NONE
|
||||||
|
CLEANUP_FLAG_BOUNCE
|
||||||
|
CLEANUP_FLAG_FILTER
|
||||||
|
CLEANUP_FLAG_HOLD
|
||||||
|
CLEANUP_FLAG_DISCARD
|
||||||
|
CLEANUP_FLAG_BCC_OK
|
||||||
|
CLEANUP_FLAG_MAP_OK
|
||||||
|
CLEANUP_FLAG_MILTER
|
||||||
|
CLEANUP_FLAG_FILTER_ALL
|
||||||
|
CLEANUP_FLAG_MASK_EXTERNAL
|
||||||
|
CLEANUP_FLAG_MASK_INTERNAL
|
||||||
|
CLEANUP_FLAG_MASK_EXTRA
|
||||||
|
CLEANUP_STAT_OK
|
||||||
|
CLEANUP_STAT_BAD
|
||||||
|
CLEANUP_STAT_WRITE
|
||||||
|
CLEANUP_STAT_SIZE
|
||||||
|
CLEANUP_STAT_CONT
|
||||||
|
CLEANUP_STAT_HOPS
|
||||||
|
CLEANUP_STAT_RCPT
|
||||||
|
CLEANUP_STAT_PROXY
|
||||||
|
CLEANUP_STAT_DEFER
|
||||||
|
CLEANUP_STAT_MASK_CANT_BOUNCE
|
||||||
|
CLEANUP_STAT_MASK_INCOMPLETE
|
||||||
|
);
|
||||||
|
|
||||||
|
$postfix_version = "2.4";
|
||||||
|
use constant CLEANUP_FLAG_NONE => 0; # /* No special features */
|
||||||
|
use constant CLEANUP_FLAG_BOUNCE => (1<<0); # /* Bounce bad messages */
|
||||||
|
use constant CLEANUP_FLAG_FILTER => (1<<1); # /* Enable header/body checks */
|
||||||
|
use constant CLEANUP_FLAG_HOLD => (1<<2); # /* Place message on hold */
|
||||||
|
use constant CLEANUP_FLAG_DISCARD => (1<<3); # /* Discard message silently */
|
||||||
|
use constant CLEANUP_FLAG_BCC_OK => (1<<4); # /* Ok to add auto-BCC addresses */
|
||||||
|
use constant CLEANUP_FLAG_MAP_OK => (1<<5); # /* Ok to map addresses */
|
||||||
|
use constant CLEANUP_FLAG_MILTER => (1<<6); # /* Enable Milter applications */
|
||||||
|
use constant CLEANUP_FLAG_FILTER_ALL => (CLEANUP_FLAG_FILTER | CLEANUP_FLAG_MILTER);
|
||||||
|
use constant CLEANUP_FLAG_MASK_EXTERNAL => (CLEANUP_FLAG_FILTER_ALL | CLEANUP_FLAG_BCC_OK | CLEANUP_FLAG_MAP_OK);
|
||||||
|
use constant CLEANUP_FLAG_MASK_INTERNAL => CLEANUP_FLAG_MAP_OK;
|
||||||
|
use constant CLEANUP_FLAG_MASK_EXTRA => (CLEANUP_FLAG_HOLD | CLEANUP_FLAG_DISCARD);
|
||||||
|
|
||||||
|
use constant CLEANUP_STAT_OK => 0; # /* Success. */
|
||||||
|
use constant CLEANUP_STAT_BAD => (1<<0); # /* Internal protocol error */
|
||||||
|
use constant CLEANUP_STAT_WRITE => (1<<1); # /* Error writing message file */
|
||||||
|
use constant CLEANUP_STAT_SIZE => (1<<2); # /* Message file too big */
|
||||||
|
use constant CLEANUP_STAT_CONT => (1<<3); # /* Message content rejected */
|
||||||
|
use constant CLEANUP_STAT_HOPS => (1<<4); # /* Too many hops */
|
||||||
|
use constant CLEANUP_STAT_RCPT => (1<<6); # /* No recipients found */
|
||||||
|
use constant CLEANUP_STAT_PROXY => (1<<7); # /* Proxy reject */
|
||||||
|
use constant CLEANUP_STAT_DEFER => (1<<8); # /* Temporary reject */
|
||||||
|
use constant CLEANUP_STAT_MASK_CANT_BOUNCE => (CLEANUP_STAT_BAD | CLEANUP_STAT_WRITE | CLEANUP_STAT_DEFER);
|
||||||
|
use constant CLEANUP_STAT_MASK_INCOMPLETE => (CLEANUP_STAT_BAD | CLEANUP_STAT_WRITE | CLEANUP_STAT_SIZE | CLEANUP_STAT_DEFER);
|
||||||
|
|
||||||
|
%cleanup_soft = (
|
||||||
|
CLEANUP_STAT_DEFER => "service unavailable (#4.7.1)",
|
||||||
|
CLEANUP_STAT_PROXY => "queue file write error (#4.3.0)",
|
||||||
|
CLEANUP_STAT_BAD => "internal protocol error (#4.3.0)",
|
||||||
|
CLEANUP_STAT_WRITE => "queue file write error (#4.3.0)",
|
||||||
|
);
|
||||||
|
%cleanup_hard = (
|
||||||
|
CLEANUP_STAT_RCPT => "no recipients specified (#5.1.0)",
|
||||||
|
CLEANUP_STAT_HOPS => "too many hops (#5.4.0)",
|
||||||
|
CLEANUP_STAT_SIZE => "message file too big (#5.3.4)",
|
||||||
|
CLEANUP_STAT_CONT => "message content rejected (#5.7.1)",
|
||||||
|
);
|
||||||
|
1;
|
||||||
@ -14,9 +14,10 @@ not start with a ``/'', it is treated as a flag for cleanup (see below).
|
|||||||
If set, the environment variable POSTFIXQUEUE overrides this setting.
|
If set, the environment variable POSTFIXQUEUE overrides this setting.
|
||||||
|
|
||||||
All other parameters are flags for cleanup, no flags are enabled by default.
|
All other parameters are flags for cleanup, no flags are enabled by default.
|
||||||
Known flags are:
|
See below in ``POSTFIX COMPATIBILITY'' for flags understood by your postfix
|
||||||
|
version. Supported by all postfix versions E<gt>= 2.1 are:
|
||||||
|
|
||||||
=over 3
|
=over 4
|
||||||
|
|
||||||
=item FLAG_FILTER
|
=item FLAG_FILTER
|
||||||
|
|
||||||
@ -32,21 +33,99 @@ Setting this flag enables (for example) the I<recipient_bcc_maps> parameter
|
|||||||
This flag enables the use of other recipient mappings (e.g.
|
This flag enables the use of other recipient mappings (e.g.
|
||||||
I<virtual_alias_maps>) in postfix' cleanup.
|
I<virtual_alias_maps>) in postfix' cleanup.
|
||||||
|
|
||||||
|
=item FLAG_MASK_EXTERNAL
|
||||||
|
|
||||||
|
This flag mask combines FLAG_FILTER, FLAG_MILTER (only in postfix >= 2.3)
|
||||||
|
FLAG_BCC_OK and FLAG_MAP_OK and is used by postfix for external messages.
|
||||||
|
This is probably what you want to use.
|
||||||
|
|
||||||
=back
|
=back
|
||||||
|
|
||||||
|
For more flags see below in ``POSTFIX COMPATIBILITY'', your postfix version
|
||||||
|
(grep _FLAG_ src/global/cleanup_user.h) and/or lib/Qpsmtpd/Postfix/Constants.pm
|
||||||
|
|
||||||
|
=head1 POSTFIX COMPATIBILITY
|
||||||
|
|
||||||
|
The first version of this plugin was written for postfix 1.x.
|
||||||
|
|
||||||
|
The next step for Postfix 2.1 (and later) was to add the FLAG_FILTER,
|
||||||
|
FLAG_BCC_OK and FLAG_MAP_OK flags for submission to the cleanup deamon.
|
||||||
|
|
||||||
|
This version can use all flags found in Postfix 2.x (up to 2.4 currently).
|
||||||
|
Unknown flags are ignored by the cleanup daemon (just tested with postfix
|
||||||
|
2.1), so it should be safe to set flags just understood by later versions
|
||||||
|
of postfix/cleanup.
|
||||||
|
|
||||||
|
Even if all known flags can be set, some are not that useful when feeding
|
||||||
|
the message from qpsmtpd, e.g.
|
||||||
|
|
||||||
|
=head2 FLAG_NONE
|
||||||
|
|
||||||
|
no effect
|
||||||
|
|
||||||
|
=head2 FLAG_DISCARD
|
||||||
|
|
||||||
|
DON'T USE, use another plugin which hooks the I<hook_queue()> and returns
|
||||||
|
B<OK> just for the messages you want to drop. As long as this plugin does
|
||||||
|
not support setting queue flags on the fly from other modules, this flag
|
||||||
|
would drop ALL messages. Don't use!
|
||||||
|
|
||||||
|
=head2 FLAG_BOUNCE
|
||||||
|
|
||||||
|
Qpsmtpd should be configured not to accept bad messages...
|
||||||
|
|
||||||
|
=head2 FLAG_HOLD
|
||||||
|
|
||||||
|
Not useful in production setup, maybe in testing environment (untested, what
|
||||||
|
real effects this has).
|
||||||
|
|
||||||
|
=over 4
|
||||||
|
|
||||||
|
=item Flags known by postfix 1.1:
|
||||||
|
|
||||||
|
FLAG_NONE - No special features
|
||||||
|
FLAG_BOUNCE - Bounce bad messages
|
||||||
|
FLAG_FILTER - Enable content filter
|
||||||
|
|
||||||
|
=item Flags known by postfix 2.1, 2.2
|
||||||
|
|
||||||
|
all flags from postfix 1.1, plus the following:
|
||||||
|
FLAG_HOLD - Place message on hold
|
||||||
|
FLAG_DISCARD - Discard message silently
|
||||||
|
FLAG_BCC_OK - Ok to add auto-BCC addresses
|
||||||
|
FLAG_MAP_OK - Ok to map addresses
|
||||||
|
FLAG_MASK_INTERNAL - alias for FLAG_MAP_OK
|
||||||
|
FLAG_MASK_EXTERNAL - FILTER, BCC_OK and MAP_OK
|
||||||
|
|
||||||
|
=item Flags known by postfix 2.3
|
||||||
|
|
||||||
|
all flags from postfix 2.1, up to FLAG_MASK_INTERNAL. New or changed:
|
||||||
|
FLAG_MILTER - Enable Milter applications
|
||||||
|
FLAG_FILTER_ALL - FILTER and MILTER
|
||||||
|
FLAG_MASK_EXTERNAL - FILTER_ALL, BCC_OK, MAP_OK
|
||||||
|
|
||||||
|
=item Flags known by postfix 2.4
|
||||||
|
|
||||||
|
currently (postfix-2.4-20061019) the same as 2.3
|
||||||
|
|
||||||
|
=back
|
||||||
|
|
||||||
|
=head1 MAYBE IN FUTURE
|
||||||
|
|
||||||
|
Settings the (additional) queue flags from another plugin. Currently at the
|
||||||
|
beginning of I<hook_queue()> all flags are reset to the flags given as plugin
|
||||||
|
parameters.
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
use Qpsmtpd::Postfix;
|
use Qpsmtpd::Postfix;
|
||||||
|
use Qpsmtpd::Postfix::Constants;
|
||||||
#
|
|
||||||
# postfix' cleanup flags:
|
|
||||||
use constant CLEANUP_FLAG_FILTER => (1 << 1); # /* Enable content filter */
|
|
||||||
use constant CLEANUP_FLAG_BCC_OK => (1 << 4); # /* Ok to add auto-BCC addresses */
|
|
||||||
use constant CLEANUP_FLAG_MAP_OK => (1 << 5); # /* Ok to map addresses */
|
|
||||||
|
|
||||||
sub register {
|
sub register {
|
||||||
my ($self, $qp, @args) = @_;
|
my ($self, $qp, @args) = @_;
|
||||||
|
|
||||||
|
$self->log(LOGDEBUG, "using constants generated from Postfix"
|
||||||
|
."v$postfix_version");
|
||||||
$self->{_queue_flags} = 0;
|
$self->{_queue_flags} = 0;
|
||||||
if (@args > 0) {
|
if (@args > 0) {
|
||||||
if ($args[0] =~ m#^/#) {
|
if ($args[0] =~ m#^/#) {
|
||||||
@ -57,16 +136,11 @@ sub register {
|
|||||||
}
|
}
|
||||||
|
|
||||||
foreach (@args) {
|
foreach (@args) {
|
||||||
if ($_ eq 'FLAG_FILTER') {
|
if ($self->can("CLEANUP_".$_) and /^(FLAG_[A-Z0-9_]+)$/) {
|
||||||
$self->{_queue_flags} |= CLEANUP_FLAG_FILTER;
|
$_ = $1;
|
||||||
|
$self->{_queue_flags} |= (eval "CLEANUP_$_;" || 0);
|
||||||
|
#print STDERR "queue flag: $_: ".$self->{_queue_flags}."\n";
|
||||||
}
|
}
|
||||||
elsif ($_ eq 'FLAG_BCC_OK') {
|
|
||||||
$self->{_queue_flags} |= CLEANUP_FLAG_BCC_OK;
|
|
||||||
}
|
|
||||||
elsif ($_ eq 'FLAG_MAP_OK') {
|
|
||||||
$self->{_queue_flags} |= CLEANUP_FLAG_MAP_OK;
|
|
||||||
}
|
|
||||||
|
|
||||||
else {
|
else {
|
||||||
$self->log(LOGWARN, "Ignoring unkown cleanup flag $_");
|
$self->log(LOGWARN, "Ignoring unkown cleanup flag $_");
|
||||||
}
|
}
|
||||||
@ -84,46 +158,34 @@ sub hook_queue {
|
|||||||
my ($self, $transaction) = @_;
|
my ($self, $transaction) = @_;
|
||||||
$transaction->notes('postfix-queue-flags', $self->{_queue_flags});
|
$transaction->notes('postfix-queue-flags', $self->{_queue_flags});
|
||||||
|
|
||||||
# $self->log(LOGDEBUG, "queue-flags=".$transaction->notes('postfix-queue-flags'));
|
# $self->log(LOGDEBUG, "queue-flags=".$transaction->notes('postfix-queue-flags'));
|
||||||
my ($status, $qid, $reason) = Qpsmtpd::Postfix->inject_mail($transaction);
|
my ($status, $qid, $reason) = Qpsmtpd::Postfix->inject_mail($transaction);
|
||||||
if ($status) {
|
if ($status) {
|
||||||
# this section needs to be kept in sync with the cleanup_stat_map
|
# this split is needed, because if cleanup returns
|
||||||
# array found in Postfix source file src/global/cleanup_strerror.c
|
# CLEANUP_STAT_MASK_INCOMPLETE we might return DENY (CLEANUP_STAT_SIZE)
|
||||||
# which in turn uses constants defined in src/global/cleanup_user.h
|
# instead of DENYSOFT (CLEANUP_STAT_WRITE, CLEANUP_STAT_BAD,
|
||||||
if ($status & (1<<8)) {
|
# CLEANUP_STAT_DEFER) ... n.b. this is the behaviour of 667.
|
||||||
# CLEANUP_STAT_DEFER
|
foreach my $key (keys %cleanup_soft) {
|
||||||
return(DENYSOFT, $reason || "service unavailable (#4.7.1)");
|
my $stat = eval $key # keys have the same names as the constants
|
||||||
} elsif ($status & (1<<7)) {
|
or next;
|
||||||
# CLEANUP_STAT_PROXY
|
if ($status & $stat) {
|
||||||
return(DENYSOFT, $reason || "proxy reject (#4.3.0)");
|
return (DENYSOFT, $reason || $cleanup_soft{$key});
|
||||||
} elsif ($status & (1<<0)) {
|
}
|
||||||
# CLEANUP_STAT_BAD
|
|
||||||
return(DENYSOFT, $reason || "internal prototcal error (#4.3.0)");
|
|
||||||
} elsif ($status & (1<<6)) {
|
|
||||||
# CLEANUP_STAT_RCPT
|
|
||||||
return Qpsmtpd::DSN->addr_unspecified(DENY, $reason || "no recipients specified");
|
|
||||||
} elsif ($status & (1<<4)) {
|
|
||||||
# CLEANUP_STAT_HOPS
|
|
||||||
return Qpsmtpd::DSN->too_many_hops(DENY, $reason || "too many hops");
|
|
||||||
} elsif ($status & (1<<2)) {
|
|
||||||
# CLEANUP_STAT_SIZE
|
|
||||||
return Qpsmtpd::DSN->sys_msg_too_big(DENY, $reason || "message file too big");
|
|
||||||
} elsif ($status & (1<<3)) {
|
|
||||||
# CLEANUP_STAT_CONT
|
|
||||||
return Qpsmtpd::DSN->media_conv_prohibited(DENY, $reason || "message content rejected");
|
|
||||||
} elsif ($status & (1<<1)) {
|
|
||||||
# CLEANUP_STAT_WRITE
|
|
||||||
return (DECLINED, $reason || "queue file write error");
|
|
||||||
} else {
|
|
||||||
# we have no idea why we're here.
|
|
||||||
return (DECLINED, $reason || "unknown error from postfix/cleanup: $status");
|
|
||||||
}
|
}
|
||||||
|
foreach my $key (keys %cleanup_hard) {
|
||||||
|
my $stat = eval $key # keys have the same names as the constants
|
||||||
|
or next;
|
||||||
|
if ($status & $stat) {
|
||||||
|
return (DENY, $reason || $cleanup_hard{$key});
|
||||||
|
}
|
||||||
|
}
|
||||||
|
# we have no idea why we're here.
|
||||||
|
return (DECLINED, $reason || "Unable to queue message ($status, $reason)");
|
||||||
}
|
}
|
||||||
$status and return (DECLINED, "Unable to queue message ($status, $reason)");
|
|
||||||
|
|
||||||
my $msg_id = $transaction->header->get('Message-Id') || '';
|
my $msg_id = $transaction->header->get('Message-Id') || '';
|
||||||
$msg_id =~ s/[\r\n].*//s; # don't allow newlines in the Message-Id here
|
$msg_id =~ s/[\r\n].*//s; # don't allow newlines in the Message-Id here
|
||||||
return (OK, "Queued! $msg_id (Queue-Id: $qid)");
|
return (OK, "Queued! $msg_id (Queue-Id: $qid)");
|
||||||
}
|
}
|
||||||
|
|
||||||
#vim: sw=2 ts=8
|
# vim: sw=2 ts=8 syn=perl
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user