diff options
| author | damien <damien@mandriva.com> | 2000-08-27 23:43:31 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2000-08-27 23:43:31 +0000 |
| commit | e324fcece8f7e4855c7784bec1f03db95e51b1e5 (patch) | |
| tree | 888e56db4848da0e6c00f81d4e4ac7190249d6f1 /perl-install/any.pm | |
| parent | 899a3aed61d1185731a096ec0ee6e2db05349d21 (diff) | |
| download | drakx-backup-do-not-use-e324fcece8f7e4855c7784bec1f03db95e51b1e5.tar drakx-backup-do-not-use-e324fcece8f7e4855c7784bec1f03db95e51b1e5.tar.gz drakx-backup-do-not-use-e324fcece8f7e4855c7784bec1f03db95e51b1e5.tar.bz2 drakx-backup-do-not-use-e324fcece8f7e4855c7784bec1f03db95e51b1e5.tar.xz drakx-backup-do-not-use-e324fcece8f7e4855c7784bec1f03db95e51b1e5.zip | |
seethechangelog
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 36d7a7f0f..7be45a54b 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -230,12 +230,13 @@ _("Default") => { val => \$default, type => 'bool' }, } sub setAutologin { - my ($prefix, $user, $wm) = @_; - my $f = "$prefix/etc/X11/xdm/xdm-config"; - my $t1 = "DisplayManager._0.autoUser:"; - my $t2 = "DisplayManager._0.autoString:"; - substInFile { s/^(\Q$t1\E|\Q$t2\E).*\n//; $_ .= "$t1\t$user\n$t2\t$wm\n" if eof && $user } $f; - # (dam's) : a patch for gdm is being done. + my ($prefix, $user, $exe, $flag) = @_; + my $f = "$prefix/etc/sysconfig/autologin"; + my $t1 = "USER="; + my $t2 = "EXEC="; + my $t3 = "AUTOLOGIN="; + 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`; } |