Mailing List Archive

svn commit: rev 6298 - incubator/spamassassin/trunk/lib/Mail/SpamAssassin
Author: felicity
Date: Sun Jan 25 20:12:26 2004
New Revision: 6298

Modified:
incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm
Log:
bug 2844: web browsers will correctly parse 'http://www.foo.biz?id=3' to be 'http://www.foo.biz/?id=3', so we should too...

Modified: incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm
==============================================================================
--- incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm (original)
+++ incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm Sun Jan 25 20:12:26 2004
@@ -1474,6 +1474,10 @@
foreach my $uri ( @uris ) {
next if ( $uri =~ /^mailto:/i );

+ # bug 2844
+ # http://www.foo.biz?id=3 -> http://www.foo.biz/?id=3
+ $uri =~ s/^(https?:\/\/[^\/\?]+)\?/$1\/?/;
+
my($nuri, $unencoded, $encoded) = Mail::SpamAssassin::Util::URLEncode($uri);
if ( $nuri ne $uri ) {
push(@uris, $nuri);