--- [EMAIL PROTECTED] wrote:
> What would be better then useing the following? I'm lookign for something
> better and more secure. If there is such a thing
>
> sub SplitInput{
>
> $meth = $ENV{REQUEST_METHOD};
> if ($meth eq "GET") {
> $formInfo = $ENV{QUERY_STRING};
> } elsif ($meth eq "POST") {
> read(STDIN, $formInfo, $ENV{CONTENT_LENGTH});
> }
[snip]
Chris,
By the time you finish reading
http://www.easystreet.com/~ovid/cgi_course/lesson_two/lesson_two.html, you will be
able to
identify numerous bugs in this code. I know it's a popular way to parse form data,
but popular
doesn't mean good (just look at Windows :)
Cheers,
Curtis "Ovid" Poe
=====
"Ovid" on http://www.perlmonks.org/
Someone asked me how to count to 10 in Perl:
push@A,$_ for reverse q.e...q.n.;for(@A){$_=unpack(q|c|,$_);@a=split//;
shift@a;shift@a if $a[$[]eq$[;$_=join q||,@a};print $_,$/for reverse @A
__________________________________________________
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
http://fifaworldcup.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
