home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / QuickMail / Installer Resources / Scripts / INET.TELENET.v1.52 (1200) < prev    next >
Encoding:
Text File  |  1992-03-20  |  4.0 KB  |  185 lines  |  [TEXT/ttxt]
  1. * INET Script, for QuickMail™
  2. * © 1988,1989 INET Company of America
  3. *
  4. * Version: 1.52
  5. *
  6. * Modification Date:  4/10/89 for v1.52
  7. * Made Minor Changes to IN procedure for 1200 baud TeleNet Access.
  8. * Dave Loverink - CE Software, Inc.
  9. *
  10. *
  11. * NOTE: THIS SCRIPT ONLY WORKS AT 1200 BAUD
  12. *
  13. *
  14. * Modification date:  4/10/89 for v1.5
  15. * added ^J to all "DUMP" commands to slow down the rate at
  16. * which the script dumps the ASCII text into Messaging
  17. * added the "D" before the carriage returns to Telenet to ensure
  18. * that Telenet knows we're coming in as 8 data bits and no parity
  19. *
  20. * This is a script for use with the CE Software QuickMail Telecom
  21. * Bridge.  This script will log onto INET and exchange messages
  22. * with regular INET IDs and INET IDs associated with other QuickMail
  23. * Servers.
  24. *
  25. * The INET ID for this Telecom Mail Center must be unique - not used
  26. * by other individuals or Telecom Mail Centers.  The "address" used
  27. * by the message creator (or linked to a recipient name) must be
  28. * another INET ID.  The script used by a receiving QuickMail Telecom
  29. * Mail Center must be identical to this in order that messages get
  30. * routed to the correct recipient; the send and receive routines in this
  31. * script are complementary.  Regular INET users wishing to send
  32. * messages to a recipient on a QuickMail Server must "COMPOSE" a
  33. * message to that QuickMail Server INET ID and place the recipient's
  34. * name on the INET Message "SUBJECT" line in the following fashion:
  35. *
  36. *  To:    INET.CHICAGO.QM
  37. *  CC:
  38. *  Subject:  This is a mail message       Attn:John Doe
  39. *
  40. * There should be no space between the "Attn:" and the beginning of
  41. * the recipient's QuickMail name.
  42. *
  43. * Any questions regarding the use of this script in accessing the INET
  44. * electronic mail network should be addressed to INET's Chicago sales
  45. * office at the above QuickMail address or (312) 245-5095.
  46. *
  47. * This routine is called to log us into INET Messaging
  48. *
  49. :IN
  50. OOPS 60,FAILURE
  51. ALERT 4,FAILURE,recognized.
  52. PAUSE 2
  53. TYPE ^M
  54. PAUSE 2
  55. TYPE D^M
  56. WAIT TERMINAL=
  57. TYPE ^M
  58. WAIT @
  59. TYPE C INET^M
  60. WAIT User-id:
  61. * TYPE «LOGID» ASCII80^M
  62. TYPE «LOGID» ^M
  63. WAIT Password:
  64. TYPE «PASSWORD»^M
  65. WAIT proceed:
  66. TYPE ^M
  67. WAIT command:
  68. TYPE Messaging^M
  69. NOMAIL No new mail.
  70. WAIT Command?
  71. SUCCESS
  72. *
  73. * This logs us off INET Messaging
  74. *
  75. :BYE
  76. OOPS 60,FAILURE
  77. TYPE bye^M
  78. WAIT command:
  79. TYPE bye^M
  80. SUCCESS
  81. *
  82. * This is called to send all of the mail destined for remote
  83. * QM Mail Centers.  Those QM Servers will have an INET ID for
  84. * the Telecom Bridge
  85. *
  86. :SEND
  87. OOPS 60,FAILURE
  88. ALERT 3,S2,hold:
  89. ALERT 4,S3,"TO"
  90. ALERT 5,FAILURE,POSSIBLE DATA LOSS
  91. TYPE Compose^M
  92. WAIT To:
  93. TYPE «ADDRESS»^M
  94. WAIT CC:
  95. TYPE ^M
  96. WAIT Subject:
  97. TYPE «TOPIC»                   Attn:«NAME»^M
  98. WAIT Text:
  99. TYPE ^M
  100. DUMP ^J
  101. TYPE .^M
  102. WAIT Send?
  103. TYPE Y^M
  104. WAIT Command?
  105. SUCCESS
  106. *
  107. *
  108. :XSEND
  109. OOPS 60,FAILURE
  110. ALERT 3,S2,hold:
  111. ALERT 4,S3,"TO"
  112. TYPE Compose^M
  113. WAIT To:
  114. TYPE «ADDRESS»^M
  115. WAIT CC:
  116. TYPE ^M
  117. WAIT Subject:
  118. TYPE «TOPIC»                   Attn:«NAME»^M
  119. WAIT Text:
  120. TYPE .Upload Binary xyz.xyz^M
  121. WAIT cancel.
  122. XMODEM UPLOAD, FAILURE
  123. WAIT continue:
  124. TYPE .^M
  125. WAIT Send?
  126. TYPE Y^M
  127. WAIT Command?
  128. SUCCESS
  129. *
  130. :S2
  131. * This occurs when INET Messaging thinks the "ADDRESS" (INET ID)
  132. * is invalid and prompts for "Correct, Omit, or Hold?".  This script
  133. * routine responds "Omit" which cancels the message in INET, but
  134. * the QM server thinks it delivered the message without a hitch
  135. TYPE O^M
  136. FAILURE
  137. *
  138. :S3
  139. ALERT 5,FAILURE,POSSIBLE DATA LOSS
  140. TYPE Compose^M
  141. WAIT IT?
  142. TYPE Y^M
  143. WAIT To:
  144. TYPE «ADDRESS»^M
  145. WAIT CC:
  146. TYPE ^M
  147. WAIT Subject:
  148. TYPE «TOPIC»                   Attn:«NAME»^M
  149. WAIT Text:
  150. TYPE ^M
  151. DUMP ^J
  152. TYPE .^M
  153. WAIT Send?
  154. TYPE Y^M
  155. WAIT Command?
  156. SUCCESS 
  157. *
  158. *
  159. * This is called to receive mail.  It is called continually
  160. * for each piece of mail waiting in INET.  If a binary message
  161. * is detected, XMODEM binary download is set up.
  162. *
  163. :RECEIVE
  164. OOPS 60,FAILURE
  165. TYPE R^M
  166. *
  167. :R1
  168. ALERT 1,FAILURE,Command?
  169. ALERT 2,R2,receive it
  170. BUFFER Action?
  171. RECEIVE Subj:,Attn:,From:,,
  172. TYPE ^M
  173. GOTO R1
  174. *
  175. :R2
  176. WAIT Action?
  177. TYPE DOWNLOAD BINARY^M
  178. WAIT to cancel.
  179. XMODEM DOWNLOAD,FAILURE
  180. MAILFILE Subj:,Attn:,From:,,
  181. WAIT Action?
  182. TYPE ^M
  183. GOTO R1
  184. *
  185. *