byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

support NULL envelopes again (doh, typo of the week :-) )

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@278 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2004-07-20 12:46:20 +00:00
parent e27534048c
commit 42719a179f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Qpsmtpd/SMTP.pm
View File

@ -227,7 +227,7 @@ sub mail {
my $from_parameter = join " ", @_; my $from_parameter = join " ", @_;
$self->log(LOGINFO, "full from_parameter: $from_parameter"); $self->log(LOGINFO, "full from_parameter: $from_parameter");
my ($from) = ($from_parameter =~ m/^from:\s*(<[^>]+>)/i)[0]; my ($from) = ($from_parameter =~ m/^from:\s*(<[^>]*>)/i)[0];
# support addresses without <> ... maybe we shouldn't? # support addresses without <> ... maybe we shouldn't?
($from) = "<" . ($from_parameter =~ m/^from:\s*(\S+)/i)[0] . ">" ($from) = "<" . ($from_parameter =~ m/^from:\s*(\S+)/i)[0] . ">"