[svn:qpsmtpd] rev 472 - trunk/lib/Qpsmtpd
[email protected] 6 Jul 2005 20:36:02 -0000
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
Author: msergeant
Date: Wed Jul 6 13:36:02 2005
New Revision: 472
Modified:
trunk/lib/Qpsmtpd/SMTP.pm
Log:
No idea what that was doing in there...
Modified: trunk/lib/Qpsmtpd/SMTP.pm
==============================================================================
--- trunk/lib/Qpsmtpd/SMTP.pm (original)
+++ trunk/lib/Qpsmtpd/SMTP.pm Wed Jul 6 13:36:02 2005
@@ -50,9 +50,6 @@ sub dispatch {
$self->{_counter}++;
- #$self->respond(553, $state{dnsbl_blocked}), return 1
- # if $state{dnsbl_blocked} and ($cmd eq "rcpt");
-
if ($cmd !~ /^(\w{1,12})$/ or !exists $self->{_commands}->{$1}) {
my ($rc, $msg) = $self->run_hooks("unrecognized_command", $cmd);
if ($rc == DENY) {