#!/bin/sh
# Copy-All-SSHkeys v1.0  (c) 18.11.2002 by Andreas Ley  (u) 18.11.2002
# Kopieren der SSH-Hosykeys in die Homeverzeichnisse auf der Celerra

# Define list of obsolete hosts
obsolete="sp.rz rz114s0.rz rz114s1.rz wwwrzstud.rz wwwrz.rz test-rzstud2.stud test-rzstud3.stud test-rzstud4.stud test-rzstud5.stud pop-alt.stud"

usage()
{
	echo "Usage: `basename $0` [-v] [filesystem [...]]" >&2
	exit 1
}

set -- `getopt hxv $*` || usage

trace=false
verbose=false
while :; do
	case $1 in
		-h)	sed '1d;s/^# *//;/^$/q' $0; usage;;
		-x)	set -x; trace=true; shift;;
		-v)	verbose=true; shift;;
		--)	shift; break;;
	esac
done

test $# -eq 0 && set `mount | sed -n 's/^\(\/export\/[^ ]*\).*/\1/p' | sort`

PATH=/usr/bin:/bin:/usr/machine/sbin
export PATH

umask 077

for fs do
	if test -d "${fs}/user"; then

		ls -1 "${fs}/user" | while read user; do
			# Directory for WinSSH Hostkeys
			keys="${fs}/user/${user}/w2k/profile/Application Data/SSH/HostKeys"
			if test -d "${keys}"; then
				${verbose} && echo "${user}"

				# Remove WinSSH Hostkeys
				for target in ${obsolete}; do
					host=`echo ${target} | cut -d. -f1`
					subdomain=`echo ${target} | cut -d. -f2`
					for domain in "" ".${subdomain}" ".${subdomain}.uni-karlsruhe.de"; do
						rm -f "${keys}/key_24_${host}${domain}.pub"
					done
				done
				ls -l "${keys}" | egrep -v '^total|key_2[24]_rzstud|key_2[24]_www\.pub|key_2[24]_www\.stud|key_2[24]_rz[789][0123]|key_2[24]_rzaix|key_2[24]_rzlx1|key_2[24]_rzpool|key_2[24]_nzserv|key_2[24]_studsun'
			fi
		done

	fi
done

exit 0