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

v0.04

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@1 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2001-10-30 09:55:06 +00:00
parent e74bec2479
commit c148b0f829
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
config/dnsbl_zones → config.sample/dnsbl_zones
View File

0
config/rhsbl_zones → config.sample/rhsbl_zones
View File

6
qpsmtpd
View File

@ -12,7 +12,7 @@
# #
package QPsmtpd; package QPsmtpd;
$QPsmtpd::VERSION = "0.03"; $QPsmtpd::VERSION = "0.04";
use strict; use strict;
$| = 1; $| = 1;
use Mail::Address (); use Mail::Address ();
@ -58,8 +58,8 @@ while (<STDIN>) {
sub dispatch { sub dispatch {
my ($cmd) = lc shift; my ($cmd) = lc shift;
respond(553, $state{dnsbl_blocked}) respond(553, $state{dnsbl_blocked}), return 1
if $state{dnsbl_blocked} and ($cmd ne "helo" and $cmd ne "ehlo"); if $state{dnsbl_blocked} and ($cmd eq "mail" or $cmd eq "rcpt");
if (exists $commands{$cmd}) { if (exists $commands{$cmd}) {
my ($result) = eval "&$cmd"; my ($result) = eval "&$cmd";