From de9a7fa02a5d80935cf97a228b2faed94102bb96 Mon Sep 17 00:00:00 2001
From: Robert Spier <robert@perl.org>
Date: Fri, 16 Jul 2004 05:06:43 +0000
Subject: [PATCH] Message-ID: <40F6EB78.1010107@rowman.com> From: John Peacock
 <jpeacock@rowman.com>

Yeah, I was just noticing how odd it was that FROM was always logged
but TO wasn't logged at all.


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@268 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Qpsmtpd/SMTP.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Qpsmtpd/SMTP.pm b/lib/Qpsmtpd/SMTP.pm
index 79c8e83..5da7817 100644
--- a/lib/Qpsmtpd/SMTP.pm
+++ b/lib/Qpsmtpd/SMTP.pm
@@ -282,6 +282,7 @@ sub rcpt {
 
   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;