projekt kivitendo

use SL::LxOfficeConf;

SL::LxOfficeConf->read;

my $login        = $::lx_office_conf{console}{login}        || 'demo';

my $history_file = $::lx_office_conf{console}{history_file} || '/tmp/kivitendo_console_history.log'; # fallback if users is not writable

my $debug_file   = $::lx_office_conf{console}{log_file}     || '/tmp/kivitendo_console_debug.log';

my $result = GetOptions(

  "login|l=s"        => \$login,

  "history-file|i=s" => \$history_file,

  "log-file|o=s"     => \$debug_file,

  "execute|e=s"      => \$execute_code,

$repl->load_plugin($_) for @plugins;

$repl->load_history($history_file);

$repl->eval('help');

my @code_to_execute = grep { $_ } ($autorun, $execute_code, $execute_file ? join('', read_file($execute_file)) : undef);

execute_code($repl, $_) || exit 1 for @code_to_execute;

# it is assumed that anyone with physical access and execution rights on this script

# won't be hindered by authentication anyway.

sub lxinit {

  package main;

  $::locale        = Locale->new($::lx_office_conf{system}->{language});

  $::form          = Form->new;

  $::auth          = SL::Auth->new;

  $::instance_conf = SL::InstanceConfiguration->new;

  $::request       = SL::Request->new(

    cgi    => CGI->new({}),