From 02d1fe768b02bfc3e0babcf9be05224709cebf7a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 26 Jul 2012 10:37:09 +0000
Subject: autologin: support lxdm & slim too (#3715, based on Derek Jennings
 suggestion)

also install autologin for lxdm & slim too
---
 perl-install/NEWS   |  3 +++
 perl-install/any.pm | 10 ++++++++--
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 1cf44c1ee..c7fed68ea 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- autologin:
+  o support lxdm & slim too (#3715, Derek Jennings)
+  o install autologin for lxdm & slim too
 - drakxservices:
   o when listing services ensure disabled services that can be enabled are 
     shown (mga#6843)
diff --git a/perl-install/any.pm b/perl-install/any.pm
index c95ab95fc..c2f7872dc 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -707,6 +707,11 @@ sub get_autologin() {
     { user => $autologin_user, desktop => $desktop, dm => $dm };
 }
 
+sub is_standalone_autologin_needed {
+    my ($dm) = @_;
+    return member($dm, qw(lxdm slim xdm));
+}
+
 sub set_autologin {
     my ($do_pkgs, $autologin) = @_;
     log::l("set_autologin $autologin->{user} $autologin->{desktop}");
@@ -715,7 +720,7 @@ sub set_autologin {
     $autologin->{dm} ||= 'xdm';
     $do_pkgs->ensure_is_installed($autologin->{dm})
       or return;
-    if ($autologin->{user} && $autologin->{dm} eq 'xdm') {
+    if ($autologin->{user} && is_standalone_autologin_needed($autologin->{dm})) {
         $do_pkgs->ensure_is_installed('autologin', '/usr/bin/startx.autologin')
           or return;
     }
@@ -735,7 +740,8 @@ sub set_autologin {
     )) } if -e $gdm_conffile;
 
     my $xdm_autologin_cfg = "$::prefix/etc/sysconfig/autologin";
-    if ($autologin->{dm} eq 'xdm') {
+    # TODO: configure lxdm in /etx/lxdm/lxdm.conf
+    if (is_standalone_autologin_needed($autologin->{dm})) {
 	setVarsInShMode($xdm_autologin_cfg, 0644,
 			{ USER => $autologin->{user}, AUTOLOGIN => bool2yesno($autologin->{user}), EXEC => '/usr/bin/startx.autologin' });
     } else {
-- 
cgit v1.2.1