diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-23 17:57:03 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-23 17:57:03 +0000 |
| commit | 94bec14e16b9f0364018d08beb2fbf3dfc91267d (patch) | |
| tree | 718a25d87d998ed2075518a806e05e6e46c27d5b /perl-install/install_steps.pm | |
| parent | 9c7df16fb5bd54f1b475ada02808e35a404ed1ce (diff) | |
| download | drakx-backup-do-not-use-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar drakx-backup-do-not-use-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar.gz drakx-backup-do-not-use-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar.bz2 drakx-backup-do-not-use-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar.xz drakx-backup-do-not-use-94bec14e16b9f0364018d08beb2fbf3dfc91267d.zip | |
no_comment
Diffstat (limited to 'perl-install/install_steps.pm')
| -rw-r--r-- | perl-install/install_steps.pm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index b5c0650fc..4a252c29b 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -265,8 +265,8 @@ sub afterInstallPackages($) { log::l("updating kde icons according to available devices"); install_any::kdeicons_postinstall($o->{prefix}); - substInFile { s/^(GreetString)=/$1=Welcome to [HOSTNAME]/ } "$o->{prefix}/usr/share/config/kdmrc"; - substInFile { s/(?<=UserView=)false/true/ } "$o->{prefix}/usr/share/config/kdmrc" if $o->{security} < 3; + substInFile { s/^(GreetString)=.*/$1=Welcome to [HOSTNAME]/ } "$o->{prefix}/usr/share/config/kdmrc"; + substInFile { s/^(UserView)=false/$1=true/ } "$o->{prefix}/usr/share/config/kdmrc" if $o->{security} < 3; run_program::rooted($o->{prefix}, "kdeDesktopCleanup"); #- move some file after an upgrade that may be seriously annoying. @@ -492,6 +492,14 @@ sub addUser($) { 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"; } #------------------------------------------------------------------------------ |