PATCH: don't accept mail addresses without <>

[Peter J. Holzer]

Yeah, you've seen this one before. I'm just stubborn about it :-)


-- 
   _  | Peter J. Holzer    | Ich sehe nun ein, dass Computer wenig
|_|_) | Sysadmin WSR       | geeignet sind, um sich was zu merken.
| |   | [EMAIL PROTECTED]         |
__/   | http://www.hjp.at/ |    -- Holger Lembke in dan-am

--- lib/Qpsmtpd/SMTP.pm.no_brackets     Thu May 19 13:30:23 2005
+++ lib/Qpsmtpd/SMTP.pm Thu May 19 13:47:40 2005
@@ -239,8 +239,9 @@
     my ($from) = ($from_parameter =~ m/^from:\s*(<[^>]*>)/i)[0];
 
     # support addresses without <> ... maybe we shouldn't?
-    ($from) = "<" . ($from_parameter =~ m/^from:\s*(\S+)/i)[0] . ">"
-      unless $from;
+    # no, we shouldn't.
+    # ($from) = "<" . ($from_parameter =~ m/^from:\s*(\S+)/i)[0] . ">"
+    #   unless $from;
 
     $self->log(LOGWARN, "from email address : [$from]");
 

pgpfmjmHpJBPZ.pgp
Description: PGP signature