Fix references to /home/hcoop

diff --git a/app.sml b/app.sml
index e0c3b0b..98b8c75 100644 (file)
--- a/app.sml
+++ b/app.sml
@@ -114,7 +114,7 @@ fun approve (app, msg) =
        Mail.mwrite (mail, "To: ");
        Mail.mwrite (mail, #email entry);
        Mail.mwrite (mail, "\n");
-       Mail.mwrite (mail, Util.readFile "/home/hcoop/portal/welcome.txt");
+       Mail.mwrite (mail, Util.readFile (Config.staticFilesRoot ^ "welcome.txt"));
        Mail.mwrite (mail, msg);
        OS.Process.isSuccess (Mail.mclose mail)
     end
@@ -148,7 +148,7 @@ fun welcome app =
        Mail.mwrite (mail, "To: ");
        Mail.mwrite (mail, #email app);
        Mail.mwrite (mail, "\n");
-       Mail.mwrite (mail, Util.readFile "/home/hcoop/portal/paid.txt");
+       Mail.mwrite (mail, Util.readFile (Config.staticFilesRoot ^ "paid.txt"));
        ignore (Mail.mclose mail)
     end
 
@@ -170,9 +170,9 @@ fun readFile fname =
        before TextIO.closeIn inf
     end
 
-fun readTosBody () = readFile "/home/hcoop/public_html/tos.body.html"
-fun readTosAgree () = readFile "/home/hcoop/public_html/tos.agree.html"
-fun readTosMinorAgree () = readFile "/home/hcoop/public_html/tos.agree.minor.html"
+fun readTosBody () = readFile (Config.staticFilesRoot ^ "tos.body.html")
+fun readTosAgree () = readFile (Config.staticFilesRoot ^ "tos.agree.html")
+fun readTosMinorAgree () = readFile (Config.staticFilesRoot ^ "tos.agree.minor.html")
 
 fun searchPaypal paypal =
     C.map (getDb ()) mkAppRow ($`SELECT id, name, rname, gname, email, forward, uses, other, passwd, status, applied, ipaddr, confirmed, decided,

diff --git a/static/gen.sh b/static/gen.sh
index c80ae44..0f765ae 100755 (executable)
--- a/static/gen.sh
+++ b/static/gen.sh
@@ -1 +1 @@
-LD_LIBRARY_PATH=/afs/hcoop.net/user/h/hc/hcoop/portal-tools/lib32 /usr/bin/sml @SMLload=/home/hcoop/portal3/static/gen.x86-linux
+LD_LIBRARY_PATH=/afs/hcoop.net/user/h/hc/hcoop/portal-tools/lib32 /usr/bin/sml @SMLload=/afs/hcoop.net/user/h/hc/hcoop/portal3/static/gen.x86-linux

diff --git a/vmailpasswd/mlt.conf b/vmailpasswd/mlt.conf
index 2ad8f60..919281c 100644 (file)
--- a/vmailpasswd/mlt.conf
+++ b/vmailpasswd/mlt.conf
@@ -1,4 +1,4 @@
 out    out
-pub    /home/hcoop/public_html/cgi-bin
+pub    /afs/hcoop.net/user/h/hc/hcoop/portal-tools/cgi
 
 cm     $/smlnj-lib.cm