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
c3475b0c
Commit
c3475b0c
authored
Oct 05, 2007
by
Pietro Abate
Browse files
[r2002-11-10 13:06:17 by cvscast] Empty log message
Original author: cvscast Date: 2002-11-10 13:08:21+00:00
parent
66dc0466
Changes
1
Hide whitespace changes
Inline
Side-by-side
driver/webiface.ml
View file @
c3475b0c
...
...
@@ -6,12 +6,30 @@
open
Netcgi
let
operating_type
=
Netcgi
.
buffered_transactional_optype
let
cgi
=
new
Netcgi
.
std_activation
~
operating_type
()
let
fatal_error
title
s
=
cgi
#
output
#
rollback_work
()
;
cgi
#
set_header
~
status
:
`Ok
~
cache
:
`No_cache
()
;
cgi
#
output
#
output_string
(
"<h1>"
^
title
^
"</h1>"
);
cgi
#
output
#
output_string
s
;
cgi
#
output
#
commit_work
()
;
cgi
#
finalize
()
;
exit
0
let
()
=
fatal_error
"Error"
""
(* Configuration *)
let
session_dirs
=
[
"/home/frisch/sessions"
;
"/users/formel/cduce/sessions"
]
let
session_dir
=
try
List
.
find
Sys
.
file_exists
session_dirs
with
Not_found
->
""
with
Not_found
->
fatal_error
"Internal error"
"Cannot find sessions directory"
let
timeout
=
60
*
5
(* seconds *)
let
max_sess
=
10
...
...
@@ -186,8 +204,6 @@ let main (cgi : Netcgi.std_activation) =
cgi
#
output
#
commit_work
()
let
()
=
let
operating_type
=
Netcgi
.
buffered_transactional_optype
in
let
cgi
=
new
Netcgi
.
std_activation
~
operating_type
()
in
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