[r2002-11-10 13:12:27 by cvscast] Empty log message

Original author: cvscast
Date: 2002-11-10 13:12:27+00:00

driver/webiface.ml

@@ -12,17 +12,18 @@ let cgi = new Netcgi.std_activation ~operating_type ()
 let fatal_error title s =
   cgi # output # rollback_work();
   cgi # set_header 
-    ~status:`Ok
+    ~content_type:"text/html; charset=\"iso-8859-1\""
     ~cache:`No_cache 
     ();
   cgi # output # output_string ("<h1>" ^ title ^ "</h1>");
   cgi # output # output_string s;
   cgi # output # commit_work();
-  cgi # finalize ();
-  exit 0
+  cgi # finalize ()
+
 
-let () = fatal_error "Error" ""
+let () = fatal_error "Error" "Blabla\n\n"
 
+(*
 (* Configuration *)
 
 let session_dirs = [ "/home/frisch/sessions"; "/users/formel/cduce/sessions" ]
@@ -207,3 +208,4 @@ let () =
   main cgi;
   cgi # finalize ()
 
+*)