ViewVC Help
View File
|
Revision Log
|
Show Annotations
|
Download File
/
cvs
/
Coro
/
myhttpd
/
misc.pl
Revision:
1.1
Committed:
Sun Aug 19 23:57:52 2001 UTC
(22 years, 11 months ago) by
root
Content type:
text/plain
Branch:
MAIN
Log Message:
*** empty log message ***
File Contents
#
User
Rev
Content
1
root
1.1
2
sub escape_uri {
3
local $_ = shift;
4
s/([()<>%&?,; ='"\x00-\x1f\x80-\xff])/sprintf "%%%02X", ord($1)/ge;
5
$_;
6
}
7
8
1;
9