X-Git-Url: https://git.hcoop.net/bpt/portal.git/blobdiff_plain/6f91863c2a28a8590a6763580062c1d31b43dbec..dda99898ec5a066642ae8e47550f6f6b518a9f56:/init.sig

diff --git a/init.sig b/init.sig
index 8821b99..360b94e 100644
--- a/init.sig
+++ b/init.sig
@@ -1,17 +1,25 @@
 signature INIT = sig
     structure C : SQL_CLIENT
 
+    val scratchDir : string
     val urlPrefix : string
     val boardEmail : string
 
     exception Access of string
+    exception NeedTos
 
-    type user = {id : int, name : string, rname : string, bal : int, joined : C.timestamp}
+    val emailSuffix : string
+
+    type user = {id : int, name : string, rname : string, bal : int, joined : C.timestamp,
+		 app : int}
 
     val rowError : string * C.value list -> 'a
 
     val mkUserRow : C.value list -> user
 
+    (* Direct access to database connections *)
+    val conn : unit -> C.conn
+
     (* Open or close a session, wrapped in a transaction *)
     val init : unit -> unit
     val done : unit -> unit
@@ -22,7 +30,7 @@ signature INIT = sig
 
     val lookupUser : int -> user
     val listUsers : unit -> user list
-    val addUser : string * string * int -> int
+    val addUser : string * string * int * int -> int
     (* Pass name, real name, and balance ID *)
     val modUser : user -> unit
     val deleteUser : int -> string
@@ -35,4 +43,8 @@ signature INIT = sig
     val getUser : unit -> user
     val getUserId : unit -> int
     val getUserName : unit -> string
-end
\ No newline at end of file
+
+    val dateString : unit -> string
+
+    val grandfatherUsers : unit -> unit
+end