[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

No Subject



hi again,

i tried adding the line that Chris Nandor suggested below and got the
following error in MacPerl

# Boris:Desktop Folder:test.cgi syntax OK
# Undefined subroutine &main::parse_form_data called.
File 'Boris:Desktop Folder:test.cgi'; Line 6

here is my simple, pedestrian script:

#!/usr/local/bin/perl


$ENV{QUERY_STRING} = "field1=yes&field2=no&field3=you%20look%20nice";
$webmaster = "john\@frankenstein.com";
&parse_form_data (*simple_form);

print "Content-type: text/html", "\n\n";

$user = $simple_form{'user'};

if ($user) {

print "Nice to meet you ", $simple_form{'user'}, ".", "\n";
print "Please visit this Web server again!", "\n";
} else {
print "You did not enter an name.  Are you shy?", "\n";
print "But , you are welcome to visit this Web server again!", "\n";
}

exit(0);


*****

again, any advice would be great.

thanks

johnny

At 21.59 97/4/25, Johnny wrote:
>i just got the O'Reilly CGI book and started hacking out the perl scripts.
>how can i get them to run on mac perl to debug them when the script is
>looking for imput from the browser because it wants to run the following
>line:
>
>&parse_form_data (*simple_form);

Well, normally the form information can be retrieved from the environment
variable QUERY_STRING.  So you can manually set that variable at the top of
your script:

$ENV{QUERY_STRING} = "field1=yes&field2=no&field3=you%20look%20nice";

Hopefully, that'll work for ya.

         pInK frANKenStEin                     www.frankenstein.com


                       i am the king of the divan



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch