os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

fix character encoding in referer link

Browse source 
PR: www/114238
This commit is contained in:
Wolfram Schneider 2007-07-08 12:28:11 +00:00
parent e684315302
commit 059bf6754d
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=30443
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
en/cgi/missing_handler.cgi
View file

@ -1,5 +1,5 @@
#!/usr/bin/perl -T
# Copyright (c) Juli 1997-2000. Wolfram Schneider <wosch@FreeBSD.org>, Berlin.
# Copyright (c) July 1997-2007. Wolfram Schneider <wosch@FreeBSD.org>
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
@ -52,7 +52,7 @@
#
# _________________________________________________________________
#
# $FreeBSD: www/en/cgi/missing_handler.cgi,v 1.17 2005/12/04 21:15:34 simon Exp $
# $FreeBSD: www/en/cgi/missing_handler.cgi,v 1.18 2005/12/04 21:45:45 simon Exp $
# ----------------------------------------------------------------------
sub escape($) { $_ = $_[0]; s/&/&amp;/g; s/</&lt;/g; s/>/&gt;/g; $_; }
@ -75,7 +75,7 @@ $server_name=escape($ENV{'SERVER_NAME'});
# rfc1738 says that ";"|"/"|"?"|":"|"@"|"&"|"=" may be reserved.
$http_referer_url = escape2($ENV{'HTTP_REFERER'});
$http_referer_url =~ s/([^a-zA-Z0-9;\/?:&=])/sprintf("%%%02x",ord($1))/eg;
$http_referer_url =~ s/([^a-zA-Z0-9;\/?:&=\.%])/sprintf("%%%02x",ord($1))/eg;
$redirect_url_save = escape2($ENV{'REDIRECT_URL'});
$redirect_url_save =~ s/([^a-zA-Z0-9;\/?:&=])/sprintf("%%%02x",ord($1))/eg;