Browse code
whitespace hostname
Ed L authored on 17/10/2015 06:50:01
Showing 2 changed files
Showing 2 changed files
... | ... |
@@ -93,7 +93,7 @@ |
93 | 93 |
(token-endpoint "https://graph.facebook.com/v2.3/oauth/access_token") |
94 | 94 |
(userinfo-endpoint "https://graph.facebook.com/v2.3/me") |
95 | 95 |
(auth-scope "email") |
96 |
- (redirect-uri "http://srv2.elangley.org:9090/oidc_callback/facebook"))) |
|
96 |
+ (redirect-uri "http://whitespace.elangley.org/oidc_callback/facebook"))) |
|
97 | 97 |
|
98 | 98 |
(sheeple:defreply get-access-token ((endpoint-schema *fbook-endpoint-schema*) (code sheeple:=string=)) |
99 | 99 |
(cl-json:decode-json-from-string |
... | ... |
@@ -227,7 +227,7 @@ |
227 | 227 |
(discover-endpoints *goog-endpoint-schema* |
228 | 228 |
"https://accounts.google.com/.well-known/openid-configuration" |
229 | 229 |
:gat #'goog-get-access-token) |
230 |
- (setf (redirect-uri *goog-endpoint-schema*) "http://srv2.elangley.org:9090/oidc_callback/google")) |
|
230 |
+ (setf (redirect-uri *goog-endpoint-schema*) "http://whitespace.elangley.org/oidc_callback/google")) |
|
231 | 231 |
|
232 | 232 |
(sheeple:defreply get-user-info ((endpoint-schema *goog-endpoint-schema*) (access-token sheeple:=string=)) |
233 | 233 |
(format t "getting user data: ~a~%" "blarg") |