friessn
6c9cd67a08
Replaces the single shared HTTP Basic service-account credential (which caused a production outage from a username mismatch) with per-user login: Keycloak (already running on this VM for gcnm, now also fronted on auth.friessn.de with its own "homekeeper" realm) authenticates the user once via the landing page, FastAPI verifies the OIDC id_token and mints its own signed session JWT as a cookie, and both Shiny apps forward that per-session token as a Bearer credential instead of a static shared one. Authorization is a simple ALLOWED_USERS allowlist; the old auth.users table and bcrypt seeding are gone entirely. Also carries forward the in-progress rootless Podman/Quadlet migration (gitea, homekeeper, podman roles) and fixes a pre-existing bug where each role's handlers were malformed inside tasks/main.yml instead of their own handlers/main.yml, which broke ansible-playbook entirely. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01FbiCdckkTX2HyAkyi1R39d
103 lines
3.5 KiB
R
103 lines
3.5 KiB
R
.api_req <- function(api, path) {
|
|
httr2::request(paste0(api$base_url, path)) |>
|
|
httr2::req_auth_bearer_token(api$token)
|
|
}
|
|
|
|
# Extracts the hk_session cookie value from the raw Cookie header Shiny
|
|
# exposes on session$request (Rook-style request env).
|
|
get_session_token <- function(session) {
|
|
cookie_header <- session$request$HTTP_COOKIE
|
|
if (is.null(cookie_header) || !nzchar(cookie_header)) return(NULL)
|
|
for (pair in strsplit(cookie_header, ";\\s*")[[1]]) {
|
|
kv <- strsplit(pair, "=", fixed = TRUE)[[1]]
|
|
if (length(kv) >= 2 && trimws(kv[1]) == "hk_session") {
|
|
return(trimws(paste(kv[-1], collapse = "=")))
|
|
}
|
|
}
|
|
NULL
|
|
}
|
|
|
|
.api_check <- function(resp, path) {
|
|
status <- httr2::resp_status(resp)
|
|
if (status >= 400) {
|
|
body <- tryCatch(httr2::resp_body_string(resp), error = function(e) "")
|
|
log_error("api_error", path = path, status = status, body = body)
|
|
}
|
|
httr2::resp_check_status(resp)
|
|
}
|
|
|
|
api_get <- function(api, path, query = NULL) {
|
|
req <- .api_req(api, path)
|
|
if (!is.null(query) && length(query) > 0) {
|
|
query <- Filter(Negate(is.null), query)
|
|
if (length(query) > 0) req <- do.call(httr2::req_url_query, c(list(req), query))
|
|
}
|
|
resp <- httr2::req_error(req, is_error = \(r) FALSE) |> httr2::req_perform()
|
|
if (httr2::resp_status(resp) == 404) return(data.frame())
|
|
.api_check(resp, path)
|
|
result <- httr2::resp_body_json(resp, simplifyVector = TRUE)
|
|
if (is.null(result) || length(result) == 0) return(data.frame())
|
|
if (is.data.frame(result)) return(result)
|
|
as.data.frame(result, stringsAsFactors = FALSE)
|
|
}
|
|
|
|
api_get_one <- function(api, path, query = NULL) {
|
|
req <- .api_req(api, path)
|
|
if (!is.null(query) && length(query) > 0) {
|
|
query <- Filter(Negate(is.null), query)
|
|
if (length(query) > 0) req <- do.call(httr2::req_url_query, c(list(req), query))
|
|
}
|
|
resp <- httr2::req_error(req, is_error = \(r) FALSE) |> httr2::req_perform()
|
|
if (httr2::resp_status(resp) %in% c(404, 204)) return(data.frame())
|
|
.api_check(resp, path)
|
|
result <- httr2::resp_body_json(resp, simplifyVector = FALSE)
|
|
if (is.null(result) || length(result) == 0) return(data.frame())
|
|
as.data.frame(lapply(result, function(x) if (is.null(x)) NA else x), stringsAsFactors = FALSE)
|
|
}
|
|
|
|
api_post <- function(api, path, body = list()) {
|
|
log_debug("api_post", path = path)
|
|
resp <- .api_req(api, path) |>
|
|
httr2::req_body_json(body) |>
|
|
httr2::req_error(is_error = \(r) FALSE) |>
|
|
httr2::req_perform()
|
|
.api_check(resp, path)
|
|
if (httr2::resp_content_type(resp) == "" || httr2::resp_status(resp) == 204)
|
|
return(invisible(NULL))
|
|
result <- httr2::resp_body_json(resp, simplifyVector = FALSE)
|
|
if (is.null(result)) return(invisible(NULL))
|
|
result
|
|
}
|
|
|
|
api_put <- function(api, path, body = list()) {
|
|
log_debug("api_put", path = path)
|
|
resp <- .api_req(api, path) |>
|
|
httr2::req_method("PUT") |>
|
|
httr2::req_body_json(body) |>
|
|
httr2::req_error(is_error = \(r) FALSE) |>
|
|
httr2::req_perform()
|
|
.api_check(resp, path)
|
|
invisible(NULL)
|
|
}
|
|
|
|
api_patch <- function(api, path, body = list()) {
|
|
log_debug("api_patch", path = path)
|
|
resp <- .api_req(api, path) |>
|
|
httr2::req_method("PATCH") |>
|
|
httr2::req_body_json(body) |>
|
|
httr2::req_error(is_error = \(r) FALSE) |>
|
|
httr2::req_perform()
|
|
.api_check(resp, path)
|
|
invisible(NULL)
|
|
}
|
|
|
|
api_delete <- function(api, path) {
|
|
log_debug("api_delete", path = path)
|
|
resp <- .api_req(api, path) |>
|
|
httr2::req_method("DELETE") |>
|
|
httr2::req_error(is_error = \(r) FALSE) |>
|
|
httr2::req_perform()
|
|
.api_check(resp, path)
|
|
invisible(NULL)
|
|
}
|