| REJECTED
| ADDED
- type app = { id : int, name : string, rname : string, email : string,
+ val readTosBody : unit -> string
+ val readTosAgree : unit -> string
+ val readTosMinorAgree : unit -> string
+
+ type app = { id : int, name : string, rname : string, gname : string option, email : string,
forward : bool, uses : string, other : string,
passwd : string, status : status, applied : Init.C.timestamp,
+ ipaddr : string option,
confirmed : Init.C.timestamp option, decided : Init.C.timestamp option,
- msg : string }
+ msg : string, unix_passwd : string,
+ paypal : string option, checkout : string option }
val lookupApp : int -> app
- val listPending : unit -> app list
+ val listApps : status -> app list
val votes : int -> (int * string) list
val vote : int * int -> unit
val deny : int * string -> bool
val approve : int * string -> bool
-end
\ No newline at end of file
+ val add : int -> unit
+ val abortAdd : int -> unit
+ val welcome : int -> unit
+
+ val searchPaypal : string -> app list
+ val searchCheckout : string -> app list
+end