summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-02 00:33:14 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-02 00:33:14 +0000
commit99f9df7275444bda7ba09724f8165431393e8dbf (patch)
tree717a4afd8add602b212f323cff604e265063f8c3 /perl-install/any.pm
parent762713ce55cadc5cac597cbe5ea4e26f4f76fb9c (diff)
downloaddrakx-99f9df7275444bda7ba09724f8165431393e8dbf.tar
drakx-99f9df7275444bda7ba09724f8165431393e8dbf.tar.gz
drakx-99f9df7275444bda7ba09724f8165431393e8dbf.tar.bz2
drakx-99f9df7275444bda7ba09724f8165431393e8dbf.tar.xz
drakx-99f9df7275444bda7ba09724f8165431393e8dbf.zip
no_comment
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm46
1 files changed, 23 insertions, 23 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index dbe72b38e..512f753fc 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -17,33 +17,33 @@ use run_program;
use modules;
use log;
-#-PO: names (tie, curly...) have corresponding icons for kdm
-my @users_male = (__("tie"), __("default"), __("curly")); #- don't change the names, files correspond to them
-my @users_female = (__("brunette"), __("girl"), __("woman-blond"));
-@users = (@users_male, @users_female, __("automagic"));
-
-sub icon2file {
- my ($icon, $prefix) = @_;
- "$prefix/usr/share/icons/user-$icon-mdk.xpm";
+sub facesdir {
+ my ($prefix) = @_;
+ "$prefix/usr/share/faces/";
+}
+sub face2xpm {
+ my ($face, $prefix) = @_;
+ facesdir($prefix) . $face . ".xpm";
+}
+sub facesnames {
+ my ($prefix) = @_;
+ my $dir = facesdir($prefix);
+ grep { -e "$dir/$_.png" } map { /(.*)\.xpm/ } all($dir);
}
sub addKdmIcon {
- my ($prefix, $user, $icon, $force) = @_;
- my $dest = "$prefix/usr/share/apps/kdm/pics/users/$user.xpm";
- unlink $dest if $force;
- eval { commands::cp(icon2file($icon, $prefix), $dest) } if $icon;
+ my ($prefix, $user, $icon) = @_;
+ my $dest = "$prefix/usr/share/faces/$user.png";
+ eval { commands::cp("-f", facesdir($prefix) . $icon . ".png", $dest) } if $icon;
}
sub allocUsers {
my ($prefix, @users) = @_;
- require timezone;
- my @u1 = @users_male;
- my @u2 = @users_female;
+ my @m = my @l = facesnames($prefix);
foreach (grep { !$_->{icon} || $_->{icon} eq "automagic" } @users) {
- my $l = rand() < timezone::sexProb($_->{name}) ? \@u2 : \@u1;
- $_->{auto_icon} = splice(@$l, rand(@$l), 1); #- known biased (see cookbook for better)
- @u1 = @users_male unless @u1;
- @u2 = @users_female unless @u2;
+ $_->{auto_icon} = splice(@m, rand(@m), 1); #- known biased (see cookbook for better)
+ log::l("auto_icon is $_->{auto_icon}");
+ @m = @l unless @m;
}
}
@@ -54,10 +54,10 @@ sub addUsers {
allocUsers($prefix, @users);
foreach my $u (@users) {
substInFile { s/^$u->{name}\n//; $_ .= "$u->{name}\n" if eof } "$msec/user.conf" if -d $msec;
- addKdmIcon($prefix, $u->{name}, delete $u->{auto_icon} || $u->{icon}, 'force');
+ addKdmIcon($prefix, $u->{name}, delete $u->{auto_icon} || $u->{icon});
}
run_program::rooted($prefix, "/usr/share/msec/grpuser.sh --refresh");
- addKdmIcon($prefix, 'root', 'hat', 'force');
+# addKdmIcon($prefix, 'root', 'root');
}
sub crypt {
@@ -193,10 +193,10 @@ You can add some more or change the existing ones."),
my @l;
if ($e->{type} eq "image") {
@l = (
-_("Image") => { val => \$e->{kernel_or_dev}, list => [ eval { map { s/$prefix//; $_ } glob_("$prefix/boot/vmlinuz*") } ] },
+_("Image") => { val => \$e->{kernel_or_dev}, list => [ map { s/$prefix//; $_ } glob_("$prefix/boot/vmlinuz*") ] },
_("Root") => { val => \$e->{root}, list => [ map { "/dev/$_->{device}" } @$fstab ], not_edit => !$::expert },
_("Append") => \$e->{append},
-_("Initrd") => { val => \$e->{initrd}, list => [ eval { map { s/$prefix//; $_ } glob_("$prefix/boot/initrd*") } ] },
+_("Initrd") => { val => \$e->{initrd}, list => [ map { s/$prefix//; $_ } glob_("$prefix/boot/initrd*") ] },
_("Read-write") => { val => \$e->{'read-write'}, type => 'bool' }
);
@l = @l[0..5] unless $::expert;