Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
cduce
cduce
Commits
0c5ca67a
Commit
0c5ca67a
authored
Oct 05, 2007
by
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
c3475b0c
Changes
1
Hide whitespace changes
Inline
Side-by-side
driver/webiface.ml
View file @
0c5ca67a
...
...
@@ -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 ()
*)
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment