Revision 22e5a8bb
Von Moritz Bunkus vor etwa 12 Jahren hinzugefügt
| scripts/task_server.pl | ||
|---|---|---|
| 2 | 2 |
|
| 3 | 3 |
use strict; |
| 4 | 4 |
|
| 5 |
my $exe_dir; |
|
| 6 |
|
|
| 5 | 7 |
BEGIN {
|
| 6 | 8 |
use SL::System::Process; |
| 7 |
my $exe_dir = SL::System::Process::exe_dir;
|
|
| 9 |
$exe_dir = SL::System::Process::exe_dir; |
|
| 8 | 10 |
|
| 9 | 11 |
unshift @INC, "${exe_dir}/modules/override"; # Use our own versions of various modules (e.g. YAML).
|
| 10 | 12 |
push @INC, "${exe_dir}/modules/fallback"; # Only use our own versions of modules if there's no system version.
|
| ... | ... | |
| 112 | 114 |
$::locale = Locale->new($::lx_office_conf{system}->{language});
|
| 113 | 115 |
$::form = Form->new; |
| 114 | 116 |
|
| 117 |
chdir $exe_dir; |
|
| 118 |
|
|
| 115 | 119 |
$job->run; |
| 116 | 120 |
} |
| 117 | 121 |
|
Auch abrufbar als: Unified diff
Task-Server: vor jedem Job in kivitendo-Verzeichnis wechseln