#!/usr/bin/perl

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
	($name, $value) = split (/=/, $pair);
	$name=~ tr/+/ /;
	$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$name =~ s/<!--(.|\n)*-->//g;
	
	$value=~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$value =~ s/<!--(.|\n)*-->//g;
		
	if($name =~ m/user_name/){
		$user_name = $value;
	}elsif($name =~ m/user_email/){
		$user_email = $value;
	}elsif($name =~ m/quest/){
		$quest = $value;
	}elsif($name =~ m/answer/){
		$answer = $value;
	}else{
		$List{$name} = $value;
	}
}

$answer =~ s/\r//g;
$answer =~ s/\n/<BR>/g;

print "Content-type: text/html\n\n";
if(($quest=="01")||($quest=="02")||($quest=="03")||($quest=="05")||($quest=="06")||($quest=="07")||($quest=="08")||($quest=="11")||($quest=="12")||($quest=="20")||($quest=="26")||($quest=="27")||($quest=="28")){
	open(THANKS, "files/questhank_red.html") || die "Could not open file!";
}else{
	open(THANKS, "files/questhank_blue.html") || die "Could not open file!";
}
while(<THANKS>){
	if($_ =~ m/user_name/){
		print $user_name;
	}elsif($_ =~ m/write_to_file/){
		&write_to_file($quest);
	}elsif($_ =~ m/send_URL/){
		&send_URL($quest);
	}else{
		print $_;
	}
}
close(THANKS);
exit;

sub send_URL($quest){
	print "/cgi/re_quest.cgi?quest=$quest";
}

sub write_to_file($quest){
	$file = "files/answers".$quest.".txt";
#	print "preparing to write to $file<P>";
	open (ARCHIVE,">>$file") or print "Can't open $file for writing: $!<P>\n";
	if($answer){
		if($user_email){
			print ARCHIVE "$user_name|$user_email|$answer\n";
		}else{
			print ARCHIVE "$user_name|$answer\n";
		}
#		print "writing...";
	}else{
		print "Please provide an answer to the question.";
	}
	close (ARCHIVE);
}