/[svn]/driver/webiface.ml
ViewVC logotype

Diff of /driver/webiface.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 93 by abate, Tue Jul 10 17:05:39 2007 UTC revision 94 by abate, Tue Jul 10 17:05:43 2007 UTC
# Line 3  Line 3 
3    
4  let main (cgi : Netcgi.std_activation) =  let main (cgi : Netcgi.std_activation) =
5    try    try
6      cgi # set_header ();      cgi # set_header
7          ~content_type:"text/html; charset=\"iso-8859-1\""
8          ();
9      let src = cgi # argument_value "prog" in      let src = cgi # argument_value "prog" in
10    
11      let ppf = Format.str_formatter      let ppf = Format.str_formatter
# Line 35  Line 37 
37    with    with
38        exn ->        exn ->
39          cgi # output # rollback_work();          cgi # output # rollback_work();
40          cgi # set_header ~status:`Internal_server_error ();          cgi # set_header
41              ~status:`Internal_server_error
42              ~cache:`No_cache
43              ();
44          cgi # output # output_string "<h1>Internal software error!</h1>";          cgi # output # output_string "<h1>Internal software error!</h1>";
45          cgi # output # output_string (Printexc.to_string exn);          cgi # output # output_string (Printexc.to_string exn);
46          cgi # output # commit_work()          cgi # output # commit_work()
Legend:
Removed from v.93  
changed lines
  Added in v.94
CVS Admin">CVS Admin
 ViewVC Help
Powered by ViewVC 1.1.5