my $login = shift || $::lx_office_conf{console}{login} || 'demo';
my $history_file = $::lx_office_conf{console}{history_file} || '/tmp/lxoffice_console_history.log'; # fallback if users is not writable
+my $debug_file = $::lx_office_conf{console}{log_file} || '/tmp/lxoffice_console_debug.log';
my $autorun = $::lx_office_conf{console}{autorun};
# will be configed eventually
package main;
- $::lxdebug = LXDebug->new;
+ $::lxdebug = LXDebug->new(file => $debug_file);
$::locale = Locale->new($::lx_office_conf{system}->{language});
$::cgi = CGI->new qw();
$::form = Form->new;
=head1 NAME
-scripts/console - Lx Office Console
+scripts/console - Lx-Office console
=head1 SYNOPSIS