'retired' group for users who shouldn't be allowed to log in

[hcoop/portal.git] / init.sig

signature INIT = sig
    structure C : SQL_CLIENT

    val urlPrefix : string
    val boardEmail : string

    exception Access of string
    exception NeedTos

    val emailSuffix : string

    type user = {id : int, name : string, rname : string, bal : int, joined : C.timestamp,
		 app : int}

    val rowError : string * C.value list -> 'a

    val mkUserRow : C.value list -> user

    (* Open or close a session, wrapped in a transaction *)
    val init : unit -> unit
    val done : unit -> unit

    val nextSeq : C.conn * string -> int

    (* Fun with users *)

    val lookupUser : int -> user
    val listUsers : unit -> user list
    val addUser : string * string * int * int -> int
    (* Pass name, real name, and balance ID *)
    val modUser : user -> unit
    val deleteUser : int -> string

    val validUsername : string -> bool
    val userNameToId : string -> int option

    val getDb : unit -> C.conn

    val getUser : unit -> user
    val getUserId : unit -> int
    val getUserName : unit -> string

    val dateString : unit -> string

    val grandfatherUsers : unit -> unit
end