On Thu, 19 Jul 2001, bc wrote:
> this did not fix it, changing "=" to "eq" in my if statements...???
>
> }
> } elsif ($guess eq "toe") {
> print ("you guessed it! good job bossman!<br>");
> print ("go read the <a href=http://www.abcnews.com>news</a>");
> ) else (
^^^^^^^^
These parentheses need to be chaged to curly braces. You also should have
'use strict' at the top of your script. Here's the version of the script
I got to work. You should also be careful to make sure you have a proper
indenting style, or you can lose track of where blocks begin and end.
------------------------
#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
#howdy
use CGI qw(param);
print<<end_of_html_start;
content-type: text/html
<html><head>
<title>customgame</title>
</head>
<body>
end_of_html_start
my $guess = param("guess");
my $name = param("name");
if ($guess eq "") {
if ($name eq "") {
print ("hello there, please enter name here:<form method=post
action=customgame.pl><input type=text name=name><input type=submit
value=enter></form><br>");
} elsif ($name eq "randal") {
print ("hi, since you're $name , you do not have to guess the
secret
word!<br>");
} else {
print ("your not randal, so you have to guess the secret
word:<form
method=post action=customgame.pl><input type=text name=guess><input
type=submit value=enter></form><br>");
print ("hello there, please enter another name here:<form
method=post
action=customgame.pl><input type=text name=name><input type=submit
value=enter><br>");
}
} elsif ($guess eq "toe") {
print ("you guessed it! good job bossman!<br>");
print ("go read the <a href=http://www.abcnews.com>news</a>");
} else {
print ("Wrong! <a href=http://toes.netfirms.com>go</a> again...");
}
print<<END;
</body></html>
END
-- Brett
http://www.chapelperilous.net/btfwk/
------------------------------------------------------------------------
Why do so many foods come packaged in plastic? It's quite uncanny.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
