rc/bin/vwhois

   1 #!/bin/rc
   2
   3 rfork e
   4
   5 box=mbox
   6 if(! test -d /mail/fs/$box)
   7         box=`{ls -p /mail/fs | grep -v ctl | sed 1q}
   8 if(~ $#box 0)
   9         box=mbox        # we tried
  10
  11 if(~ $#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 }
  15 if not for (i){
  16         echo vwhois: vwhois: vwhois: delivered `{cat /dev/user} From $i '(vwho)' >> /sys/log/mail
  17 }