Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision db7dbf26

Von Moritz Bunkus vor etwa 12 Jahren hinzugefügt

Task-Server: PID-File nur aus relativem Konfigurationsdateinamen ableiten

Unterschiede anzeigen:

SL/System/TaskServer.pm
20 20 
  ERR_PROCESS  => -2,
21 21 
};
22 22 

  		




  
  23
  
    
use constant PID_BASE => "users/pid";


  		




  
  24
  
    

  		




  23
  25
  
    
sub status {


  		




  24
  26
  
    
  my ($self) = @_;


  		




  25
  27
  
    

  		




  ......




  65
  67
  
    
  my $exe_dir = SL::System::Process->exe_dir;


  		




  66
  68
  
    

  		




  67
  69
  
    
  foreach my $conf (qw(kivitendo.conf lx_office.conf kivitendo.conf.default)) {


  		




  68
  
  
    
    my $pid_file_name = join '.', splitdir($exe_dir), "config.${conf}.pid";


  		




  69
  
  
    
    my $pid_file_path = catfile(catdir($exe_dir, 'users', 'pid'), $pid_file_name);


  		




  
  70
  
    
    my $pid_file_path = catfile(catdir($exe_dir, splitdir(PID_BASE())), "config.${conf}.pid");


  		




  70
  71
  
    

  		




  71
  72
  
    
    return join('', read_file($pid_file_path)) * 1 if -f $pid_file_path;


  		




  72
  73
  
    
  }


  		












Auch abrufbar als:  Unified diff