diff options
author | Andrey A. Chernov <ache@FreeBSD.org> | 2003-06-18 09:03:36 +0000 |
---|---|---|
committer | Andrey A. Chernov <ache@FreeBSD.org> | 2003-06-18 09:03:36 +0000 |
commit | a1ac4c1a825f6f9b9f572312a9734934303a0c7f (patch) | |
tree | 3756bbf0f0989dde371e5b9c069c9e9d5681b730 /mail/ricochet/files | |
parent | 3acfd33570e0569c79530d4818dd65543a3031bc (diff) | |
download | ports-a1ac4c1a825f6f9b9f572312a9734934303a0c7f.tar.gz ports-a1ac4c1a825f6f9b9f572312a9734934303a0c7f.zip |
Notes
Diffstat (limited to 'mail/ricochet/files')
-rw-r--r-- | mail/ricochet/files/patch-ricochet | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/mail/ricochet/files/patch-ricochet b/mail/ricochet/files/patch-ricochet index a163df96a17c..32e32403ce58 100644 --- a/mail/ricochet/files/patch-ricochet +++ b/mail/ricochet/files/patch-ricochet @@ -1,5 +1,5 @@ --- ricochet.orig Thu Feb 8 22:23:19 2001 -+++ ricochet Sun May 19 12:24:58 2002 ++++ ricochet Wed Jun 18 12:52:41 2003 @@ -128,7 +128,10 @@ ## List of receipients at ORIG_DOMAN ## besides the CONTACTS. @@ -55,12 +55,13 @@ $received =~ /from\s(.*?)$rfc/s; my $from = " $1 "; $received =~ /by\s(.*?)$rfc/s; my $by = " $1 "; - my @orig_hosts = $from =~ /($HOSTRE)/gs; -+ +- my @orig_ips = $from =~ /($IPRE)/gs; +- my @transmit_hosts = $by =~ /($HOSTRE)/gs; + + ## Trust only "(host.name [" part, HELO can be fake + my @orig_hosts = $from =~ /\([^()\[\]]*?($HOSTRE)[^()\[\]]*?\[/gs; - my @orig_ips = $from =~ /($IPRE)/gs; - my @transmit_hosts = $by =~ /($HOSTRE)/gs; -- ++ my @orig_ips = $from =~ /\([^()\[\]]*\[($IPRE)\]/gs; ++ my @transmit_hosts = $by =~ /($HOSTRE)/gs; my @ips = $by =~ /($IPRE)/gs; + + my $header = $self->{MAIL}->head; |