49 lines
2.0 KiB
Haskell
49 lines
2.0 KiB
Haskell
-- 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")
|