Revision f04a7950
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| scripts/console | ||
|---|---|---|
| 14 | 14 |
use Devel::REPL 1.002001; |
| 15 | 15 |
use Term::ReadLine::Perl::Bind; # use sane key binding for rxvt users |
| 16 | 16 |
|
| 17 |
read_config 'config/console.conf' => my %config;# if -f 'config/console.conf';
|
|
| 17 |
read_config 'config/lx_office.conf' => my %config;
|
|
| 18 | 18 |
|
| 19 | 19 |
my $login = shift || $config{Console}{login} || 'demo';
|
| 20 | 20 |
my $history_file = $config{Console}{history_file} || '/tmp/lxoffice_console_history.log'; # fallback if users is not writable
|
| ... | ... | |
| 41 | 41 |
use CGI qw( -no_xhtml); |
| 42 | 42 |
use DateTime; |
| 43 | 43 |
use SL::Auth; |
| 44 |
use SL::Dispatcher; |
|
| 44 | 45 |
use SL::Form; |
| 45 | 46 |
use SL::Helper::DateTime; |
| 46 | 47 |
use SL::Locale; |
| ... | ... | |
| 73 | 74 |
$::form = Form->new; |
| 74 | 75 |
$::auth = SL::Auth->new; |
| 75 | 76 |
|
| 77 |
read_config 'config/lx_office.conf' => %::lx_office_conf; |
|
| 78 |
SL::Dispatcher::_decode_recursively(\%::lx_office_conf); |
|
| 79 |
|
|
| 76 | 80 |
die 'cannot reach auth db' unless $::auth->session_tables_present; |
| 77 | 81 |
|
| 78 | 82 |
$::auth->restore_session; |
| ... | ... | |
| 193 | 197 |
|
| 194 | 198 |
Configuration of this script is located in: |
| 195 | 199 |
|
| 196 |
config/console.conf
|
|
| 197 |
config/console.conf.default
|
|
| 200 |
config/lx_office.conf
|
|
| 201 |
config/lx_office.conf.default
|
|
| 198 | 202 |
|
| 199 | 203 |
See there for interesting options. |
| 200 | 204 |
|
Auch abrufbar als: Unified diff
Zusammenfassen mehrerer Konfigurationsdateien in einer gemeinsamen