#! /usr/bin/perl

# care for paths
BEGIN {
    use vars qw($PATH_TO_CGI);
    $PATH_TO_CGI = 'f:\apacheweb\8084_develop.perl-community.de\html\cgi-bin';
    $ENV{PATH_TO_CGI} = 'f:\apacheweb\8084_develop.perl-community.de\html\cgi-bin';
}
use lib "$PATH_TO_CGI";

# load perl modules
use Apache::DBI;
use CGI;
use HTML::Template;
use Mail::RFC822::Address;
use HTML::Entities ();
use Regexp::Common qw(balanced);
use URI::Find::Schemeless ();
# use DBI ();
use Digest::MD5;
use File::Temp;

# load own PBoard-modules
use PBoard::Config;
use PBoard::Config;
use PBoard::Actions;
use PBoard::Subs;
use PBoard::User;
use PBoard::DB;
use PBoard::Posting;

my $dbh = Apache::DBI->connect_on_init
    ('DBI:mysql:' . &PBoard::Config::DATABASE_NAME, 
     &PBoard::Config::DATABASE_USER, 
     &PBoard::Config::DATABASE_PASSWORD,
     ) 
    or die "Error: couldn't connect to MySql: ", $DBI->errstr;
1;