[Mldonkey-commits] Changes to mldonkey/src/utils/net/http_server.ml

[mldonkey-commits]

Index: mldonkey/src/utils/net/http_server.ml
diff -u mldonkey/src/utils/net/http_server.ml:1.17 
mldonkey/src/utils/net/http_server.ml:1.18
--- mldonkey/src/utils/net/http_server.ml:1.17  Sun Jul 17 16:06:25 2005
+++ mldonkey/src/utils/net/http_server.ml       Sun Jul 17 23:15:04 2005
@@ -33,10 +33,20 @@
       | '>' -> Buffer.add_string b ">"; false
       | '&' -> Buffer.add_string b "&"; false
       | '"' -> Buffer.add_string b """; false
-      | '\039' -> Buffer.add_string b "'"; false
       | '\\' -> true
       | _ -> Buffer.add_char b c; false
   ) s
+
+let html_real_escaped s =
+  String2.convert false (fun b escaped c ->
+      if escaped then
+        (Buffer.add_char b c; false)
+      else
+        match c with
+        '\039' -> Buffer.add_string b "'"; false
+      | '\\' -> true
+      | _ -> Buffer.add_char b c; false
+  ) (html_escaped s)
 
 
 (* base 64 decoding *)