develooper Front page | perl.qpsmtpd | Postings from April 2012

[PATCH] changed two log calls from INFO to DEBUG (more appropriate)

From:
Matt Simerson
Date:
April 22, 2012 14:25
Subject:
[PATCH] changed two log calls from INFO to DEBUG (more appropriate)
Message ID:
5F5AB1FE-3DD8-48A4-B54D-D3A874AEE148@tnpi.net

---
plugins/greylisting |    4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/plugins/greylisting b/plugins/greylisting
index 1085224..19cb707 100644
--- a/plugins/greylisting
+++ b/plugins/greylisting
@@ -250,7 +250,7 @@ sub denysoft_greylist {
      $dbdir = $d;
  }
  my $db = "$dbdir/$DB";
-  $self->log(LOGINFO,"using $db as greylisting database");
+  $self->log(LOGDEBUG,"using $db as greylisting database");

  my $remote_ip = $self->qp->connection->remote_ip;
  my $fmt = "%s:%d:%d:%d";
@@ -298,7 +298,7 @@ sub denysoft_greylist {
  my ($ts, $new, $black, $white) = (0,0,0,0);
  if ($db{$key}) {
    ($ts, $new, $black, $white) = split /:/, $db{$key};
-    $self->log(LOGINFO, "ts: " . localtime($ts) . ", now: " . localtime);
+    $self->log(LOGDEBUG, "ts: " . localtime($ts) . ", now: " . localtime);
    if (! $white) {
      # Black IP - deny, but don't update timestamp
      if (time - $ts < $config->{black_timeout}) {
-- 
1.7.9.6




nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About