chore(admin): add basic admin route stub and navigation for response inspection

messages/uniworx/utils/navigation/menu/de-de-formal.msg

@@ -141,7 +141,8 @@ MenuSap: SAP Schnittstelle
 
 MenuAvs: AVS Schnittstelle
 MenuAvsSynchError: AVS Problemübersicht
-MenuLdap: LDAP Schnittstelle
+MenuLdap !ident-ok: LDAP
+MenuOAuth2 !ident-ok: OAuth2
 MenuApc: Druckerei
 MenuPrintSend: Manueller Briefversand
 MenuPrintDownload: Brief herunterladen

messages/uniworx/utils/navigation/menu/en-eu.msg

@@ -141,7 +141,8 @@ MenuSap: SAP Interface
 
 MenuAvs: AVS Interface
 MenuAvsSynchError: AVS Problem Overview
-MenuLdap: LDAP Interface
+MenuLdap: LDAP
+MenuOAuth2: OAuth2
 MenuApc: Printing
 MenuPrintSend: Send Letter
 MenuPrintDownload: Download Letter

routes

@@ -1,4 +1,4 @@
--- SPDX-FileCopyrightText: 2022 Gregor Kleen <gregor.kleen@ifi.lmu.de>,Sarah Vaupel <sarah.vaupel@ifi.lmu.de>,Steffen Jost <jost@tcs.ifi.lmu.de>,Wolfgang Witt <Wolfgang.Witt@campus.lmu.de>
+-- SPDX-FileCopyrightText: 2022-2023 Sarah Vaupel <sarah.vaupel@uniworx.de>, Gregor Kleen <gregor.kleen@ifi.lmu.de>,Sarah Vaupel <sarah.vaupel@ifi.lmu.de>,Steffen Jost <jost@tcs.ifi.lmu.de>,Wolfgang Witt <Wolfgang.Witt@campus.lmu.de>
 --
 -- SPDX-License-Identifier: AGPL-3.0-or-later
 
@@ -70,6 +70,7 @@
 /admin/avs                    AdminAvsR        GET POST
 /admin/avs/#CryptoUUIDUser    AdminAvsUserR    GET
 /admin/ldap                   AdminLdapR       GET POST
+/admin/oauth2                 AdminOAuth2R     GET POST
 /admin/problems               AdminProblemsR			 GET
 /admin/problems/no-contact    ProblemUnreachableR  GET
 /admin/problems/no-avs-id     ProblemWithoutAvsId  GET

src/Foundation/Navigation.hs

@@ -116,6 +116,7 @@ breadcrumb AdminJobsR           = i18nCrumb MsgBreadcrumbAdminJobs        $ Just
 breadcrumb AdminAvsR            = i18nCrumb MsgMenuAvs                    $ Just AdminR
 breadcrumb AdminAvsUserR{}      = i18nCrumb MsgAvsPersonInfo              $ Just AdminAvsR
 breadcrumb AdminLdapR           = i18nCrumb MsgMenuLdap                   $ Just AdminR
+breadcrumb AdminOAuth2R         = i18nCrumb MsgMenuOAuth2                 $ Just AdminR
 breadcrumb AdminProblemsR       = i18nCrumb MsgProblemsHeading            $ Just AdminR
 breadcrumb ProblemUnreachableR  = i18nCrumb MsgProblemsUnreachableHeading $ Just AdminProblemsR
 breadcrumb ProblemWithoutAvsId  = i18nCrumb MsgProblemsNoAvsIdHeading     $ Just AdminProblemsR
@@ -861,6 +862,14 @@ defaultLinks = fmap catMaybes . mapM runMaybeT $ -- Define the menu items of the
               , navQuick'      = mempty
               , navForceActive = False
               }
+          , NavLink
+              { navLabel       = MsgMenuOAuth2
+              , navRoute       = AdminOAuth2R
+              , navAccess'     = NavAccessTrue
+              , navType        = NavTypeLink { navModal = False }
+              , navQuick'      = mempty
+              , navForceActive = False
+              }
           ]
       }
   , return NavHeaderContainer

src/Foundation/Routes.hs

@@ -9,7 +9,7 @@ module Foundation.Routes
   ( module Foundation.Routes.Definitions
   , module Foundation.Routes
   ) where
-
+ 
 import Import.NoFoundation
 import Foundation.Type
 

src/Handler/Admin.hs

@@ -1,4 +1,4 @@
--- SPDX-FileCopyrightText: 2022 Gregor Kleen <gregor.kleen@ifi.lmu.de>,Steffen Jost <jost@tcs.ifi.lmu.de>
+-- SPDX-FileCopyrightText: 2022-2023 Sarah Vaupel <sarah.vaupel@uniworx.de>, Gregor Kleen <gregor.kleen@ifi.lmu.de>, Steffen Jost <jost@tcs.ifi.lmu.de>
 --
 -- SPDX-License-Identifier: AGPL-3.0-or-later
 
@@ -31,6 +31,7 @@ import Handler.Admin.Tokens as Handler.Admin
 import Handler.Admin.Crontab as Handler.Admin
 import Handler.Admin.Avs as Handler.Admin
 import Handler.Admin.Ldap as Handler.Admin
+import Handler.Admin.OAuth2 as Handler.Admin
 
 
 getAdminR :: Handler Html

src/Handler/Admin/OAuth2.hs

@@ -0,0 +1,48 @@
+-- SPDX-FileCopyrightText: 2023 Sarah Vaupel <sarah.vaupel@uniworx.de>
+--
+-- SPDX-License-Identifier: AGPL-3.0-or-later
+
+module Handler.Admin.OAuth2
+  (  getAdminOAuth2R
+  , postAdminOAuth2R
+  ) where
+
+import Import
+-- import qualified Data.CaseInsensitive as CI
+-- import qualified Data.Text as Text
+-- import Handler.Utils
+
+
+getAdminOAuth2R,   postAdminOAuth2R :: Handler Html
+getAdminOAuth2R  = postAdminOAuth2R
+postAdminOAuth2R = error "postAdminOAuth2R not yet implemented"
+--   ((presult, pwidget), penctype) <- runFormPost $ identifyForm ("adminLdapLookup"::Text) $ \html -> 
+--     flip (renderAForm FormStandard) html $ areq textField (fslI MsgAdminUserIdent) Nothing
+-- 
+--   let procFormPerson :: Text -> Handler (Maybe ())
+--       procFormPerson lid = error "TODO"
+-- 
+-- 
+--   ((uresult, uwidget), uenctype) <- runFormPost $ identifyForm ("adminLdapUpsert"::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
+--     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)
+-- 
+--     -- TODO: use i18nWidgetFile instead if this is to become permanent
+--     $(widgetFile "ldap")