#! /bin/sh
# anne.jones [file...] - censor headers: munge locally-generated headers in
#  files, enforce feeble attempts at Usenet security, generate lots of silly
#  headers.
# (after the notorious ring-leader of the Ontario Film and Video Review Board
# (nee Ontario Board of Censors), Ontario's very own Mrs. Mary Whitehouse.)
# =()<. ${NEWSCONFIG-@<NEWSCONFIG>@}>()=
. ${NEWSCONFIG-/usr/lib/news/bin/config}
export NEWSCTL NEWSBIN NEWSARTS
PATH=$NEWSCTL/bin:$NEWSBIN/inject:$NEWSBIN:$NEWSPATH ; export PATH
umask $NEWSUMASK

# pass 0 - dredge up defaults
case "$trversion" in
v[67])	;;
*)	echo "$0: trversion is nonsense or missing from environment" >&2
	exit 1 ;;
esac
if test -r $NEWSCTL/mailname; then
	mailname="`tr -d ' \11' <$NEWSCTL/mailname`"
else
	mailname="`newshostname`"
	case "$mailname" in
	*.*)	;;			# not a uucp host name
	*)	mailname="$mailname.uucp" ;;	# probably a uucp host name
	esac
fi
# badsites="pucc.bitnet!"		# tailor, syntax is "host1!host2!...host3!"
host="$mailname"

# dig up user's name (a simple task, you'd think, but you'd be wrong)
case "$LOGNAME" in
"")
	# "who am i" on many Unixes does "ttyname(0)" and "getpwuid(getuid())"
	# if that fails - it can be confused by empty utmp entries (per jerqs);
	# "who am i </dev/null" yields your userid, not your login name.
	# "tty" does "ttyname(0)"; also fallible.
	# So, emulate a slightly-modified V7 getlogin(3) (actually ttyslot(3)):
	# look for tty on /dev/tty, stdin, stdout, stderr (actually via ttyname(3)).
	for fd in 3 0 1 2			# 3 is /dev/tty on V8
	do
		if test -t $fd; then
			case "$USER" in
			"")	USER="`who am i <&$fd |
				    sed -e 's/[	 ].*//' -e '/!/s/^.*!//' `" ;;
			esac
		fi
	done
	case "$USER" in
	"")	USER="`who am i </dev/null |	# last resort: use userid
			sed -e 's/[	 ].*//' -e '/!/s/^.*!//' `" ;;
	esac
	;;
*)	USER="$LOGNAME" ;;
esac
case "$NAME" in
"")
	if test -s $HOME/.name; then
		NAME=`cat $HOME/.name`
	else
		NAME=`(grep "^$USER:" /etc/passwd || ypmatch "$USER" passwd) |
			sed 's/^[^:]*:[^:]*:[^:]*:[^:]*:\([^,:]*\).*$/\1/'  `
		# tailor: for BTL RJE format, add
		#	| sed -e 's/^[^-]*- *//' -e 's/ *(.*$//'
		# otherwise for Berkeley format, use this
		# (courtesy Rayan Zachariassen):
		case "$NAME" in
		*'&'*)
			# generate Capitalised login name
			NM=`echo "$USER" | sed -e 's/^\(.\)\(.*\)/\1:\2/'`
			NM1=`expr "$NM" : '\(.\):.*' |
				case "$trversion" in
				v7)	tr a-z A-Z ;;
				v6)	tr '[a-z]' '[A-Z]' ;;
				esac
				`
			NMR=`expr "$NM" : '.:\(.*\)'`
			CAPNM="$NM1$NMR"
			# turn & into Capitalised login name
			NAME=`echo "$NAME" | sed "s:&:$CAPNM:"`
			;;
		esac
	fi
	;;
esac
case "$NAME" in
"")	fullname="" ;;		# no full name, leave it off
*)	fullname=" ($NAME)" ;;
esac
reallyfrom="$USER@$host$fullname"
FROM="$reallyfrom"

# generate a few defaults.
# RFC 1036 requests a GMT Date:, despite it being hard to read.
# Compensate for V6 Uglix date (no -u) tarted up with all that TZ goo.
date="`
	set ''\`TZ=GMT0 date\`	# give TZ to see if (Uglix) date responds
	case \"$5\" in
	GMT)	echo $* ;;	# Uglix date or V7 date with GMT local time
	*)	date -u ;;	# must be V7 date command, it ignored TZ
	esac
`"				# for defdate, defmsgid
case "$ORGANIZATION" in
"")	deforg="`sed 1q $NEWSCTL/organi[sz]ation`" ;;	# look in a file
*)	deforg="$ORGANIZATION" ;;	# look in environment
esac

# give defaults and headers to awk
cat $* |
	# strip invisible chars, a la B news; turn tabs to spaces (RFC1036)
	case "$trversion" in
	v7)	tr -d  '\1-\7\13\15-\37' ;;
	v6)	tr -d '[\1-\7]\13[\15-\37]' ;;
	esac |
	sed 's/:	/: /' |
	awk -f $NEWSBIN/inject/defhdrs.awk \
defpath="$badsites$USER" \
deffrom="$FROM" deforg="$deforg" \
defdate="` set $date; echo $1, $3 $2 $6 $4 $5`" \
defmsgid="`set $date; echo \<$6$2$3.\`  echo $4 | tr -d : \`.$$@$host\>`" -