summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone/drakedm8
1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/standalone/drakedm b/perl-install/standalone/drakedm
index 9106dd051..286437bf2 100644
--- a/perl-install/standalone/drakedm
+++ b/perl-install/standalone/drakedm
@@ -35,12 +35,17 @@ my %dm = ('GNOME' => [ 'GDM (GNOME Display Manager)', '/usr/bin/gdm', 'gdm' ],
'XDM' => [ 'XDM (X Display Manager)', '/usr/bin/X11/xdm', 'XFree86' ],
);
-my $dm = 'KDE';
+my $dm;
foreach (cat_($cfg_file)) {
$dm = uc($1) if /^DISPLAYMANAGER=(.*)$/;
}
+if (!$dm) {
+ $dm = 'KDE';
+ log::explanations("defaulting to $dm for display manager")
+}
+
my @raw_list = sort keys %dm;
my @list = $::expert ? @raw_list : (grep { -e $dm{$_}->[1] } @raw_list) or @raw_list;
@@ -67,6 +72,7 @@ several different X sessions on your local machine at the same time.")),
s/^\n//g;
$_ .= "\nDISPLAYMANAGER=$dm\n" if eof;
} $cfg_file;
+ log::explanations("display manager is now $dm");
if (any::running_window_manager()) {
$in->ask_okcancel('', N("The change is done, do you want to restart the dm service ?"), 1) and services::restart("dm");
}