Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 12 lines (9 sloc) 296 Bytes
if (length ($ENV{'QUERY_STRING'}) > 0) {
$buffer = $ENV{'QUERY_STRING'};
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$query{$name} = $value;
}
}
Jump to Line
Something went wrong with that request. Please try again.