Changes rolling out beta version

[bpt/portal.git] / static / gen.sml

diff --git a/static/gen.sml b/static/gen.sml
index 9844e2d..6bb6e8b 100644 (file)
--- a/static/gen.sml
+++ b/static/gen.sml
@@ -10,7 +10,7 @@ end
 
 structure NM = BinaryMapFn(IntKey)
 
-val outputDir = "/var/www/home/html/static/"
+val outputDir = "/var/www/home/html/dyn/"
 
 fun generate () =
     let
@@ -189,6 +189,7 @@ fun generate () =
                    end
                  | doOne _ = raise Fail "Bad member row"
            in
+               ignore (OS.Process.system ("/bin/rm " ^ outputDir ^ "member/*.html"));
                C.app db doOne "SELECT id, name, rname, joined, usr FROM WebUser LEFT OUTER JOIN DirectoryPref ON usr = id"
            end