Example of an ejabberd authentication module written in Gleam

ejabberd_auth_custom.gleam

import gleam/list

const credentials = [
  #("alice", "l0vesBob"),
  #("bob", "l0vesAlice"),
  #("eve", "stalksTh3m")]

pub type StoreType {
  Plain
  External
  Scram
}

pub type Caching(result) {
  Cache(result)
  Nocache(result)
}

pub fn user_exists(user: String,
                   _server: String) {
  case list.key_find(credentials, user) {
    Ok(_) -> Nocache(True)
    Error(_) -> Nocache(False)
  }
}

pub fn check_password(user: String,
                     _authz_id: String,
                     _host: String,
                     password: String) {
  Nocache(list.contains(credentials, #(user, password)))
}

pub fn plain_password_required() { True }
pub fn store_type(_server: String) { External }
pub fn start(_host: String) { Nil }
pub fn stop(_host: String) { Nil }