diff options
| author | damien <damien@mandriva.com> | 2000-08-04 15:23:47 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2000-08-04 15:23:47 +0000 |
| commit | f093421759947c0e1020139c8b0bdb057105c074 (patch) | |
| tree | 05bd8e206496af3b7f0e30ffa54f8c1925e8e292 /perl-install/any.pm | |
| parent | a3d551a6468bd1799197187d185689e3ac9cb4db (diff) | |
| download | drakx-backup-do-not-use-f093421759947c0e1020139c8b0bdb057105c074.tar drakx-backup-do-not-use-f093421759947c0e1020139c8b0bdb057105c074.tar.gz drakx-backup-do-not-use-f093421759947c0e1020139c8b0bdb057105c074.tar.bz2 drakx-backup-do-not-use-f093421759947c0e1020139c8b0bdb057105c074.tar.xz drakx-backup-do-not-use-f093421759947c0e1020139c8b0bdb057105c074.zip | |
updated autologin.
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 52b33a9ad..ec38ba7b1 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -199,4 +199,12 @@ _("Default") => { val => \$default, type => 'bool' }, 1; } +sub setAutologin { + my ($prefix, $user, $wm) = @_; + my $f="$prefix/etc/X11/xdm/xdm_config"; + substInFile { s/^(DisplayManager._0.autoUser).*\n//; $_ .= "DisplayManager._0.autoUser:\t$user\n" if eof } $f; + substInFile { s/^(DisplayManager._0.autoString).*\n//; $_ .= "DisplayManager._0.autoString:\t$wm\n" if eof } $f; + # (dam's) : a patch for gdm is being done. +} + 1; |