#!/usr/bin/perl




print "Content-type: text/html\n\n";
require "vars.cgi";
&parse;
$answer = $input{'answer'};
$id = $input{'id'};
$subject = $input{'subject'};
$cat = $input{'cat'};
$keywords = $input{'keywords'};
$match = $input{'match'};

if($answer && $answer =~ /[^0-9]/) { &error("Invalid Input."); }
if($subject && $subject =~ /[^0-9]/) { &error("Invalid Input."); }
if($cat && $cat =~ /[^0-9]/) { &error("Invalid Input."); }

open(DATA,"$header_file");
@head = <DATA>;
close(DATA);
open(DATA,"$footer_file");
@foot = <DATA>;
close(DATA);

if($answer) { &answer; }
if($subject || $cat) { &cat; }
if($keywords) { &search; }

open(DATA,"data/categories.txt");
@cats = <DATA>;
close(DATA);
@cats = sort @cats;

print @head;

foreach $line(@cats) {
chomp($line);
($category, $catid) = split(/&&/,$line);
$html = "<ul> <li><font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 9pt\"><b><a href=\"smartfaq.cgi?cat=$catid\">$category</a></b></font></li> <ul>\n";
open(DATA,"data/$catid.cat");
@catlist = <DATA>;
close(DATA);
$count = 0;
	foreach $line(@catlist) {
	$count++;
	($pos, $id) = split(/&&/,$line);
	open(DATA,"data/$id.qa");
	@entry = <DATA>;
	close(DATA);
	$entry = join('',@entry);
	($question, $answer) = split(/\|/,$entry);
	$html .= "<li type=\"circle\"><font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 9pt\"><a href=\"smartfaq.cgi?answer=$id\">$question</a></font></li>\n";
	}
$html .= "</ul></ul><p>\n";
	if($count) { print $html; }
}
print qq|<p><center><font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 7pt\">Powered by <a href="http://www.thrillseekersunlimited.com">Thrillseekers Unlimited</a></font></center>|;
print @foot;




sub answer {
open(DATA,"data/$answer.qa") || &error("Unable to locate FAQ entry file ($answer.qa)");
@content = <DATA>;
close(DATA);
$content = join('',@content);
($q, $a) = split(/\|/,$content);
print qq|
@head
<p>
<font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 9pt\"><b>$q</b></font><br>
<font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 9pt\">$a</font><p>|;

if($related_topics eq 1) {
print "<b><font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 9pt\">Related Topics:</b></font><br>\n";
open(DATA,"data/categories.txt");
@cats = <DATA>;
close(DATA);
@cats = sort @cats;
	foreach $line(@cats) {
	chomp($line);
	($cat, $catid) = split(/&&/,$line);
	open(DATA,"data/$catid.cat");
	@catlist = <DATA>;
	close(DATA);
		$found = 0;
		$count = 0;
		foreach $line(@catlist) {
		($pos, $qid) = split(/&&/,$line);
			if($qid eq $answer) {
			print qq|
			<font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 9pt\"><a href="smartfaq.cgi?cat=$catid">$cat</a></font><br>
			|;
			last;
			}
		}
	}
} elsif($related_topics eq 2) {
%related = {};
$totalf = 0;
open(DATA,"data/categories.txt");
@cats = <DATA>;
close(DATA);
@cats = sort @cats;
	foreach $line(@cats) {
	chomp($line);
	($cat, $catid) = split(/&&/,$line);
	open(DATA,"data/$catid.cat");
	@catlist = <DATA>;
	close(DATA);
		$found = 0;
		$count = 0;
		%related2 = {};
		foreach $line(@catlist) {
		($pos, $qid) = split(/&&/,$line);
			if($qid eq $answer) {
			$found = 1;
			} else {
			$related2{$qid} = 1;
			}
		}
		if($found) {
			foreach $key (keys %related2) {
			$totalf++;
			$related{$key} = 1;
			}
		}
	}
	if($totalf) {
	print "<font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 9pt\"><b>Related Topics:</b></font><br>\n";
		foreach $key (keys %related) {
		open(DATA,"data/$key.qa") || next;
		@content = <DATA>;
		close(DATA);
		$content = join('',@content);
		($q, $a) = split(/\|/,$content);
		print qq|<font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 9pt\"><a href="smartfaq.cgi?answer=$key">$q</a></font><br>|;
		}
	}
}

print qq|<p><center><font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 7pt\">Powered by <a href="http://www.thrillseekersunlimited.com">Thrillseekers Unlimited</a></font></center>|;
print @foot;

if($log_count) { #log hit
open(DATA,"data/log.txt");
flock (DATA,2);
@log = <DATA>;
flock (DATA,8);
close(DATA);
$found = 0;
	foreach $line(@log) {
	chomp($line);
	($num,$id) = split(/\t/,$line);
		if($id eq $answer) {
		$num++;
		$found = 1;
		push(@newlog,"$num\t$id\n");
		} else {
		push(@newlog,"$line\n");	
		}
	}
	if($found) {
	@newlog = sort {$b <=> $a} @newlog;
	open(DATA,">data/log.txt");
	flock (DATA,2);
	print DATA @newlog;
	flock (DATA,8);
	close(DATA);
	} else {
	open(DATA,">>data/log.txt");
	flock (DATA,2);
	print DATA "1\t$answer\n";
	flock (DATA,8);
	close(DATA);
	}
}

exit;
}

sub cat {
open(DATA,"data/$cat.cat");
@catlist = <DATA>;
close(DATA);
$cnum = @catlist;
if(!$cnum) { &error("There are currently no entries in this category of the FAQ."); }

open(DATA,"data/categories.txt");
@cats = <DATA>;
close(DATA);
@cats = sort @cats;
foreach $line(@cats) {
chomp($line);
($category, $id) = split(/&&/,$line);
	if($id eq $cat) {
	$catname = $category;
	last;
	}
}

#$sa = 0;
#$newcat = $catname;
#@catsep2 = split(/\//,$newcat);
#@catsep2 = reverse @catsep2;
#while($newcat ne "" && $sa < 50) {
#@catsep = split(/\//,$newcat);
#@catsep = reverse @catsep;
#delete $catsep[0];
#@catsep = reverse @catsep;
#$newcat = join('/',@catsep);
#chop($newcat);
#	foreach $line(@cats) {
#	chomp($line);
#	($category, $id) = split(/&&/,$line);
#		if($category eq $newcat) {
#		@cat3 = split(/\//,$category);
#		@cat3 = reverse @cat3;
#		push(@newcatlist,"$cat3[0]&&$id");
#		last;
#		}
#	}
#$sa++;
#}
#@newcatlist = reverse @newcatlist;
#push(@newcatlist,$catsep2[0]);
#
#foreach $line(@newcatlist) {
#($category, $id) = split(/&&/,$line);
#	if($id) {
#	$cathtml .= "<font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 9pt\"><a href=\"smartfaq.cgi?cat=$id\">$category</a> </font>/ ";
#	} else {
#	$cathtml .= "<font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 9pt\"><b>$category</b></font>";
#	}
#}


print qq|
@head
<p>
<font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 9pt\">$catname</font><p>
|;

if($layout eq 1) {
print "<ul>\n";
	foreach $line(@catlist) {
	($pos, $qid) = split(/&&/,$line);
	open(DATA,"data/$qid.qa");
	@$qid = <DATA>;
	close(DATA);
	$entry = join('',@$qid);
	($question, $answer) = split(/\|/,$entry);
	print "<li><font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 9pt\"><a href=\"#$qid\">$question</a></font></li>\n";
	}
print "</ul><br><br>\n";
	foreach $line(@catlist) {
	($pos, $qid) = split(/&&/,$line);
	$entry = join('',@$qid);
	($question, $answer) = split(/\|/,$entry);
	print "<a name=\"$qid\"><font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 9pt\"></a><b>$question</b></font><br><font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 8pt\">$answer</font><p>\n";
	}
} elsif($layout eq 2) {
	foreach $line(@catlist) {
	($pos, $qid) = split(/&&/,$line);
	open(DATA,"data/$qid.qa");
	@entry = <DATA>;
	close(DATA);
	$entry = join('',@entry);
	($question, $answer) = split(/\|/,$entry);
	print "<font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 9pt\"><b>$question</b></font><br><font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 8pt\">$answer</font><p>\n";
	}
} else {
print "<ul>\n";
	foreach $line(@catlist) {
	($pos, $qid) = split(/&&/,$line);
	open(DATA,"data/$qid.qa");
	@entry = <DATA>;
	close(DATA);
	$entry = join('',@entry);
	($question, $answer) = split(/\|/,$entry);
	print "<li><font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 9pt\"><a href=\"smartfaq.cgi?answer=$qid\">$question</a></font></li>\n";
	}
print "</ul>\n";
}

print qq|<p><center><font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 7pt\">Powered by <a href="http://www.thrillseekersunlimited.com">Thrillseekers Unlimited</a></font></center>|;
print @foot;

exit;
}


sub search {
%matches = {};
@key = split(/ /,$keywords);
open(DATA,"data/categories.txt");
@cats = <DATA>;
close(DATA);
@cats = sort @cats;

print @head;
print qq|<font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 9pt\">Search results for <b>$keywords</b></font>:
<p>
|;

foreach $line(@cats) {
chomp($line);
($category, $catid) = split(/&&/,$line);
open(DATA,"data/$catid.cat");
@catlist = <DATA>;
close(DATA);
	foreach $line(@catlist) {
	($pos, $id) = split(/&&/,$line);
	open(DATA,"data/$id.qa");
	@$id = <DATA>;
	close(DATA);
	$entry = join('',@$id);
	($question, $answer) = split(/\|/,$entry);
	$found = 0;
	$fcount = 0;
		if($match eq "any") {
			foreach $key(@key) {
			$q = $question;
			$q =~ s/.*?$key.*?/$fcount++/eig;
			$a = $answer;
			$a =~ s/.*?$key.*?/$fcount++/eig;
				if($question =~ /$key/i || $answer =~ /$key/i) { $found = 1; }
			}
		} else {
		$words = @key;
		$count = 0;
			foreach $key(@key) {
			$q = $question;
			$q =~ s/.*?$key.*?/$fcount++/eig;
			$a = $answer;
			$a =~ s/.*?$key.*?/$fcount++/eig;
				if($question =~ /$key/i || $answer =~ /$key/i) { $count++; }
			}
			if($count >= $words) { $found = 1; }
		}
		if($found) {
		$matches{$id} = $fcount;
		}
	}
}

$total = 0;
foreach $key (keys %matches) {
	if($matches{$key}) { $total++; push(@matches,"$matches{$key}\t$key"); }
}

if($total) {
print "<ul>\n";
@matches = reverse sort { $a <=> $b } @matches;
foreach $line(@matches) {
($num,$id) = split(/\t/,$line);
$entry = join('',@$id);
($question, $answer) = split(/\|/,$entry);
	foreach $key(@key) {
	$question =~ s/$key/<b>$key<\/b>/ig;
	}
print "<li><font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 9pt\"><a href=\"smartfaq.cgi?answer=$id\">$question</a></font></li>\n";
}
print "</ul><p><font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 8pt\">Results Found: $total</font>\n";
} else {
print "No results found.\n";
}

print qq|<p><center><font style=\"font-family: lucida,arial,helvetica,sans-serif; font-size: 7pt\">Powered by <a href="http://www.thrillseekersunlimited.com">Thrillseekers Unlimited</a></font></center>|;
print @foot;
exit;
}