Jean-Philippe Pialasse
8e4fd3be1e
- fix 3 regressions from SME10 [SME: 12654] fix www missing from shared and few groups [SME: 12146] fix group deletion leaves mail spool file [SME: 12431] fix path to /etc/systemd for seeking service files [SME: 12421]
21 lines
917 B
Plaintext
21 lines
917 B
Plaintext
{
|
|
|
|
foreach my $service ($c->get_all_by_prop(type => 'service')){
|
|
my $status = $service->prop('status') || 'enabled';
|
|
my $servicename = $service->prop('SystemdUnit') || $service->key . ".service" || "";
|
|
next unless $servicename || $servicename eq ".service";
|
|
$status = ($status eq "enabled") ? "enable" : "disable";
|
|
unless ( $service->key ~~ @list ) {
|
|
$status = "disable" if -e "/etc/rc.d/init.d/".$service->key || -e "/etc/rc.d/init.d/supervise/".$service->key;
|
|
}
|
|
my $multiple = $servicename;
|
|
($multiple = $servicename ) =~ s/([a-zA-Z0-9\-_.]+@)(.*)/$1.service/ if ( $servicename =~ /@/ );
|
|
|
|
$OUT .= "# Systemd service file does not exist : " unless -e "/usr/lib/systemd/system/$servicename" || -e "/etc/systemd/system/$servicename" || -e "/usr/lib/systemd/system/$multiple";
|
|
$OUT .= "$status $servicename\n";
|
|
$OUT .= "$status $multiple\n" unless $multiple eq $servicename ;
|
|
|
|
}
|
|
|
|
}
|