Anonymous user
Hello world/Web server: Difference between revisions
→Tcl: Added implementation
(→Tcl: Added implementation) |
|||
Line 142:
Start server:
<pre>$ pil @lib/http.l @lib/xhtml.l -'server 8080 "goodbye.l"' -wait</pre>
=={{header|Tcl}}==
<lang tcl>proc accept {chan addr port} {
while {[gets $chan] ne ""} {}
puts $chan "HTTP/1.1 200 OK\nConnection: close\nContent-Type: text/plain\n"
puts $chan "Goodbye, World!"
close $chan
}
socket -server accept 8080
vwait forever</lang>
{{omit from|Locomotive Basic|No sockets}}
| |||