home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 12
/
AU_CD12.iso
/
INTERNET
/
!BOOT
/
RESOURCES
/
!INTERNET
/
FILES
/
RUNSTACK
< prev
next >
Wrap
Text File
|
1999-01-09
|
3KB
|
70 lines
| > 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 SerialDeviceDriver 0.22 RMLoad Inet:Rm.SerialDev
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
RMEnsure ArcPPP 1.01 RMLoad Inet:Drivers.PPP
|
| 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
IfConfig -e lo0 loopback
IfConfig -e lo0 mtu 1500
RouteFix -e -delete 0.0.0.0
|
| Load any other modules here
RMEnsure Resolver 0.52 RMLoad Inet:Rm.Resolver
ResolverConfig
|
| 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>