2 structure C : SQL_CLIENT
4 val scratchDir : string
6 val boardEmail : string
8 exception Access of string
11 val emailSuffix : string
13 type user = {id : int, name : string, rname : string, bal : int, joined : C.timestamp,
14 app : int, shares : int}
16 val rowError : string * C.value list -> 'a
18 val mkUserRow : C.value list -> user
20 (* Direct access to database connections *)
21 val conn : unit -> C.conn
23 (* Open or close a session, wrapped in a transaction *)
24 val init : unit -> unit
25 val done : unit -> unit
27 val nextSeq : C.conn * string -> int
31 val lookupUser : int -> user
32 val listUsers : unit -> user list
33 val addUser : string * string * int * int * int -> int
34 (* Pass name, real name, balance ID, and share count *)
35 val modUser : user -> unit
36 val deleteUser : int -> string
37 val byPledge : unit -> user list
39 val validUsername : string -> bool
40 val userNameToId : string -> int option
42 val getDb : unit -> C.conn
44 val getUser : unit -> user
45 val getUserId : unit -> int
46 val getUserName : unit -> string
48 val dateString : unit -> string
50 val grandfatherUsers : unit -> unit
52 type node = {id : int, name : string, descr : string, debian : string}
54 val listNodes : unit -> node list
55 val nodeName : int -> string
56 val nodeDebian : int -> string