Revision 891411c1
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| scripts/console | ||
|---|---|---|
|
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";
|
||
|
}
|
||
Auch abrufbar als: Unified diff
Eine Klasse & globale Variable zur Verwaltung von mandantenbasierter Konfiguration