X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/88e5a86ec8d02e0fcc98a3fbefff39f0a6ba1427..f07df483ee9e755f29fe599424a1ba2ed8bcc6b8:/scripts/task_server.pl diff --git a/scripts/task_server.pl b/scripts/task_server.pl index 2460e1b56..ee087dba4 100755 --- a/scripts/task_server.pl +++ b/scripts/task_server.pl @@ -118,7 +118,14 @@ sub gd_run { $::lxdebug->message(0, " Found: " . join(' ', map { $_->package_name } @{ $jobs })) if $config{task_server}->{debug} && @{ $jobs }; - $_->run for @{ $jobs }; + foreach my $job (@{ $jobs }) { + # Provide fresh global variables in case legacy code modifies + # them somehow. + $::locale = Locale->new($::language); + $::form = Form->new; + + $job->run; + } 1; }; @@ -138,7 +145,7 @@ my $pidbase = "${cwd}/users/pid"; mkdir($pidbase) if !-d $pidbase; -newdaemon(configfile => "${cwd}/config/task_server.conf", +newdaemon(configfile => "${cwd}/config/lx_office.conf", progname => 'lx-office-task-server', pidbase => "${pidbase}/", );