vwhois 445 B

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