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

#######################################################
# History
# Donation system - pre_order.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
die "ForumID not specified!" if ($forumID eq "") ;
my $alias 		  = $query->param('alias');

ConnectToDB();
ConnectToForumDB();

PrintHeader();

my $pre_order = ReadPreOrder();

my $hidden_form_inputs = <<EOHFT;
<input type="hidden" name="alias"		value="$alias"	>
EOHFT

my $form_action = "orderChoice.cgi";
$pre_order =~ s/\${forumID}/${forumID}/g;
$pre_order =~ s/\${alias}/${alias}/g;
$pre_order =~ s/\${form_action}/${form_action}/g;
$pre_order =~ s/\${hidden_form_inputs}/${hidden_form_inputs}/g;

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

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


print $pre_order; 

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

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