perlsky is a Perl 5 implementation of an AT Protocol Personal Data Server.
Align OAuth metadata with ATProto clients
+10
+9
lib/ATProto/PDS/Auth/OAuth.pm
+9
lib/ATProto/PDS/Auth/OAuth.pm
···
50
50
my $issuer = $self->_issuer;
51
51
return {
52
52
issuer => $issuer,
53
+
scopes_supported => [
54
+
'atproto',
55
+
'transition:email',
56
+
'transition:generic',
57
+
'transition:chat.bsky',
58
+
],
59
+
subject_types_supported => ['public'],
53
60
authorization_endpoint => $issuer . '/oauth/authorize',
54
61
token_endpoint => $issuer . '/oauth/token',
55
62
revocation_endpoint => $issuer . '/oauth/revoke',
56
63
pushed_authorization_request_endpoint => $issuer . '/oauth/par',
57
64
jwks_uri => $issuer . '/oauth/jwks',
58
65
response_types_supported => ['code'],
66
+
response_modes_supported => ['query', 'fragment', 'form_post'],
59
67
grant_types_supported => ['authorization_code', 'refresh_token'],
60
68
code_challenge_methods_supported => ['S256'],
69
+
prompt_values_supported => ['none', 'login', 'consent', 'select_account', 'create'],
61
70
token_endpoint_auth_methods_supported => ['private_key_jwt', 'none'],
62
71
token_endpoint_auth_signing_alg_values_supported => ['ES256'],
63
72
dpop_signing_alg_values_supported => ['ES256'],
+1
t/app-routes.t
+1
t/app-routes.t
···
66
66
$t->get_ok('/.well-known/oauth-authorization-server')
67
67
->status_is(200)
68
68
->json_is('/issuer' => 'http://127.0.0.1:7755')
69
+
->json_is('/scopes_supported/0' => 'atproto')
69
70
->json_is('/authorization_endpoint' => 'http://127.0.0.1:7755/oauth/authorize')
70
71
->json_is('/token_endpoint' => 'http://127.0.0.1:7755/oauth/token')
71
72
->json_is('/pushed_authorization_request_endpoint' => 'http://127.0.0.1:7755/oauth/par');