Parent Directory | Revision Log | Patch
revision 1.1.1.1 by skx, Mon Jul 28 22:26:11 2003 UTC | revision 1.2 by skx, Thu Oct 23 09:00:40 2003 UTC | |
---|---|---|
# | Line 50 sub urlEncode ( $ ) | Line 50 sub urlEncode ( $ ) |
50 | { | { |
51 | my ( $text ) = ( @_ ); | my ( $text ) = ( @_ ); |
52 | ||
53 | my $MetaChars = quotemeta( ' ;,?\|=+)(*&^%$#@!~`:'); | my $MetaChars = quotemeta( ' ;,?\|=+)(*&^%$#@!~`'); |
54 | $text =~ s/([$MetaChars\"\'\x80-\xFF])/"%" . uc(sprintf("%2.2x",ord($1)))/eg; | $text =~ s/([$MetaChars\"\'\x80-\xFF])/"%" . uc(sprintf("%2.2x",ord($1)))/eg; |
55 | ||
56 | # Deal with special characters. | # Deal with special characters. |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |