Low balance reminders

[bpt/portal.git] / init.sig

diff --git a/init.sig b/init.sig
index 85000bf..360b94e 100644 (file)
--- a/init.sig
+++ b/init.sig
@@ -1,12 +1,15 @@
 signature INIT = sig
     structure C : SQL_CLIENT
 
+    val scratchDir : string
     val urlPrefix : string
     val boardEmail : string
 
     exception Access of string
     exception NeedTos
 
+    val emailSuffix : string
+
     type user = {id : int, name : string, rname : string, bal : int, joined : C.timestamp,
                 app : int}
 
@@ -14,6 +17,9 @@ signature INIT = sig
 
     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
@@ -41,4 +47,4 @@ signature INIT = sig
     val dateString : unit -> string
 
     val grandfatherUsers : unit -> unit
-end
\ No newline at end of file
+end