Pcase $1 in
P	"") echo "usage: /etc/kusr username"; exit 1;;
Pesac
Px=`/usr/bin/awk -F: '$1=='\"$1\"' {print $6}' /etc/passwd `
Pcase $x in
P/|/etc|/bin|/usr/bin|/usr/uncw|/lib|/usr/lib|/usr/spool ) \
P	echo "rm -r $x would be considered antisocial behavior";exit 1;;
P	"") echo no such user...bye; exit 1;;
P	/usr* ) ;;
P	*) echo "wtf?? x=$x"; exit 1;;
Pesac
P
P#echo "about to rm -r $x ok [y] \c"
P#read ans
Pans=y
Pcase $ans in
P	"") rm -r $x;;
P	n) exit;;
P	y) rm -r $x;;
P	*) echo "invalid response ... $x not removed";exit;;
Pesac
P#grep -v $1 /etc/passwd > /tmp/kusr$$
P/usr/bin/awk -F: '$1!='\"$1\"' {print }' /etc/passwd >/tmp/kusr$$
P#diff /etc/passwd /tmp/kusr$$
P#echo "ok? [y] \c"
P#read ans
Pans=y
Pcase $ans in
P	n) exit;;
P	""|y) 
P		/bin/rm -f /usr/mail/$1;
P		cp /tmp/kusr$$ /etc/passwd ;
P		/bin/rm /tmp/kusr$$;;
P	*) echo "invalid response interpreted as \"no\" ";exit;;
Pesac
