summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakxservices
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakxservices')
-rwxr-xr-xperl-install/standalone/drakxservices8
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/standalone/drakxservices b/perl-install/standalone/drakxservices
index b5b830bad..293813893 100755
--- a/perl-install/standalone/drakxservices
+++ b/perl-install/standalone/drakxservices
@@ -8,13 +8,17 @@ use standalone;
use services;
use log;
+$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
+
local $_ = join '', @ARGV;
/-h/ and die "usage: drakxservices\n";
my $in = vnew interactive('su');
+begin:
my $l = services::ask($in);
services::doit($in, $l) if $l;
-
-$in->exit(0);
+!$::isEmbedded and $in->exit(0);
+kill USR1, $::CCPID;
+goto begin;