From f9df61e55cd55571923eaa5be8a04ab5ae87fd22 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 3 May 2000 14:21:34 +0000 Subject: no_comment --- perl-install/services.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'perl-install/services.pm') 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; } -- cgit v1.2.1