1#!/bin/rc 2 3rfork en 4TMP=/tmp/spam.$sysname.$pid 5sed '/^$/,$ s/^From / From /' >$TMP.msg 6upas/fs -f $TMP.msg 7{ 8 echo '# hash table' 9upas/msgcat $TMP.msg | upas/msgtok | 10 grep -v '^....................(.*) '| 11 sed 's/$/ 1/' 12} >$TMP.tok 13cd /mail/box/$user 14#cp $TMP.tok /tmp/_prof.mbox 15upas/addhash -o _prof.mbox _prof.mbox 1 $TMP.tok 1 16upas/addhash -o _prof.spam _prof.spam 1 $TMP.tok -1 17rm -f $TMP.* 18 19