Re: [9fans] mail

[David Presotto <presotto@closedmind.org>]

If you run upas/fs over the mail message in your pipetp, you can get at any of the fields.
For example:

#!/bin/rc

# create a /tmp for here documents
rfork en
bind -c /mail/tmp /tmp

RECIP=$1
MBOX=$2
PF=/mail/box/$USER/_pattern
TMP=/mail/tmp/mine.$pid
BIN=/bin/upas
D=/mail/fs/mbox/1

# save and parse the mail file
{sed '/^$/,$ s/^From / From /'; echo} > $TMP
upas/fs -f $TMP

# accept anything sent to license-discuss
if( grep -si license-discuss@opensource.org $D/to || grep -si license-discuss@opensource.org $D/cc || grep -si license-discuss@opensource.org $D/from )
{
	$BIN/deliver $RECIP $D/from $MBOX < $D/raw
	rv=$status
	rm $TMP
	exit $rv
}

# throw out anything from boyd at his non insultant address
if( grep -si 'boyd@(.*\.)?sdgm.net' $D/from )
{
	$BIN/deliver $RECIP $D/from $MBOX.bounced < $D/raw
	rv=$status
	rm $TMP
	exit $rv
}

# dump it if the sender is spoofing me
if( grep -si '^x-warning: suspect .* domain$' $D/rawheader && grep $USER $D/from)
{
	$BIN/deliver $RECIP $D/from $MBOX.bounced < $D/raw
	rv=$status
	rm $TMP
	exit $rv
}

...