2 files changed, 21 insertions, 0 deletions
diff --git a/src/dummy_auth/oauth2/auth.clj b/src/dummy_auth/oauth2/auth.clj
new file mode 100644
index 0000000..50b4a0e
--- /dev/null
+++ b/src/dummy_auth/oauth2/auth.clj
@@ -0,0 +1,12 @@
+(ns dummy-auth.oauth2.auth
+  (:require [ring.util.response :as ruresp]))
+
+(defn handle [req]
+  (let [redirect-uri (get-in req [:query-params "redirect_uri"])
+        state (get-in req [:query-params "state"])
+        redirection (cond
+                      (and (some? redirect-uri) (some? state)) (str redirect-uri "?state=" state "&code=abc")
+                      (some? redirect-uri) (str redirect-uri "?code=abc")
+                      :else "/error")]
+    (println "oauth2/auth: redirecting to" redirection)
+    (ruresp/redirect redirection)))
diff --git a/src/dummy_auth/oauth2/token.clj b/src/dummy_auth/oauth2/token.clj
new file mode 100644
index 0000000..fd5a534
--- /dev/null
+++ b/src/dummy_auth/oauth2/token.clj
@@ -0,0 +1,9 @@
+(ns dummy-auth.oauth2.token
+  (:require [ring.util.response :as ruresp]))
+
+(defn handle [_req]
+  (println "oauth2/token: responding...")
+  (ruresp/response {"access_token"  "abc"
+                    "refresh_token" "abc"
+                    "token_type"    "Bearer"
+                    "expires"       0}))