diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/NEWS | 3 | ||||
| -rw-r--r-- | 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 { |