From f093421759947c0e1020139c8b0bdb057105c074 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Fri, 4 Aug 2000 15:23:47 +0000
Subject: updated autologin.

---
 perl-install/any.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'perl-install/any.pm')

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;
-- 
cgit v1.2.1