From 09531ad70c7e2947a6f8fec506017c80d4c54ae9 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Mon, 22 Nov 2004 20:50:57 +0000
Subject: [PATCH] To balance out with the rcpt logging diff'd against the CVS
 version (peter@boku.net)

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

diff --git a/lib/Qpsmtpd/SMTP.pm b/lib/Qpsmtpd/SMTP.pm
index 51804e8..ffc58b7 100644
--- a/lib/Qpsmtpd/SMTP.pm
+++ b/lib/Qpsmtpd/SMTP.pm
@@ -233,6 +233,8 @@ sub mail {
     ($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("<>");
     }