Revision a63be3ad
Von Moritz Bunkus vor etwa 12 Jahren hinzugefügt
| SL/System/TaskServer.pm | ||
|---|---|---|
| 61 | 61 |
sub _read_pid {
|
| 62 | 62 |
my ($self) = @_; |
| 63 | 63 |
|
| 64 |
my $exe_dir = SL::System::Process->exe_dir; |
|
| 65 |
my $pid_file_name = join '.', splitdir($exe_dir), 'config.lx_office.conf.pid'; |
|
| 66 |
my $pid_file_path = catfile(catdir($exe_dir, 'users', 'pid'), $pid_file_name); |
|
| 64 |
my $exe_dir = SL::System::Process->exe_dir; |
|
| 67 | 65 |
|
| 68 |
return undef unless -f $pid_file_path; |
|
| 69 |
return join('', read_file($pid_file_path)) * 1;
|
|
| 66 |
foreach my $conf (qw(kivitendo.conf lx_office.conf kivitendo.conf.default)) {
|
|
| 67 |
my $pid_file_name = join '.', splitdir($exe_dir), "config.${conf}.pid";
|
|
| 68 |
my $pid_file_path = catfile(catdir($exe_dir, 'users', 'pid'), $pid_file_name); |
|
| 69 |
|
|
| 70 |
return join('', read_file($pid_file_path)) * 1 if -f $pid_file_path;
|
|
| 71 |
} |
|
| 70 | 72 |
} |
| 71 | 73 |
|
| 72 | 74 |
sub _run_script_command {
|
Auch abrufbar als: Unified diff
Task-Server und -Control-Modul auf neue Konfigurationsdateinamen angepasst