From aca4c306be5e8d757fbac86c9de3f6f3862cc471 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Thu, 8 Feb 2001 10:11:37 +0000
Subject: implemented or updated embedded mode

---
 perl-install/standalone/mousedrake | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/standalone/mousedrake')

diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake
index 1769007dd..aff16a1b6 100755
--- a/perl-install/standalone/mousedrake
+++ b/perl-install/standalone/mousedrake
@@ -10,6 +10,7 @@ use mouse;
 use c;
 require 'dumpvar.pl';
 
+$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
 local $_ = join '', @ARGV;
 
 /-h/ and die "usage: mousedrake [--auto] [--testing]\n";
@@ -19,6 +20,7 @@ $::testing = /-testing/;
 
 my $in = vnew interactive('su');
 
+begin:
 my ($mouse) = mouse::detect() unless $::noauto;
 
 if (!$mouse || !$::auto) {
@@ -45,4 +47,5 @@ $o->{mouse}{device} =
 dumpValue(\$mouse);
 mouse::write_conf($mouse);
 
-$in->exit(0);
+$::isEmbedded ? kill(USR1, $::CCPID) : $in->exit(0);
+goto begin;
-- 
cgit v1.2.1