#!/bin/ksh
#$Id: purgelnk,v 1.4 2005/09/06 21:34:57 RogerSeguin Exp $
########################################################################
# Copyright (c) 2003,2005 Roger Seguin <roger_seguin@msn.com>
#				http://rmlx.dyndns.org

# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:

# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.

# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
# IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
########################################################################

# Description:
#	List, and optionally remove, broken symlinks

cmd=`basename $0`

Usage() {
	cat	<< UsageMsg
$cmd - List/remove broken symbolic links in directory trees
Usage:	$cmd [-l|-x] [dir...]
	-l:	just list broken links - Do not remove them (default)
	-x:	remove broken links (without prompting)
UsageMsg
	exit 255
}

fDelete=0

while getopts :hlx opt
do
	case $opt in
		l)	fDelete=0;;
		x)	fDelete=1;;
		h | \?)	Usage;;
	esac
done
shift `expr $OPTIND - 1`

argv=$*
[ $# -eq 0 ] && argv=.

for d in $argv; do
	[ -d "$d" ] || continue
	find $d -type l -print | (
		read f
		while [ "$f" != "" ]; do
			lnk="$f"
			read f
			[ -e "$lnk" ] && continue
			printf "$lnk\n"

			[ $fDelete -eq 0 ] && continue
			/bin/rm "$lnk"
		done
	)
done

exit 0


#$Log: purgelnk,v $
#Revision 1.4  2005/09/06 21:34:57  RogerSeguin
#Added BSDL header
#
#Revision 1.1  2003/10/06 05:41:11  RogerSeguin
#Initial revision
#