home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / text / CNews-Tips / news_misc.lha / newsbin / ctl / rmgroup next >
Encoding:
AmigaDOS Script File  |  1992-04-24  |  648 b   |  31 lines
  1. .key ART,GROUP
  2. .bra {
  3. .ket }
  4.  
  5. grep >env:tmp{$$} "^Approved:" {ART}
  6. if "$tmp{$$}" eq ""
  7.     echo "1"
  8.     quit 10
  9. endif
  10.  
  11. grep >env:tmp{$$} "^{GROUP} " newsctl:active
  12. if "$tmp{$$}" eq ""
  13.     echo "2"
  14.     quit 10
  15. endif
  16.  
  17. grep "^Sender:" {ART} | sed >env:tmp{$$} -e "s/^.*:[     ]*//"
  18. if "$tmp{$$}" eq ""
  19.     grep "^From:" {ART} | sed >env:tmp{$$} -e "s/^.*:[     ]*//"
  20. endif
  21.  
  22. echo  >t:tmp{$$} "To: postmaster"
  23. echo >>t:tmp{$$} "Subject: `rmgroup {GROUP}' says $tmp{$$}"
  24. echo >>t:tmp{$$}
  25. echo >>t:tmp{$$} "/---- original control message follows ----/"
  26. type >>t:tmp{$$} {ART}
  27. echo >>t:tmp{$$}
  28. sendmail <t:tmp{$$} -f "NEWSCONTROL" -R "News Control Subsystem"
  29. delete t:tmp{$$}
  30.  
  31.