# cgiapp_init(); sub cgiapp_init { my $self = shift; $self->config_file('/var/lib/cf/tbd/regform/Registration.ini'); my $lib = $self->config_param('library'); use lib qw/$lib/; use Registration::WWW::htmlgui; use Registration::DB; my $dbh = Registration::DB->connect($self->config_param('db_engine'),$self->config_param('host_name'),$self- >config_param('db_name'),$self->config_param('db_user'),$self->config_param('db_pw')); my $result = auth_config($dbh); }