1 5cdb1798 2005-10-29 devnull #!/bin/rc
 2 5cdb1798 2005-10-29 devnull 
 3 5cdb1798 2005-10-29 devnull rfork e
 4 5cdb1798 2005-10-29 devnull TMP=/tmp/myupassend.$pid
 5 5cdb1798 2005-10-29 devnull 
 6 5cdb1798 2005-10-29 devnull # collect upas/send options
 7 5cdb1798 2005-10-29 devnull options=()
 8 5cdb1798 2005-10-29 devnull while (! ~ $#* 0 && ~ $1 -*) {
 9 5cdb1798 2005-10-29 devnull 	options=($options $1);
10 5cdb1798 2005-10-29 devnull 	shift
11 5cdb1798 2005-10-29 devnull }
12 5cdb1798 2005-10-29 devnull 
13 5cdb1798 2005-10-29 devnull # collect addresses and add them to my patterns
14 5cdb1798 2005-10-29 devnull dests=()
15 5cdb1798 2005-10-29 devnull while (! ~ $#* 0) {
16 5cdb1798 2005-10-29 devnull 	dests=($dests $1);
17 5cdb1798 2005-10-29 devnull 	shift
18 5cdb1798 2005-10-29 devnull }
19 5cdb1798 2005-10-29 devnull echo $dests > $TMP
20 5cdb1798 2005-10-29 devnull upas/list add /mail/box/$user/_pattern $TMP >[2] /dev/null
21 5cdb1798 2005-10-29 devnull rm $TMP
22 5cdb1798 2005-10-29 devnull 
23 5cdb1798 2005-10-29 devnull # send mail
24 5cdb1798 2005-10-29 devnull upas/send $options $dests