use SL::Auth;
use SL::Form;
use SL::Helper::DateTime;
+use SL::InstanceConfiguration;
use SL::Locale;
use SL::LXDebug;
use Data::Dumper;
package main;
- $::lxdebug = LXDebug->new(file => $debug_file);
- $::locale = Locale->new($::lx_office_conf{system}->{language});
- $::cgi = CGI->new qw();
- $::form = Form->new;
- $::auth = SL::Auth->new;
+ $::lxdebug = LXDebug->new(file => $debug_file);
+ $::locale = Locale->new($::lx_office_conf{system}->{language});
+ $::form = Form->new;
+ $::auth = SL::Auth->new;
+ $::instance_conf = SL::InstanceConfiguration->new;
+ $::request = { cgi => CGI->new({}) };
die 'cannot reach auth db' unless $::auth->session_tables_present;
require "bin/mozilla/common.pl";
- die "cannot find user $login" unless %::myconfig = $::auth->read_user($login);
+ die "cannot find user $login" unless %::myconfig = $::auth->read_user(login => $login);
$::form->{login} = $login; # normaly implicit at login
die "cannot find locale for user $login" unless $::locale = Locale->new($::myconfig{countrycode});
+ $::instance_conf->init;
return "logged in as $login";
}