rc/bin/go.fishing

   1 #!/bin/rc
   2 # go.fishing - set up vacation responder
   3 rfork e
   4
   5 cd /mail/box/$user
   6 if (test -e gone.fishing) {
   7         echo $0: /mail/box/$user/gone.fishing already exists >[1=2]
   8         exit 'already fishing'
   9 }
  10
  11 >gone.addrs
  12 chmod -a gone.addrs
  13 >gone.addrs
  14 chmod +arw gone.addrs
  15 >>gone.fishing