cvs commit: qpsmtpd/plugins dnsbl
[email protected] (Matt Sergeant)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/04/27 03:05:41
Modified: plugins dnsbl
Log:
Fix logging back to constants again
Revision Changes Path
1.12 +3 -3 qpsmtpd/plugins/dnsbl
Index: dnsbl
===================================================================
RCS file: /cvs/public/qpsmtpd/plugins/dnsbl,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -w -r1.11 -r1.12
--- dnsbl 5 Mar 2004 12:46:24 -0000 1.11
+++ dnsbl 27 Apr 2004 10:05:41 -0000 1.12
@@ -13,14 +13,14 @@
# perform RBLSMTPD checks to mimic Dan Bernstein's rblsmtpd
if (defined($ENV{'RBLSMTPD'})) {
if ($ENV{'RBLSMTPD'} ne '') {
- $self->log(1, "RBLSMTPD=\"$ENV{'RBLSMTPD'}\" for $remote_ip");
+ $self->log(LOGINFO, "RBLSMTPD=\"$ENV{'RBLSMTPD'}\" for $remote_ip");
return DECLINED;
} else {
- $self->log(1, "RBLSMTPD set, but empty for $remote_ip");
+ $self->log(LOGINFO, "RBLSMTPD set, but empty for $remote_ip");
return DECLINED;
}
} else {
- $self->log(1, "RBLSMTPD not set for $remote_ip");
+ $self->log(LOGDEBUG, "RBLSMTPD not set for $remote_ip");
}
my $allow = grep { s/\.?$/./; $_ eq substr($remote_ip . '.', 0, length $_) } $self->qp->config('dnsbl_allow');