summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-27 12:30:43 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-27 12:30:43 +0000
commit8ec6ca4926221d4a8cf1f4dfb10ada2c601dcdfe (patch)
tree354a4e9ea472441ee66030a40fbe7663f6c33f8e /perl-install/any.pm
parentb11df6721a25cda20db0230ccb913621559199b7 (diff)
downloaddrakx-8ec6ca4926221d4a8cf1f4dfb10ada2c601dcdfe.tar
drakx-8ec6ca4926221d4a8cf1f4dfb10ada2c601dcdfe.tar.gz
drakx-8ec6ca4926221d4a8cf1f4dfb10ada2c601dcdfe.tar.bz2
drakx-8ec6ca4926221d4a8cf1f4dfb10ada2c601dcdfe.tar.xz
drakx-8ec6ca4926221d4a8cf1f4dfb10ada2c601dcdfe.zip
no_comment
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm10
1 files changed, 6 insertions, 4 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 5b2fef5c3..04276b919 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -6,7 +6,9 @@ use strict;
#-######################################################################################
#- misc imports
#-######################################################################################
-use common qw(:file :system :common :functional);
+use common qw(:system :file);
+use commands;
+use run_program;
sub addKdmUsers {
my ($prefix, @users) = @_;
@@ -14,13 +16,13 @@ sub addKdmUsers {
my @u1 = my @users_male = qw(tie default curly);
my @u2 = my @users_female = qw(brunette girl woman-blond);
foreach (@users) {
- my $l = rand() < timezone::sexProb($_->{name}) ? \@u2 : \@u1;
+ my $l = rand() < timezone::sexProb($_) ? \@u2 : \@u1;
my $u = splice(@$l, rand(@$l), 1); #- known biased (see cookbook for better)
- symlink "../../../../icons/user-$u-mdk.xpm", "$prefix/usr/share/apps/kdm/pics/users/$_.xpm";
+ eval { commands::cp "$prefix/usr/share/icons/user-$u-mdk.xpm", "$prefix/usr/share/apps/kdm/pics/users/$_.xpm" };
@u1 = @users_male unless @u1;
@u2 = @users_female unless @u2;
}
- symlinkf "../../../../icons/user-hat-mdk.xpm", "$prefix/usr/share/apps/kdm/pics/users/root.xpm" unless $::isStandalone;
+ eval { commands::cp "-f", "$prefix/usr/share/icons/user-hat-mdk.xpm", "$prefix/usr/share/apps/kdm/pics/users/root.xpm" } unless $::isStandalone;
}
sub addUsers {