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

To balance out with the rcpt logging diff'd against the CVS version

Browse Source 
(peter@boku.net)


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@343 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2004-11-22 20:50:57 +00:00
parent bfd609fb32
commit 09531ad70c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Qpsmtpd/SMTP.pm
View File

@ -233,6 +233,8 @@ sub mail {
($from) = "<" . ($from_parameter =~ m/^from:\s*(\S+)/i)[0] . ">" ($from) = "<" . ($from_parameter =~ m/^from:\s*(\S+)/i)[0] . ">"
unless $from; unless $from;
$self->log(LOGWARN, "$$ from email address : [$from]");
if ($from eq "<>" or $from =~ m/\[undefined\]/) { if ($from eq "<>" or $from =~ m/\[undefined\]/) {
$from = Qpsmtpd::Address->new("<>"); $from = Qpsmtpd::Address->new("<>");
} }