home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / uucp / ListSERV1_4.lha / ListSERV / scripts / SendMailingList < prev   
Encoding:
Text File  |  1993-12-29  |  836 b   |  32 lines
  1. /* SendMailingList
  2.  *
  3.  * written by Peter Simons
  4.  */
  5.  
  6. parse arg listname
  7.  
  8. tmpname  = 'T:'listname'.tmp'
  9. tmpname2 = 'T:'listname'_new.tmp'
  10.  
  11. if(open(tmpfile, tmpname, "w")) then do
  12.         do forever
  13.                 line = readch(stdin, 64000)
  14.                 writech(tmpfile, Line)
  15.                 if eof(stdin) then break
  16.         end
  17.         close(tmpfile)
  18. end
  19.  
  20. command = "ListSERV:c/Cat <" || tmpname || " >>ListSERV:groups/" || listname || "/Log"
  21. address COMMAND command
  22.  
  23. command = "rx ListSERV:s/MailListFilter <" || tmpname || " " || listname || " >T:" || listname || "_new.tmp LimitXHeaders"
  24. address COMMAND command
  25.  
  26. command = "ListSERV:c/ListMail <" || tmpname2 || " ListSERV:groups/" || listname || "/list"
  27. address COMMAND command
  28.  
  29. command = "Delete " || tmpname || " T:" || listname || "_new.tmp QUIET"
  30. address COMMAND command
  31.  
  32.