#!/usr/bin/perl

require "vars.cgi";
##########################################################################
##																		##
##							    SmartFAQ								##
##							    --------								##
##					   par Jimmy (wordx@hotmail.com)					##
##						http://fr.smartCGIs.com							##
##																		##
##	Ce script est gratuit, si quelqu'un vous l'a vendu, dites-le moi.   ##
##  S'il vous plaît n'enlevez pas les liens à notre site web,           ##
##  ils maintiennent ce cgi gratuit pour chacun. Merci!					##
##																		##
##				  (c) copyright 2000 SmartCGIs.com						##
##########################################################################
print "Content-type: text/html\n\n";

$buffer = $ENV{'QUERY_STRING'};
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name,$value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/~!/ ~!/g;
$in{$name} = $value;
}
$answer = $in{'answer'};
$id = $in{'id'};
$subject = $in{'subject'};

open(DATA,"header.html");
@head = <DATA>;
close(DATA);
open(DATA,"footer.html");
@foot = <DATA>;
close(DATA);

if($answer ne "") { &answer; }
if($subject ne "") { &subject; }

open(DATA,"subject.faq");
@subj = <DATA>;
close(DATA);

print <<EOF;
<title>FAQ $sitename (fourni par SmartCGIs.com)</title>
@head
EOF

foreach (@subj) {
chomp($_);
($id, $subject) = split(/\|/,$_);
print "<ul> <li><b><a href=\"smartfaq.cgi?subject=$id\">$subject</a></b></li> </ul>\n";
print "<blockquote>  <ul>\n";

	opendir (DIR, "subject/$id");
	@files = grep { /.qa/ } readdir(DIR);
	close (DIR);
	foreach $file(@files) {
	$fid = $file;
	$fid =~ s/.qa//g;
	open(DATA,"subject/$id/$file");
	@content = <DATA>;
	close(DATA);
	$content = join('',@content);
	($q, $a) = split(/\|/,$content);
	print "<li type=\"circle\"><a href=\"smartfaq.cgi?answer=$fid&id=$id\">$q</a></li>\n";
	}
print "</ul> </blockquote><p>\n";
}
print <<EOF;
@foot
<p><br><center><small>Script par <a href="http://fr.smartcgis.com" target="_top">SmartCGIs.com</a></small></center>
EOF

sub answer {
open(DATA,"subject/$id/$answer.qa");
@content = <DATA>;
close(DATA);
$content = join('',@content);
($q, $a) = split(/\|/,$content);
print <<EOF;
<title>FAQ $sitename (fourni par SmartCGIs.com)</title>
@head
<p>
<b>$q</b><p>
$a<p>
@foot
<p><br><center><small>Script par <a href="http://fr.smartcgis.com" target="_top">SmartCGIs.com</a></small></center>
EOF
exit;
}

sub subject {
open(DATA,"subject.faq");
@subj = <DATA>;
close(DATA);
foreach (@subj) {
chomp($_);
($num, $sub) = split(/\|/,$_);
if($num eq $subject) { last; }
}

print <<EOF;
<title>FAQ $sitename: $sub (fourni par SmartCGIs.com)</title>
@head
<p>
<big>$sub</big><p>
EOF

opendir (DIR, "subject/$subject");
@files = grep { /.qa/ } readdir(DIR);
close (DIR);
#	Layout number 1
if($layout eq 1) {
	foreach $file(@files) {
	$fid = $file;
	$fid =~ s/.qa//g;
	open(DATA,"subject/$subject/$file");
	@content = <DATA>;
	close(DATA);
	$content = join('',@content);
	($q, $a) = split(/\|/,$content);
	print "<li><a href=\"#$fid\">$q</a>\n";
	}
print "<p><br>\n";
	foreach $file(@files) {
	$fid = $file;
	$fid =~ s/.qa//g;
	open(DATA,"subject/$subject/$file");
	@content = <DATA>;
	close(DATA);
	$content = join('',@content);
	($q, $a) = split(/\|/,$content);
	print "<a name=\"$fid\"></a> <b>$q</b> <br>$a<p>\n";
	}
}
#	Layout number 2
if($layout eq 2) {
	foreach $file(@files) {
	$fid = $file;
	$fid =~ s/.qa//g;
	open(DATA,"subject/$subject/$file");
	@content = <DATA>;
	close(DATA);
	$content = join('',@content);
	($q, $a) = split(/\|/,$content);
	print "<b>$q</b><br>$a<p>\n";
	}
}

#	Layout number 3
if($layout eq 3) {
	foreach $file(@files) {
	$fid = $file;
	$fid =~ s/.qa//g;
	open(DATA,"subject/$subject/$file");
	@content = <DATA>;
	close(DATA);
	$content = join('',@content);
	($q, $a) = split(/\|/,$content);
	print "<li><a href=\"smartfaq.cgi?answer=$fid&id=$subject\">$q</a>\n";
	}
}
print <<EOF;
@foot
<p><br><center><small>Script par <a href="http://fr.smartcgis.com" target="_top">SmartCGIs.com</a></small></center>
EOF
exit;
}