SMTP.pm patch

[Peter Eisch]

At some point I'll write a cogent, one per email summary log plugin, but in
the mean time I'd like to run with little logging but still be able to debug
the who/what/when/why and sometimes where issues:

--- SMTP.pm.orig        2004-07-15 11:22:34.000000000 -0500
+++ SMTP.pm     2004-07-15 11:23:32.000000000 -0500
@@ -251,6 +251,7 @@ sub rcpt {
 
   my ($rcpt) = ($_[0] =~ m/to:(.*)/i)[0];
   $rcpt = $_[1] unless $rcpt;
+  warn "$$ to email address : [$rcpt]\n";
   $rcpt = (Mail::Address->parse($rcpt))[0];
 
   return $self->respond(501, "could not parse recipient") unless $rcpt;