17 lines
476 B
Clojure
17 lines
476 B
Clojure
(ns auto-ap.ssr.auth
|
|
(:require [buddy.sign.jwt :as jwt]
|
|
[config.core :refer [env]]))
|
|
|
|
(defn logout [request]
|
|
{:status 301
|
|
:headers {"Location" "/login"}
|
|
:session {}})
|
|
|
|
|
|
(defn impersonate [request]
|
|
{:status 200
|
|
:session {:identity (dissoc (jwt/unsign (get-in request [:query-params "jwt"])
|
|
(:jwt-secret env)
|
|
{:alg :hs512})
|
|
:exp)}})
|