home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 12 / AU_CD12.iso / INTERNET / !BOOT / RESOURCES / !INTERNET / FILES / RUNSTACK < prev    next >
Encoding:
Text File  |  1999-01-09  |  2.6 KB  |  70 lines
  1. | > InetDBase:RunStack
  2. | Run file for the Internet stack (version 5.xx)
  3. | Automatically generated by !InetConfg application
  4. |
  5. Set Alias$RMIfThere SetEval Test$Eval 1|M RMEnsure %%1 0 SetEval Test$Eval 0|MIf Test$Eval Then %%0 %%1|MUnset Test$Eval
  6. |
  7. | If any DCI2 modules are loaded then kill them
  8. RMIfThere RMKill InternetA
  9. RMIfThere RMKill AccMsgs
  10. RMIfThere RMKill NetMsgs
  11. |
  12. | An extant Mbuf Manager cannot usually be killed
  13. SetEval Inet$BadMbufManager 0
  14. RMEnsure MbufManager 0.17 SetEval Inet$BadMbufManager 1
  15. IF Inet$BadMbufManager THEN RMEnsure MbufManager 0.00 SetEval Inet$BadMbufManager 0
  16. If Inet$BadMbufManager THEN <InetSuite$Dir>.Utils.X Unplug MbufManager
  17. If Inet$BadMbufManager THEN Error Removing old MbufManager module. Please shutdown the computer, then restart it
  18. Unset Inet$BadMbufManager
  19. |
  20. | Configure host name, driver type, etc.
  21. Unset Inet$Error
  22. Unset InetSuite$Error
  23. Run InetDBase:Configure
  24. |
  25. | Load up the required modules.
  26. WimpSlot -min 128K
  27. RMEnsure SerialDeviceDriver 0.22 RMLoad Inet:Rm.SerialDev
  28. RMEnsure AUNMsgs     0.07 RMLoad Inet:Rm.AUNMsgs
  29. RMEnsure MbufManager     0.00 RMLoad Inet:Rm.MManager
  30. RMEnsure MbufManager     0.17 Error !InetSuite requires MbufManager 0.17 or later. Please type *Unplug MbufManager and reboot your machine.
  31. |
  32. | Ensure we have Internet 5.02 or later 
  33. WimpSlot -min 128K
  34. SetEval Inet$Restart 0
  35. RmEnsure Internet     5.02 SetEval Inet$Restart 1
  36. RMEnsure Internet     5.02 RMLoad Inet:Rm.Internet
  37. |
  38. | Load driver and initialise Serial PPP/SLIP interface, if required
  39. RMEnsure ArcPPP 1.01 RMLoad Inet:Drivers.PPP
  40. |
  41. | Load driver and initialise Ethernet interface, if required
  42.  
  43. |
  44. If "<Inet$Error>" <> "" Then Error Can't start Internet stack: <Inet$Error>
  45. If "<Inet$RouteDOptions>" <> "" Then RMEnsure RouteD 2.05 RMLoad Inet:Rm.RouteD
  46. |
  47. | Set the route for outgoing Ethernet packets, if required
  48. IfConfig -e lo0 loopback
  49. IfConfig -e lo0 mtu 1500
  50. RouteFix -e -delete 0.0.0.0
  51. |
  52. | Load any other modules here
  53. RMEnsure Resolver    0.52 RMLoad Inet:Rm.Resolver
  54. ResolverConfig
  55. |
  56. | Bring back Access / Access+ if required
  57. If Inet$Restart = 0 AND "<Inet$IsGateway>" = "Yes" then InetGateway on
  58. If Inet$Restart then RMIfThere RMReInit Freeway
  59. If Inet$Restart then RMIfThere RMReInit ShareFS
  60. If Inet$Restart then RMIfThere InetServ_Reconfigure InetServer
  61. If Inet$Restart then RMIfThere RMReInit NFS
  62. RMEnsure ShareFS 0 SetEval Inet$Restart 0
  63. If Inet$Restart then RMReInit ADFSFiler
  64. If "<Wimp$State>" = "desktop" AND Inet$Restart then Filer_Run <InetSuite$Dir>.Utils.NewFiler
  65. Unset Inet$Restart
  66. Unset Alias$RMIfThere
  67. |
  68. | Any problems?
  69. If "<Inet$Error>" <> "" Then Error Can't make Internet connection: <Inet$Error>
  70.