summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-09-02 09:29:39 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-09-02 09:29:39 +0000
commit66ab727e0b9ab6599fd6b05f6a40700d653e571e (patch)
tree9b785e5d6c865f89a3006e5b82aef0b6bcab64be /perl-install/any.pm
parentd4d79ddc38cdfb4427f74d79655037884fb1da63 (diff)
downloaddrakx-66ab727e0b9ab6599fd6b05f6a40700d653e571e.tar
drakx-66ab727e0b9ab6599fd6b05f6a40700d653e571e.tar.gz
drakx-66ab727e0b9ab6599fd6b05f6a40700d653e571e.tar.bz2
drakx-66ab727e0b9ab6599fd6b05f6a40700d653e571e.tar.xz
drakx-66ab727e0b9ab6599fd6b05f6a40700d653e571e.zip
- libDrakX:
o handle KDE4 in running_window_manager() and ask_window_manager_to_logout()
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index e5d62371f..a8a10bb8f 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -1300,7 +1300,7 @@ sub monitor_full_edid() {
}
sub running_window_manager() {
- my @window_managers = qw(kwin gnome-session icewm wmaker afterstep fvwm fvwm2 fvwm95 mwm twm enlightenment xfce blackbox sawfish olvwm fluxbox compiz);
+ my @window_managers = qw(ksmserver kwin gnome-session icewm wmaker afterstep fvwm fvwm2 fvwm95 mwm twm enlightenment xfce blackbox sawfish olvwm fluxbox compiz);
foreach (@window_managers) {
my @pids = fuzzy_pidofs(qr/\b$_\b/) or next;
@@ -1313,6 +1313,7 @@ sub ask_window_manager_to_logout {
my ($wm) = @_;
my %h = (
+ 'ksmserver' => 'qdbus org.kde.ksmserver /KSMServer logout 0 0 0',
'kwin' => "dcop kdesktop default logout",
'gnome-session' => "gnome-session-save --kill",
'icewm' => "killall -QUIT icewm",
@@ -1322,7 +1323,7 @@ sub ask_window_manager_to_logout {
#- NB: consolehelper does not destroy $HOME whereas kdesu does
#- for gnome, we use consolehelper, so below works
$ENV{ICEAUTHORITY} ||= "$ENV{HOME}/.ICEauthority";
- } elsif ($wm eq 'kwin' && $> == 0) {
+ } elsif (member($wm, 'ksmserver', 'kwin') && $> == 0) {
#- we can not use dcop when we are root
$cmd = "su $ENV{USER} -c '$cmd'";
}