[9fans] spamoff

[boyd@sdgm.net]

#!/bin/rc

# spamoff addr mbox

# set user to be you
user=boyd
mdir=/usr/$user/lib/mail	# somewhere to put the below
allow=$mdir/allow		# addr's you'll accept mail from
audit=$mdir/audit		# audit trail
errors=$mdir/errors		# error log

myname=`{basename $0}
{
	echo $myname $*
	cat /dev/user
	echo
	lc /env
	pwd
	ls -l
	ls -l /tmp
	echo

} > $audit

fn err {
	echo $myname: $* > $errors
	exit $"*
}

fn match {
	addr=$1
	awk -v 'addr='$addr '
BEGIN {
	addr=tolower(addr)	# 822 addresses are case insensitive
	e = 1
}

tolower($0) == addr {
	e=0
	exit
}

END { exit e }
' $allow
}

fn bitch {
	addr=$1
	mbox=$2

	if (match $addr) {
		cat > $mbox
		exit
	}

	code=`{echo $myname$user$pid | md5sum}

	echo $code

	# apart from the rc here document bug we probably don't have a /tmp

	{
		echo Either you''''re a spammer or I don''''t like you or I don''''t know you.
		echo
		echo Email me this rejected message with:
		echo
		echo '	'$code
		echo
		echo in the Subject: line and I''''ll decide if I''''ll add you to my list
		echo of people I''''ll accept mail from.
	} | cat /fd/0 > $audit

	err rejected mail from $addr $code
}

#if (! test -w $errors -a -A $errors -a -L $errors) {
if (! test -w $errors -a -A $errors) {
	exit $myname:' '$errors:' existance/mode/permission problem'
}

if (! test -r $allow) {
	err $allow:' existance/permission problem'
}

switch ($#*) {
case 0
	err no args

case 1
	err args: $*

case 2
	bitch $*

case *
	err args: $*
}