home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 12 / AU_CD12.iso / INTERNET / !BOOT / RESOURCES / !INTERNET / FILES / KILLSTACK < prev    next >
Encoding:
Text File  |  1999-01-09  |  1.0 KB  |  29 lines
  1. | > InetDBase:KillStack
  2. | Run file for closing down the Internet stack
  3. | Automatically generated by !InetConfg application
  4. |
  5. Set Alias$RMIfThere SetEval Test$Eval 1|M RMEnsure %%1 0 SetEval Test$Eval 0|MIf Test$Eval Then %%0 %%1|MUnset Test$Eval
  6. Unset InetSuite$Error
  7. |
  8. | Do we want to preserve the Internet stack (Access / Access+ running?)
  9. SetEval Inet$Access 1
  10. RMEnsure ShareFS 0 SetEval Inet$Access 0
  11. SetEval Inet$LanMan 1
  12. RMEnsure LanManFS 0 SetEval Inet$LanMan 0
  13. |
  14. | Insert commands here to closedown/kill any modules that you want on a 'Disconnect'
  15. | eg, "RMIfThere RMKill Internet"
  16. RMIfThere InetServ_Shutdown InetServer
  17. RMIfThere RMKill ArcPPP
  18. RMIfThere RMKill Resolver
  19. |
  20. | If Access/Access + running, then don't kill stack
  21. IF Inet$Access = 0 AND Inet$LanMan = 0 AND "<Inet$EtherDevice>" <> "" then RMIfThere RMKill <Inet$EtherDevice>
  22. IF Inet$Access = 0 AND Inet$LanMan = 0 then RMIfThere RMKill Internet
  23. IF Inet$Access = 0 AND Inet$LanMan = 0 then RMIfThere RMKill SOCKS
  24. |
  25. | Anything else left to tidy up
  26. Unset Inet$Access
  27. Unset Inet$LanMan
  28. Unset Alias$RMIfThere
  29.