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