summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-23 17:57:03 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-23 17:57:03 +0000
commit94bec14e16b9f0364018d08beb2fbf3dfc91267d (patch)
tree718a25d87d998ed2075518a806e05e6e46c27d5b /perl-install/install_steps.pm
parent9c7df16fb5bd54f1b475ada02808e35a404ed1ce (diff)
downloaddrakx-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar
drakx-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar.gz
drakx-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar.bz2
drakx-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar.xz
drakx-94bec14e16b9f0364018d08beb2fbf3dfc91267d.zip
no_comment
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm12
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";
}
#------------------------------------------------------------------------------