Revision 27e80751
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| SL/Controller/Base.pm | ||
|---|---|---|
| 65 | 65 |
} |
| 66 | 66 |
|
| 67 | 67 |
my %params = ( %locals, |
| 68 |
AUTH => $::auth, |
|
| 69 |
FLASH => $::form->{FLASH},
|
|
| 70 |
FORM => $::form, |
|
| 68 |
AUTH => $::auth,
|
|
| 69 |
FLASH => $::form->{FLASH},
|
|
| 70 |
FORM => $::form,
|
|
| 71 | 71 |
INSTANCE_CONF => $::instance_conf, |
| 72 |
LOCALE => $::locale, |
|
| 73 |
LXCONFIG => \%::lx_office_conf, |
|
| 74 |
LXDEBUG => $::lxdebug, |
|
| 75 |
MYCONFIG => \%::myconfig, |
|
| 76 |
SELF => $self, |
|
| 72 |
LOCALE => $::locale,
|
|
| 73 |
LXCONFIG => \%::lx_office_conf,
|
|
| 74 |
LXDEBUG => $::lxdebug,
|
|
| 75 |
MYCONFIG => \%::myconfig,
|
|
| 76 |
SELF => $self,
|
|
| 77 | 77 |
); |
| 78 | 78 |
|
| 79 | 79 |
my $output; |
| SL/Dispatcher.pm | ||
|---|---|---|
| 169 | 169 |
|
| 170 | 170 |
$self->unrequire_bin_mozilla; |
| 171 | 171 |
|
| 172 |
$::cgi = CGI->new('');
|
|
| 173 |
$::locale = Locale->new($::lx_office_conf{system}->{language});
|
|
| 174 |
$::form = Form->new; |
|
| 175 |
%::called_subs = (); |
|
| 172 |
$::cgi = CGI->new('');
|
|
| 173 |
$::locale = Locale->new($::lx_office_conf{system}->{language});
|
|
| 174 |
$::form = Form->new;
|
|
| 175 |
%::called_subs = ();
|
|
| 176 | 176 |
$::instance_conf = SL::InstanceConfiguration->new; |
| 177 | 177 |
|
| 178 | 178 |
my $session_result = $::auth->restore_session; |
| scripts/console | ||
|---|---|---|
| 60 | 60 |
|
| 61 | 61 |
package main; |
| 62 | 62 |
|
| 63 |
$::lxdebug = LXDebug->new(file => $debug_file); |
|
| 64 |
$::locale = Locale->new($::lx_office_conf{system}->{language});
|
|
| 65 |
$::cgi = CGI->new qw(); |
|
| 66 |
$::form = Form->new; |
|
| 67 |
$::auth = SL::Auth->new; |
|
| 63 |
$::lxdebug = LXDebug->new(file => $debug_file);
|
|
| 64 |
$::locale = Locale->new($::lx_office_conf{system}->{language});
|
|
| 65 |
$::cgi = CGI->new qw();
|
|
| 66 |
$::form = Form->new;
|
|
| 67 |
$::auth = SL::Auth->new;
|
|
| 68 | 68 |
$::instance_conf = SL::InstanceConfiguration->new; |
| 69 | 69 |
|
| 70 | 70 |
die 'cannot reach auth db' unless $::auth->session_tables_present; |
Auch abrufbar als: Unified diff
Kosmetik