ZeusWPI/cat
4
0
Fork 0
Code Issues 5 Pull requests Packages Projects Releases Wiki Activity

remove unneeded logs

Browse source
This commit is contained in:
flynn 2019-06-08 19:45:39 +02:00
parent 9d7ebbd23e
commit af90e8639a
2 changed files with 26 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
resources/html/home.html
View file

@ -71,7 +71,7 @@
<a class="button is-light" href="/admin/enable"> <a class="button is-light" href="/admin/enable">
<strong>Enable admin</strong> <strong>Enable admin</strong>
</a> </a>
{%endif%} {% endif %}
{% endif %} {% endif %}
{% if user %} {% if user %}

48
src/clj/cat/routes/oauth.clj
View file

@ -46,35 +46,37 @@
(-> (found "/") (-> (found "/")
(assoc :flash {:denied true})) (assoc :flash {:denied true}))
; fetch the request token and do anything else you wanna do if not denied. ; fetch the request token and do anything else you wanna do if not denied.
(let [{:keys [access_token refresh_token]} (mo/get-authentication-response nil req_token)] (let [{:keys [access_token refresh_token]} (mo/get-authentication-response nil req_token)
(log/debug "Successfully fetched access-id: " access_token) fetched-user (mo/get-user-info access_token)
(log/debug "Fetching user info") local-user (db/get-zeus-user {:zeusid (:id fetched-user)})]
(let [fetched-user (mo/get-user-info access_token)] (if local-user
(log/debug "Fetched user info: " fetched-user) (set-user! local-user session "/")
(let [local-user (db/get-zeus-user {:zeusid (:id fetched-user)})] (try
(log/debug "Zeus user from db: " local-user) (let [user-template {:name (:username fetched-user)
(if local-user :gender nil
(set-user! local-user session "/") :zeusid (:id fetched-user)}
(try generated-key (-> user-template
(let [user-template {:name (:username fetched-user) (db/create-user!))]
:gender nil (set-user! (assoc user-template :id (:generated_key generated-key)) session "/"))
:zeusid (:id fetched-user)} (catch Exception e
generated-key (-> user-template (do
(db/create-user!))] (log/warn "fetched user" fetched-user "already exists, but was not found")
(log/debug "Created user: " generated-key) (log/warn (:cause (Throwable->map e)))
(set-user! (assoc user-template :id (:generated_key generated-key)) session "/")) (-> (found "/")
(catch Exception e (assoc :flash {:error "An error occurred, please try again."})))))))))
(do
(log/warn "fetched user" fetched-user "already exists, but was not found")
(log/warn (:cause (Throwable->map e)))
(-> (found "/")
(assoc :flash {:error "An error occurred, please try again."})))))))))))
;(catch [:status 401] _ ;(catch [:status 401] _
; (error-page {:status 401 ; (error-page {:status 401
; :title "Error authenticating" ; :title "Error authenticating"
; :message "Please contact your system administrator to fix this issue"})) ; :message "Please contact your system administrator to fix this issue"}))
; TODO catch using
;(defn multiple-status-endpoint [req]
; (let [resp (do-external-request req)]
; (condp = (:status resp)
; 201 (println ok)
; 401 (println error))))
(defroutes oauth-routes (defroutes oauth-routes
(GET "/oauth/oauth-init" req (oauth-init req)) (GET "/oauth/oauth-init" req (oauth-init req))