e299135526
(intention is to check bits in that don't break anything, so we can always return to a stable base) git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.3x@676 958fd67b-6ff1-0310-b445-bb7760255be9
129 lines
2.6 KiB
Perl
129 lines
2.6 KiB
Perl
package Qpsmtpd::Constants;
|
|
use strict;
|
|
require Exporter;
|
|
|
|
# log levels
|
|
my %log_levels = (
|
|
LOGDEBUG => 7,
|
|
LOGINFO => 6,
|
|
LOGNOTICE => 5,
|
|
LOGWARN => 4,
|
|
LOGERROR => 3,
|
|
LOGCRIT => 2,
|
|
LOGALERT => 1,
|
|
LOGEMERG => 0,
|
|
LOGRADAR => 0,
|
|
);
|
|
|
|
# return codes
|
|
my %return_codes = (
|
|
OK => 900,
|
|
DENY => 901, # 550
|
|
DENYSOFT => 902, # 450
|
|
DENYHARD => 903, # 550 + disconnect (deprecated in 0.29)
|
|
DENY_DISCONNECT => 903, # 550 + disconnect
|
|
DENYSOFT_DISCONNECT => 904, # 450 + disconnect
|
|
DECLINED => 909,
|
|
DONE => 910,
|
|
CONTINUATION => 911, # deprecated - use YIELD
|
|
YIELD => 911,
|
|
);
|
|
|
|
my $has_ipv6;
|
|
|
|
if (
|
|
eval {require Socket6;} &&
|
|
# INET6 prior to 2.01 will not work; sorry.
|
|
eval {require IO::Socket::INET6; IO::Socket::INET6->VERSION("2.00");}
|
|
) {
|
|
import Socket6;
|
|
$has_ipv6=1;
|
|
}
|
|
else {
|
|
$has_ipv6=0;
|
|
}
|
|
|
|
sub has_ipv6 {
|
|
return $has_ipv6;
|
|
}
|
|
|
|
use vars qw(@ISA @EXPORT);
|
|
@ISA = qw(Exporter);
|
|
@EXPORT = (keys(%return_codes), keys(%log_levels), "return_code", "log_level");
|
|
|
|
foreach (keys %return_codes ) {
|
|
eval "use constant $_ => ".$return_codes{$_};
|
|
}
|
|
|
|
foreach (keys %log_levels ) {
|
|
eval "use constant $_ => ".$log_levels{$_};
|
|
}
|
|
|
|
sub return_code {
|
|
my $test = shift;
|
|
if ( $test =~ /^\d+$/ ) { # need to return the textural form
|
|
foreach ( keys %return_codes ) {
|
|
return $_ if $return_codes{$_} =~ /$test/;
|
|
}
|
|
}
|
|
else { # just return the numeric value
|
|
return $return_codes{$test};
|
|
}
|
|
}
|
|
|
|
sub log_level {
|
|
my $test = shift;
|
|
if ( $test =~ /^\d+$/ ) { # need to return the textural form
|
|
foreach ( keys %log_levels ) {
|
|
return $_ if $log_levels{$_} =~ /$test/;
|
|
}
|
|
}
|
|
else { # just return the numeric value
|
|
return $log_levels{$test};
|
|
}
|
|
}
|
|
|
|
1;
|
|
|
|
=head1 NAME
|
|
|
|
Qpsmtpd::Constants - Constants for plugins to use
|
|
|
|
=head1 CONSTANTS
|
|
|
|
See L<README.plugins> for hook specific information on applicable
|
|
constants.
|
|
|
|
Constants available:
|
|
|
|
=over 4
|
|
|
|
=item C<OK>
|
|
|
|
Return this only from the queue phase to indicate the mail was queued
|
|
successfully.
|
|
|
|
=item C<DENY>
|
|
|
|
Returning this from a hook causes a 5xx error (hard failure) to be
|
|
returned to the connecting client.
|
|
|
|
=item C<DENYSOFT>
|
|
|
|
Returning this from a hook causes a 4xx error (temporary failure - try
|
|
again later) to be returned to the connecting client.
|
|
|
|
=item C<DECLINED>
|
|
|
|
Returning this from a hook implies success, but tells qpsmtpd to go
|
|
on to the next plugin.
|
|
|
|
=item C<DONE>
|
|
|
|
Returning this from a hook implies success, but tells qpsmtpd to
|
|
skip any remaining plugins for this phase.
|
|
|
|
=back
|
|
|
|
=cut
|