Commit | Line | Data |
---|---|---|
a90da8b1 AC |
1 | signature APP = |
2 | sig | |
3 | datatype status = | |
4 | CONFIRMING | |
5 | | PENDING | |
6 | | ACCEPTED | |
7 | | REJECTED | |
6f91863c | 8 | | ADDED |
96bd398e | 9 | | BEING_ADDED |
a90da8b1 | 10 | |
f3f3ad24 AC |
11 | val readTosBody : unit -> string |
12 | val readTosAgree : unit -> string | |
13 | val readTosMinorAgree : unit -> string | |
14 | ||
15 | type app = { id : int, name : string, rname : string, gname : string option, email : string, | |
6f91863c AC |
16 | forward : bool, uses : string, other : string, |
17 | passwd : string, status : status, applied : Init.C.timestamp, | |
f3f3ad24 | 18 | ipaddr : string option, |
6f91863c | 19 | confirmed : Init.C.timestamp option, decided : Init.C.timestamp option, |
d5f8418b AC |
20 | msg : string, unix_passwd : string, |
21 | paypal : string option, checkout : string option } | |
a90da8b1 AC |
22 | |
23 | val lookupApp : int -> app | |
96bd398e | 24 | val listApps : status list -> app list |
a90da8b1 | 25 | |
6f91863c AC |
26 | val votes : int -> (int * string) list |
27 | val vote : int * int -> unit | |
28 | val unvote : int * int -> unit | |
29 | ||
30 | val deny : int * string -> bool | |
31 | val approve : int * string -> bool | |
96bd398e | 32 | val preAdd : int -> unit |
98a5f121 AC |
33 | val add : int -> unit |
34 | val abortAdd : int -> unit | |
688bf30c | 35 | val welcome : int -> unit |
d5f8418b AC |
36 | |
37 | val searchPaypal : string -> app list | |
38 | val searchCheckout : string -> app list | |
a2d53da2 | 39 | end |