First page Back Continue Last page Summary Graphic
survey.cgi
# ! /usr/bin/perl
print "Content-type:text/html\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /; $FORM{$name} = $value;}
open(OUTF,">>survey.out"); flock(OUTF,2);seek(OUTF,0,2) ;
print OUTF "$FORM{'name'}|$FORM{'rating'}|" ;
foreach $key(keys %boxes){if ($FORM{$key}==1) {print OUTF "$key,";}}
close(OUTF ) ;
print "<html><body><h2>Thank You!</h2>< /body> </html>"
Notes: