home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 12 / AU_CD12.iso / INTERNET / !BOOT / RESOURCES / !INTERNET / !RUN < prev    next >
Text File  |  1999-07-04  |  3KB  |  72 lines
  1. |================================================================|
  2. | Run file for !Internet V5.00 (21st May 1996)                   |
  3. |                                                                |
  4. | Copyright (C) Acorn Computers Ltd., 1996                       |
  5. |================================================================|
  6.  
  7. IF "<Inet$Path>" = "" THEN Set Run$Path <Run$Path>,<Obey$Dir>.bin.
  8. Set Inet$Path <Obey$Dir>.
  9. Set InetDBase$Path <Obey$Dir>.files.
  10. IconSprites <Obey$Dir>.!Sprites
  11. If "<Inet$Started>" = "Yes" THEN Obey
  12.  
  13. Unset Inet$Error
  14.  
  15. RMEnsure UtilityModule 3.50 Error This Internet application requires RISC OS 3 version 3.50 or later to run
  16. Run Inet:utils.CheckMem
  17. Set System$Path_Message System resources not found. Please run !System before !Internet.
  18. IF "<BootResources$Path>" = "" THEN Set BootResources$Path <Boot$Dir>.Resources.
  19. IF "<System$Path>" = "" THEN IfThere BootResources:!System Then /BootResources:!System
  20.  
  21. Set Alias$RMIfThere SetEval Test$Eval 1|MRMEnsure %%1 0 SetEval Test$Eval 0|MIf Test$Eval THEN %%0 %%1|MUnset Test$Eval
  22. Set Alias$CheckError IF "|<Inet$Error>" <> "" THEN Set Boot$Error |<Inet$Error>||MError |<Inet$Error>
  23.  
  24. RMIfThere RMKill Net
  25. RMIfThere RMKill NetG
  26. RMIfThere RMKill NetI
  27. RMIfThere RMKill ShareFS
  28. RMIfThere RMKill Freeway
  29. X Unplug InternetA
  30. X Unplug Netmsgs
  31. X Unplug Accmsgs
  32.  
  33. | An extant Mbuf Manager cannot usually be killed
  34. SetEval Inet$BadMbufManager 0
  35. RMEnsure MbufManager 0.17 SetEval Inet$BadMbufManager 1
  36. IF Inet$BadMbufManager THEN RMEnsure MbufManager 0.00 SetEval Inet$BadMbufManager 0
  37. If Inet$BadMbufManager THEN X Unplug MbufManager
  38. If Inet$BadMbufManager THEN Error Please shutdown the computer, then restart it
  39. Unset Inet$BadMbufManager
  40.  
  41. RMEnsure AUNMsgs     0.07 RMLoad System:Modules.Network.AUNMsgs
  42. RMEnsure AUNMsgs     0.07 Error !Internet requires AUNMsgs 0.07 or later
  43. RMEnsure Internet    5.02 RMLoad System:Modules.Network.Internet
  44. RMEnsure Internet    5.02 Error !Internet requires Internet 5.02 or later
  45. RMEnsure MbufManager 0.17 RMLoad System:Modules.Network.MManager
  46. RMEnsure MbufManager 0.17 Error !Internet requires MbufManager 0.17 or later
  47. RMEnsure MimeMap     0.10 RMLoad System:Modules.Network.MimeMap
  48.  
  49. SetEval Inet$KickFiler 0
  50.  
  51. IfThere Choices:Internet.Startup Then Run Choices:Internet.Startup Else Error Your !Internet application has not yet been configured. Please use InetSetup to configure it.
  52. IfThere Choices:Internet.User Then Run Choices:Internet.User
  53.  
  54. | Compatibility only
  55. Set Inet$Startup Choices:Internet.Startup
  56.  
  57. RMIfThere RMReInit NFS
  58.  
  59. Sysctl -ew net.inet.udp.checksum=1
  60. CheckError
  61.  
  62. IF "<Inet$IsGateway>" LEFT 1 = "Y" THEN InetGateway on
  63. IF "<Inet$RouteDOptions>" <> "" THEN RMLoad System:Modules.Network.RouteD
  64.  
  65. If "<Wimp$State>" = "desktop" AND Inet$KickFiler THEN Filer_Run Inet:utils.NewFiler
  66.  
  67. Unset Inet$KickFiler
  68. Unset Alias$RMIfThere
  69. Unset Alias$CheckError
  70.  
  71. Set Inet$Started Yes
  72.