From 14314f3f102de8a095d865606301c7b8739122c5 Mon Sep 17 00:00:00 2001 From: Matt Sergeant Date: Tue, 30 Sep 2008 03:22:34 +0000 Subject: [PATCH] Lower log level of rcpt/from addresses git-svn-id: https://svn.perl.org/qpsmtpd/trunk@949 958fd67b-6ff1-0310-b445-bb7760255be9 --- lib/Qpsmtpd/SMTP.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Qpsmtpd/SMTP.pm b/lib/Qpsmtpd/SMTP.pm index ff4367f..e9492d4 100644 --- a/lib/Qpsmtpd/SMTP.pm +++ b/lib/Qpsmtpd/SMTP.pm @@ -342,7 +342,7 @@ sub mail_pre_respond { $from = shift @$msg; } - $self->log(LOGALERT, "from email address : [$from]"); + $self->log(LOGDEBUG, "from email address : [$from]"); return $self->respond(501, "could not parse your mail from command") unless $from =~ /^<.*>$/; @@ -426,7 +426,7 @@ sub rcpt_pre_respond { if ($rc == OK) { $rcpt = shift @$msg; } - $self->log(LOGALERT, "to email address : [$rcpt]"); + $self->log(LOGDEBUG, "to email address : [$rcpt]"); return $self->respond(501, "could not parse recipient") unless $rcpt =~ /^<.*>$/;