summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2000-09-01 23:38:41 +0000
committerdamien <damien@mandriva.com>2000-09-01 23:38:41 +0000
commit762713ce55cadc5cac597cbe5ea4e26f4f76fb9c (patch)
tree8ad1126391668afcbe389da25eed4638a857e160 /perl-install/any.pm
parent863a0345a2f895d35046f35d97f473e825906687 (diff)
downloaddrakx-762713ce55cadc5cac597cbe5ea4e26f4f76fb9c.tar
drakx-762713ce55cadc5cac597cbe5ea4e26f4f76fb9c.tar.gz
drakx-762713ce55cadc5cac597cbe5ea4e26f4f76fb9c.tar.bz2
drakx-762713ce55cadc5cac597cbe5ea4e26f4f76fb9c.tar.xz
drakx-762713ce55cadc5cac597cbe5ea4e26f4f76fb9c.zip
autologin update. It should work
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 132e72831..dbe72b38e 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -241,11 +241,14 @@ sub setAutologin {
my $t1 = "USER=";
my $t2 = "EXEC=";
my $t3 = "AUTOLOGIN=";
+ $wm=uc($wm);
substInFile { s/^(\Q$t1\E|\Q$t2\E|\Q$t3\E).*\n//; $_ .= "$t1$user\n$t2$exe\n$t3=$flag" if eof } $f;
`chmod 644 $f`;
local *F;
open F, ">$prefix/etc/sysconfig/desktop" or die "Can't open $!";
- print F "$wm";
+ print F <<END;
+$wm
+END
}