Revision 57a728bd
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| config/kivitendo.conf.default | ||
|---|---|---|
| 166 | 166 |
openofficeorg_daemon_port = 2002 |
| 167 | 167 |
|
| 168 | 168 |
[task_server] |
| 169 |
# User name to use for database access |
|
| 169 |
# kivitendo client (either its name or its database ID) for database |
|
| 170 |
# access (both 'client' and 'login' are required) |
|
| 171 |
client = |
|
| 172 |
# kivitendo user (login) name to use for certain jobs (both 'client' |
|
| 173 |
# and 'login' are required) |
|
| 170 | 174 |
login = |
| 171 | 175 |
# Set to 1 for debug messages in /tmp/kivitendo-debug.log |
| 172 | 176 |
debug = 0 |
| 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