From 63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 24 Dec 1999 00:26:22 +0000 Subject: no_comment --- perl-install/install_steps.pm | 12 +----------- 1 file changed, 1 insertion(+), 11 deletions(-) (limited to 'perl-install/install_steps.pm') 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); } #------------------------------------------------------------------------------ -- cgit v1.2.1