|
| FreeNet TCP/IP Stack ShutDown for RISC OS 3.7
|
| Kills the stack and any loaded driver

|
| Take down the loopback driver
|
Set FreeNetLoaded yes
RMEnsure FreeNet 0 Set FreeNetLoaded no
If "<FreeNetLoaded>"="yes" Then ifconfig lo0 down

|
| Kill SLIPdriver, if loaded
|
Set SLIPdriverLoaded yes
RMEnsure SLIPdriver 0 Set SLIPdriverLoaded no
If "<SLIPdriverLoaded>"="yes" Then RMKill SLIPdriver
Unset SLIPdriverLoaded

|
| Kill PPPdriver, if loaded
|
Set PPPdriverLoaded yes
RMEnsure PPPdriver 0 Set PPPdriverLoaded no
If "<PPPdriverLoaded>"="yes" Then PPPKill 0
If "<PPPdriverLoaded>"="yes" Then Unset PPP$Connected
If "<PPPdriverLoaded>"="yes" Then RMKill PPPdriver
Unset PPPdriverLoaded

|
| Kill the stack
|
If "<FreeNetLoaded>"="yes" then RMKill FreeNet
If "<FreeNetLoaded>"="yes" then RMKill Internet
Unset FreeNetLoaded

If "<Inet$Timer>"<>"" Then Echo <Sys$Date> <Sys$Year> <Sys$Time>, ShutDown after <Inet$Timer> { >> <FreeUser$Dir>.logfile }
If "<Inet$Timer>"<>"" Then UnsetCV Inet$Timer
If "<Inet$StackLoaded>"<>"" Then Unset Inet$StackLoaded