home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 1 / GoldFishApril1994_CD2.img / d4xx / d473 / cnewssrc / cnews_src.lzh / relay / amiga / version.e < prev   
Text File  |  1990-12-30  |  385b  |  16 lines
  1. # version.e - mail version id to sender identified in stdin's headers
  2.  
  3. canonhdr >T:hdr[$$]
  4.  
  5. grep >env:vers.s[$$] -i "^Sender:"
  6. if val $RC gt 0
  7.     grep >env:vers.s[$$] "^From:" T:hdr[$$]
  8. endif
  9. read <env:vers.s[$$] addr[$$] addr[$$]
  10. delete quiet T:hdr[$$] env:vers.s[$$]
  11.  
  12. Echo >T:hdr[$$] "Subject: news verion id*N*NC"
  13. sendmail <T:hdr[$$] -t $addr[$$]
  14.  
  15. delete quiet t:hdr[$$] env:addr[$$]
  16.