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

Lower log level of rcpt/from addresses

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@949 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2008-09-30 03:22:34 +00:00 committed by Ask Bjørn Hansen
parent f4afd7a18d
commit 14314f3f10
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Qpsmtpd/SMTP.pm
View File

@ -342,7 +342,7 @@ sub mail_pre_respond {
$from = shift @$msg; $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") return $self->respond(501, "could not parse your mail from command")
unless $from =~ /^<.*>$/; unless $from =~ /^<.*>$/;
@ -426,7 +426,7 @@ sub rcpt_pre_respond {
if ($rc == OK) { if ($rc == OK) {
$rcpt = shift @$msg; $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") return $self->respond(501, "could not parse recipient")
unless $rcpt =~ /^<.*>$/; unless $rcpt =~ /^<.*>$/;