From c18552d7a02dfc62ce43160b58db8ad606085cee Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 21 Feb 2000 17:59:09 +0000
Subject: no_comment

---
 perl-install/standalone/drakxservices | 29 +++--------------------------
 1 file changed, 3 insertions(+), 26 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/drakxservices b/perl-install/standalone/drakxservices
index b551055d6..45270a7e7 100755
--- a/perl-install/standalone/drakxservices
+++ b/perl-install/standalone/drakxservices
@@ -1,9 +1,10 @@
 #!/usr/bin/perl
 
-use lib qw(/usr/lib/libDrakX);
+use lib qw(.);#(/usr/lib/libDrakX);
 
 use common qw(:common :functional :file);
 use interactive;
+use services;
 use log;
 
 local $_ = join '', @ARGV;
@@ -12,30 +13,6 @@ local $_ = join '', @ARGV;
 
 $::isStandalone = 1;
 
-my $in = vnew interactive('su');
-
-my @l = grep { !/\.rpm/ } map { chop; $_ } `cd /etc/rc.d/init.d ; grep -l "chkconfig:" *`;
-my @before = map { bool(@_ = glob("/etc/rc.d/rc*.d/S*$_"))  } @l;
-
-my $after = $in->ask_many_from_list("drakxservices",
-_("Choose which services should be automatically started at boot time"),
-    \@l, \@before);
-
-mapn { 
-    my ($name, $before, $after) = @_;
-    if ($before != $after) {
-	if ($after) {
-	    if (cat_("/etc/rc.d/init.d/$name") =~ /^chkconfig:\s+-/m) {
-		system("chkconfig --add $name");
-	    } else {
-		`/sbin/runlevel` =~ /\s(\d+)/ or die "bad runlevel";
-		$1 == 3 || $1 == 5 or log::l("strange runlevel: ``$1'' (neither 3 nor 5)");
-		system("chkconfig --level $1 $name on");
-	    }
-	} else {
-	    system("chkconfig --del $name");
-	}
-    }
-} \@l, \@before, $after if $after;
+services::drakxservices(my $in = vnew interactive('su'));
 
 $in->exit(0);
-- 
cgit v1.2.1