1#!/bin/rc 2 3rfork e 4 5box=mbox 6if(! test -d /mail/fs/$box) 7 box=`{ls -p /mail/fs | grep -v ctl | sed 1q} 8if(~ $#box 0) 9 box=mbox # we tried 10 11if(~ $#box 1 && test -f /mnt/plumb/seemail || test -f /mnt/term/mnt/plumb/seemail){ 12 for(i) 13 plumb -dseemail -a 'filetype=vwhois digest='$i.$pid' mailtype=new sender='$i /mail/fs/$box/XXXvwhois 14} 15if not for (i){ 16 echo vwhois: vwhois: vwhois: delivered `{cat /dev/user} From $i '(vwho)' >> /sys/log/mail 17} 18