home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / comm / mail / listserv / s / sendsecuremailinglist < prev   
Text File  |  1994-03-08  |  1KB  |  44 lines
  1. /* SendSecureMailingList
  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. tmpname3 = 'T:'listname'_dec.tmp'
  11.  
  12. if (open(tmpfile, tmpname, "w")) then do
  13.         do forever
  14.                 line = readch(stdin, 64000)
  15.                 writech(tmpfile, Line)
  16.                 if eof(stdin) then break
  17.         end
  18.         close(tmpfile)
  19. end
  20.  
  21. command = "PGPMore <" || tmpname || " >" || tmpname3
  22. address COMMAND command
  23.  
  24. command = "Delete " || tmpname
  25. address COMMAND command
  26.  
  27. command = "ListSERV:c/Cat <" || tmpname3 || " >>ListSERV:secretgroups/" || listname || "/Log"
  28. address COMMAND command
  29.  
  30. command = "rx ListSERV:s/MailListFilter <" || tmpname3 || " " || listname || " >" || tmpname2 || " LimitXHeaders"
  31. address COMMAND command
  32.  
  33. if (exists("ListSERV:secretgroups/" || listname || "/Signature")) then do
  34.         command = "ListSERV:c/Cat <ListSERV:secretgroups/" || listname || "/Signature >>" || tmpname2
  35.         address COMMAND command
  36. end
  37.  
  38. command = "ListSERV:c/EncListMail <" || tmpname2 || " ListSERV:secretgroups/" || listname || "/list"
  39. address COMMAND command
  40.  
  41. command = "Delete " || tmpname2 || " " || tmpname3
  42. address COMMAND command
  43.  
  44.