Permalink
Browse files

chkdupexe: remove, deprecated for years

Signed-off-by: Karel Zak <kzak@redhat.com>
  • Loading branch information...
karelzak committed Mar 14, 2013
1 parent 27abd80 commit 58a3cee647c30ee23c887a1763ab9e4504a1ec88
Showing with 0 additions and 188 deletions.
  1. +0 −2 .gitignore
  2. +0 −6 Documentation/deprecated.txt
  3. +0 −14 configure.ac
  4. +0 −1 misc-utils/.gitignore
  5. +0 −7 misc-utils/Makemodule.am
  6. +0 −38 misc-utils/chkdupexe.1
  7. +0 −120 misc-utils/chkdupexe.pl
View
@@ -67,14 +67,12 @@ tests/run.sh.trs
#
/addpart
/agetty
-/arch
/blkid
/blockdev
/cal
/cfdisk
/chcpu
/chfn
-/chkdupexe
/chrt
/chsh
/col
@@ -2,12 +2,6 @@ The following is a list of commands or features that are deprecated. All
deprecated utils are in maintenance mode and we keep them in source tree for
backward compatibility only.
-What: chkdupexe
-Why: unnecessary, in Perl, not used in distributions, possible to replace
- by a simple shell script.
-
---------------------------
-
What: 'udev' and 'list' blkid(8) output formats
Why: udevd links libblkid directly; the 'list' is unnecessary, use lsblk(8)
View
@@ -684,7 +684,6 @@ AC_ARG_ENABLE([most-builds],
)
if test "x$enable_most_builds" = xyes; then
enable_chfn_chsh=yes
- enable_chkdupexe=yes
enable_elvtune=check
enable_last=yes
enable_line=yes
@@ -1296,19 +1295,6 @@ UL_BUILD_INIT([write])
AM_CONDITIONAL(BUILD_WRITE, test "x$build_write" = xyes)
-AC_ARG_ENABLE([chkdupexe],
- AS_HELP_STRING([--enable-chkdupexe], [build deprecated chkdupexe]),
- [], enable_chkdupexe=no
-)
-UL_BUILD_INIT([chkdupexe])
-AM_CONDITIONAL(BUILD_CHKDUPEXE, test "x$build_chkdupexe" = xyes)
-
-if test "x$build_chkdupexe" = xyes; then
- AC_PATH_PROG(PERL, perl)
- AC_CONFIG_FILES([misc-utils/chkdupexe:misc-utils/chkdupexe.pl])
-fi
-
-
AC_ARG_ENABLE([socket-activation],
AS_HELP_STRING([--enable-socket-activation], [build uuidd with support for systemd socket activation]),
[], enable_socket_activation=no
View
@@ -2,4 +2,3 @@ uuidd.8
uuidd.rc
uuidd.service
uuidd.socket
-/chkdupexe
View
@@ -45,13 +45,6 @@ usrbin_exec_PROGRAMS += whereis
dist_man_MANS += misc-utils/whereis.1
whereis_SOURCES = misc-utils/whereis.c
-
-if BUILD_CHKDUPEXE
-dist_usrbin_exec_SCRIPTS += misc-utils/chkdupexe
-CLEANFILES += misc-utils/chkdupexe
-dist_man_MANS += misc-utils/chkdupexe.1
-endif
-
if BUILD_LSLOCKS
usrbin_exec_PROGRAMS += lslocks
dist_man_MANS += misc-utils/lslocks.8
View
@@ -1,38 +0,0 @@
-.\" chkdupexe.1 --
-.\" Created: Sat Mar 11 18:19:44 1995 by faith@cs.unc.edu
-.\" Revised: Sat Mar 11 19:07:05 1995 by faith@cs.unc.edu
-.\" Revised: Wed Jul 5 01:56:26 1995 by shields@tembel.org
-.\" Copyright 1995 Rickard E. Faith (faith@cs.unc.edu)
-.\"
-.\" Permission is granted to make and distribute verbatim copies of this
-.\" manual provided the copyright notice and this permission notice are
-.\" preserved on all copies.
-.\"
-.\" Permission is granted to copy and distribute modified versions of this
-.\" manual under the conditions for verbatim copying, provided that the
-.\" entire resulting derived work is distributed under the terms of a
-.\" permission notice identical to this one
-.\"
-.\" Since the Linux kernel and libraries are constantly changing, this
-.\" manual page may be incorrect or out-of-date. The author(s) assume no
-.\" responsibility for errors or omissions, or for damages resulting from
-.\" the use of the information contained herein. The author(s) may not
-.\" have taken the same level of care in the production of this manual,
-.\" which is licensed free of charge, as they might when working
-.\" professionally.
-.\"
-.\" Formatted or processed versions of this manual, if unaccompanied by
-.\" the source, must acknowledge the copyright and authors of this work.
-.\"
-.TH CHKDUPEXE 1 "March 1995" "util-linux" "User Commands"
-.SH NAME
-chkdupexe \- find duplicate executables
-.SH SYNOPSIS
-.B chkdupexe
-.SH DESCRIPTION
-.B chkdupexe
-will scan the union of $PATH and a hardcoded list of common locations
-for binaries. It will report dangling symlinks and duplicately-named
-binaries.
-.SH AUTHOR
-Nicolai Langfeldt, Michael Shields.
View
@@ -1,120 +0,0 @@
-#!@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>=$[);

0 comments on commit 58a3cee

Please sign in to comment.