summaryrefslogtreecommitdiffstats
path: root/move/move.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-10-15 14:40:23 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-10-15 14:40:23 +0000
commit2dd15afc7227ce692048869317494df839b9ed02 (patch)
tree265485d36be04fa8aa26d490b8bd5e8539245fd3 /move/move.pm
parent39def6996941bb414d0d6ac9d50ba49933869017 (diff)
downloaddrakx-2dd15afc7227ce692048869317494df839b9ed02.tar
drakx-2dd15afc7227ce692048869317494df839b9ed02.tar.gz
drakx-2dd15afc7227ce692048869317494df839b9ed02.tar.bz2
drakx-2dd15afc7227ce692048869317494df839b9ed02.tar.xz
drakx-2dd15afc7227ce692048869317494df839b9ed02.zip
set move steps, add exitMove step, pass $o to move::init()
Diffstat (limited to 'move/move.pm')
-rw-r--r--move/move.pm13
1 files changed, 13 insertions, 0 deletions
diff --git a/move/move.pm b/move/move.pm
index d10e46822..12c14b7a0 100644
--- a/move/move.pm
+++ b/move/move.pm
@@ -16,6 +16,7 @@ my @ALLOWED_LANGS = qw(en_US fr es it de);
#- were not necessary to start stage2 itself (there were setup
#- by stage1 of course)
sub init {
+ my ($o) = @_;
#- rw things
mkdir "/$_" foreach qw(home mnt root etc var);
mkdir_p "/var/$_" foreach qw(log run/console spool lib/xkb lock/subsys);
@@ -43,10 +44,22 @@ sub init {
run_program::run('/sbin/devfsd', '/dev');
modules::load_category('multimedia/sound');
+
+ $o->{steps}{exitMove} = { reachable => 1 };
+ $o->{orderedSteps} = qw(selectLanguage acceptLicense selectMouse selectKeyboard exitMove);
member($_, @ALLOWED_LANGS) or delete $lang::langs{$_} foreach keys %lang::langs;
}
+sub exit() {
+ 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');
+}
sub automatic_xconf {
my ($o) = @_;