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, stamp : Init.C.timestamp }
20 val statusFromInt : int -> status
22 val add : {usr : int, node : int, data : string, msg : string} -> int
23 val lookup : int -> request
24 val modify : request -> unit
25 val delete : int -> unit
26 val list : unit -> (string * request) list
27 val listOpen : unit -> (string * request) list
29 val notifyNew : int -> bool
30 val notifyMod : {old : status, new : status, changer : string, req : int} -> bool