From b2bd459c94eae41860a33f3a69a4f4d50b6fa1c7 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 5 Jan 2000 22:38:55 +0000
Subject: no_comment

---
 sbin/kdeDesktopCleanup | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'sbin/kdeDesktopCleanup')

diff --git a/sbin/kdeDesktopCleanup b/sbin/kdeDesktopCleanup
index 866c5ec..f00e44b 100755
--- a/sbin/kdeDesktopCleanup
+++ b/sbin/kdeDesktopCleanup
@@ -5,7 +5,7 @@
 @dirs = (qw(/etc/skel /root), glob("/home/*"));
 @path = split ":", "/sbin:/usr/sbin:/usr/X11R6/bin:/bin:/usr/bin";
 
-foreach $f (map { glob("$_/Desktop/*.kdelnk") } @dirs) {
+foreach $f (map { grep { /\.kdelnk$/ } all("$_/Desktop") } @dirs) {
     open F, $f or next;
     L: foreach (<F>) {
 	  $_ = "Exec=linuxconf" if $f =~ /linuxconf/i; # hack
@@ -17,3 +17,13 @@ foreach $f (map { glob("$_/Desktop/*.kdelnk") } @dirs) {
 	  last;
     }
 }
+
+sub all {
+    my $d = shift;
+    local *F;
+    opendir F, $d or die "all: can't open dir $d: $!\n";
+    my @l = grep { $_ ne '.' && $_ ne '..' } readdir F;
+    closedir F;
+
+    map { "$d/$_" } @l;
+}
-- 
cgit v1.2.1