Initial commit

1 files changed, 12 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)))