summaryrefslogtreecommitdiffstats
path: root/perl-install/services.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-05-03 14:21:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-05-03 14:21:34 +0000
commitf9df61e55cd55571923eaa5be8a04ab5ae87fd22 (patch)
tree6ed8cdfad01424be5fbf2f3838fbb117ee72fffb /perl-install/services.pm
parentf4017ea2f9cf2452120b8bd072b5c03ef61784c9 (diff)
downloaddrakx-f9df61e55cd55571923eaa5be8a04ab5ae87fd22.tar
drakx-f9df61e55cd55571923eaa5be8a04ab5ae87fd22.tar.gz
drakx-f9df61e55cd55571923eaa5be8a04ab5ae87fd22.tar.bz2
drakx-f9df61e55cd55571923eaa5be8a04ab5ae87fd22.tar.xz
drakx-f9df61e55cd55571923eaa5be8a04ab5ae87fd22.zip
no_comment
Diffstat (limited to 'perl-install/services.pm')
-rw-r--r--perl-install/services.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm
index d43867268..4f3c1d81f 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -95,12 +95,14 @@ sub drakxservices {
mapn {
my ($name, $before, $after) = @_;
if ($before != $after) {
+ my $script = "/etc/rc.d/init.d/$name";
run_program::rooted($prefix, "chkconfig", $after ? "--add" : "--del", $name);
- if ($after && cat_("$prefix/etc/rc.d/init.d/$name") =~ /^#\s+chkconfig:\s+-/m) {
- #- `/sbin/runlevel` =~ /\s(\d+)/ or die "bad runlevel";
- #- $1 == 3 || $1 == 5 or log::l("strange runlevel: ``$1'' (neither 3 nor 5)");
+ if ($after && cat_("$prefix$script") =~ /^#\s+chkconfig:\s+-/m) {
run_program::rooted($prefix, "chkconfig", "--level", "35", $name, "on");
}
+ if (!$after && $::isStandalone) {
+ run_program::rooted($prefix, $script, "stop");
+ }
}
} \@l, \@before, $after;
}