| > InetDBase:RunStack
| Run file for the Internet stack (version 5.xx)
| Automatically generated by !InetConfg application
|
Set Alias$RMIfThere SetEval Test$Eval 1|M RMEnsure %%1 0 SetEval Test$Eval 0|MIf Test$Eval Then %%0 %%1|MUnset Test$Eval
|
| If any DCI2 modules are loaded then kill them
RMIfThere RMKill InternetA
RMIfThere RMKill AccMsgs
RMIfThere RMKill NetMsgs
|
| An extant Mbuf Manager cannot usually be killed
SetEval Inet$BadMbufManager 0
RMEnsure MbufManager 0.17 SetEval Inet$BadMbufManager 1
IF Inet$BadMbufManager THEN RMEnsure MbufManager 0.00 SetEval Inet$BadMbufManager 0
If Inet$BadMbufManager THEN <InetSuite$Dir>.Utils.X Unplug MbufManager
If Inet$BadMbufManager THEN Error Removing old MbufManager module. Please shutdown the computer, then restart it
Unset Inet$BadMbufManager
|
| Configure host name, driver type, etc.
Unset Inet$Error
Unset InetSuite$Error
Run InetDBase:Configure
>
|
| Load up the required modules.
WimpSlot -min 128K
>
RMEnsure AUNMsgs 	0.07 RMLoad Inet:Rm.AUNMsgs
RMEnsure MbufManager 	0.00 RMLoad Inet:Rm.MManager
RMEnsure MbufManager 	0.17 Error !InetSuite requires MbufManager 0.17 or later. Please type *Unplug MbufManager and reboot your machine.
|
| Ensure we have Internet 5.02 or later 
WimpSlot -min 128K
SetEval Inet$Restart 0
RmEnsure Internet 	5.02 SetEval Inet$Restart 1
RMEnsure Internet 	5.02 RMLoad Inet:Rm.Internet
|
| Load driver and initialise Serial PPP/SLIP interface, if required
>
|
| Load driver and initialise Ethernet interface, if required
>
|
If "<Inet$Error>" <> "" Then Error Can't start Internet stack: <Inet$Error>
If "<Inet$RouteDOptions>" <> "" Then RMEnsure RouteD 2.05 RMLoad Inet:Rm.RouteD
|
| Set the route for outgoing Ethernet packets, if required
>
|
| Load any other modules here
>
|
| Bring back Access / Access+ if required
If Inet$Restart = 0 AND "<Inet$IsGateway>" = "Yes" then InetGateway on
If Inet$Restart then RMIfThere RMReInit Freeway
If Inet$Restart then RMIfThere RMReInit ShareFS
If Inet$Restart then RMIfThere InetServ_Reconfigure InetServer
If Inet$Restart then RMIfThere RMReInit NFS
RMEnsure ShareFS 0 SetEval Inet$Restart 0
If Inet$Restart then RMReInit ADFSFiler
If "<Wimp$State>" = "desktop" AND Inet$Restart then Filer_Run <InetSuite$Dir>.Utils.NewFiler
Unset Inet$Restart
Unset Alias$RMIfThere
|
| Any problems?
If "<Inet$Error>" <> "" Then Error Can't make Internet connection: <Inet$Error>
