From 3df21f51e247685ff7e62b8122ed20342674f871 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 7 Jan 2000 06:54:23 +0000
Subject: no_comment

---
 sbin/chksession | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'sbin/chksession')

diff --git a/sbin/chksession b/sbin/chksession
index a735c0c..d0bec64 100644
--- a/sbin/chksession
+++ b/sbin/chksession
@@ -85,6 +85,10 @@ $file = $test ? './window-managers' : '/etc/X11/window-managers' unless $file;
 die "$file don't exist\n" unless -r $file;
 $remove ? remove_entry($remove, $file) : parse_file ($file);
 
+sub cat { my ($f) = @_; local *F; open F, $f; join '', <F> }
+my ($e) = cat("/etc/sysconfig/desktop") =~ /(\S+)/;
+@lf = sort { $b =~ /$e/i <=> $a =~ /$e/i } @lf;
+
 if ($kdm) {
   $session="SessionTypes=";
   for(@lf) { $session .= /$lf[-1]/ ? "$_;failsafe;default" : "$_;"  }
-- 
cgit v1.2.1