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
sub help {
print <<EOL;
- Lx-Office Konsole
+ kivitendo Konsole
./scripts/console [login]
Spezielle Kommandos:
help - zeigt diese Hilfe an.
- lxinit 'login' - lädt das Lx-Office Environment für den User 'login'.
+ lxinit 'login' - lädt das kivitendo-Environment für den User 'login'.
reload - lädt modifizierte Module neu.
pp DATA - zeigt die Datenstruktur mit Data::Dumper an.
quit - beendet die Konsole
=head1 NAME
-scripts/console - Lx-Office console
+scripts/console - kivitendo console
=head1 SYNOPSIS
Configuration of this script is located in:
- config/lx_office.conf
- config/lx_office.conf.default
+ config/kivitendo.conf
+ config/kivitendo.conf.default
See there for interesting options.