summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS2
-rw-r--r--perl-install/any.pm20
-rw-r--r--perl-install/install/NEWS3
3 files changed, 15 insertions, 10 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 3cadbc4de..049d36860 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+- drakautologin:
+ o add support for SDDM (mga#17913)
- drakedm:
o translate SDDM instead of KDM
- filesharelist:
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 529dcb9f3..4615f2b74 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -669,7 +669,7 @@ sub setupBootloader__grub2 {
sub get_autologin() {
my %desktop = getVarsFromSh("$::prefix/etc/sysconfig/desktop");
my $gdm_file = "$::prefix/etc/X11/gdm/custom.conf";
- my $kdm_file = common::read_alternative('kdm4-config');
+ my $sddm_file = "$::prefix/etc/sddm.conf";
my $lightdm_conffile = "$::prefix/etc/lightdm/lightdm.conf.d/50-mageia-autologin.conf";
my $autologin_file = "$::prefix/etc/sysconfig/autologin";
my $desktop = $desktop{DESKTOP} || first(sessions());
@@ -693,9 +693,9 @@ sub get_autologin() {
if ($dm eq "gdm") {
my %conf = read_gnomekderc($gdm_file, 'daemon');
$autologin_user = text2bool($conf{AutomaticLoginEnable}) && $conf{AutomaticLogin};
- } elsif ($dm eq "kdm") {
- my %conf = read_gnomekderc($kdm_file, 'X-:0-Core');
- $autologin_user = text2bool($conf{AutoLoginEnable}) && $conf{AutoLoginUser};
+ } elsif ($dm eq "sddm") {
+ my %conf = read_gnomekderc($sddm_file, 'Autologin');
+ $autologin_user = $conf{User};
} elsif ($dm eq "lightdm") {
my %conf = read_gnomekderc($lightdm_conffile, 'Seat:*');
$autologin_user = text2bool($conf{'#dummy-autologin'}) && $conf{"autologin-user"};
@@ -725,12 +725,12 @@ sub set_autologin {
or return;
}
- #- Configure KDM / MDKKDM
- my $kdm_conffile = common::read_alternative('kdm4-config');
- eval { common::update_gnomekderc_no_create($kdm_conffile, 'X-:0-Core' => (
- AutoLoginEnable => $do_autologin,
- AutoLoginUser => $autologin->{user},
- )) } if -e $kdm_conffile;
+ #- Configure SDDM
+ my $sddm_conffile = "$::prefix/etc/sddm.conf";
+ eval { common::update_gnomekderc_no_create($sddm_conffile, 'Autologin' => (
+ Session => $autologin->{desktop},
+ User => $autologin->{user},
+ )) } if -e $sddm_conffile;
#- Configure GDM
my $gdm_conffile = "$::prefix/etc/X11/gdm/custom.conf";
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 1e40372a1..911423dba 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,6 @@
+- autologin/desktop configuration (shared code):
+ o add support for SDDM (mga#17913)
+
Version 17.53 - 31 July 2016
- bootloader configuration: