-- SPDX-FileCopyrightText: 2022 Gregor Kleen <gregor.kleen@ifi.lmu.de>,Steffen Jost <jost@cip.ifi.lmu.de>,Steffen Jost <jost@tcs.ifi.lmu.de>
--
-- SPDX-License-Identifier: AGPL-3.0-or-later

module Handler.Utils.LdapSystemFunctions
  ( determineSystemFunctions
  ) where

import Import.NoFoundation

import qualified Data.Set as Set


determineSystemFunctions :: Set (CI Text) -> (SystemFunction -> Bool)
determineSystemFunctions ldapFuncs = \case
  SystemExamOffice -> False
  SystemFaculty -> "CN=PROJ-Fahrerausbildung Admin_rw,OU=Projekte,OU=Sicherheitsgruppen,DC=fra,DC=fraport,DC=de" `Set.member` ldapFuncs -- Fahrerausbildungadmins are lecturers
    -- SJ: not sure this LDAP-specific key belongs here?
  SystemStudent -> False -- "student" `Set.member` ldapFuncs -- no such key identified at FraPort
  SystemPrinter -> False -- "department=IFM-IS2" zu viele Mitglieder