#### startup.pl
##
##    StartUp file for mod_perl
##
##

use lib qw (.);

use strict;
  
# Make sure we are in a sane environment.
$ENV{MOD_PERL} or die "not running under mod_perl!";

# enable if the mod_perl 1.0 compatibility is needed
use Apache2::compat ();
  
# preload all mp2 modules
# use ModPerl::MethodLookup;
# ModPerl::MethodLookup::preload_all_modules();
  
use ModPerl::Util (); #for CORE::GLOBAL::exit
  
use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache2::RequestUtil ();
  
use Apache2::ServerRec ();
use Apache2::ServerUtil ();
use Apache2::Connection ();
use Apache2::Log ();
  
use APR::Table ();
  
use ModPerl::Registry ();
  
use Apache2::Const -compile => ':common';
use APR::Const -compile => ':common';

# Load Perl modules of your choice here
# This code is interpreted *once* when the server starts
use LWP::UserAgent ();
use Apache::DBI ();
use Apache::Session ();
use DBI ();
  
# Tell me more about warnings
use Carp ();
$SIG{__WARN__} = \&Carp::cluck;
  
# Load CGI.pm and call its compile() method to precompile 
# (but not to import) its autoloaded methods. 
use CGI ();
CGI->compile(':all');
  
# Initialize the database connections for each child
#Apache::DBI->connect_on_init
# ("DBI:mysql:database=test;host=localhost",
#   "user","password",
#   {
#    PrintError => 1, # warn() on errors
#    RaiseError => 0, # don't die on error
#   AutoCommit => 1, # commit executes immediately
#   }
#  );
  
1;