#!/usr/local/bin/perl

##############################################################
# This was written by Kevin Epperson for credit in
# INFS-5510 at the Univesity of Colorado at Boulder.  I can
# be reached for any question you might have via e-mail at
# epperson@colorado.edu or epperson@us1.ibm.com

##############################################################
# Get initial information from user
 
print "This program will assist in setting a survey for you.\n";
print "Please enter the title of your survey:\n";
$title = <STDIN>;
chop($title);
print "Please enter the filename of the survey to be created without exstensions:\n";
$name = <STDIN>;
chop($name);
print "Please enter the number of questions in your survey:\n";
$numquest = <STDIN>;
chop($numquest);

##############################################################
# Create directory and set permissions if necessary.

mkdir data, 0777;
chmod 0777, "data";

##############################################################
# Open file and write partial header

open(NEWSURVEY,"+>./data/$name.srv") ||
die "Sorry, I could not create $name.srv This file may already exist.\n";
print NEWSURVEY "<HR><P><CENTER><H1>$title</H1></CENTER><P><HR><P>\n";
print NEWSURVEY "Please read the following questions and answer them to the best of your abilities.  If there is a question you have no opinion on please choose N/A.  When you have finished the survey click on the \"Submit Survey\" button to submit \n";
print NEWSURVEY "your answers.  If you would like to clear your answers at any time click the \"Clear Survey\" button.<P>\n";
print NEWSURVEY "<!--End Survey Header-->\n\n";

##############################################################
# Gets question type and question text for 1 to numquest
# Write questions to file

for ($x = 1; $x <= $numquest; $x++)  {
	print "Would you like question $x to be a (Y)es/No question or\n";
	print "a (S)caler question?  Please enter (Y) or (S).\n";
	$q_type = <STDIN>;
	chop ($q_type);
	print "Please enter the text description for question $x\n";
	$q_text = <STDIN>;
	chop ($q_text);
	if ($q_type eq "S" or $q_type eq "s") {
		print NEWSURVEY "<!--Begin 1 to 10 Question $x-->\n";
		print NEWSURVEY "<HR><H2>Question $x</H2><P>$q_text<P>\n";
		print NEWSURVEY "Please rate on a scale of 1 to 10.  With 1 being least important and 10 being most important.\n";
                print NEWSURVEY "If you have no opinion on the question please choose N/A.\n";
                print NEWSURVEY "<P><CENTER><TABLE BORDER=2><TR>\n";
                print NEWSURVEY "<TD ALIGN=\"LEFT\" COLSPAN=\"3\">Least<BR>Important</TD>\n";
                print NEWSURVEY "<TD ALIGN=\"CENTER\" COLSPAN=\"4\">Moderately<BR>Important</TD>\n";
                print NEWSURVEY "<TD ALIGN=\"RIGHT\" COLSPAN=\"3\">Most<BR>Important</TD>\n";
                print NEWSURVEY "<TD COLSPAN=1></TD></TR>\n";
                print NEWSURVEY "<TD><INPUT TYPE=\"radio\" NAME=\"$x\" VALUE=\"01\">1</TD>\n";
                print NEWSURVEY "<TD><INPUT TYPE=\"radio\" NAME=\"$x\" VALUE=\"02\">2</TD>\n";
                print NEWSURVEY "<TD><INPUT TYPE=\"radio\" NAME=\"$x\" VALUE=\"03\">3</TD>\n";
                print NEWSURVEY "<TD><INPUT TYPE=\"radio\" NAME=\"$x\" VALUE=\"04\">4</TD>\n";
                print NEWSURVEY "<TD><INPUT TYPE=\"radio\" NAME=\"$x\" VALUE=\"05\">5</TD>\n";
                print NEWSURVEY "<TD><INPUT TYPE=\"radio\" NAME=\"$x\" VALUE=\"06\">6</TD>\n";
                print NEWSURVEY "<TD><INPUT TYPE=\"radio\" NAME=\"$x\" VALUE=\"07\">7</TD>\n";
                print NEWSURVEY "<TD><INPUT TYPE=\"radio\" NAME=\"$x\" VALUE=\"08\">8</TD>\n";
                print NEWSURVEY "<TD><INPUT TYPE=\"radio\" NAME=\"$x\" VALUE=\"09\">9</TD>\n";
                print NEWSURVEY "<TD><INPUT TYPE=\"radio\" NAME=\"$x\" VALUE=\"10\">10</TD>\n";
                print NEWSURVEY "<TD><INPUT TYPE=\"radio\" NAME=\"$x\" VALUE=\"NA\" CHECKED>N/A</TD>\n";
                print NEWSURVEY "</TABLE></CENTER></P>\n";
                print NEWSURVEY "<!--End 1 to 10 Question $x-->\n\n";
		}				
	elsif ($q_type eq "Y" or $q_type eq "y")  {
                print NEWSURVEY "<!--Begin Yes No Question $x-->\n";
                print NEWSURVEY "<HR><H2>Question $x</H2><P>\n";
                print NEWSURVEY "$q_text<P>\n";
                print NEWSURVEY "Please answer the question either Yes or No.  If you have no opinion on the question please choose N/A\n";
                print NEWSURVEY "<P><CENTER><TABLE BORDER=2>\n";
                print NEWSURVEY "<TD><INPUT TYPE=\"radio\" NAME=\"$x\" VALUE=\"YY\">Yes</TD>\n";
                print NEWSURVEY "<TD><INPUT TYPE=\"radio\" NAME=\"$x\" VALUE=\"NN\">No</TD>\n";
                print NEWSURVEY "<TD><INPUT TYPE=\"radio\" NAME=\"$x\" VALUE=\"NA\" CHECKED>N/A</TD>\n";
                print NEWSURVEY "</TABLE></CENTER></P>\n";
                print NEWSURVEY "<!--End Yes No Question $x-->\n\n";
	}  else  {
		print "This is not a valid option.  Please try again.\n";
		$x--;
        	}
}  #for loop end bracket

##############################################################
# Writes footer, hidden fields, and closes survey file

print NEWSURVEY "<HR><P><CENTER><EM>\n";
print NEWSURVEY "Please use this space for any comments you would like to submit:\n";
print NEWSURVEY "</EM><P><TEXTAREA NAME=\"i_comments\" ROWS=\"5\" COLS=\"50\"></TEXTAREA>\n";
print NEWSURVEY "</CENTER><P><P><CENTER><TABLE BORDER=1><TR>\n";
print NEWSURVEY "<TD><INPUT TYPE=\"SUBMIT\" VALUE=\" Submit Survey \" ALIGN=\"CENTER\"></TD>\n";
print NEWSURVEY "<TD><INPUT TYPE=\"RESET\"  VALUE=\" Clear Survey  \" ALIGN=\"CENTER\"></TD>\n";
print NEWSURVEY "</TR></TABLE></CENTER>\n";
print NEWSURVEY "</FORM></BODY></HTML>\n";
close(NEWSURVEY);	

##############################################################
# Creates data files
# Future improvement would be getting the perl chmod command to work
# so that permissions are set automatically

open(DATAFILE,"+>./data/$name.dat") ||
die "Sorry, I could not create $name.dat This file may already exist.\n";
print DATAFILE "password|user's name|user's remote host|";
for ($y = 1; $y <= $numquest; $y++) {
	print DATAFILE "q$y|";
	}
print DATAFILE "comments|\n";
close(DATAFILE);
chmod 0644, "./data/$name.srv";
chmod 0666, "./data/$name.dat";

##############################################################
# Tells user status

print "\n\n\n\n\n\n";
print "This survey has been sucessfully created.\n";
print "This process created two files:\n";
print "    ./data/$name.srv    |The survey file in html format\n";
print "    ./data/$name.dat    |The data file where results will be stored\n\n\n";