home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 12
/
AU_CD12.iso
/
INTERNET
/
!BOOT
/
RESOURCES
/
!INTERNET
/
FILES
/
KILLSTACK
< prev
next >
Wrap
Text File
|
1999-01-09
|
1KB
|
29 lines
| > 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
RMIfThere RMKill Resolver
|
| 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 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