Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/Hello-world-Web-server/Tcl/hello-world-web-server-1.tcl
+++ b/Task/Hello-world-Web-server/Tcl/hello-world-web-server-1.tcl
--- a/Task/Hello-world-Web-server/Tcl/hello-world-web-server-2.tcl
+++ b/Task/Hello-world-Web-server/Tcl/hello-world-web-server-2.tcl
@ -0,0 +1,8 @@
+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