summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorColin Guthrie <colin@mageia.org>2012-04-24 20:10:36 +0000
committerColin Guthrie <colin@mageia.org>2012-04-24 20:10:36 +0000
commitf1ff46f7efbdc074536913c617e8af0cebaab1de (patch)
tree181ab3990c03239d68fe4d32d0d225e4f7d78513 /perl-install
parentdfc605d42b22063d49d29cc4a4779f74ce3a9a42 (diff)
downloaddrakx-f1ff46f7efbdc074536913c617e8af0cebaab1de.tar
drakx-f1ff46f7efbdc074536913c617e8af0cebaab1de.tar.gz
drakx-f1ff46f7efbdc074536913c617e8af0cebaab1de.tar.bz2
drakx-f1ff46f7efbdc074536913c617e8af0cebaab1de.tar.xz
drakx-f1ff46f7efbdc074536913c617e8af0cebaab1de.zip
services: Add a couple systemd untility functions.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/services.pm8
1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm
index ea41eb878..02a9e38c6 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -342,6 +342,14 @@ sub doit {
}
}
+sub running_systemd() {
+ run_program::rooted($::prefix, '/bin/mountpoint', '-q', '/sys/fs/cgroup/systemd');
+}
+
+sub has_systemd() {
+ run_program::rooted($::prefix, '/bin/rpm', '-q', 'systemd-sysvinit');
+}
+
sub xinetd_services() {
local $ENV{LANGUAGE} = 'C';
my @xinetd_services;