#!/usr/bin/perl
#########################################################
# Auto-FAQ Version 1.0 by Web ScriptsUK			#
#                         http://www.web-scripts.co.uk	#
# Originally Released:    23rd May 2001  (v1.0)         #
#########################################################
#							#
# COPYRIGHT NOTE:					#
# Auto-FAQ may be used and modified free of charge by	#
# anyone so long as this copyright notice and the	#
# comments above remain intact. By using this code you	#
# agree to indemnify Neil Skirrow from any liability 	#
# that might arise from its use. Selling the code for 	#
# this program without prior written consent is 	#
# expressly forbidden. In other words, please ask 	#
# first before you try and make money off of our	#
# program. Obtain permission before redistributing 	#
# this software over the Internet or in any other 	#
# medium.  In all cases copyright and header must 	#
# remain intact.  We cannot be held responsible for	#
# any harm this may cause.				#
#							#
#########################################################
use CGI qw(:standard);
$query = new CGI;

require "config/config.cfg";
require "$datahomepath/config/layout.cfg";
require "$datahomepath/config/version.cfg";

print "Content-type: text/html\n\n";

&main if ($ENV{'REQUEST_METHOD'} eq "GET");

sub main {
if ($ENV{'QUERY_STRING'}) {
my $getid = param("id");
my $getname = param("name");

&header;
print qq~
<table width=400 cellpadding=2 cellspacing=0 border=0 bgcolor=$tbmaincolor>
<tr><td bgcolor=$tbheadercolor><font face=$fontheaderface size=$fontheadersize color=$fontheadercolor>$sitename: <a href="home.cgi">Top</a>: $getname</font></td></tr>
<tr><td><font face=$fontface size=$fontsize color=$fontcolor><ul>
~;
open (DATA, "$catfiles/$getid.db");
@indata = <DATA>;
close (DATA);
foreach $entries (@indata){
($queid, $category, $question, $answer, $date) = split(/\|/, $entries);
print "<li><a href=\"\#$queid\">$question</a><br>\n";
}
print "</ul></font></td></tr><tr><td><font face=$fontface size=$fontsize color=$fontcolor>&nbsp; </font></td></tr>\n";
open (DATAA, "$catfiles/$getid.db");
@indataa = <DATAA>;
close (DATAA);
foreach $entriesa (@indataa){
($queid, $category, $question, $answer, $date) = split(/\|/, $entriesa);
print "<tr><td><font face=$fontface size=$fontsize color=$fontcolor><b><a name=\"$queid\">$question</a></b></font></td></tr>\n";
print "<tr><td><font face=$fontface size=$fontsize color=$fontcolor>$answer</font></td></tr>\n";
print "<tr><td align=right><font face=$fontface size=$fontnotesize color=$fontcolor>Posted: $date<br>&nbsp;</font></td></tr>\n";
}

print qq~
<tr><td colspan=2 bgcolor=$tbmaincolor align=right><font face=$fontface size=$fontnotesize color=$fontcolor><br>$date</font></td></tr>
</table>
~;
&search;
&footer;
exit;
} else {
$catcount="0";
open (CATDB, "$categories");
@catlines =<CATDB>;
close (CATDB);

foreach $catlines (@catlines) {
$catcount++;
}

$quecount="0";
open (QUEDB, "$faqdb");
@quelines =<QUEDB>;
close (QUEDB);

foreach $quelines (@quelines) {
$quecount++;
}

&header;
print qq~
<table width=400 cellpadding=2 cellspacing=0 border=0 bgcolor=$tbmaincolor>
<tr><td bgcolor=$tbheadercolor><font face=$fontheaderface size=$fontheadersize color=$fontheadercolor>$sitename: Top</font></td></tr>
<tr><td><font face=$fontface size=$fontsize color=$fontcolor>Thier are currently <b>$catcount</b> categories and <b>$quecount</b> questions in the $sitename FAQ database.</font></td></tr>
<tr><td><table width=300 cellpadding=2 cellspacing=0 border=0 bgcolor=$tbmaincolor>
~;
open (DATA, "$categories");
@indata = <DATA>;
close (DATA);
foreach $entries (@indata){
($id, $name, $description) = split(/\|/, $entries);
print "<tr><td bgcolor=$tbheadercolor><font face=$fontface size=$fontsize color=$fontcolor><a href=\"home.cgi?id=$id\&name=$name\"><b>$name</b></a></font></td></tr>\n";
print "<tr><td><font face=$fontface size=$fontnotesize color=$fontcolor>$description</font></td></tr>\n";
}

print qq~
</table></td></tr>
<tr><td colspan=2 bgcolor=$tbmaincolor align=right><font face=$fontface size=$fontnotesize color=$fontcolor><br>$date</font></td></tr>
</table>
~;
&search;
&footer;
exit;
}
}

sub search {
if ($searchform eq "Yes") {
print qq~
<form action="search.cgi" method=get>
<table width=400 cellpadding=2 cellspacing=0 border=0 bgcolor=$tbmaincolor>
<tr><td bgcolor=$tbheadercolor><font face=$fontheaderface size=$fontheadersize color=$fontheadercolor>Search FAQ</font></td></tr>
<tr><td><font face=$fontface size=$fontsize color=$fontcolor>Search for <input type=text name=search value="Keywords">&nbsp;in <select name=category>
~;
# name="category"
open (DATA, "$categories");
@indata = <DATA>;
close (DATA);
foreach $entries (@indata){
($id, $name, $description) = split(/\|/, $entries);
print "<option value=\"$id\">$name</option>\n";

}
print qq~
<option value=\"all\" selected>All Categories</option></select></font></td></tr>
<tr><td align=right><font face=$fontface size=$fontsize color=$fontcolor><input type=submit value=Search>&nbsp; &nbsp; &nbsp; &nbsp;</font></td></tr>
</table></form>
~;
}
}

# Generates the date for database use specifically.
sub get_date {
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
	@months = ("01","02","03","04","05","06","07","08","09","10","11","12");
	@digits = split(//,$sec);
	$size = @digits;
	if ($size == 1) {
		$sec = "0$sec";
	}
	@digits = split(//,$min);
	$size = @digits;
	if ($size == 1) {
		$min = "0$min";
	}
	$year=$year+1900;
	$date = "@months[$mon]/$mday/$year";
}

sub header {
open(HEADER,"$datahomepath/include/header.inc");
while(<HEADER>) {
   print $_;
	}
}

sub footer {
# Removing the below text breaks the terms of use for Auto-FAQ and may result in legal action!
print "<div align=\"right\"><font face=\"Arial\" size=\"1\">Powered by Auto-FAQ from <a href=http://www.web-scripts.co.uk>Web-ScriptsUK</a>.</font></div>\n";
# Removing the above text breaks the terms of use for Auto-FAQ and may result in legal action!
open(FOOTER,"$datahomepath/include/footer.inc");
while(<FOOTER>) {
   print $_;
	}
}