diff options
| author | damien <damien@mandriva.com> | 2001-02-08 10:11:37 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-02-08 10:11:37 +0000 |
| commit | aca4c306be5e8d757fbac86c9de3f6f3862cc471 (patch) | |
| tree | 3f63882e84775916b5aea7a54a2ad142dfc567d8 /perl-install/standalone/mousedrake | |
| parent | 842c74ed3d9e2396cf1fb85f14e34258bbd13cd6 (diff) | |
| download | drakx-aca4c306be5e8d757fbac86c9de3f6f3862cc471.tar drakx-aca4c306be5e8d757fbac86c9de3f6f3862cc471.tar.gz drakx-aca4c306be5e8d757fbac86c9de3f6f3862cc471.tar.bz2 drakx-aca4c306be5e8d757fbac86c9de3f6f3862cc471.tar.xz drakx-aca4c306be5e8d757fbac86c9de3f6f3862cc471.zip | |
implemented or updated embedded mode
Diffstat (limited to 'perl-install/standalone/mousedrake')
| -rwxr-xr-x | perl-install/standalone/mousedrake | 5 |
1 files changed, 4 insertions, 1 deletions
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; |