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

#######################################################
# History
# Donation system - general_desc.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=5003"); 
my $query = new CGI; 

$forumID			  =	$query->param('forumid');
$forumID			  =~ s/^\w\-//;	#legacy support
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 $general_desc_html = ReadGeneralDesc();

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

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

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

print $general_desc_html; 

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

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