####
#
#  Konfiguration für mod_perl

PerlRequire conf/startup-mod_perl2.pl

PerlModule ModPerl::Registry

Alias /perl/ X:/usr/local/apache2/modperl/
<Location /perl>
      SetHandler perl-script
      PerlResponseHandler ModPerl::Registry
      PerlOptions +ParseHeaders
      PerlOptions -GlobalRequest
      Options +ExecCGI
</Location>
  
<Location /perl-status>
    SetHandler perl-script
    PerlHandler Apache2::Status
    
    Order deny,allow
    Deny from all
    Allow from 127.0.0.1
</Location>

#
#
####

#### 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;

rep add THX5  http://theoryx5.uwinnipeg.ca/cgi-bin/ppmserver?Urne]http://theoryx5.uwinnipeg.ca/cgi-bin/ppmserver?Urne:/PPMServer58