happyDomain/postfix-policyd-spf-perl
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

postfix-policyd-spf-perl/trunk/postfix-policyd-spf

Browse source 
* Version 1.03.
This commit is contained in:
Julian Mehnle 2006-06-17 16:34:02 +00:00
commit c8d2974eff
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
postfix-policyd-spf
View file

@ -3,7 +3,7 @@
# mengwong@pobox.com # mengwong@pobox.com
# Wed Dec 10 03:52:04 EST 2003 # Wed Dec 10 03:52:04 EST 2003
# postfix-policyd-spf # postfix-policyd-spf
# version 1.02 # version 1.03
# see http://spf.pobox.com/ # see http://spf.pobox.com/
use Fcntl; use Fcntl;
@ -196,8 +196,9 @@ sub sender_permitted_from {
if ($result eq "pass") { return "DUNNO"; } if ($result eq "pass") { return "DUNNO"; }
elsif ($result eq "fail") { return "REJECT " . ($smtp_comment || $header_comment); } elsif ($result eq "fail") { return "REJECT " . ($smtp_comment || $header_comment); }
elsif ($result eq "error") { return "DUNNO"; } elsif ($result eq "error") { return "450 temporary failure: $smtp_comment"; }
else { return "DUNNO"; } else { return "DUNNO"; }
# unknown, softfail, neutral and none all return DUNNO
# TODO XXX: prepend Received-SPF header. Wietse says he will add that functionality soon. # TODO XXX: prepend Received-SPF header. Wietse says he will add that functionality soon.
} }