home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / inter / internet / !Internet / !Run < prev    next >
Text File  |  1995-10-13  |  2KB  |  59 lines
  1. |================================================================|
  2. | Run file for !Internet V4.07  (13th October 1995)              |
  3. |                                                                |
  4. | Copyright (C) Acorn Computers Ltd., 1995                       |
  5. |================================================================|
  6. Set Alias$RMIfThere SetEval Test$Eval 1|MRMEnsure %%1 0 SetEval Test$Eval 0|MIf Test$Eval THEN %%0 %%1|MUnset Test$Eval
  7. |
  8. | Check for RISC OS 3.10 or later
  9. |
  10. RMEnsure UtilityModule 3.10 Error TCP/IP requires RISC OS 3 version 3.10 or later to run
  11. Set System$Path_Message System resources not found. Please run !System before !Internet
  12. |
  13. | If any DCI 2 modules are loaded then kill them
  14. |
  15. RMIfThere RMKill InternetA
  16. RMIfThere RMKill Accmsgs
  17. RMIfThere RMKill Netmsgs
  18. |
  19. IF "<Inet$Path>" = "" THEN Set Run$Path <Run$Path>,<Obey$Dir>.bin.
  20. Set Inet$Path <Obey$Dir>.
  21. |
  22. IconSprites Inet:!Sprites
  23. |
  24. | configure host name driver type etc.
  25. |
  26. Run Inet:!Configure
  27. |
  28. | Load up the required modules.
  29. |
  30. RMEnsure AUNMsgs 0.06 RMLoad System:Modules.Network.AUNMsgs
  31. RMEnsure AUNMsgs 0.06 Error You need AUN Messages 0.06 or later to run !Internet
  32. RMEnsure MbufManager 0.13 RMLoad System:Modules.Network.MManager
  33. RMEnsure MbufManager 0.13 Error You need Mbuf Manager 0.13 or later to run !Internet
  34. |
  35. | Ensure we have Internet 4.07. If we load a new Internet module we must
  36. | restart Access, if it is present.
  37. |
  38. SetEval Inet$Restart 0
  39. RmEnsure Internet 4.07 SetEval Inet$Restart 1
  40. RMEnsure Internet 4.07 RMLoad System:Modules.Network.Internet
  41. RMEnsure Internet 4.07 Error You need Internet 4.07 or later to run !Internet
  42. IF Inet$Restart = 0 AND "<Inet$Gateway>" = "Yes" THEN InetGateway on
  43. IF Inet$Restart THEN RMIfThere RMReInit Freeway
  44. IF Inet$Restart THEN RMIfThere RMReInit ShareFS
  45. SetEval Inet$KickFiler Inet$Restart
  46. RMEnsure ShareFS 0 SetEval Inet$KickFiler 0
  47. IF "<Wimp$State>" = "desktop" AND Inet$KickFiler THEN Filer_Run Inet:utils.NewFiler
  48. Unset Inet$KickFiler
  49. Unset Inet$Restart
  50. |
  51. | Run the start-up script
  52. |
  53. Run <Inet$Startup>
  54. IF "<Inet$Error>" <> "" THEN Error <Inet$Error>
  55.  
  56. IF "<Inet$RouteDOptions>" <> "" THEN RMLoad System:Modules.Network.RouteD
  57.  
  58. Unset Alias$RMIfThere
  59.