#!/usr/bin/perl
require "blendcommon.cgi";
$surveydir = "/home/kirkjerk/SITES/MAIN/DATA/data-loveblender/survey";
print "Content-type: text/html\n\n" ;
print "The Blender Survey\n";
print<<__EOQ__;
The Blender Survey Question
__EOQ__
&chugCGI(*input);
$num = $input{"num"};
if($num eq ""){
#show all question
print "The Questions:
\n";
open(READ,"< $surveydir/quicklist")||print "Can't open $surveydir/quicklist";
while(defined($line = )){
chomp $line;
($id,$ask) = split(/\t/,$line);
print <<__EOQ__;
$ask
__EOQ__
}
close READ;
} else {
#try to show responses for this question...
if($num =~ /\D/){
print "What num is $num ?";
exit;
}
open(READ,"< /home/kirkjerk/SITES/MAIN/DATA/data-loveblender/survey/$num/ask") || print "Can't read question $!";
$ask = ;
chomp $ask;
close READ;
print<<__EOQ__;
$ask
__EOQ__
print qq(\n);
open(READ,"< /home/kirkjerk/SITES/MAIN/DATA/data-loveblender/survey/$num/answer") || print "No one has responded to this one yet!";
chomp $line;
while(defined($line=)){
($userid,$username,$quote) = split(/\t/,$line);
print<<__EOQ__;
| $username |
$quote |
__EOQ__
}
close READ;
print "
\n";
}
print <<__EOQ__;
Answer the Latest Survey Question
-- View Past Survey Questions
__EOQ__