summaryrefslogtreecommitdiffstats
path: root/move/move.pm
diff options
context:
space:
mode:
Diffstat (limited to 'move/move.pm')
-rw-r--r--move/move.pm11
1 files changed, 5 insertions, 6 deletions
diff --git a/move/move.pm b/move/move.pm
index 289b82027..5ef8282c6 100644
--- a/move/move.pm
+++ b/move/move.pm
@@ -94,20 +94,19 @@ Continue at your own risk."), formatError($@) ]) if $@;
run_program::run('/sbin/service', 'syslog', 'start'); #- otherwise minilogd will strike
run_program::run('killall', 'minilogd'); #- get rid of minilogd
- run_program::run('adduser', 'mdk');
-
- output('/var/run/console.lock', 'mdk');
- output('/var/run/console/mdk', 1);
+ my $username = $o->{users}[0]{name};
+ output('/var/run/console.lock', $username);
+ output("/var/run/console/$username", 1);
run_program::run('pam_console_apply');
if (fork()) {
sleep 1;
log::l("DrakX waves bye-bye");
- (undef, undef, my $uid, my $gid, undef, undef, undef, my $home, my $shell) = getpwnam('mdk');
+ (undef, undef, my $uid, my $gid, undef, undef, undef, my $home, my $shell) = getpwnam($username);
$( = $) = "$gid $gid";
$< = $> = $uid;
- $ENV{LOGNAME} = $ENV{USER} = 'mdk';
+ $ENV{LOGNAME} = $ENV{USER} = $username;
$ENV{HOME} = $home;
$ENV{SHELL} = $shell;
exec 'startkde';