From 554855919ae7b109801c93c9f6ca212d5c0b6483 Mon Sep 17 00:00:00 2001
From: Mystery Man <unknown@mandriva.org>
Date: Tue, 31 Jul 2001 05:30:56 +0000
Subject: This commit was manufactured by cvs2svn to create branch 'Eazel'.

---
 sbin/kdeDesktopCleanup | 30 ------------------------------
 1 file changed, 30 deletions(-)
 delete mode 100755 sbin/kdeDesktopCleanup

(limited to 'sbin/kdeDesktopCleanup')

diff --git a/sbin/kdeDesktopCleanup b/sbin/kdeDesktopCleanup
deleted file mode 100755
index 1ff6ea0..0000000
--- a/sbin/kdeDesktopCleanup
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/perl
-# (c) MandrakeSoft,  Pixel <pixel@mandrakesoft.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;
-}
-- 
cgit v1.2.1