#!/usr/bin/perl
###############
# Version 1.0 #
## 12/18/08 ###
###############
#------------------------------------------------------------------------------#
use lib "/mnt/stor15-wc2-dfw1/422298/shared/lib/perl";
use DBI;
use CGI::Simple;
use CGI::Carp qw(carpout fatalsToBrowser);
#------------------------------------------------------------------------------#
require "./sitePub/pl/shared.pl";
require "./sitePub/pl/conf.pl";
#------------------------------------------------------------------------------#
&dbconnect($DBName,$DBHost,$DBPort,$DBUser,$DBPass);
#------------------------------------------------------------------------------#
$cgi = CGI::Simple->new;
foreach $key ($cgi->param) {
$FORM{$key}=$cgi->param($key);
}
print $cgi->header('text/html');
my $QUERY="SELECT CURDATE() FROM $Tblog";
my @CDATE=dosql($QUERY);
$CurDate=$CDATE[0];
print &htmlHDR;
require "./sitePub/pl/blog.pl";
require "./sitePub/custom/blog.pl";
my $ACT=$cgi->param('act');
print &initHDR;
print &custHDR;
print &htmlFORMbeg;
print &bHdr;
if (defined &$ACT && $ERR!=1) {
print &$ACT;
}
else {
print &init;
}
print &bFtr;
print &htmlFORMend;
print &custFTR;
print "
";
print &htmlFTR;
#------------------------------------------------------------------------------#
$dbh->disconnect();
#------------------------------------------------------------------------------#
exit;