blob: 8215812229b303c4d5f7d91d6f280d25ca260400 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
From: Stephane Glondu <steph@glondu.net>
Date: Fri, 22 Jul 2011 00:32:59 +0200
Subject: Compile with ocamlnet 3.3.5
---
XmlRpcServer.ml | 8 +++-----
1 files changed, 3 insertions(+), 5 deletions(-)
diff --git a/XmlRpcServer.ml b/XmlRpcServer.ml
index 3d4f130..47d6a8b 100644
--- a/XmlRpcServer.ml
+++ b/XmlRpcServer.ml
@@ -331,13 +331,11 @@ object (self)
Netcgi_cgi.run ~config ~output_type:(`Transactional buffered) self#process
end
-open Netcgi1_compat
-
class netplex ?(parallelizer=Netplex_mp.mp()) ?(handler="xmlrpc") () =
object (self)
inherit base
- method private process env (cgi : Netcgi_types.cgi_activation) =
+ method private process env (cgi : Netcgi.cgi_activation) =
match cgi#request_method with
| `POST ->
let input = cgi#argument_value "BODY" in
@@ -377,8 +375,8 @@ object (self)
} in
let config_cgi =
- { Netcgi_env.default_config with
- Netcgi_env.permitted_input_content_types = [ "text/xml" ]
+ { Netcgi.default_config with
+ Netcgi.permitted_input_content_types = [ "text/xml" ]
} in
let handlers = [handler, xmlrpc] in
--
|
