8 lines
233 B
Tcl
8 lines
233 B
Tcl
set s [socket stream.server 127.0.0.1:8080]
|
|
$s readable {
|
|
set client [$s accept]
|
|
$client puts "HTTP/1.1 200 OK\nConnection: close\nContent-Type: text/plain\n"
|
|
$client puts "Hello, World!\n"
|
|
$client close
|
|
}
|
|
vwait done
|