From aca4c306be5e8d757fbac86c9de3f6f3862cc471 Mon Sep 17 00:00:00 2001 From: damien Date: Thu, 8 Feb 2001 10:11:37 +0000 Subject: implemented or updated embedded mode --- perl-install/standalone/XFdrake | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'perl-install/standalone/XFdrake') diff --git a/perl-install/standalone/XFdrake b/perl-install/standalone/XFdrake index a7e3c3249..7c3a5d13b 100755 --- a/perl-install/standalone/XFdrake +++ b/perl-install/standalone/XFdrake @@ -25,6 +25,8 @@ use Xconfigurator; use Xconfig; use c; +$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/; + local $_ = join '', @ARGV; /-h/ and die "usage: XFdrake [--xf3] [--beginner] [--expert] [--auto] [--noauto] [--skiptest] [--testing]\n"; @@ -39,6 +41,7 @@ $::noauto = /-noauto/; $::testing = /-testing/; $i->{skiptest} = /-skiptest/; +begin: my $in = interactive->vnew('su'); my $f = "/usr/X11R6/lib/X11/Cards"; @@ -53,4 +56,6 @@ Xconfig::getinfoFromXF86Config($i) if $0 =~ Xdrakres; Xconfig::getinfo($i); Xconfigurator::main('', $i, $in, 0, \&standalone::pkgs_install); -$in->exit(0); +!$::isEmbedded and $in->exit(0); +kill(USR1, $::CCPID); +#goto begin; -- cgit v1.2.1