summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-07-12 13:32:27 +0000
committerFrancois Pons <fpons@mandriva.com>2001-07-12 13:32:27 +0000
commite8091c93c6214db0b1596461693848aa29e906e0 (patch)
tree10376c5574d7c9f24f4a6ad6cb1548fcf8fe5f87 /perl-install/any.pm
parentd747300b67e1310fbbf978284d59f1e5c4b5524e (diff)
downloaddrakx-e8091c93c6214db0b1596461693848aa29e906e0.tar
drakx-e8091c93c6214db0b1596461693848aa29e906e0.tar.gz
drakx-e8091c93c6214db0b1596461693848aa29e906e0.tar.bz2
drakx-e8091c93c6214db0b1596461693848aa29e906e0.tar.xz
drakx-e8091c93c6214db0b1596461693848aa29e906e0.zip
fixed bug for writing in /etc/sysconfig/desktop file.
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 496a6651c..793017880 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -76,7 +76,7 @@ sub enableShadow {
run_program::rooted($prefix, "pwconv") or log::l("pwconv failed");
run_program::rooted($prefix, "grpconv") or log::l("grpconv failed");
}
-sub enableMD5Shadow {
+sub enableMD5Shadow { #- NO MORE USED
my ($prefix, $shadow, $md5) = @_;
substInFile {
if (/^password.*pam_pwdb.so/) {
@@ -342,11 +342,12 @@ sub set_autologin {
if ($user) {
my %l = getVarsFromSh("$prefix/etc/sysconfig/desktop");
$l{DESKTOP} = uc($desktop);
- setVarsInSh("$prefix/etc/sysconfig/desktop", %l);
+ setVarsInSh("$prefix/etc/sysconfig/desktop", \%l);
+ log::l("cat $prefix/etc/sysconfig/desktop ($desktop):\n", cat_("$prefix/etc/sysconfig/desktop"));
}
setVarsInSh("$prefix/etc/sysconfig/autologin",
{ USER => $user, AUTOLOGIN => bool2yesno($user), EXEC => "/usr/X11R6/bin/startx" });
- log::l("cat $prefix/etc/sysconfig/autologin: ", cat_("$prefix/etc/sysconfig/autologin"));
+ log::l("cat $prefix/etc/sysconfig/autologin ($user):\n", cat_("$prefix/etc/sysconfig/autologin"));
}
sub rotate_log {
@@ -764,7 +765,8 @@ sub autologin {
_("I can set up your computer to automatically log on one user.
If you don't want to use this feature, click on the cancel button."),
[ { label => _("Choose the default user:"), val => \$o->{autologin}, list => [ '', @users ] },
- { label => _("Choose the window manager to run:"), val => \$o->{desktop}, list => \@wm }, ]) or delete $o->{autologin};
+ { label => _("Choose the window manager to run:"), val => \$o->{desktop}, list => \@wm }, ])
+ or delete $o->{autologin};
}
}