From 8fecbf9c5c028f6319fbe135c4f779b2ab83f7fd Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Sat, 10 Mar 2001 05:19:37 +0000
Subject: embedded mode

---
 perl-install/standalone/drakxservices | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'perl-install')

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;
-- 
cgit v1.2.1