near/airsonic-ui
1
0
Fork 0
mirror of https://github.com/heyarne/airsonic-ui.git synced 2026-05-07 02:33:39 +02:00
Code Issues Projects Releases Wiki Activity

Implement authentication

Browse source
This commit is contained in:
Arne Schlüter 2018-04-18 01:30:25 +02:00
commit d782b49b94
7 changed files with 70 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

40
src/airsonic_ui/events.cljs
View file

@ -1,6 +1,44 @@
(ns airsonic-ui.events
(:require [re-frame.core :as re-frame]
[airsonic-ui.db :as db]))
[ajax.core :as ajax]
[airsonic-ui.config :as config]
[airsonic-ui.db :as db]
[clojure.string :as string]))
(defn ^:private uri-escape [s]
(js/encodeURIComponent s))
(defn api-url [endpoint params]
(let [query (->> (assoc params
:f "json"
:c "airsonic-ui-cljs"
:v "1.15.0")
(map (fn [[k v]]
(str (uri-escape (name k)) "=" (uri-escape v))))
(string/join "&"))]
(str config/server "/rest/" endpoint "?" query)))
(re-frame/reg-event-fx
::authenticate
(fn [{:keys [db]} [_ {:keys [user pass]}]]
{:db (update db :active-requests inc)
:http-xhrio {:method :get
:uri (api-url "ping" {:u user :p pass})
:response-format (ajax/text-response-format)
:on-success [::auth-successful user pass]
:on-failure [::auth-gone-bad]}}))
(re-frame/reg-event-db
::auth-successful
(fn [db [_ user pass]]
(-> (update db :active-requests dec)
(assoc :login {:u user
:p pass}))))
(re-frame/reg-event-db
::auth-gone-bad
(fn [db event]
(println "auth gone bad" event)))
(re-frame/reg-event-db
::initialize-db