perlsky is a Perl 5 implementation of an AT Protocol Personal Data Server.
13
fork

Configure Feed

Select the types of activity you want to include in your feed.

Align remaining OAuth and preference void responses

alice 5d761a0c 5a151222

+4 -4
+1 -1
lib/ATProto/PDS/Auth/OAuth.pm
··· 367 367 368 368 $c->res->headers->header('Cache-Control' => 'no-store'); 369 369 $c->res->headers->header('Pragma' => 'no-cache'); 370 - $c->render(json => {}); 370 + $c->render(data => q()); 371 371 } 372 372 373 373 sub authenticate_oauth_access_token ($self, $c, $token, %opts) {
+1 -1
lib/ATProto/PDS/ServiceProxy/Preferences.pm
··· 74 74 75 75 my @stored = grep { !_pref_is_read_only($_->{'$type'} // q()) } @$preferences; 76 76 $c->store->put_preferences($account->{did}, 'app.bsky', \@stored); 77 - $c->render(json => {}); 77 + $c->render(data => q()); 78 78 return 200; 79 79 } 80 80
+1 -1
t/oauth.t
··· 226 226 client_assertion_type => 'urn:ietf:params:oauth:client-assertion-type:jwt-bearer', 227 227 client_assertion => _client_assertion($client_metadata->{client_id}, $revoke_url, $client_jwk, $client_private), 228 228 })->status_is(200) 229 - ->json_is({}); 229 + ->content_is(q()); 230 230 231 231 $t->get_ok('/xrpc/com.atproto.server.getSession' => { 232 232 Authorization => "DPoP $refreshed->{access_token}",
+1 -1
t/service-proxy.t
··· 225 225 saved => [], 226 226 }], 227 227 })->status_is(200) 228 - ->json_is({}); 228 + ->content_is(q()); 229 229 230 230 $t->get_ok('/xrpc/app.bsky.actor.getPreferences' => { 231 231 Authorization => "Bearer $access",