From b2bd459c94eae41860a33f3a69a4f4d50b6fa1c7 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 5 Jan 2000 22:38:55 +0000 Subject: no_comment --- sbin/kdeDesktopCleanup | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'sbin/kdeDesktopCleanup') diff --git a/sbin/kdeDesktopCleanup b/sbin/kdeDesktopCleanup index 866c5ec..f00e44b 100755 --- a/sbin/kdeDesktopCleanup +++ b/sbin/kdeDesktopCleanup @@ -5,7 +5,7 @@ @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) { +foreach $f (map { grep { /\.kdelnk$/ } all("$_/Desktop") } @dirs) { open F, $f or next; L: foreach () { $_ = "Exec=linuxconf" if $f =~ /linuxconf/i; # hack @@ -17,3 +17,13 @@ foreach $f (map { glob("$_/Desktop/*.kdelnk") } @dirs) { 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