cvs commit: qpsmtpd/lib/Qpsmtpd SMTP.pm
[email protected] (Robert Spier)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/07/15 22:06:43 Modified: lib/Qpsmtpd SMTP.pm Log: Message-ID: <[email protected]> From: John Peacock <[email protected]> Yeah, I was just noticing how odd it was that FROM was always logged but TO wasn't logged at all. Revision Changes Path 1.32 +1 -0 qpsmtpd/lib/Qpsmtpd/SMTP.pm Index: SMTP.pm =================================================================== RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/SMTP.pm,v retrieving revision 1.31 retrieving revision 1.32 diff -u -w -r1.31 -r1.32 --- SMTP.pm 16 Jul 2004 02:22:11 -0000 1.31 +++ SMTP.pm 16 Jul 2004 05:06:43 -0000 1.32 @@ -282,6 +282,7 @@ my ($rcpt) = ($_[0] =~ m/to:(.*)/i)[0]; $rcpt = $_[1] unless $rcpt; + $self->log(LOGWARN, "$$ to email address : [$rcpt]"); $rcpt = (Qpsmtpd::Address->parse($rcpt))[0]; return $self->respond(501, "could not parse recipient") unless $rcpt;