Can anyone spot what am I doing wrong here please?
#!c:\perl\bin\perl.exe
use CGI ":standard";
$Dog=param("Dog");
$Cat=param("Cat");
$Goldfish=param("Goldfish");
If
($choice eq $Dog)
{
print "content-type:text/html\n\n";
print <<E_O_F;
<HTML>
<HEAD><TITLE>Dog</TITLE>
<BASEFONT FACE="Arial Black">
</HEAD>
<BODY>
<TABLE BORDER="0" ALIGN="center" WIDTH="75%" Height="75%">
<TBODY>
<TR><TD COLSPAN="100%" align="center"><H2>Dog:</H2></TD></TR>
</TBODY>
</TABLE>
</BODY>
</HTML>
E_O_F
}
elsif
($choice eq $Cat)
{
print "content-type:text/html\n\n";
print <<E_O_F;
<HTML>
<HEAD><TITLE>Cat</TITLE>
<BASEFONT FACE="Arial Black">
</HEAD>
<BODY>
<TABLE BORDER="0" ALIGN="center" WIDTH="100%" Height="100%">
<TBODY>
<TR><TD COLSPAN="100%" align="center"><H2>Cat:</H2></TD></TR>
</TBODY>
</TABLE>
</BODY>
</HTML>
E_O_F
}
else
{
print "content-type: text/html\n\n";
print <<E_O_F;
<HTML>
<HEAD><TITLE>Goldfish</TITLE>
<BASEFONT FACE="Arial Black">
</HEAD>
<BODY>
<TABLE BORDER="0" ALIGN="center" WIDTH="100%" Height="100%">
<TBODY>
<TR><TD COLSPAN="100%" align="center"><H2>Goldfish</H2></TD></TR>
</TBODY>
</TABLE>
</BODY>
</HTML>
E_O_F
}
This is the error message which refers to the { } so am I not alowed to do this? ANY suggestions please
Chris
[Wed Jan 14 09:45:22 2004] [error] [client 127.0.0.1] Premature end of script headers: choice.pl
[Wed Jan 14 09:45:22 2004] [error] [client 127.0.0.1] syntax error at C:/Program Files/Apache Group/Apache2/cgi-bin/choice.pl line 8, near ")
[Wed Jan 14 09:45:22 2004] [error] [client 127.0.0.1] {"
[Wed Jan 14 09:45:22 2004] [error] [client 127.0.0.1] syntax error at C:/Program Files/Apache Group/Apache2/cgi-bin/choice.pl line 27, near "}"
[Wed Jan 14 09:45:22 2004] [error] [client 127.0.0.1] Execution of C:/Program Files/Apache Group/Apache2/cgi-bin/choice.pl aborted due to compilation errors.
#!c:\perl\bin\perl.exe
use CGI ":standard";
$Dog=param("Dog");
$Cat=param("Cat");
$Goldfish=param("Goldfish");
If
($choice eq $Dog)
{
print "content-type:text/html\n\n";
print <<E_O_F;
<HTML>
<HEAD><TITLE>Dog</TITLE>
<BASEFONT FACE="Arial Black">
</HEAD>
<BODY>
<TABLE BORDER="0" ALIGN="center" WIDTH="75%" Height="75%">
<TBODY>
<TR><TD COLSPAN="100%" align="center"><H2>Dog:</H2></TD></TR>
</TBODY>
</TABLE>
</BODY>
</HTML>
E_O_F
}
elsif
($choice eq $Cat)
{
print "content-type:text/html\n\n";
print <<E_O_F;
<HTML>
<HEAD><TITLE>Cat</TITLE>
<BASEFONT FACE="Arial Black">
</HEAD>
<BODY>
<TABLE BORDER="0" ALIGN="center" WIDTH="100%" Height="100%">
<TBODY>
<TR><TD COLSPAN="100%" align="center"><H2>Cat:</H2></TD></TR>
</TBODY>
</TABLE>
</BODY>
</HTML>
E_O_F
}
else
{
print "content-type: text/html\n\n";
print <<E_O_F;
<HTML>
<HEAD><TITLE>Goldfish</TITLE>
<BASEFONT FACE="Arial Black">
</HEAD>
<BODY>
<TABLE BORDER="0" ALIGN="center" WIDTH="100%" Height="100%">
<TBODY>
<TR><TD COLSPAN="100%" align="center"><H2>Goldfish</H2></TD></TR>
</TBODY>
</TABLE>
</BODY>
</HTML>
E_O_F
}
This is the error message which refers to the { } so am I not alowed to do this? ANY suggestions please
Chris
[Wed Jan 14 09:45:22 2004] [error] [client 127.0.0.1] Premature end of script headers: choice.pl
[Wed Jan 14 09:45:22 2004] [error] [client 127.0.0.1] syntax error at C:/Program Files/Apache Group/Apache2/cgi-bin/choice.pl line 8, near ")
[Wed Jan 14 09:45:22 2004] [error] [client 127.0.0.1] {"
[Wed Jan 14 09:45:22 2004] [error] [client 127.0.0.1] syntax error at C:/Program Files/Apache Group/Apache2/cgi-bin/choice.pl line 27, near "}"
[Wed Jan 14 09:45:22 2004] [error] [client 127.0.0.1] Execution of C:/Program Files/Apache Group/Apache2/cgi-bin/choice.pl aborted due to compilation errors.