summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-24 00:26:22 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-24 00:26:22 +0000
commit63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5 (patch)
treedb9522b8dc1c02af74c6c5050a58e7fd002bdc55 /perl-install/install_steps.pm
parent685a29887953bf36c2d0dab4e7bce8a64bd8934e (diff)
downloaddrakx-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.tar
drakx-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.tar.gz
drakx-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.tar.bz2
drakx-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.tar.xz
drakx-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.zip
no_comment
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm12
1 files changed, 1 insertions, 11 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 4a252c29b..f57ed6550 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -488,18 +488,8 @@ sub addUser($) {
eval { commands::chown_("-r", "$u->{uid}.$u->{gid}", "$p$u->{home}") }
if $u->{uid} != $u->{oldu} || $u->{gid} != $u->{oldg};
- my $msec = "$o->{prefix}/etc/security/msec";
- substInFile { s/^$u->{name}\n//; $_ .= "$u->{name}\n" if eof } "$msec/user.conf" if -d $msec;
}
- run_program::rooted($o->{prefix}, "/etc/security/msec/init-sh/grpuser.sh --refresh");
-
- my @users = qw(tie brunette default girl woman-blond);
- my @u = @users; push @u, @users while @u < @l; @u = @u[0..$#l];
- foreach (@l) {
- my $u = splice(@u, rand(@u), 1); #- known biased (see cookbook for better)
- symlink "../../../../icons/util-$u.xpm", "$o->{prefix}/usr/share/apps/kdm/pics/users/$_->{name}.xpm";
- }
- symlinkf "../../../../icons/util-hat.xpm", "$o->{prefix}/usr/share/apps/kdm/pics/users/root.xpm";
+ any::addUsers($o->{prefix}, map { $_->{name} } @l);
}
#------------------------------------------------------------------------------