use SL::Auth;
use SL::Form;
use SL::Helper::DateTime;
+use SL::InstanceConfiguration;
use SL::Locale;
use SL::LXDebug;
use Data::Dumper;
$::cgi = CGI->new qw();
$::form = Form->new;
$::auth = SL::Auth->new;
+ $::instance_conf = SL::InstanceConfiguration->new;
die 'cannot reach auth db' unless $::auth->session_tables_present;
die "cannot find locale for user $login" unless $::locale = Locale->new($::myconfig{countrycode});
+ $::instance_conf->init;
return "logged in as $login";
}