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

badrcptto: log tweaks, better regex detection

Browse Source
This commit is contained in:
Matt Simerson 2012-06-22 23:56:25 -04:00
parent 35b9b32895
commit 5ea1eb0f4c
2 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
plugins/check_badrcptto
View File

@ -47,7 +47,7 @@ use Qpsmtpd::Constants;
use Qpsmtpd::DSN;
sub hook_rcpt {
my ($self, $transaction, $recipient, %param) = @_;
my ($self, $transaction, $recipient, %param) = @_;
return (DECLINED) if $self->is_immune();
@ -55,7 +55,7 @@ sub hook_rcpt {
or return (DECLINED);
my @badrcptto = $self->qp->config("badrcptto") or do {
$self->log(LOGINFO, "skip: empty config");
$self->log(LOGINFO, "skip, empty config");
return (DECLINED);
};
@ -79,7 +79,7 @@ sub hook_rcpt {
sub is_match {
my ( $self, $to, $bad, $host ) = @_;
if ( $bad =~ /[\/\^\$\*\+\!\%]/ ) { # it's a regexp
if ( $bad =~ /[\/\^\$\*\+\!\%\?\\]/ ) { # it's a regexp
$self->log(LOGDEBUG, "badmailfrom pattern ($bad) match for $to");
if ( $to =~ /$bad/i ) {
$self->log(LOGINFO, 'fail: pattern match');

16
t/plugin_tests/check_badrcptto
View File

@ -13,6 +13,14 @@ sub register_tests {
$self->register_test("test_get_host_and_to", 8);
}
sub _reset_connection_flags {
my $self = shift;
$self->qp->connection->relay_client(0);
$self->qp->connection->notes('whitelisthost', 0);
$self->connection->notes('naughty',0);
$self->connection->notes('rejected', 0);
};
sub test_is_match {
my $self = shift;
@ -52,19 +60,21 @@ sub test_is_match {
sub test_hook_rcpt {
my $self = shift;
$self->_reset_connection_flags();
my $transaction = $self->qp->transaction;
my $recipient = Qpsmtpd::Address->new( '<user@example.com>' );
my ($r, $mess) = $self->hook_rcpt( $transaction, $recipient );
cmp_ok( DECLINED, '==', $r, "valid +");
cmp_ok( $r, '==', DECLINED, "valid +");
$recipient = Qpsmtpd::Address->new( '<bad@example.com>' );
($r, $mess) = $self->hook_rcpt( $transaction, $recipient );
cmp_ok( DENY, '==', $r, "bad match, +");
cmp_ok( $r, '==', DENY, "bad match, +, $mess");
$recipient = Qpsmtpd::Address->new( '<any@bad.example.com>' );
($r, $mess) = $self->hook_rcpt( $transaction, $recipient );
cmp_ok( DENY, '==', $r, "bad host match, +");
cmp_ok( $r, '==', DENY, "bad host match, +, $mess");
};
sub test_get_host_and_to {