home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / defdata / smtpser.com < prev    next >
Encoding:
Text File  |  1988-05-03  |  1020 b   |  31 lines
  1. $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  2. $!
  3. $!         DoD Protocols    NA-00007-200       80-01174-100(-)
  4. $!         E-Systems, Inc.  August 07, 1985
  5. $!
  6. $!         SMTP_SERVER.COM       Author : Kevin Weise
  7. $!
  8. $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  9. $! SMPT_SERVER.COM          Author:  Paul Higgins           Date:  May, 1985
  10. $!  This command file dispatches mail processed by SMTP (for NOSCAda).
  11. $!
  12. $!  PARAMETERS:  None
  13. $!
  14. $   ON Error THEN Continue
  15. $!--Set default to directory containing usernames file USERNAMES.LCL
  16. $!  SET DEFAULT Disk$Moon:[NOSCAda.SMTP]
  17. $Loop1:
  18. $   RUN/nodebug ssmtp
  19. $   IF  F$SEARCH("RCPT_LIST.TXT") .EQS. ""  THEN GOTO Out2
  20. $     OPEN/ERROR=Out2 Rcpt_List rcpt_list.txt
  21. $Loop2:
  22. $       READ/END=Out1 Rcpt_List rcpt
  23. $       MAIL SMTP_MAIL 'rcpt' /SUBJECT="SMTP MAIL"
  24. $       DELETE smtp_mail.txt;
  25. $       GOTO Loop2
  26. $Out1:
  27. $     CLOSE Rcpt_List
  28. $     DELETE rcpt_list.txt;
  29. $     GOTO Loop1
  30. $Out2:
  31.