unsuffix the username

cyverse-de · Dec 12, 2024 · 8ab7dfc · 8ab7dfc
1 parent dad4e08
commit 8ab7dfc
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/terrain/clients/keycloak/admin.clj b/src/terrain/clients/keycloak/admin.clj
@@ -2,6 +2,7 @@
   (:require [cemerick.url :as curl]
             [clj-http.client :as http]
             [clojure.tools.logging :as log]
+            [clojure.string :as string]
             [terrain.util.config :as config]))
 
 (defn- keycloak-admin-url
@@ -64,5 +65,5 @@
   ([username]
    (get-user-session-by-username username (:access_token (get-token))))
   ([username token]
-   (log/error "Getting user sessions for username " username)
-   (get-user-session (:id (get-user username token)) token)))
+   (log/error "Getting user sessions for username " (string/replace username #"@.*$" ""))
+   (get-user-session (:id (get-user (string/replace username #"@.*$" "") token)) token)))