#!/usr/bin/perl

$string = $ENV{'QUERY_STRING'};
($name,$value) = split(/=/,$string);
$quest = $value;

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(results, "files/info_red.html");
}else{
	open(results, "files/info_blue.html");
}
while(<results>){
	if($_ =~ m/topic/){
		&list_topic($quest);
	}elsif($_ =~ m/list_data/){
		&read_data($quest);
	}elsif($_ =~ m/quest_URL/){
		&send_URL($quest);
	}else{
		print $_;
	}
}
close(results);
exit;

sub list_topic($quest){
	print "/obj/title".$quest.".jpg";
}

sub send_URL($quest){
	if(($quest>0) && ($quest<11)){
		$URL = "/quest01/quest".$quest.".html";
	}elsif(($quest>10) && ($quest<21)){
		$URL = "/quest02/quest".$quest.".html";
	}elsif(($quest>20) && ($quest<31)){
		$URL = "/quest03/quest".$quest.".html";
	}
	print "$URL";
}

sub read_data($quest){
	$file = "files/answers".$quest.".txt";
	open (ARCHIVE, "$file") || print "Can't open archive file for reading!\n";
	$counter = 1;
	while(<ARCHIVE>){
		if($counter>1){
			@line = split /[|]/, $_;
			print "<TR>";
			if(@line>2){
				print "<TD VALIGN='TOP' ALIGN='RIGHT'><FONT COLOR='#226699'><a href='mailto:@line[1]'>@line[0]</a></FONT></TD>";
				print "<TD><IMG SRC='/obj/1x1.gif' WIDTH='5' HEIGHT='1' BORDER='0'></TD>";
				print "<TD VALIGN='TOP' ALIGN='LEFT'>@line[2]</TD>";
			}else{
				print "<TD VALIGN='TOP' ALIGN='RIGHT'><FONT COLOR='#000000'>@line[0]</FONT></TD>";
				print "<TD><IMG SRC='/obj/1x1.gif' WIDTH='5' HEIGHT='1' BORDER='0'></TD>";
				print "<TD VALIGN='TOP' ALIGN='LEFT'>@line[1]</TD>";
			}
			print "</TR>";
		}
		$counter++;
	}
	close (ARCHIVE);
}