Gossamer Forum: General: Perl Programming: HTML won't run in IF statement stops at{

Jan 14, 2004, 2:18 AM

Silver Machine

Novice (24 posts)

Jan 14, 2004, 2:18 AM

Post #1 of 5

Shortcut

HTML won't run in IF statement stops at{

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.

Jan 14, 2004, 4:10 AM

Andy

Veteran / Moderator (18441 posts)

Jan 14, 2004, 4:10 AM

Post #2 of 5

Shortcut

Re: [Silver Machine] HTML won't run in IF statement stops at{ In reply to

Where is '$choice' coming from?

Cheers

Andy (mod)
andy@ultranerds.co.uk

Jan 14, 2004, 4:14 AM

Andy

Veteran / Moderator (18441 posts)

Jan 14, 2004, 4:14 AM

Post #3 of 5

Shortcut

Re: [Silver Machine] HTML won't run in IF statement stops at{ In reply to

How about something like this? Is this more what you are trying to do?

Code:
#!c:\perl\bin\perl.exe 

   use strict; 

   use CGI ":standard"; 
   my $IN = new CGI; 

   my $choice = $IN->param("choice"); 

   if ($choice eq 'Dog') { 

     print $IN->header(); 

     print qq| 

       <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>  

     |;  

} elsif ($choice eq 'Cat') { 

  print $IN->header(); 

  print qq|  

     <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>  

   |; 

} else { 

   print $IN->header(); 

   print qq|  

     <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>  

   |;  

}

...and call with script_name.cgi?choice=Cat or script_name.cgi?choice=Dog ... etc.

This script is untested, but should work :)

Cheers

Andy (mod)
andy@ultranerds.co.uk

Jan 14, 2004, 8:30 AM

Silver Machine

Novice (24 posts)

Jan 14, 2004, 8:30 AM

Post #4 of 5

Shortcut

Re: [Andy] HTML won't run in IF statement stops at{ In reply to

Thanks I discovered it was "If" rather than "if" stopping it running that works great now, but I have posted a new thread about the latest problem! the dbi wont work with it! Chris

Jan 14, 2004, 5:23 PM

fuzzy logic

Enthusiast (854 posts)

Jan 14, 2004, 5:23 PM

Post #5 of 5

Shortcut

Post deleted by fuzzy logic In reply to