From 04f2e4ee73a718dec3799707d95fff33f4f74902 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Fri, 27 Jun 2003 12:25:52 +0000
Subject: [PATCH] Initial hack at an SPF filter

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@160 958fd67b-6ff1-0310-b445-bb7760255be9
---
 plugins/sender_permitted_from | 61 +++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 plugins/sender_permitted_from

diff --git a/plugins/sender_permitted_from b/plugins/sender_permitted_from
new file mode 100644
index 0000000..d904ca5
--- /dev/null
+++ b/plugins/sender_permitted_from
@@ -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);
+}
+