Low balance reminders

[bpt/portal.git] / init.sml

diff --git a/init.sml b/init.sml
index d8ceeb3..2507a45 100644 (file)
--- a/init.sml
+++ b/init.sml
@@ -1,18 +1,13 @@
 structure Init :> INIT =
 struct
 
-open Util Sql
+open Util Sql Config
 structure C = PgClient
 
 exception Access of string
 exception NeedTos
 
-val scratchDir = "/home/hcoop"
-val urlPrefix = "https://members.hcoop.net/portal/"
-val emailSuffix = "@hcoop.net"
-val boardEmail = "board" ^ emailSuffix
-
-fun conn () = C.conn "dbname='hcoop_hcoop'"
+fun conn () = C.conn dbstring
 val close = C.close
 
 type user = {id : int, name : string, rname : string, bal : int, joined : C.timestamp,