home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / uucp / wCNews_1.0.30.lha / bin / do.newgroup < prev    next >
Encoding:
AmigaDOS Script File  |  1993-06-06  |  1.2 KB  |  35 lines
  1. .key ng/a,moderated/s,to/a,description/a,file
  2. .bra {
  3. .ket }
  4. .def file "=nil="
  5.  
  6. set {$$}hostname `findconfig nodename domainname`
  7.  
  8. if "{moderated}" eq "moderated"
  9.    set {$$}moderated " moderated"
  10. else
  11.    set {$$}moderated ""
  12. endif
  13.  
  14. echo  >t:newgrp{$$}.new "Path: news"
  15. echo >>t:newgrp{$$}.new "From: news@${$$}hostname (The News System)"
  16. echo >>t:newgrp{$$}.new "Newsgroups: {to}"
  17. echo >>t:newgrp{$$}.new "Subject: newgroup {ng}${$$}moderated"
  18. echo >>t:newgrp{$$}.new "Message-ID: <news.`messageid dec`@${$$}hostname>"
  19. echo >>t:newgrp{$$}.new "Date: `ctime rfc`"
  20. echo >>t:newgrp{$$}.new "Organization: `findconfig Organization`"
  21. echo >>t:newgrp{$$}.new "Control: newgroup {ng}${$$}moderated"
  22. echo >>t:newgrp{$$}.new "Sender: news@${$$}hostname (The News System)"
  23. echo >>t:newgrp{$$}.new "Approved: news@${$$}hostname"
  24. echo >>t:newgrp{$$}.d.new "New newsgroup: {ng}*N{ng}    {description}"
  25. if exists {file}
  26.    echo >>t:newgrp{$$}.d.new ""
  27.    type >>t:newgrp{$$}.d.new {file}
  28. endif
  29. echo >>t:newgrp{$$}.new "Lines: `lines t:newgrp{$$}.d.new`*N"
  30. type >>t:newgrp{$$}.new t:newgrp{$$}.d.new
  31. inews <t:newgrp{$$}.new -h
  32. unset {$$}moderated
  33. unset {$$}hostname
  34. delete t:newgrp{$$}.#? quiet
  35.