diff options
| author | damien <damien@mandriva.com> | 2000-09-01 23:38:41 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2000-09-01 23:38:41 +0000 |
| commit | 762713ce55cadc5cac597cbe5ea4e26f4f76fb9c (patch) | |
| tree | 8ad1126391668afcbe389da25eed4638a857e160 /perl-install/any.pm | |
| parent | 863a0345a2f895d35046f35d97f473e825906687 (diff) | |
| download | drakx-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.pm | 5 |
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 } |