From f5bb90ed73e648047508f57f212618dd45825391 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 15 Oct 2003 15:24:34 +0000 Subject: - rename exitMove to startMove - remove the blinks before kde start by relaying the last X connection (using gmessage for now, will use "xtest --wait" later) --- move/move.pm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'move') diff --git a/move/move.pm b/move/move.pm index 640b89d13..39d4cd278 100644 --- a/move/move.pm +++ b/move/move.pm @@ -45,20 +45,24 @@ sub init { modules::load_category('multimedia/sound'); - $o->{steps}{exitMove} = { reachable => 1 }; - $o->{orderedSteps} = [ qw(selectLanguage acceptLicense selectMouse selectKeyboard exitMove) ]; + $o->{steps}{startMove} = { reachable => 1, text => "Start Move" }; + $o->{orderedSteps} = [ qw(selectLanguage acceptLicense selectMouse selectKeyboard startMove) ]; member($_, @ALLOWED_LANGS) or delete $lang::langs{$_} foreach keys %lang::langs; } -sub exit() { +sub install2::startMove { + my ($_o) = @_; run_program::run('adduser', 'mdk'); output('/var/run/console.lock', 'mdk'); output('/var/run/console/mdk', 1); run_program::run('pam_console_apply'); - run_program::run('su', 'mdk', 'startkde'); + fork() or exec 'gmessage', '...' or c::_exit(0); + + sleep 1; + exec 'su', 'mdk', 'startkde'; } sub automatic_xconf { -- cgit v1.2.1