9 lines
233 B
Tcl
9 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
|