Mailing list creation requests

[bpt/portal.git] / init.sml

diff --git a/init.sml b/init.sml
index e0a9bb3..722f1b8 100644 (file)
--- a/init.sml
+++ b/init.sml
@@ -6,6 +6,8 @@ structure C = PgClient
 
 exception Access of string
 
+val urlPrefix = "http://users.hcoop.net/portal/"
+
 fun conn () = C.conn "dbname='hcoop'"
 val close = C.close
 
@@ -31,6 +33,8 @@ fun mkUserRow [id, name, rname, bal, joined] =
 
 fun init () =
     let
+       val _ = Util.init ()
+
        val c = conn ()
     in
        C.dml c "BEGIN";