aboutsummaryrefslogtreecommitdiffstats
path: root/trunk/sbin/kdeDesktopCleanup
diff options
context:
space:
mode:
Diffstat (limited to 'trunk/sbin/kdeDesktopCleanup')
-rwxr-xr-xtrunk/sbin/kdeDesktopCleanup30
1 files changed, 0 insertions, 30 deletions
diff --git a/trunk/sbin/kdeDesktopCleanup b/trunk/sbin/kdeDesktopCleanup
deleted file mode 100755
index 323dcc5..0000000
--- a/trunk/sbin/kdeDesktopCleanup
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/perl
-# (c) Mandriva, Pixel <pixel@mandriva.com>
-# Copyright under GPL
-
-@dirs = (qw(/etc/skel /root), glob("/home/*"));
-@path = split ":", "/sbin:/usr/sbin:/usr/X11R6/bin:/bin:/usr/bin";
-
-foreach $f (map { grep { /\.kdelnk$/ } eval { all("$_/Desktop") } } @dirs) {
- open F, $f or next;
- L: foreach (<F>) {
- if (/^Exec=(?:kdesu\s+-c\s+)?"?(\S+)/) {
- -x "$_/$1" and last L foreach '', @path;
- } elsif (m|^URL=file:(/.*)|) {
- -e $1 and last;
- } else { next }
- print STDERR "removing $f\n";
- unlink $f;
- 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;
-}