re-org of rnd

1 files changed, 24 insertions, 0 deletions

diff --git a/rnd/guile/play.scm b/rnd/guile/play.scm
new file mode 100644
index 0000000..92d5538
--- /dev/null
+++ b/rnd/guile/play.scm
@@ -0,0 +1,24 @@
+;;; Hello HTTP server
+(use-modules 
+  (web server)
+  (web request)
+  (web response)
+  (web uri))
+
+(define (request-path-components request)
+  (split-and-decode-uri-path (uri-path (request-uri request))))
+
+(define (hello-handler request body)
+  (if (equal? (request-path-components request)
+              '("banana"))
+      (values '((content-type . (text/plain)))
+              "banana kiwi apple pineapple watermelon grapefruit")
+      (not-found request)))
+
+(define (not-found request)
+  (values (build-response #:code 404)
+          (string-append "Resource not found: "
+                         (uri->string (request-uri request)))))
+
+
+(run-server hello-handler)