Fix error message arguments and test when the Claimed ID received from OP differs from the user supplied ID, and discovery for the received Claimed ID did not find the same endpoint.
Mon Aug 15 13:30:54 PDT 2011 Anton Vodonosov <avodonosov@yandex.ru>
* Fix error message arguments and test when the Claimed ID received from OP differs from the user supplied ID, and discovery for the received Claimed ID did not find the same endpoint.
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-07-25 12:59:27.000000000 -0700
+++ new-cl-openid/src/relying-party.lisp 2014-07-25 12:59:27.000000000 -0700
@@ -275,8 +275,8 @@
(if (uri= (provider-endpoint-uri cap) (provider-endpoint-uri authproc))
(setf (claimed-id authproc) (claimed-id cap)) ; Accept claimed ID change
(err :invalid-claimed-id
- "Received Claimed ID ~A differs from user-supplied ~A, and discovery for received one did not find the same endpoint."
- (provider-endpoint-uri authproc) (provider-endpoint-uri cap)))))
+ "Received Claimed ID ~A differs from user-supplied ~A, and discovery for the received Claimed ID did not find the same endpoint."
+ (message-field message "openid.claimed_id") (claimed-id authproc)))))
;; 11.3. Checking the Nonce
(let ((nonce (message-field message "openid.response_nonce")))