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

whitelist: add +5 karma to whitelisted IPs

Browse Source
This commit is contained in:
Matt Simerson 2013-03-23 02:12:06 -04:00
parent 309fdbe4b4
commit a639fc794a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
plugins/whitelist
View File

@ -1,3 +1,4 @@
#!perl -w
=head1 NAME =head1 NAME
@ -97,7 +98,6 @@ automatically allow relaying from that IP.
use strict; use strict;
use warnings; use warnings;
use lib 'lib';
use Qpsmtpd::Constants; use Qpsmtpd::Constants;
my $VERSION = 0.02; my $VERSION = 0.02;
@ -138,7 +138,8 @@ sub check_host {
# From tcpserver # From tcpserver
if (exists $ENV{WHITELISTCLIENT}) { if (exists $ENV{WHITELISTCLIENT}) {
$self->qp->connection->notes('whitelistclient', 1); $self->qp->connection->notes('whitelistclient', 1);
$self->log(2, "pass, host $ip is a whitelisted client"); $self->log(2, "pass, is whitelisted client");
$self->adjust_karma( 5 );
return OK; return OK;
} }
@ -146,7 +147,8 @@ sub check_host {
for my $h ($self->qp->config('whitelisthosts', $config_arg)) { for my $h ($self->qp->config('whitelisthosts', $config_arg)) {
if ($h eq $ip or $ip =~ /^\Q$h\E/) { if ($h eq $ip or $ip =~ /^\Q$h\E/) {
$self->qp->connection->notes('whitelisthost', 1); $self->qp->connection->notes('whitelisthost', 1);
$self->log(2, "pass, host $ip is a whitelisted host"); $self->log(2, "pass, is a whitelisted host");
$self->adjust_karma( 5 );
return OK; return OK;
} }
} }