HIVE
/
TriOS
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

websrv: re-init connection forever

This commit is contained in:
Joerg Deckert 2014-07-23 08:23:25 +02:00
parent 7b7e5bde66
commit 6872d9d008
1 changed files with 8 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
system/regnatix/websrv.spin
View File

@ -64,7 +64,7 @@ VAR
long cog, random_value long cog, random_value
PUB main | i PUB main
rr_start rr_start
@ -85,23 +85,16 @@ PUB main | i
getcfg getcfg
ios.print(@strMsgEnd) ios.print(@strMsgEnd)
i := 0
repeat repeat
if ios.keystat > 0 if ios.keystat > 0
ios.key
quit quit
if (handleidx := ios.lan_listen(handleidx,80)) == $FF 'Empfangs-Socket auf Port 80 öffnen if (handleidx := ios.lan_listen(handleidx,80)) <> $FF 'Empfangs-Socket auf Port 80 öffnen
if i > 20 if ios.lan_isconnected(handleidx) 'bei bestehender Verbindung...
ios.print(@strErrorNoSock) if webThread == 0
quit ios.lan_txflush(handleidx)
else ios.lan_close(handleidx)
i++ handleidx := $FF
next
i := 0
if ios.lan_isconnected(handleidx) 'bei bestehender Verbindung...
if webThread == 0
ios.lan_txflush(handleidx)
ios.lan_close(handleidx)
handleidx := $FF
ios.stop ios.stop