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/Smalltalk/hello-world-web-server.st
+++ b/Task/Hello-world-Web-server/Smalltalk/hello-world-web-server.st
@ -0,0 +1,14 @@
+Smalltalk loadPackage:'stx:goodies/webServer'. "usually already loaded"
+|myServer service|
+
+myServer := HTTPServer startServerOnPort:8082.
+service := HTTPPluggableActionService new.
+service
+    register:[:request |
+        self halt: 'debugging'.
+        request reply:'<HTML><BODY><H1>Hello World</H1></BODY></HTML>'
+    ]
+    as:'hello'.
+service linkNames:#('/' ).
+service registerServiceOn: myServer.
+myServer start.