Commit 16c07156 authored by Anton Vodonosov's avatar Anton Vodonosov
Browse files

add immediate-p slot to the authproc structure

Ignore-this: 482abe17aac56000f90751f27f92ad6b

darcs-hash:e37ed58a0bbe644141f03889eb83a29dda01d914
parent e805f6a7
......@@ -12,6 +12,7 @@
(protocol-version-minor 0 :type (unsigned-byte 8))
(claimed-id nil :type uri)
(op-local-id nil :type (or uri null))
(immediate-p nil)
(return-to nil :type (or uri null))
(xrds-location nil :type (or uri null))
(provider-endpoint-uri nil :type (or uri null))
......
......@@ -17,7 +17,8 @@
#:initiate-authentication #:+authproc-handle-parameter+ #:handle-indirect-response
;; AUTH-PROCESS structure
#:auth-process #:auth-process-p #:protocol-version-major #:protocol-version-minor
#:protocol-version #:claimed-id #:op-local-id #:return-to #:xrds-location
#:protocol-version #:claimed-id #:op-local-id #:immediate-p
#:return-to #:xrds-location
#:provider-endpoint-uri #:timestamp
;; assertion error condition
#:openid-assertion-error #:code #:reason #:authproc #:message
......
......@@ -131,7 +131,7 @@ The latter two values are useful if the client code needs to track the process."
(gc-authprocs rp)
(setf (timestamp authproc) (get-universal-time)
(immediate-p authproc) immediate-p
(return-to authproc) (copy-uri (root-uri rp)
:query (alist-to-url-encoded-string
(acons +authproc-handle-parameter+ handle nil)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment