blob: 0f6051bf06135b3e787d5b653f27fc418e864c52 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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;
}
}
|
