close #21 INITIATE-AUTHENTICATION: return the URI as a string
Mon Jul 11 17:22:38 PDT 2011 Anton Vodonosov <avodonosov@yandex.ru>
* close #21 INITIATE-AUTHENTICATION: return the URI as a string
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-04-20 19:21:34.000000000 -0700
+++ new-cl-openid/examples/relying-party.lisp 2014-04-20 19:21:34.000000000 -0700
@@ -96,9 +96,8 @@
;; section 7.1 Initiation.
((get-parameter "openid_identifier")
(redirect
- (princ-to-string
- (initiate-authentication *relying-party* (get-parameter "openid_identifier")
- :immediate-p (get-parameter "checkid_immediate")))))
+ (initiate-authentication *relying-party* (get-parameter "openid_identifier")
+ :immediate-p (get-parameter "checkid_immediate"))))
;; When there are no parameters, or there are some unexpected
;; ones, we just assume it is an initial request and show the
@@ -115,4 +114,4 @@
(push (create-prefix-dispatcher prefix 'handle-openid-request)
*dispatch-table*))
-; (init-relying-party "http://example.com/" "/cl-openid/")
+(init-relying-party "http://localhost:4242/" "/cl-openid/")
diff -rN -u old-cl-openid/src/relying-party.lisp new-cl-openid/src/relying-party.lisp
--- old-cl-openid/src/relying-party.lisp 2014-04-20 19:21:34.000000000 -0700
+++ new-cl-openid/src/relying-party.lisp 2014-04-20 19:21:34.000000000 -0700
@@ -132,23 +132,23 @@
(gc-authprocs rp)
(setf (timestamp authproc) (get-universal-time)
- (return-to authproc)
- (copy-uri (root-uri rp)
- :query (drakma::alist-to-url-encoded-string
- (acons +authproc-handle-parameter+ handle nil)
- :utf-8)))
+ (return-to authproc) (copy-uri (root-uri rp)
+ :query (drakma::alist-to-url-encoded-string
+ (acons +authproc-handle-parameter+ handle nil)
+ :utf-8)))
(with-lock-held ((authprocs-lock rp))
(setf (gethash handle (authprocs rp)) authproc))
(values
+ (princ-to-string
(request-authentication-uri authproc
:immediate-p immediate-p
:realm (realm rp)
:association (ap-association rp authproc)
- :extra-parameters extra-parameters)
- handle
- authproc))
+ :extra-parameters extra-parameters))
+ handle
+ authproc))
;; Nonces
(defun nonce-universal-time (nonce)