#!/usr/local/bin/perl --

#######################################################
# History
# Donation system - faq.cgi
#
# 1/2/03 Igal finallized v1.0
####################################################### 

use strict;
require "var_sets.inc";

use lib '..';
use		intraforum_setup;
require	"configuration.pl";
require "community_queries.inc";

use vars qw($forumID $absolute_server $bbs_script $program_directory);

use CGI;
use CGI::Carp qw(fatalsToBrowser carpout);
use DBI;
use DynaLoader;

#my $query = new CGI("forumid=c-5003"); 
#my $query = new CGI("forumid=5005"); 
my $query = new CGI; 

$forumID			  =	$query->param('forumid');
$forumID			  =~ s/^\w\-//;	#legacy support
die "ForumID not specified!" if ($forumID eq "") ;
my $alias 		  = $query->param('alias');

ConnectToDB();
ConnectToForumDB();

my $comID = GetCommByForum($forumID,0);
die "The forum $forumID is not associated with a community!" if ($comID eq "") ;

PrintHeader();

my $cash_needed = reverse( GetCashNeeded($comID) );
my $faq_html = ReadFAQ();

$faq_html =~ s/\${forumID}/${forumID}/g;
$faq_html =~ s/\${alias}/${alias}/g;
$faq_html =~ s/\${cash_needed}/${cash_needed}/g;

$faq_html =~ s/\${absolute_server}/${absolute_server}/g;
$faq_html =~ s/\${bbs_script}/${bbs_script}/g;
$faq_html =~ s/\${program_directory}/${program_directory}/g;

$faq_html = ReplaceBodyByUserSettings($forumID,$faq_html,$alias);

print $faq_html; 

#################################################################
# Add HTTP header
#################################################################
sub PrintHeader { print "Content-type: text/html; charset=iso-8859-8;\n\n"; } 

#################################################################
# Source the generating file
#################################################################
sub ReadFAQ
{		
		open FILE,"faq.html" || die "Couldn't open file: $!" ;		
		return join("",<FILE>);
		close FILE;
}