Reports for figuring out which accounts to freeze or boot; most of new SSL request...

[bpt/portal.git] / app.sig

diff --git a/app.sig b/app.sig
index d4c0a66..14fa153 100644 (file)
--- a/app.sig
+++ b/app.sig
@@ -6,15 +6,22 @@ sig
           | ACCEPTED
           | REJECTED
           | ADDED
+          | BEING_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 listApps : status -> app list
+    val listApps : status list -> app list
 
     val votes : int -> (int * string) list
     val vote : int * int -> unit
@@ -22,6 +29,11 @@ sig
 
     val deny : int * string -> bool
     val approve : int * string -> bool
+    val preAdd : int -> unit
     val add : int -> unit
     val abortAdd : int -> unit
-end
\ No newline at end of file
+    val welcome : int -> unit
+
+    val searchPaypal : string -> app list
+    val searchCheckout : string -> app list
+end