aboutsummaryrefslogtreecommitdiffstats
path: root/sbin
diff options
context:
space:
mode:
Diffstat (limited to 'sbin')
-rwxr-xr-xsbin/kdeDesktopCleanup17
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;
+ }
+}