#!/afs/athena/contrib/perl/p

open(Q, "/var/local/www/getdate/questions");
print("<h1>Getdate</h1>\n");
print("<form action=\"http://www.mit.edu:8001/datesubmit\"><dl>\n");

print("I am <select name=\"gender\"><option>male<option>female</select>\n");
while(<Q>){
	($question, @choices) = split(':', $_);
	$qn++;
	print("<hr><dt>$question\n");

	print("<select name=\"$qn\">\n");
	for $choice (@choices){	# 
	    print("<option>$choice\n");
	}
	print("</select>\n");
	print("<dd>My match should say\n");

	$qnm = $qn."m";
	print("<select name=\"$qnm\">\n");
	for $choice (@choices){	# 
	    print("<option>$choice\n");
	}
	print("</select>\n");

	$qni = $qn."i";
	print("<dd>How important is this question to me?\n");
	print("<select name=\"$qni\">\n");
	for $cn (1..9){	# 
	    print("<option>$cn\n") unless $cn==5;
	    print("<option selected>$cn\n") if $cn==5;	
	}
	print("</select>\n");



}
print("</dl>\n");
print("When you are done, please enter\n");
print("your email address:<input name=\"name\" type=\"text\">\n");