diff options
| author | damien <damien@mandriva.com> | 2001-03-11 23:01:56 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-03-11 23:01:56 +0000 |
| commit | 7534204577815b5414b4792726249274c3098dc8 (patch) | |
| tree | 34f8499316439f180794fb941527c6de87b0487f /perl-install/services.pm | |
| parent | aec41af856ea95b29a81e7007b2af10f60e8a393 (diff) | |
| download | drakx-backup-do-not-use-7534204577815b5414b4792726249274c3098dc8.tar drakx-backup-do-not-use-7534204577815b5414b4792726249274c3098dc8.tar.gz drakx-backup-do-not-use-7534204577815b5414b4792726249274c3098dc8.tar.bz2 drakx-backup-do-not-use-7534204577815b5414b4792726249274c3098dc8.tar.xz drakx-backup-do-not-use-7534204577815b5414b4792726249274c3098dc8.zip | |
no more restart button
Diffstat (limited to 'perl-install/services.pm')
| -rw-r--r-- | perl-install/services.pm | 6 |
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), |