closes #22 adjust the exampels to hunchentoot 1.1.
Mon Aug 15 13:37:34 PDT 2011 Anton Vodonosov <avodonosov@yandex.ru>
* closes #22 adjust the exampels to hunchentoot 1.1.
diff -rN -u old-cl-openid/examples/provider.lisp new-cl-openid/examples/provider.lisp
--- old-cl-openid/examples/provider.lisp 2014-07-10 10:21:43.000000000 -0700
+++ new-cl-openid/examples/provider.lisp 2014-07-10 10:21:43.000000000 -0700
@@ -109,15 +109,14 @@
(defun provider-ht-handle ()
(multiple-value-bind (body code)
(handle-openid-provider-request *openid-provider*
- (append (post-parameters)
- (get-parameters))
+ (append (post-parameters*)
+ (get-parameters*))
:allow-unencrypted-association-p (ssl-p))
-
(cond
((<= 300 code 399) ; Redirect, body is actually an URI
(redirect body :code code))
- (t (setf (return-code) code) ; Set return code
+ (t (setf (return-code*) code) ; Set return code
body))))
;; Initialization
@@ -140,3 +139,4 @@
(pushnew 400 *approved-return-codes*))
; (init-provider "http://example.com/" "/cl-openid-op/")
+
diff -rN -u old-cl-openid/examples/relying-party.lisp new-cl-openid/examples/relying-party.lisp
--- old-cl-openid/examples/relying-party.lisp 2014-07-10 10:21:43.000000000 -0700
+++ new-cl-openid/examples/relying-party.lisp 2014-07-10 10:21:43.000000000 -0700
@@ -38,7 +38,7 @@
<dl>~:{<dt>~A</dt><dd>~A</dd>~}</dl>
<p style=\"text-align:right;\"><a href=\"~A\">return</a><p>"
(realm *relying-party*)
- (alist-to-lol (get-parameters))
+ (alist-to-lol (get-parameters*))
(root-uri *relying-party*)))
(defun access-granted-screen (authproc)
@@ -49,7 +49,7 @@
<dl>~:{<dt>~A</dt><dd>~A</dd>~}</dl>
<p style=\"text-align:right;\"><a href=\"~A\">return</a><p>"
(escape-for-html (prin1-to-string authproc))
- (alist-to-lol (get-parameters))
+ (alist-to-lol (get-parameters*))
(root-uri *relying-party*)))
(defun assertion-error-screen (err)
@@ -62,7 +62,7 @@
<p style=\"text-align:right;\"><a href=\"~A\">return</a><p>"
(code err)
err
- (alist-to-lol (get-parameters))
+ (alist-to-lol (get-parameters*))
(root-uri *relying-party*)))
;;; Actual handler
@@ -82,8 +82,8 @@
((get-parameter +authproc-handle-parameter+)
(handler-case
(let ((authproc (handle-indirect-response
- *relying-party* (get-parameters) ; The incoming message alist consists of GET parameters.
- (merge-uris (request-uri) (root-uri *relying-party*))))) ; Figuring out actual request URI may be more complicated with proxies
+ *relying-party* (get-parameters*) ; The incoming message alist consists of GET parameters.
+ (merge-uris (request-uri*) (root-uri *relying-party*))))) ; Figuring out actual request URI may be more complicated with proxies
(if authproc ; On successful id_res, AUTH-PROCESS structure is returned; on cancel response, we get NIL.
(access-granted-screen authproc)
(access-denied-screen)))