summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-03-11 23:01:56 +0000
committerdamien <damien@mandriva.com>2001-03-11 23:01:56 +0000
commit7534204577815b5414b4792726249274c3098dc8 (patch)
tree34f8499316439f180794fb941527c6de87b0487f /perl-install
parentaec41af856ea95b29a81e7007b2af10f60e8a393 (diff)
downloaddrakx-7534204577815b5414b4792726249274c3098dc8.tar
drakx-7534204577815b5414b4792726249274c3098dc8.tar.gz
drakx-7534204577815b5414b4792726249274c3098dc8.tar.bz2
drakx-7534204577815b5414b4792726249274c3098dc8.tar.xz
drakx-7534204577815b5414b4792726249274c3098dc8.zip
no more restart button
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/services.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm
index d336846ca..854f7a5d3 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -97,7 +97,7 @@ sub services {
sub ask {
my ($in, $prefix) = @_;
my ($l, $on_services) = services($prefix);
- ref($in) !~ /gtk/ and return $in->ask_many_from_list("drakxservices",
+ ref($in) !~ /gtk/ || $::isInstall and return $in->ask_many_from_list("drakxservices",
_("Choose which services should be automatically started at boot time"),
{
list => $l,
@@ -151,11 +151,11 @@ sub ask {
}}), "@$on_services" =~ /$service/ )),
map { my $a = $_;
gtkpack__(new Gtk::HBox(0,0), gtksignal_connect(new Gtk::Button(_($a)),
- clicked => sub { my $c = "service $service " . lc($a) . " 2>&1"; local $_=$strip->(`$c`); s/\033\[[^mG]*[mG]//g;
+ clicked => sub { my $c = "service $service " . (lc($a) eq "start" ? "restart" : lc($a)) . " 2>&1"; local $_=$strip->(`$c`); s/\033\[[^mG]*[mG]//g;
($started, $action) = $update_service->($service, $l);
$display->($_);
}
- )) } ("Start", "Stop","Restart")
+ )) } ("Start", "Stop")
]
}
@$l)), 500, 400),