summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-08-10 23:53:18 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-08-10 23:53:18 +0000
commitba2e9575a26cb1c9a81ef5d1303422f862d5e019 (patch)
tree14240b5d02125b97c1e8c6279573f4fe200cb173 /perl-install/any.pm
parent5f78b9376156a4c9d9cec4e8c630a632c4402fea (diff)
downloaddrakx-backup-do-not-use-ba2e9575a26cb1c9a81ef5d1303422f862d5e019.tar
drakx-backup-do-not-use-ba2e9575a26cb1c9a81ef5d1303422f862d5e019.tar.gz
drakx-backup-do-not-use-ba2e9575a26cb1c9a81ef5d1303422f862d5e019.tar.bz2
drakx-backup-do-not-use-ba2e9575a26cb1c9a81ef5d1303422f862d5e019.tar.xz
drakx-backup-do-not-use-ba2e9575a26cb1c9a81ef5d1303422f862d5e019.zip
use $::prefix instead of passing $prefix to functions
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm49
1 files changed, 23 insertions, 26 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index b8a096c37..c1ea5301d 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -23,30 +23,28 @@ sub drakx_version() {
sprintf "DrakX v%s built %s", $::testing ? ('TEST', scalar gmtime()) : (split('/', cat_("$ENV{SHARE_PATH}/VERSION")))[2,3];
}
-sub facesdir {
- my ($prefix) = @_;
- "$prefix/usr/share/mdk/faces/";
+sub facesdir() {
+ "$::prefix/usr/share/mdk/faces/";
}
sub face2png {
- my ($face, $prefix) = @_;
- facesdir($prefix) . $face . ".png";
+ my ($face) = @_;
+ facesdir() . $face . ".png";
}
-sub facesnames {
- my ($prefix) = @_;
- my $dir = facesdir($prefix);
+sub facesnames() {
+ my $dir = facesdir();
my @l = grep { /^[A-Z]/ } all($dir);
map { if_(/(.*)\.png/, $1) } (@l ? @l : all($dir));
}
sub addKdmIcon {
- my ($prefix, $user, $icon) = @_;
- my $dest = "$prefix/usr/share/faces/$user.png";
- eval { cp_af(facesdir($prefix) . $icon . ".png", $dest) } if $icon;
+ my ($user, $icon) = @_;
+ my $dest = "$::prefix/usr/share/faces/$user.png";
+ eval { cp_af(facesdir() . $icon . ".png", $dest) } if $icon;
}
sub allocUsers {
- my ($prefix, $users) = @_;
- my @m = my @l = facesnames($prefix);
+ my ($users) = @_;
+ my @m = my @l = facesnames();
foreach (grep { !$_->{icon} || $_->{icon} eq "automagic" } @$users) {
$_->{auto_icon} = splice(@m, rand(@m), 1); #- known biased (see cookbook for better)
log::l("auto_icon is $_->{auto_icon}");
@@ -55,12 +53,12 @@ sub allocUsers {
}
sub addUsers {
- my ($prefix, $users) = @_;
+ my ($users) = @_;
- allocUsers($prefix, $users);
+ allocUsers($users);
foreach my $u (@$users) {
- run_program::rooted($prefix, "usermod", "-G", join(",", @{$u->{groups}}), $u->{name}) if !is_empty_array_ref($u->{groups});
- addKdmIcon($prefix, $u->{name}, delete $u->{auto_icon} || $u->{icon});
+ run_program::rooted($::prefix, "usermod", "-G", join(",", @{$u->{groups}}), $u->{name}) if !is_empty_array_ref($u->{groups});
+ addKdmIcon($u->{name}, delete $u->{auto_icon} || $u->{icon});
}
}
@@ -516,9 +514,8 @@ sub writeandclean_ldsoconf {
uniq cat_($file), "/usr/X11R6/lib\n";
}
-sub shells {
- my ($prefix) = @_;
- grep { -x "$prefix$_" } chomp_(cat_("$prefix/etc/shells"));
+sub shells() {
+ grep { -x "$::prefix$_" } chomp_(cat_("$::prefix/etc/shells"));
}
sub inspect {
@@ -548,11 +545,11 @@ sub inspect {
}
sub ask_users {
- my ($prefix, $in, $users, $security) = @_;
+ my ($in, $users, $security) = @_;
my $u if 0; $u ||= {};
- my @icons = facesnames($prefix);
+ my @icons = facesnames();
my %high_security_groups = (
xgrp => N("access to X programs"),
@@ -598,9 +595,9 @@ sub ask_users {
{ label => N("User name"), val => \$u->{name} },
{ label => N("Password"),val => \$u->{password}, hidden => 1 },
{ label => N("Password (again)"), val => \$u->{password2}, hidden => 1 },
- { label => N("Shell"), val => \$u->{shell}, list => [ shells($prefix) ], not_edit => !$::expert, advanced => 1 },
+ { label => N("Shell"), val => \$u->{shell}, list => [ shells() ], not_edit => !$::expert, advanced => 1 },
if_($security <= 3 && @icons,
- { label => N("Icon"), val => \ ($u->{icon} ||= 'man'), list => \@icons, icon2f => sub { face2png($_[0], $prefix) }, format => \&translate },
+ { label => N("Icon"), val => \ ($u->{icon} ||= 'man'), list => \@icons, icon2f => \&face2png, format => \&translate },
),
if_($security > 3,
map {
@@ -728,7 +725,7 @@ sub selectCountry {
}
sub write_passwd_user {
- my ($prefix, $u, $isMD5) = @_;
+ my ($u, $isMD5) = @_;
$u->{pw} = $u->{password} ? &crypt($u->{password}, $isMD5) : $u->{pw} || '';
$u->{shell} ||= '/bin/bash';
@@ -743,7 +740,7 @@ sub write_passwd_user {
if (eof && $u->{name}) {
$_ .= pack_passwd($u);
}
- } "$prefix/etc/passwd";
+ } "$::prefix/etc/passwd";
}
sub set_login_serial_console {