#!/usr/bin/perl -w

use CGI qw(:standard);
use DBI;

$query = new CGI;

$basehost="http://www.what-a-character.com";
$basedir="/cgi-bin/";
$htmldir="/";
$basehtmldir="/";

$chardb="charact";
$dbuser="charact";
$dbpassword="actor";

$dbh = DBI->connect("DBI:mysql:$chardb",$dbuser,$dbpassword) || &SQL_Error();

$configtbl="config";

$header="/home/user1/charact$htmldir"."header.plinc";
$menu="/home/httpd/html$htmldir"."menu.plinc";
#$bordershell="/home/httpd/html$htmldir"."bordershell.plinc";
$bordertop="/home/httpd/html$htmldir"."bordertop.plinc";
$borderbottom="/home/httpd/html$htmldir"."borderbottom.plinc";
$footer="/home/httpd$htmldir"."footer.plinc";

open(HEADER, $header);
$header = join('',<HEADER>);
close(HEADER);
open(MENU, $menu);
$menu = join('',<MENU>);
close(MENU);
open(BORDERTOP, $bordertop);
$bordertop = join('',<BORDERTOP>);
close(BORDERTOP);
open(BORDERBOTTOM, $borderbottom);
$borderbottom = join('',<BORDERBOTTOM>);
close(BORDERBOTTOM);
open(FOOTER, $footer);
$footer = join('',<FOOTER>);
close(FOOTER);

$header =~ s/<!--basehref-->/$basehost$basehtmldir/i;

#require "links.mod";

sub get_params {
  $cat="where cat='$_[0]'" if ($_[0]);

  $ParamQuery = "SELECT param,value FROM config $type";
  $sth = $dbh->prepare($ParamQuery); #|| &SQL_Error();
  $more = $sth->execute || &SQL_Error();
  while (@row = $sth->fetchrow_array()) {
  $param{$row[0]}="$row[1]";
  }
  return;
}

sub SQL_Error {
  print $query->header;
  print $header;
  print "<FONT SIZE=+4 COLOR=#FF0000>Error:</FONT><BR>\n";
  print "<FONT COLOR=#0000FF>\n";
  print "SQL server at $SQLServer returned the following error:<BR></FONT>\n";
  print "<FONT COLOR=#FF0000><PRE>  [$DBI::errstr]</PRE>\n";
  print "</FONT>";
  print "Please report this error to the database administrator!<BR><BR>\n";
  print $footer;
  exit(1);
}