[TCL] socket opening / waiting for conneciton

[Vampier]

Op dit moment ben ik een script aan het schrijven voor een MSX emulator die TCL ondersteunt. Echter loop ik tegen een probleem aan met het werken met sockets,

code:

proc Server {channel clientaddr clientport} {
    set data [gets $channel]
    puts "Connection from $clientaddr registered"
    puts $channel "<h3>Welcome to the openMSX info page</h3>"
    puts $channel "<hr>"
    puts $channel "The local time : [clock format [clock seconds]]<br/>"
    puts $channel "Current scaler : [set scaler]"
    puts $channel "<hr>"
    puts $channel "Connection from $clientaddr</br>"
    close $channel
}

socket -server Server 81
vwait forever

Dit werkt fantastic... echter wordt de emulatie niet opgepakt na de 'vwait forever'

Nu vraag ik me af is er een manier om te checken ofdat er iemand op poort 81 wil connecten door ene handeler te geven zoals set

code:

sMSX [socket -server Server 81]

Maar hier geen

code:

vwait forever

voor te gebruiken die het in een ogenschijnlijke endless loop gooit.

Alle tips of suggesties zijn welkom

[Vampier]

subtiel kickje naar boven

[Vampier]

opgelost, event handeling aangepast van het programma wat TCL afhandelde.