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

Initial hack at an SPF filter

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@160 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2003-06-27 12:25:52 +00:00
parent d71ddbbd04
commit 04f2e4ee73
1 changed files with 61 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
plugins/sender_permitted_from Normal file
View File

@ -0,0 +1,61 @@
=head1 NAME
SPF - plugin to implement Sender Permitted From
=head1 SYNOPSIS
# in config/plugins
sender_permitted_from
=cut
use Mail::SPF::Query;
sub register {
my ($self, $qp) = @_;
$self->register_hook("mail", "mail_handler");
$self->register_hook("rcpt", "rcpt_handler");
}
sub mail_handler {
my ($self, $transaction, $sender) = @_;
return (DECLINED) unless ($sender->format ne "<>"
and $sender->host && $sender->user);
my $host = lc $sender->host;
my $from = $sender->user . '@' . $host;
my $ip = $self->qp->connection->remote_ip;
my $query = Mail::SPF::Query->new(ip => $ip, sender => $from)
|| die "Couldn't construct Mail::SPF::Query object";
$transaction->notes('spfquery', $query);
return (DECLINED);
}
sub rcpt_handler {
my ($self, $transaction, $rcpt) = @_;
my $query = $transaction->notes('spfquery');
my ($result, $comment) = $query->result();
if ($result eq "pass") {
# domain is not forged
$self->qp->connection->notes('spf_ok', 1);
}
elsif ($result eq "deny") {
# domain is forged
return (DENY, "SPF forgery ($comment)");
}
elsif ($result eq "softdeny") {
# domain may be forged
$self->qp->connection->notes('spf_ok', 0);
}
else {
# domain has not implemented SPF
}
return (DECLINED);
}