home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / JMOD1004.ZIP / MODS.ZIP / ROBOT.1 < prev    next >
Text File  |  1995-04-19  |  3KB  |  116 lines
  1. '
  2. ' This script shows how to get Internet usenet groups from the Internet
  3. ' site I call.  Lots of things may be different for your Internet site.
  4. ' So if part of what I have below doesn't work, do it as it should be
  5. ' done on your Internet site (for example, different flavours of RN might
  6. ' have different prompts).
  7. '
  8. ' Also, your account has probably a MB limit, so you want to create one
  9. ' or more robots, or call in every x days, depending on this limit as
  10. ' it relates to number of new messages.
  11. '
  12.  
  13. ' To execute this script, make the following command an event or a <ctrl>Fx:
  14. '
  15. '      |010 _c:\bbs\robot.1
  16. '
  17. ' You want it to execute when you can watch it, the process can sometimes
  18. ' be rather fragile.
  19. '
  20. ' To import the gotten mail, you should create an event as so:
  21. '
  22. '      |271 _c:\bbs\miscmail\inet*.txt
  23. '
  24. ' The following single command will also work:
  25. '
  26. '      |010 _c:\bbs\robot.1 |271 _c:\bbs\miscmail\inet*.txt
  27.  
  28. '
  29. ' Dial up my Internet access provider.  In this case, a local college at
  30. ' 229-2953.  (my sister is attending--but its free)
  31. '
  32. SEND ATDT229-2953
  33. '
  34. ' UWM offers multiple computers, this section varies depending on which
  35. ' type of system you're calling.  The goal is to log into your account.
  36. '
  37. WAITFOR Which system?
  38. SEND alpha2
  39. WAITFOR login:
  40. SEND rohner
  41. WAITFOR Password:
  42. SEND mypass
  43. WAITFOR TERM = (unknown)
  44. SEND 
  45. '
  46. ' "(alpha2)" is the command line prompt for the UWM system I use.  Change
  47. ' to whatever you use.
  48. '
  49. WAITFOR (alpha2)
  50. '
  51. ' We backup .newsrc to newsrc.bak.  We do this in case the script bombs
  52. ' and we want to reset the message areas to try again.
  53. '
  54. SEND cp -f .newsrc newsrc.bak
  55. WAITFOR (alpha2)
  56. '
  57. ' DELAY #      waits 18ths of a second.
  58. ' PATIENCE #   sets timeout minutes for WAITFOR match.
  59. '
  60. PATIENCE 60
  61. '
  62. ' Duplicate the section below for each internet area you want to receive.
  63. ' All that needs changing is the usenet group name, and the filename to
  64. ' store it to.
  65. '
  66. ' The filename should follow the format:  INET####.TXT
  67. ' Where "####" is 0001 to 0999 corresponding to which of your Message
  68. ' Areas you want to eventually toss the messages into.
  69. '
  70. SEND rn -s -q -T -i=1 -N alt.revenge
  71. WAITFOR ? [ynq] 
  72. SEND y
  73. WAITFOR %)
  74. DELAY 18
  75. SEND .
  76. DELAY 18
  77. WAITFOR  .
  78. SEND -$ s inet0005.txt
  79. WAITFOR %)
  80. SEND c
  81. DELAY 18
  82. SEND yq
  83. WAITFOR (alpha2)
  84. '
  85. SEND rn -s -q -T -i=1 -N alt.graffiti
  86. WAITFOR ? [ynq] 
  87. SEND y
  88. WAITFOR %)
  89. DELAY 18
  90. SEND .
  91. DELAY 18
  92. WAITFOR  .
  93. SEND -$ s inet0006.txt
  94. WAITFOR %)
  95. SEND c
  96. DELAY 18
  97. SEND yq
  98. WAITFOR (alpha2)
  99. '
  100. ' Now we actually download the files and log off.
  101. '
  102. PATIENCE 1
  103. SEND sz News/inet*.txt
  104. DELAY 18
  105. SHELL C:\BBS\BIN\DSZ.EXE %P pR1 rz -mS
  106. DELAY 18
  107. SEND 
  108. WAITFOR (alpha2)
  109. DELAY 2
  110. SEND rm -f News/inet*.txt
  111. DELAY 18
  112. SEND EXIT
  113. DELAY 18
  114. HANGUP
  115.  
  116.