; Exempelskript för att starta en TCP/IP-stack som inte returnerar
; när uppkopplingen är klar.
;
; Det här är det andra skriptet, det som startar själva stacken.
; Du skall inte konfigurera det här skriptet i AWeb, det startas
; från skriptet _starttcpscript.
;
; Se till att du ändrar låda och programnamn i det här skriptet till
; den TCP/IP-stack du använder.
; =======================================================================

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

; Kom ihåg vilken CLI-process vi kör i

SetEnv TCPPROCESS <$$>

; Avsluta inte skriptet om något går fel

FailAt 30

; Starta TCP/IP-stacken.
;
; ***********************************************************************
; *** Ändra raden nedan till att starta den TCP/IP-stack du
; *** använder, såsom Miami eller TermiteTCP.

TCPPath:TCPProgram

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

; Om uppkopplingen inte lyckades, avsluta startskriptet som annars
; skulle vänta för evigt. Om startskriptet inte körs längre kommer
; variabeln inte att vara satt, och Break-kommandot misslyckas.

If WARN
	Break $STARTTCPPROCESS D
EndIf

; Rensa variabeln med vårt processnummer så att _stoptcpscript inte
; av misstag avslutar en annan process.

UnSetEnv TCPPROCESS