| > InetDBase:KillStack
| Run file for closing down the Internet stack
| 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
Unset InetSuite$Error
|
| Do we want to preserve the Internet stack (Access / Access+ running?)
SetEval Inet$Access 1
RMEnsure ShareFS 0 SetEval Inet$Access 0
SetEval Inet$LanMan 1
RMEnsure LanManFS 0 SetEval Inet$LanMan 0
|
| Insert commands here to closedown/kill any modules that you want on a 'Disconnect'
| eg, "RMIfThere RMKill Internet"
RMIfThere InetServ_Shutdown InetServer
RMIfThere RMKill ArcPPP
| Modified for Select usage by P.Vigay - 25/5/2002
Set Inet$Select 1
RMEnsure Resolver 0.75 SetEval Inet$Select 0
If Inet$Select = 0 Then RMIfThere RMKill Resolver
Set Inet$Select 1
RMEnsure Internet 5.37 SetEval Inet$Select 0
|
| If Access/Access + running, then don't kill stack
IF Inet$Access = 0 AND Inet$LanMan = 0 AND "<Inet$EtherDevice>" <> "" then RMIfThere RMKill <Inet$EtherDevice>
IF Inet$Access = 0 AND Inet$LanMan = 0 AND Inet$Select = 0 then RMIfThere RMKill Internet
IF Inet$Access = 0 AND Inet$LanMan = 0 then RMIfThere RMKill SOCKS
|
| Anything else left to tidy up
Unset Inet$Access
Unset Inet$LanMan
Unset Alias$RMIfThere
UnSet Inet$Select
