fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Plugin whitelist

Browse Source
This commit is contained in:
Gregor Kleen 2018-08-01 15:42:10 +02:00
parent ba3fd9d458
commit 3de34cd5ae
3 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
messages/uniworx/de.msg
View File

@ -251,4 +251,7 @@ EditedBy name@Text time@Text: Durch #{name} um #{time}
LastEdit: Letzte Änderung LastEdit: Letzte Änderung
SubmissionFilesIgnored: Es wurden Dateien in der hochgeladenen Abgabe ignoriert: SubmissionFilesIgnored: Es wurden Dateien in der hochgeladenen Abgabe ignoriert:
SubmissionDoesNotExist smid@CryptoFileNameSubmission: Es existiert keine Abgabe mit Nummer #{toPathPiece smid}. SubmissionDoesNotExist smid@CryptoFileNameSubmission: Es existiert keine Abgabe mit Nummer #{toPathPiece smid}.
LDAPLoginTitle: Campus-Login
DummyLoginTitle: Development-Login

2
src/Foundation.hs
View File

@ -1089,8 +1089,6 @@ instance YesodAuth UniWorX where
= (dummyPlugin, dummyIdent) = (dummyPlugin, dummyIdent)
| otherwise | otherwise
= (credsPlugin, credsIdent) = (credsPlugin, credsIdent)
isDummy = credsPlugin == "dummy"
isPWFile = credsPlugin == "PWFile"
uAuth = UniqueAuthentication userPlugin userIdent uAuth = UniqueAuthentication userPlugin userIdent
$logDebugS "auth" $ tshow creds $logDebugS "auth" $ tshow creds

14
templates/login.hamlet
View File

@ -1,7 +1,9 @@
$forall AuthPlugin{..} <- plugins $forall AuthPlugin{..} <- plugins
<section> $if apName == "LDAP"
$if apName == "LDAP" <section>
<h2>Campus-Kennung <h2>_{MsgLDAPLoginTitle}
$if apName == "dummy" ^{apLogin toParent}
<h2>Dummy $elseif apName == "dummy"
^{apLogin toParent} <section>
<h2>_{MsgDummyLoginTitle}
^{apLogin toParent}