Posted by Frank Hale on 1999-02-28
> {
> my $Data;
>
> if($ENV{'REQUEST_METHOD'} eq 'GET')
> {
> $Data = $ENV{'QUERY_STRING'}
> } else {
> read(STDIN, $Data, $ENV{'CONTENT_LENGTH'});
> }
>
> my @Formfields = split(/&/, $Data);
> foreach $Feld (@Formfields)
> {
> my $name;
> my $value;
> ($name, $value) = split(/=/, $Feld);
> $value =~ tr/+/ /;
> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
> $value =~ s/<!--(.|\n)*-->//g;
>
> $Parameters{$name} = $value;
> }
>
> }
>
Thanx it works great, except I can only get it to work with numbers say
like this
test.cgi?page=2
What I would like to know is how can I pass it something like this
test.cgi?page=newpage
--
From: Frank Hale
Email: frankhale@xxxxxxxx.xxx.xxx
ICQ: 7205161
Website: http://209.78.30.124/ -
until franksstuff.com gets transferred over to my new host.
"Knowledge only takes you so far, Determination takes you the rest of
the way"
Previous post | Next post | Timeline | Home