home *** CD-ROM | disk | FTP | other *** search
/ Dream 42 / Amiga_Dream_42.iso / RiscPC / Internet / Connexion / SPak.spk / !SLIPdial_Scripts_Demon < prev    next >
Encoding:
Text File  |  1994-12-05  |  10.7 KB  |  367 lines
  1. #slipdial
  2. #--------------------------------------------------------------------
  3. # Script : demon
  4. # 
  5. # !SlipDial 0.29 Demon Script - R.W.Orwin 1994 (rob@wong.demon.co.uk)
  6. #                Sprites by James Woodman (woody@bacchus.demon.co.uk)
  7. #
  8. # Revised: Alan Fitch 940627 : note now hardwired to work with USR
  9. #                              modems.
  10. # Revised: Alan Fitch 940629 : to send long modem strings using the
  11. #                              USR driver by quoting them in quotes.
  12. #                              (comment above no longer applies)
  13. # Revised: Alan Fitch 940702 : to rename "hg" to "mercury_pin"
  14. # Revised: Alan Fitch 940708 : to release modem correctly if no prompt
  15. #                              received (e.g. login, password, protocol etc).
  16. # Revised: Alan Fitch 940717 : Newsrate added
  17. # Revised: Alan Fitch 940803 : betanews also calls convmail
  18. # Revised: Alan Fitch 940911 : To use newsbase/ttfn
  19. # Revised: Alan Fitch 940911 : Task killing tidied up.
  20. # Revised: Alan Fitch 940912 : To add Isle of Wight 'phone number
  21. # Revised: Alan Fitch 940926 : TCPIP$dir changed to TCPIP2$dir
  22. # Revised: Alan Fitch 940928 : Removed references to Internet$Dir
  23. # Revised: Alan Fitch 940929 : Stopped using tmstrt, tmend, diff to create a #                              short delay - now fixed to 3 seconds.
  24. # Revised: Alan Fitch 941005 : order of startup of newsbase and TTFN swapped.#                              TTFN must start first for everything 
  25. #                              to work properly.
  26. # Revised: Alan Fitch 941117 : to rename sprites to hg_on/hg_off so
  27. #                              standard DemonSpr sprite file will still work
  28. #
  29.  
  30. call initMain
  31. call configure
  32. call setserial
  33. call makemenus
  34. # change following line to "call mercury_on" for default use of mercury
  35. call mercury_on
  36.  
  37. #
  38. # main loop
  39. #
  40. :loop
  41. message /close
  42. wait /event
  43. goto loop
  44. exit
  45.  
  46. # end of program
  47. #--------------------------------------------------------------------
  48.                 
  49. #====================================================================
  50. # SUBROUTINES
  51. #====================================================================
  52.  
  53. #-----------------------------------------------------------
  54. #Subroutine: bra
  55. #calls bradford pop: returns via subroutine dodial
  56. #-----------------------------------------------------------
  57. :bra
  58. set phonenum 01274755066
  59. set costband b
  60. goto dodial
  61.  
  62. #-----------------------------------------------------------
  63. # Subroutine: lon
  64. # calls london demon phone number: returns via  subroutine
  65. # dodial.
  66. #-----------------------------------------------------------
  67. :lon
  68. set phonenum 01813434848
  69. set costband b1
  70. goto dodial
  71.  
  72. #-----------------------------------------------------------
  73. #Subroutine: lee
  74. #calls leeds demon pop: returns via subroutine dodial
  75. #-----------------------------------------------------------
  76. :lee
  77. set phonenum 0532415890
  78. set costband b
  79. goto dodial
  80.  
  81. #-----------------------------------------------------------
  82. # Subroutine: edi
  83. # calls edinburgh demon phone number: returns via subroutine
  84. # dodial.
  85. #-----------------------------------------------------------
  86. :edi
  87. set phonenum 01315528883
  88. set costband b
  89. goto dodial
  90.  
  91. #-----------------------------------------------------------
  92. # Subroutine: war
  93. # calls warrington demon phone number: returns via  
  94. # subroutine dodial.
  95. #-----------------------------------------------------------
  96. :war
  97. set phonenum 01925411383
  98. set costband b
  99. goto dodial
  100.  
  101. #-----------------------------------------------------------
  102. # Subroutine: red
  103. # calls Reading demon phone number: returns via subroutine
  104. # dodial.
  105. #-----------------------------------------------------------
  106. :red
  107. set phonenum 01734328989
  108. set costband b1
  109. goto dodial
  110.                  
  111. #-----------------------------------------------------------
  112. # Subroutine: IOW
  113. # calls Isle of Wight demon phone number: returns via 
  114. # subroutine dodial.
  115. #-----------------------------------------------------------
  116. :IOW
  117. set phonenum 01983523306
  118. set costband b1
  119. goto dodial
  120.  
  121. #-----------------------------------------------------------
  122. # Subroutine: dodial
  123. # Note: has multiple entry points from "goto" statements
  124. # above.  However it finally returns to the main waiting
  125. # loop.
  126. #-----------------------------------------------------------
  127. :dodial               
  128.  
  129. #convert any outgoing mail/news
  130. if (?file <Rucp$Dir>.uucp.spool.post.c.*) call convmail
  131. if (?file <Rucp$Dir>.uucp.spool.news.c.*) call convmail
  132. if (?file <Rucp$Dir>.uucp.spool.betanews.c.*) call convmail
  133.  
  134. # Timers to compute the call cost.
  135. set coststrt 0
  136. set costend 0
  137.  
  138. # kill Incorp if it is running, and was started from SlipDial
  139. #task /kill="Incorp"
  140. task /kill="Newsbase"
  141. task /kill="TTFN"
  142.  
  143. # Claim the device driver
  144. if (!claim 3) return 0
  145.  
  146. # initialise modem
  147. init 
  148.  
  149. # dial the number, return to main menu if failed.
  150. retry 50 15
  151. if (!dial /nodial=15 /nocar=10 /busy=2 %mercury_pin%phonenum) return 0
  152.  
  153. #
  154. # arrive here if dial succeeded
  155. # get username/password prompts to authenticate self to server.
  156. # after each prompt, return to main menu if failed.
  157. #
  158.  
  159. # initialise timer for call cost
  160. set coststrt %$time
  161.  
  162. if (!wait /del=20 ogin:) goto bad_finish
  163. send %nodename
  164.  
  165. if (!wait /del=20 word:) goto bad_finish
  166. send %password
  167.  
  168. if (!wait /del=50 ocol:) goto bad_finish
  169. send %protocol
  170.  
  171. message /capture="IP" /end="HELLO" /maxlines=7 /centre
  172. ipget 158.
  173. if (!wait /del=30 HELLO) return 0
  174.  
  175. wait /delay=10 "a while"
  176. task /name="TCP/IP" <TCPIP2$dir>.!Run
  177.  
  178. # watch out for carrier detect to go low
  179. alarm /dcd "goto good_finish"
  180. :loop2
  181. wait /event
  182. goto loop2
  183.  
  184. #
  185. # Call has been finished successfully, so release the port
  186. #
  187. :good_finish
  188. task /kill="TCP/IP"
  189. message /close
  190. message "Call finished successfully" /centre
  191. release
  192. call costcalc
  193.  
  194. # now pause for 2 seconds to allow RISC OS to sort out the display.
  195. pause 2
  196.  
  197. #
  198. # Compute the news transfer rate, and display it.
  199. #
  200. # This would probably go wrong if the DemNews file still existed from
  201. # a previous call, i.e. old news hadn't been transferred out of the 
  202. # Mail$Dir directory.  This shouldn't happen if this script is always used
  203. # as it automatically uses the convmail procedure to move new news into
  204. # ReadNews format.
  205. #
  206.  
  207. # Check if the news file exists.
  208. set newsExists {?file <Mail$Dir>.folder.DemNews}
  209. case %newsExists
  210. when 1 2 3; set nrate {newsrate Dem}; message "news rate %nrate cps" /centre
  211. when 0; message "no news downloaded" /centre
  212. endcase
  213. unset newsExists
  214. unset nrate
  215.  
  216. #
  217. # Following small section is for users of !ReadNews & !Rucp & RN Filters
  218. # <Internet$Dir> should be set to directory where all of above can be found.
  219. #
  220. #task "<Internet$Dir>.ka9q->rucp { > null: }"
  221. #task "<Internet$Dir>.!Incorp.!Run"
  222. task /name="TTFN" <TTFN$Dir>.!Run
  223. task /name="Newsbase" <NewsBase$Dir>.!Run
  224.  
  225. #now trim DemHist File
  226. call trimfile <NNTP$Dir>.DemHist
  227. return 1
  228.  
  229. #
  230. # Call failed in some way
  231. #
  232. :bad_finish
  233. message "Call setup failed" /centre
  234. release
  235. call costcalc
  236. message/close
  237. return 0
  238.  
  239. #-----------------------------------------------------------
  240. # Subroutine: convmail
  241. # Convert mail between rucp and ka9q formats.
  242. # above.  However it finally returns to the main waiting
  243. # loop.
  244. #-----------------------------------------------------------
  245. :convmail
  246. #task "<Internet$Dir>.rucp->ka9q { > null: }"
  247. return 1
  248.  
  249. #-----------------------------------------------------------
  250. # Subroutine: trimfile
  251. # Trim a specified history file.
  252. #-----------------------------------------------------------
  253. :trimfile
  254. if (?lt {?file/size %p1} 5000) return
  255. copy/tail=200 %p1 %p1-T;delete %p1;move %p1-T %p1
  256. return 1
  257.  
  258. #-----------------------------------------------------------
  259. # Subroutine: costcalc
  260. # Compute the cost of the call as far as possible.
  261. #-----------------------------------------------------------
  262. :costcalc
  263. set costend %$time
  264. set costlen {eval "%costend-%coststrt"}
  265. unset costend
  266. return 1
  267.  
  268. #-----------------------------------------------------------
  269. # Subroutine: Mercury
  270. # Toggle the mercury switch
  271. #-----------------------------------------------------------
  272. :mercury
  273. if (?eq %mercury_pin %mercury) goto mercury_off
  274. # Set the Mercury switch to ON.
  275. :mercury_on
  276. icon /id="Mercury" /action="call mercury" hgon
  277. set mercury_pin %mercury
  278. goto mercury_return
  279. # else Set the Mercury switch to OFF.
  280. :mercury_off
  281. icon /id="Mercury" /action="call mercury" hgoff
  282. set mercury_pin ""
  283. :mercury_return
  284. return 1
  285.  
  286. #-----------------------------------------------------------
  287. # Subroutine: makemenus
  288. # Defines the menus for dialling etc.
  289. #-----------------------------------------------------------
  290. :makemenus
  291. menu "Edinburgh:call edi" "London:call lon" "Reading:call red" "Warrington:call war" "IsleofWight:call IOW" "Leeds:call lee" "Bradford:call bra"
  292. menu /icon="Mercury" "Mercury On:call mercury_on" "Mercury Off:call mercury_off" 
  293. return 1
  294.  
  295. #-----------------------------------------------------------
  296. # Subroutine: setserial
  297. # Set Serial Port/Driver Parameters
  298. #-----------------------------------------------------------
  299. :setserial
  300. driver USR
  301. port %wport %prtnum
  302. speed %speed
  303. set protocol slip
  304. return 1
  305.  
  306. #-----------------------------------------------------------
  307. # Subroutine: setup1
  308. # Called to setup defaults if no configuration file present.
  309. #-----------------------------------------------------------
  310. :setup1
  311. input/prompt="Enter Serial Block Driver Name" wport
  312. input/prompt="Enter Serial Port Number (if relevant)" prtnum
  313. input/prompt="Enter Your Modem->Computer Speed (bps):" speed
  314. input/prompt="Enter Your Demon Nodename:" nodename
  315. input/prompt="Enter Your Password:" password
  316. input/prompt="Enter Your Mercury PIN:" mercury
  317. open/id=conf/write %filename
  318. write/id=conf %wport
  319. write/id=conf %prtnum
  320. write/id=conf %speed
  321. write/id=conf %nodename
  322. write/id=conf %password
  323. write/id=conf %mercury
  324. close/id=conf
  325. return 1
  326.  
  327. #-----------------------------------------------------------
  328. # Subroutine: configure
  329. # This loads password config from file or prompts for data 
  330. # to create file.
  331. #-----------------------------------------------------------
  332. :configure
  333. set filename {?file/expand slipdial:demonconfg}
  334. if (!?file %filename) call setup1
  335. open/read/id=conf/error="return" %filename
  336. read/id=conf/eof="goto closeconf" wport
  337. read/id=conf/eof="goto closeconf" prtnum
  338. read/id=conf/eof="goto closeconf" speed
  339. read/id=conf/eof="goto closeconf" nodename
  340. read/id=conf/eof="goto closeconf" password
  341. read/id=conf/eof="goto closeconf" mercury
  342. :closeconf
  343. close/id=conf
  344. return
  345.  
  346. #-----------------------------------------------------------
  347. # Subroutine: initMain
  348. # General initialisation.
  349. #-----------------------------------------------------------
  350. :initMain                
  351. # remove comment from following line for tracing
  352. #trace "SlipDial:logoutput"
  353. debug 3
  354. icon /file="SlipDial:DemonSpr"
  355. set mercury_pin ""
  356. #
  357. # Following lines will have to be setup for your location in the
  358. # country.
  359. #
  360. # Default costband.  Should be adjusted for each menu item which can
  361. # call a number (see subroutine :lon for instance).
  362. set costband b1
  363. return 1
  364.  
  365.  
  366.  
  367.