cvs commit: qpsmtpd/lib/Qpsmtpd SMTP.pm

[email protected] (Matt Sergeant) 22 Nov 2004 20:50:58 -0000

Newsgroups	perl.cvs.qpsmtpd
Message-ID	<[email protected]>

cvsuser     04/11/22 12:50:57

  Modified:    lib/Qpsmtpd SMTP.pm
  Log:
  To balance out with the rcpt logging diff'd against the CVS version
  ([email protected])
  
  Revision  Changes    Path
  1.46      +2 -0      qpsmtpd/lib/Qpsmtpd/SMTP.pm
  
  Index: SMTP.pm
  ===================================================================
  RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/SMTP.pm,v
  retrieving revision 1.45
  retrieving revision 1.46
  diff -u -r1.45 -r1.46
  --- SMTP.pm	19 Nov 2004 08:44:24 -0000	1.45
  +++ SMTP.pm	22 Nov 2004 20:50:57 -0000	1.46
  @@ -233,6 +233,8 @@
       ($from) = "<" . ($from_parameter =~ m/^from:\s*(\S+)/i)[0] . ">"
         unless $from;
   
  +    $self->log(LOGWARN, "$$ from email address : [$from]");
  +
       if ($from eq "<>" or $from =~ m/\[undefined\]/) {
         $from = Qpsmtpd::Address->new("<>");
       }