Changeset 15226 in project

Timestamp:

07/15/09 22:08:08 (11 years ago)

Author:

certainty

Message:

Changes applied for certainty (88.70.194.195) through svnwiki:

File:

• wiki/eggref/4/uri-dispatch (modified) (1 diff)

wiki/eggref/4/uri-dispatch

@@ -15 +15 @@
 === Documentation
 
+Will come soon
+
+=== Examples
+<pre>
+
+(use spiffy intarweb uri-common uri-dispatch)
+
+(define (my-dispatch-error . path)
+  (send-status 404 (sprintf "My Dispatch-error ~A" path)))
+
+
+(module example
+  (echo webiota)
+  (import scheme chicken srfi-1 extras)
+  (require-library spiffy)
+  (import (only spiffy send-status))
+
+  (define (webiota #!optional (start "0") (steps "10") #!rest rest)
+    (send-status 200 (sprintf "webiota called: ~A" (iota (string->number steps) (string->number start)))))
+
+  (define (echo . args)
+    (send-status 200 (sprintf "echo: ~A" args))))
+
+(define (outsidemodule . args) (send-status 200 "Outside module")) 
+
+(vhost-map `(("localhost" . ,(lambda (continue)
+                              (parameterize ((handle-not-found  (lambda (path) (dispatch-uri (request-uri (current-request)))))
+                                             (dispatch-error (lambda path (send-status 404 (sprintf "Path not found: ~A" path)))))
+                                (continue))))))
+(start-server)
+
+</pre> 
+
+Now start the server and visit the following pages:
+* http://localhost:8080/example/webiota/2/10/
+* http://localhost:8080/example/webiota/2/20/
+* http://localhost:8080/example/webiota/echo/this/please
+* http://localhost:8080/outsidemodule
+* http://localhost:8080/i/do/not/exist