Changeset 15256 in project

Timestamp:

07/25/09 20:00:18 (11 years ago)

Author:

sjamaan

Message:

Give an example of how to use the xml-rpc server under Spiffy.

File:

• wiki/eggref/4/xml-rpc (modified) (2 diffs)

wiki/eggref/4/xml-rpc

@@ -102 +102 @@
 <procedure>(make-xml-rpc-request-handler procedures)</procedure>
 
-This creates a procedure which accepts two arguments; an [intarweb]
+This creates a procedure which accepts two arguments; an [[intarweb]]
 request object and a response object.  It will read an XML-RPC request
 from the request-port and respond to the request with the response
@@ -411 +411 @@
   -> Hello, you!
 
+The same server, running as a Spiffy vhost request handler:
+
+<enscript highlight=scheme>
+(use spiffy xml-rpc)
+
+(define (say-hello var)
+  (sprintf "Hello, ~A!" var) )
+
+(vhost-map
+  `(("test1" . ,(let ((handler (make-xml-rpc-request-handler
+                                 `((hello . ,say-hello)))))
+                  (lambda _
+                     (handler (current-request)
+                              (current-response)))))))
+
+(start-server)
+</enscript>
+
+When requesting any resource under the host {{test1}}, this will
+trigger the XML-RPC handler.
+
+<enscript highlight=scheme>
+(require-extension xml-rpc-client)
+
+(define srv1 (xml-rpc-server "http://test1:8080/RPC2"))
+(define hello1 (srv "hello"))
+
+(define srv2 (xml-rpc-server "http://localhost:8080/RPC2"))
+(define hello2 (srv "hello"))
+
+
+;; Prints:
+;; -> Hello, you!
+(print "-> " (hello1 "you"))
+
+;; Throws an (exn http client-error), with 404 not found:
+(print "-> " (hello2 "you"))
+</enscript>
+
+If you wish more control over exactly under which URIs the XML
+resource is available, you could have a look at [[uri-dispatch]], or
+roll your own URI path checker.
+
 === Changelog