getcgivars

# Resolve and unencode name/value pairs into %in

foreach (split('&', $in)) {

s/\+/ /g ;

($name, $value)= split('=', $_, 2) ;

$name =~ s/%(..)/chr(hex($1))/ge ;

$value=~ s/%(..)/chr(hex($1))/ge ;

$in{$name}.= "\0" if defined($in{$name}) ; # concatenate multiple vars

$in{$name} = $value ;

}

return %in ;

}

Previous slide

Next slide

Back to first slide

View graphic version