1 signature REQUESTH_IN =
4 val adminGroup : string
5 val subject : string -> string
6 val body : {node : int, mail : Mail.session, data : string} -> unit
11 signature REQUESTH_OUT =
18 type request = { id : int, usr : int, node : int, data : string, msg : string, status : status,
19 stamp : Init.C.timestamp, cstamp : Init.C.timestamp option }
21 val statusFromInt : int -> status
23 val add : {usr : int, node : int, data : string, msg : string} -> int
24 val lookup : int -> request
25 val modify : request -> unit
26 val delete : int -> unit
27 val list : unit -> (string * request) list
28 val listOpen : unit -> (string * request) list
30 val notifyNew : int -> bool
31 val notifyMod : {old : status, new : status, changer : string, req : int} -> bool