Revision 57a728bd
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| scripts/task_server.pl | ||
|---|---|---|
| 41 | 41 |
our %lx_office_conf; |
| 42 | 42 |
|
| 43 | 43 |
sub lxinit {
|
| 44 |
my $login = $lx_office_conf{task_server}->{login};
|
|
| 44 |
my $login = $lx_office_conf{task_server}->{login};
|
|
| 45 |
my $client = $lx_office_conf{task_server}->{client};
|
|
| 45 | 46 |
|
| 46 | 47 |
package main; |
| 47 | 48 |
|
| ... | ... | |
| 49 | 50 |
$::locale = Locale->new($::lx_office_conf{system}->{language});
|
| 50 | 51 |
$::form = Form->new; |
| 51 | 52 |
$::auth = SL::Auth->new; |
| 53 |
die "No client configured or no client found with the name/ID '$client'" unless $::auth->set_client($client); |
|
| 52 | 54 |
$::instance_conf = SL::InstanceConfiguration->new; |
| 53 | 55 |
$::request = { cgi => CGI->new({}) };
|
| 54 | 56 |
|
| ... | ... | |
| 95 | 97 |
|
| 96 | 98 |
SL::LxOfficeConf->read($self->{configfile});
|
| 97 | 99 |
|
| 98 |
die "Missing section [task_server] in config file" unless $lx_office_conf{task_server};
|
|
| 99 |
die "Missing key 'login' in section [task_server] in config file" unless $lx_office_conf{task_server}->{login};
|
|
| 100 |
die "Missing section [task_server] in config file" unless $lx_office_conf{task_server};
|
|
| 101 |
die "Missing key 'login' in section [task_server] in config file" unless $lx_office_conf{task_server}->{login};
|
|
| 102 |
die "Missing key 'client' in section [task_server] in config file" unless $lx_office_conf{task_server}->{client};
|
|
| 100 | 103 |
|
| 101 | 104 |
drop_privileges(); |
| 102 | 105 |
lxinit(); |
Auch abrufbar als: Unified diff
Task-Server mandantenfähig gemacht