summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-03-10 05:19:37 +0000
committerdamien <damien@mandriva.com>2001-03-10 05:19:37 +0000
commit8fecbf9c5c028f6319fbe135c4f779b2ab83f7fd (patch)
treee7a3108722bc5663e05fbe999a456cfa954e4c33 /perl-install
parent2fd68de5b1feaa0592c0af63ddf7ea2bd54b1e41 (diff)
downloaddrakx-backup-do-not-use-8fecbf9c5c028f6319fbe135c4f779b2ab83f7fd.tar
drakx-backup-do-not-use-8fecbf9c5c028f6319fbe135c4f779b2ab83f7fd.tar.gz
drakx-backup-do-not-use-8fecbf9c5c028f6319fbe135c4f779b2ab83f7fd.tar.bz2
drakx-backup-do-not-use-8fecbf9c5c028f6319fbe135c4f779b2ab83f7fd.tar.xz
drakx-backup-do-not-use-8fecbf9c5c028f6319fbe135c4f779b2ab83f7fd.zip
embedded mode
Diffstat (limited to 'perl-install')
-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;