Commit 727ba477 authored by Pietro Abate's avatar Pietro Abate
Browse files

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

Original author: cvscast
Date: 2002-11-10 13:12:27+00:00
parent c9d28a35
......@@ -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 ()
*)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment