Thanks Kevin: My cgi-bin is set up and working properly. I did have a problem before, but the properties are set and it has worked with all other scripts and works with this one except when asked to write to the file. It reads for a file ok.
thsi is my html code:<!super.html>
<html>
<head><title>WKRK-TV</title></head>
<body>
<h1>Super Bowl Survey Form</h1>
<FORM ACTION="http://localhost/cgi-bin/cvtc/superf.cgi" METHOD=POST>
<P><B>What did you think of the Super Bowl game?</B><BR>
<INPUT TYPE=radio NAME=Game VALUE=0> It was a great game.<BR>
<INPUT TYPE=radio NAME=Game VALUE=1> It was a boring game.<BR>
<INPUT TYPE=radio NAME=Game VALUE=2> I didn't watch the game.</P>
<P><B>Vote for your favorite Super Bowl commercial:</B><BR>
<INPUT TYPE=radio NAME=Commercial VALUE=Budweiser> Budweiser<BR>
<INPUT TYPE=radio NAME=Commercial VALUE=FedEx> FedEx<BR>
<INPUT TYPE=radio NAME=Commercial VALUE=MasterCard> MasterCard<BR>
<INPUT TYPE=radio NAME=Commercial VALUE=Pepsi> Pepsi</P>
<INPUT TYPE=submit VALUE="Submit Survey">
</FORM>
</BODY>
</HTML>
and this is my cgi script:
#!C:\Perl\bin
#super_pc.cgi - saves form data to a file, and creates a dynamic
#Web page that displays a message and survey statistics
print "Content-type: text/html\n\n";
use CGI qw(:standard);
use strict;
#declare variables
my ($game, $commercial, @records);
my @game_count = (0, 0, 0);
my %comm_count = ("Budweiser", 0,
"FedEx", 0,
"MasterCard", 0,
"Pepsi", 0);
#assign input items to variables
$game = param('Game');
$commercial = param('Commercial');
#save form data to a file
open(OUTFILE, ">>", "suvrey_pc.txt")
or die "Error opening survey.txt. $!, stopped";
print OUTFILE "$game,$commercial\n";
close(OUTFILE);
#calculate survey statistics
open(INFILE, "<", "survey_pc.txt")
or die "Error opening survey.txt. $!, stopped";
@records = <INFILE>;
close(INFILE);
foreach my $rec (@records) {
chomp($rec);
($game, $commercial) = split(/,/ , $rec);
$game_count [$game] = $game_count[$game] + 1;
$comm_count {$commercial} = $comm_count{$commercial} +1;
}
#generate HTML acknowledgment
print "<html><head><title>WKRK-TV</title></head>\n";
print "<body>\n";
print "<H2>Thank you for participating in our survey.</H2>\n";
print "<EM><B>What did you think of the Super Bowl game?</EM></B>\n";
print "<TABLE>\n";
print "<TR><TD>It was a great game.</TD> <TD>$game_count[0]</TD></TR>\n";
print "<TR><TD>It was a boring game.</TD> <TD>$game_count[1]</TD></TR>\n";
print "<TR><TD>I didn't watch the game.</TD><TD>$game_count[2]</TD></TR>\n";
print "</TABLE><BR>\n";
print "<EM><B>Vote for your favorite Super Bowl commercial:</EM></B>\n";
print "<TABLE>\n";
foreach my $key ("Budweiser", "FedEx", "MasterCard", "Pepsi") {
print "<tr><td>$key</td> <td>$comm_count{$key}</td></tr>\n";
}
print "</TABLE>\n";
print "</BODY></HTML>\n";
By the way: It is chapter 5 of the Web warrior Series CGI/Perl by Diane Zah from COURSE TECHNOLOGY of the Thomason Learning.
Thanks. I know by code is alright, However I do wonder why the "die" script I included does not tell what the error is.