A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Hello-world-Web-server/Tcl/hello-world-web-server.tcl
+++ b/Task/Hello-world-Web-server/Tcl/hello-world-web-server.tcl
@ -0,0 +1,8 @@
+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