39 lines
897 B
OCaml
39 lines
897 B
OCaml
--- src/gwd.ml.orig 2024-02-11 19:03:33 UTC
|
|
+++ src/gwd.ml
|
|
@@ -27,7 +27,7 @@ IFDEF UNIX THEN
|
|
[Open_wronly; Open_append; Open_creat; Open_text; Open_nonblock]
|
|
;
|
|
IFDEF UNIX THEN
|
|
-value max_clients = ref None
|
|
+value max_clients = ref None;
|
|
END;
|
|
value robot_xcl = ref None;
|
|
value auth_file = ref "";
|
|
@@ -1749,7 +1749,7 @@ IFDEF SYS_COMMAND THEN
|
|
;
|
|
|
|
IFDEF SYS_COMMAND THEN
|
|
-value wserver_auto_call = ref False
|
|
+value wserver_auto_call = ref False;
|
|
END;
|
|
|
|
value geneweb_server () =
|
|
@@ -1809,7 +1809,7 @@ value cgi_timeout tmout _ =
|
|
Wserver.wprint "</body>\n";
|
|
Wserver.wflush ();
|
|
exit 0;
|
|
- }
|
|
+ };
|
|
END;
|
|
|
|
IFDEF UNIX THEN
|
|
@@ -1818,7 +1818,7 @@ value manage_cgi_timeout tmout =
|
|
let _ = Sys.signal Sys.sigalrm (Sys.Signal_handle (cgi_timeout tmout)) in
|
|
let _ = Unix.alarm tmout in
|
|
()
|
|
- else ()
|
|
+ else ();
|
|
END;
|
|
|
|
value geneweb_cgi addr script_name contents =
|