From 27a46978e80995b757cdba0d068efb0a1cbfa39f Mon Sep 17 00:00:00 2001
From: Chmouel Boudjnah <chmouel@mandriva.org>
Date: Sun, 19 Dec 1999 18:02:29 +0000
Subject: Initial revision

---
 sbin/kdeDesktopCleanup | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100755 sbin/kdeDesktopCleanup

(limited to 'sbin/kdeDesktopCleanup')

diff --git a/sbin/kdeDesktopCleanup b/sbin/kdeDesktopCleanup
new file mode 100755
index 0000000..0f6051b
--- /dev/null
+++ b/sbin/kdeDesktopCleanup
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+@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) {
+    open F, $f or next;
+    L: foreach (<F>) {
+	  $_ = "Exec=linuxconf" if $f =~ /linuxconf/i; # hack
+
+	  ($l) = /^Exec=(?:kdesu\s+-c\s+)?"?(\S+)/ or next;
+	  -x "$_/$l" and last L foreach '', @path;
+	  print STDERR "removing $f\n";
+	  unlink $f;
+	  last;
+    }
+}
-- 
cgit v1.2.1