+3

bin/main.ml

reviewed

··· 54 54 ; ( get 55 55 , "/xrpc/com.atproto.server.checkAccountStatus" 56 56 , Api.Server.CheckAccountStatus.handler ) 57 57 + ; ( post 58 58 + , "/xrpc/com.atproto.server.activateAccount" 59 59 + , Api.Server.ActivateAccount.handler ) 57 60 ; ( get 58 61 , "/xrpc/com.atproto.repo.listMissingBlobs" 59 62 , Api.Repo.ListMissingBlobs.handler )

+7

pegasus/lib/api/server/activateAccount.ml

reviewed

··· 1 1 + let handler = 2 2 + Xrpc.handler ~auth:Bearer (fun ctx -> 3 3 + let did = Auth.get_authed_did_exn ctx.auth in 4 4 + let%lwt _ = Repository.load ~ensure_active:false did in 5 5 + let%lwt () = Data_store.activate_actor did ctx.db in 6 6 + let%lwt _ = Sequencer.sequence_account ctx.db ~did ~active:true () in 7 7 + Dream.empty `OK )

+8

pegasus/lib/data_store.ml

reviewed

··· 55 55 record_out] 56 56 id 57 57 58 58 + let activate_actor = 59 59 + [%rapper 60 60 + execute 61 61 + {sql| UPDATE actors SET deactivated_at = NULL WHERE did = %string{did} 62 62 + |sql}] 63 63 + 58 64 let update_actor_handle = 59 65 [%rapper 60 66 execute ··· 192 198 193 199 let get_actor_by_identifier id conn = 194 200 Util.use_pool conn @@ Queries.get_actor_by_identifier ~id 201 201 + 202 202 + let activate_actor did conn = Util.use_pool conn @@ Queries.activate_actor ~did 195 203 196 204 let update_actor_handle ~did ~handle conn = 197 205 Util.use_pool conn @@ Queries.update_actor_handle ~did ~handle