<html>
<body>
<pre>
<tt>
#!/bin/sh
# dws [ box ] [ id ]
#
# die worthless spammer
myname="`basename \"$0\"`"
spam=+spam
case "`box`" in
$spam)
echo "$myname: Replying to a spam in \"$spam\"?" 1>&2
exit 1
;;
esac
case $# in
0|1|2)
mov ${1+"$@"} "$spam" || exit $?
;;
*)
echo "usage: $myname [ box ] [ id ]" 1>&2
exit 1
;;
esac
box="`box`"
box "$spam" || exit $?
# construct reply
(
EDITOR='sam -d' rep -i > /dev/null 2>&1 <<'!'
/^To:.*\n( .*\n)+/
x/\n /c/ /
/^To:.*\n/
.t.
x/[\-a-zA-Z0-9._&]+@/c/postmaster@/
/^To:.*\n/
/^To:.*\n/
s/^To:/Cc:/
,x/^Cc: \n/d
,x/^Bcc: \n/d
,x/^Subject: \n/d
1,/^\n/
a
die, worthless spammer.
postmaster: check out the Mail Abuse Protection System (MAPS)
http://maps.vix.com
.
1,/^$/p
w
q
!
# log reply and deliver
) || exit 1
case "$myname" in
dws)
echo "$myname: Spam returned to `msg | 822flatten | sed -e '/^[TC][oc][ ]*:[ ]*/!d' -e 's///' | tr '\012' ' '`" 1>&2
del && box "$box"
;;
rws)
med
;;
esac
</tt>
</pre>
<HR>
© 1998,
Boyd Roberts:
<A HREF="mailto:boyd@fr.inter.net">boyd@fr.inter.net</A>
</body>
</html>
|
