my ($self) = @_;
SL::LxOfficeConf->read;
- _init_environment();
eval {
package main;
$self->unrequire_bin_mozilla;
- $::cgi = CGI->new('');
- $::locale = Locale->new($::lx_office_conf{system}->{language});
- $::form = Form->new;
- %::called_subs = ();
+ $::cgi = CGI->new('');
+ $::locale = Locale->new($::lx_office_conf{system}->{language});
+ $::form = Form->new;
+ %::called_subs = ();
$::instance_conf = SL::InstanceConfiguration->new;
my $session_result = $::auth->restore_session;
return $self->{interface} =~ m/f(?:ast)cgi/i ? $self->{request}->GetHandles() : (\*STDIN, \*STDOUT, \*STDERR);
}
-sub _init_environment {
- my %key_map = ( lib => { name => 'PERL5LIB', append_path => 1 },
- path => { name => 'PATH', append_path => 1 },
- );
- my $cfg = $::lx_office_conf{environment} || {};
-
- while (my ($key, $value) = each %{ $cfg }) {
- next unless $value;
-
- my $info = $key_map{$key} || {};
- $key = $info->{name} || $key;
-
- if ($info->{append_path}) {
- $value = ':' . $value unless $value =~ m/^:/ || !$ENV{$key};
- $value = $ENV{$key} . $value;
- }
-
- $ENV{$key} = $value;
- }
-}
-
sub _check_for_old_config_files {
my @old_files = grep { -f "config/${_}" } qw(authentication.pl console.conf lx-erp.conf lx-erp-local.conf);
return unless @old_files;