| > InetDBase:RunStack
| Run file for the Internet stack (version 4.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
|
| 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.03 RMLoad Inet:Rm.AUNMsgs
RMEnsure MbufManager 	0.00 RMLoad Inet:Rm.MManager
|
| Ensure we have Internet 4.03 or later 
WimpSlot -min 128K
SetEval Inet$Restart 0
RmEnsure Internet 	4.03 SetEval Inet$Restart 1
RMEnsure Internet 	4.03 RMLoad Inet:Rm.Internet4
|
| 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>
