Changes on new server

[hcoop/zz_old/portal.git] / static / gen.sml
diff --git a/static/gen.sml b/static/gen.sml

index 6bb6e8b..272e785 100644 (file)
--- a/static/gen.sml
+++ b/static/gen.sml
@@ -10,11 +10,11 @@ end
  
  structure NM = BinaryMapFn(IntKey)
  
-val outputDir = "/var/www/home/html/dyn/"
+val outputDir = "/var/www/dyn/"
  
  fun generate () =
      let
-       val db = C.conn "dbname='hcoop'"
+       val db = C.conn "dbname='hcoop_hcoop'"
  
         fun header (outf, title) =
             (TextIO.output (outf, "<html><head>\n<title>");
@@ -313,4 +313,4 @@ fun main _ = (generate ())
                   List.app (fn s => print (s ^ "\n")) (SMLofNJ.exnHistory ex);
                   OS.Process.failure)
  
-end
-\ No newline at end of file
+end