/usr/bin/chkdupexe is in util-linux 2.20.1-1ubuntu3.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 | #!/usr/bin/perl -w
#
# chkdupexe version 2.1.1
#
# Simple script to look for and list duplicate executables and dangling
# symlinks in the system executable directories.
#
# Copyright 1993 Nicolai Langfeldt. janl@math.uio.no
# Distribute under gnu copyleft (included in perl package)
#
# Modified 1995-07-04 Michael Shields <shields@tembel.org>
# Don't depend on GNU ls.
# Cleanups.
# Merge together $ENV{'PATH'} and $execdirs.
# Don't break if there are duplicates in $PATH.
#
# Modified 1996-02-16 Nicolai Langfeldt (janl@math.uio.no).
# I was thinking admins would edit the $execdirs list to suit their
# machine(s) when I wrote this. This is ofcourse not the case, thus
# Michaels fixes. And my fixes to his :-)
# - Working duplicate dirs detection.
# - Added more checks
# - Took out $PATH from the list of checked directories and added a
# check for $execdirs and $PATH consistency instead
# - Made it possible to run with perl -w
$execdirs='/bin /sbin /usr/bin /usr/sbin /usr/local/bin /usr/local/sbin '.
'/usr/X11/bin /usr/bin/X11 /usr/local/X11/bin '.
'/usr/TeX/bin /usr/tex/bin /usr/games '.
'/usr/local/games';
# Turn off buffering for the output channel.
$|=1;
# Values from /usr/include/linux/errno.h. Existence of linux/errno.ph is not
# something to count on... :-(
$ENOENT=2;
%didthis=();
foreach $dir (split(/\s+/, "$execdirs"), "\0", split(/:/, $ENV{PATH})) {
if ($dir eq "\0") { $checkingpath = 1; next; }
# It's like this: One directory corresponds to one $device,$inode tuple
# If a symlink points to a directory we already checked that directory
# will have the same $device,$inode tuple.
# Does this directory have any real exstence outside the ravings of
# symlinks pointing hither and dither?
($device,$inode)=stat($dir);
if (!defined($device)) {
# Nonexistant directory, or dangling symlink?
($dum)=lstat($dir);
next if $! == $ENOENT;
if (!$dum) {
print "Dangling symlink: $dir\n";
next;
}
warn "Nonexistent directory: $dir\n" if ($checkingpath);
next;
}
if (!-d _) {
print "Not a directory: $dir\n";
next;
}
next if defined($didthis{$device,$inode});
$didthis{$device,$inode}=1;
chdir($dir) || die "Could not chdir $dir: $!\n";
# This would give us the true directory name, do we want that?
# chop($dir=`pwd`);
opendir(DIR,".") ||
die "NUTS! Personaly I think your perl or filesystem is broken.\n".
"I've done all sorts of checks on $dir, and now I can't open it!\n";
foreach $_ (readdir(DIR)) {
lstat($_);
if (-l _) {
($dum)=stat($_);
print "Dangling symlink: $dir/$_\n" unless defined($dum);
next;
}
next unless -f _ && -x _; # Only handle regular executable files
if (defined($count{$_})) {
$progs{$_}.=" $dir/$_";
$count{$_}++;
} else {
$progs{$_}="$dir/$_";
$count{$_}=1;
}
}
closedir(DIR);
}
open(LS,"| xargs -r ls -ldU");
while (($prog,$paths)=each %progs) {
print LS "$paths\n" if ($count{$prog}>1);
}
close(LS);
exit 0;
@unchecked=();
# Check if the users PATH contains something I've not checked. The site admin
# might want to know about inconsistencies in user PATHs and chkdupexec
# configuration
foreach $dir (split(/:/,$ENV{'PATH'})) {
($device,$inode)=stat($dir);
next unless defined($device);
next if defined($didthis{$device,$inode});
push(@unchecked,$dir);
$didthis{$device,$inode}=1;
}
print "Warning: Your path contains these directories which chkdupexe has not checked:\n",join(',',@unchecked),
".\nPlease review the execdirs list in chkdupexe.\n"
if ($#unchecked>=$[);
|