#!/usr/bin/perl

use CGI;
use CGI::Carp qw(fatalsToBrowser);

$cgi = new CGI;
print $cgi->header;
print $cgi->start_html;


@params = split(/,/, "classStatus,classIn165useClipper," .
    ",important,importantAdvanced,howMuch,coreService,overall,renew");


foreach $param (@params)
{
   unshift(@names,$param);
   unshift(@vals,$cgi->param($param)); 
}

   open(OUT,">>survey.txt") || die("could not open file. $!");
#   print OUT join(",",@names) . "\n";
   print OUT join(",",@vals) . "\n";
   close(OUT);


if (defined($cgi->param("textareaName")) && 
    (length($cgi->param("textareaName")) > 0))
{
   open(OUT,">>comments.txt") || die("could not open file. $!");
   print OUT "-------------------------\n";
   print OUT $cgi->param("textareaName") . "\n";
   print OUT "-------------------------\n\n";
   close(OUT);
}

print "Thank you for submitting your thoughts.";

# textarea: textareaName


#submit: submitButtonName


#reset: 


print $cgi->end_html;