summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-03-22 15:11:09 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-03-22 15:11:09 +0000
commit82fa84d18ccf844c04ad76e79c4235b9a1325d10 (patch)
treef55b84c415e3dc2c193b10992a424e351374d4b8 /perl-install/any.pm
parent5a25139340c132dd79469911a757e485a5544a75 (diff)
downloaddrakx-82fa84d18ccf844c04ad76e79c4235b9a1325d10.tar
drakx-82fa84d18ccf844c04ad76e79c4235b9a1325d10.tar.gz
drakx-82fa84d18ccf844c04ad76e79c4235b9a1325d10.tar.bz2
drakx-82fa84d18ccf844c04ad76e79c4235b9a1325d10.tar.xz
drakx-82fa84d18ccf844c04ad76e79c4235b9a1325d10.zip
when calling adduser, don't forget {realname} or {home} if we have them (bugzilla #13805)
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 6da456130..5f2fe3511 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -71,6 +71,8 @@ sub create_user {
'adduser',
'-p', authentication::user_crypted_passwd($u, $isMD5),
if_($uid, '-u', $uid), if_($gid, '-g', $gid),
+ if_($u->{realname}, '-c', $u->{realname}),
+ if_($u->{home}, '-d', $u->{home}),
if_($u->{shell}, '-s', $u->{shell}),
$u->{name});
}