From a67697d159358d276aefb1cfb24fce70e32ce3e6 Mon Sep 17 00:00:00 2001
From: David Mosbach <mosbach@cip.ifi.lmu.de>
Date: Mon, 18 Dec 2023 02:58:14 +0000
Subject: [PATCH] chore(admin): added oauth2 handling widget

---
 src/Handler/Admin/OAuth2.hs | 46 +++++++++++++++++++++----------------
 templates/oauth2.hamlet     | 18 +++++++++++++++
 2 files changed, 44 insertions(+), 20 deletions(-)
 create mode 100644 templates/oauth2.hamlet

diff --git a/src/Handler/Admin/OAuth2.hs b/src/Handler/Admin/OAuth2.hs
index cf99ab5cf..fdd8b8f63 100644
--- a/src/Handler/Admin/OAuth2.hs
+++ b/src/Handler/Admin/OAuth2.hs
@@ -1,4 +1,4 @@
--- SPDX-FileCopyrightText: 2023 Sarah Vaupel <sarah.vaupel@uniworx.de>
+-- SPDX-FileCopyrightText: 2023 Sarah Vaupel <sarah.vaupel@uniworx.de>,David Mosbach <david.mosbach@uniworx.de>
 --
 -- SPDX-License-Identifier: AGPL-3.0-or-later
 
@@ -9,39 +9,45 @@ module Handler.Admin.OAuth2
 
 import Import
 -- import qualified Data.CaseInsensitive as CI
--- import qualified Data.Text as Text
--- import Handler.Utils
+import Data.Text()
+--import qualified Data.Text as Text
+--import qualified Data.Text.Encoding as Text
+--import Foundation.Yesod.Auth (CampusUserConversionException()) 
+import Handler.Utils
 
 
 getAdminOAuth2R,   postAdminOAuth2R :: Handler Html
 getAdminOAuth2R  = postAdminOAuth2R
-postAdminOAuth2R =
+postAdminOAuth2R = do
    ((presult, pwidget), penctype) <- runFormPost $ identifyForm ("adminOAuth2Lookup"::Text) $ \html -> 
      flip (renderAForm FormStandard) html $ areq textField (fslI MsgAdminUserIdent) Nothing
  
-   let procFormPerson :: Text -> Handler (Maybe ())
-       procFormPerson lid = error "TODO"
+   let procFormPerson :: Text -> Handler (Maybe Text)
+       procFormPerson lid = return . Just $ "Mock reply for id " <> lid
+       -- TODO implement oauth query
+   mOAuth2Data <- formResultMaybe presult procFormPerson
  
-   ((uresult, uwidget), uenctype) <- runFormPost $ identifyForm ("adminOAuth2Upsert"::Text) $ \html -> 
-     flip (renderAForm FormStandard) html $ areq textField (fslI MsgAdminUserIdent) Nothing
-   let procFormUpsert :: Text -> Handler (Maybe (Either CampusUserConversionException (Entity User)))
-       procFormUpsert lid = pure <$> runDB (try $ ldapLookupAndUpsert lid)
-   mbLdapUpsert <- formResultMaybe uresult procFormUpsert
+   --((uresult, uwidget), uenctype) <- runFormPost $ identifyForm ("adminOAuth2Upsert"::Text) $ \html -> 
+   --  flip (renderAForm FormStandard) html $ areq textField (fslI MsgAdminUserIdent) Nothing
+
+   --let procFormUpsert :: Text -> Handler (Maybe (Either CampusUserConversionException (Entity User)))
+   --    procFormUpsert lid = pure <$> runDB (try $ ldapLookupAndUpsert lid)
+   --mbLdapUpsert <- formResultMaybe uresult procFormUpsert
  
  
-   actionUrl <- fromMaybe AdminLdapR <$> getCurrentRoute
-   siteLayoutMsg MsgMenuLdap $ do
-     setTitleI MsgMenuLdap
+   actionUrl <- fromMaybe AdminOAuth2R <$> getCurrentRoute
+   siteLayoutMsg MsgMenuOAuth2 $ do
+     setTitleI MsgMenuOAuth2
      let personForm = wrapForm pwidget def
                        { formAction = Just $ SomeRoute actionUrl
                        , formEncoding = penctype
                        }
-         upsertForm = wrapForm uwidget def 
-                       { formAction = Just $ SomeRoute actionUrl
-                       , formEncoding = uenctype
-                       }
-         presentUtf8   lv = Text.intercalate ", " (either tshow id . Text.decodeUtf8' <$> lv)
-         presentLatin1 lv = Text.intercalate ", " (                 Text.decodeLatin1 <$> lv)
+         --upsertForm = wrapForm uwidget def 
+         --              { formAction = Just $ SomeRoute actionUrl
+         --              , formEncoding = uenctype
+         --              }
+         --presentUtf8   lv = Text.intercalate ", " (either tshow id . Text.decodeUtf8' <$> lv)
+         --presentLatin1 lv = Text.intercalate ", " (                 Text.decodeLatin1 <$> lv)
  
      -- TODO: use i18nWidgetFile instead if this is to become permanent
      $(widgetFile "oauth2")
diff --git a/templates/oauth2.hamlet b/templates/oauth2.hamlet
new file mode 100644
index 000000000..23030ebd6
--- /dev/null
+++ b/templates/oauth2.hamlet
@@ -0,0 +1,18 @@
+$newline never
+
+$# SPDX-FileCopyrightText: 2023 David Mosbach <david.mosbach@uniworx.de>
+$#
+$# SPDX-License-Identifier: AGPL-3.0-or-later
+
+<section>
+  <p> 
+    OAuth2 User Search:
+    ^{personForm}
+  $maybe answers <- mOAuth2Data
+    <h1>
+      Antwort: #
+    <dl .deflist>
+          <dt>
+            #{show answers}
+          <dd>
+