Initial revisionoxygentopic/mandrake

1 files changed, 17 insertions, 0 deletions

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;
+    }
+}