; Exempelskript för att starta en TCP/IP-stack som inte returnerar
; när uppkopplingen är klar.
;
; Observera att det här skriptet är den första delen, du behöver
; också ändra på filen _starttcpscript2.
;
; För att använda det här skriptet, konfigurera AWeb till att
; använda det som program för "Starta TCP/IP-stack":
;  Kommando = (låda)/_starttcpscript
;  Argument = (inga)
;
; Se till att du ändrar lådan för _starttcpscript2 nedan till det du
; använder.
; =======================================================================

.key DUMMY/K ; så att vi kan använda <$$>
FailAt 10

; Sätt variabeln till vårt processnummer så att skriptet
; _starttcpscript2 kan avbryta oss om uppkopplingen misslyckades.

SetEnv STARTTCPPROCESS <$$>

; Starta TCP/IP-stacken i ett separat skal
;
; ***********************************************************************
; *** Ändra sökvägen i raden nedan till den sökväg där
; *** _starttcpscript2 kan hittas:

Run Execute AWeb-II:docs/_starttcpscript2

; ***********************************************************************

; Vänta till TCP/IP-biblioteket har "skapats".

FailAt 30
Lab WaitForLib

Wait 2

Version >NIL: "bsdsocket.library"

If WARN
  Skip Back WaitForLib
EndIf

; Rensa variabeln som innehåller vårt processnummer så att om
; TCP/IP-stacken misslyckas efter ett tag kommer det andra skriptet
; inte att avbryta någon oskyldig process.

UnSetEnv STARTTCPPROCESS