home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / text / CNews-Tips / news_misc.lha / newsbin / ctl / sendsys < prev    next >
Encoding:
AmigaDOS Script File  |  1992-04-24  |  575 b   |  25 lines
  1. .key mail
  2. .bra {
  3. .ket }
  4.  
  5. if "{mail}" eq ""
  6.     type >t:tmp1{$$}
  7. else
  8.     copy {mail} to t:tmp1{$$}
  9. endif
  10.  
  11. grep "^Reply-To:" t:tmp1{$$} | sed >env:tmp{$$} -e "s/^.*:[     ]*//"
  12. if "$tmp{$$}" eq ""
  13.     grep "^From:" t:tmp1{$$} | sed >env:tmp{$$} -e "s/^.*:[     ]*//"
  14. endif
  15.  
  16. echo  >t:tmp2{$$} "To: $tmp{$$}" noline
  17. echo >>t:tmp2{$$} "Cc: postmaster"
  18. echo >>t:tmp2{$$} "Subject: response to your sendsys"
  19. echo >>t:tmp2{$$}
  20. awk >>t:tmp2{$$} -f newsbin:ctl/sendsys.awk newsctl:sys
  21. echo >>t:tmp2{$$}
  22. sendmail <t:tmp2{$$} -f "NEWSCONTROL" -R "News Control Subsystem"
  23. delete t:tmp1{$$} t:tmp2{$$}
  24.  
  25.