diff options
| author | damien <damien@mandriva.com> | 2001-03-10 05:19:37 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-03-10 05:19:37 +0000 |
| commit | 8fecbf9c5c028f6319fbe135c4f779b2ab83f7fd (patch) | |
| tree | e7a3108722bc5663e05fbe999a456cfa954e4c33 /perl-install/standalone/drakxservices | |
| parent | 2fd68de5b1feaa0592c0af63ddf7ea2bd54b1e41 (diff) | |
| download | drakx-8fecbf9c5c028f6319fbe135c4f779b2ab83f7fd.tar drakx-8fecbf9c5c028f6319fbe135c4f779b2ab83f7fd.tar.gz drakx-8fecbf9c5c028f6319fbe135c4f779b2ab83f7fd.tar.bz2 drakx-8fecbf9c5c028f6319fbe135c4f779b2ab83f7fd.tar.xz drakx-8fecbf9c5c028f6319fbe135c4f779b2ab83f7fd.zip | |
embedded mode
Diffstat (limited to 'perl-install/standalone/drakxservices')
| -rwxr-xr-x | perl-install/standalone/drakxservices | 8 |
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; |