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;