[Mldonkey-users] [PATCH 4/7] Fix content-type for 401 error (bug #35170)

[ygrek]

---
 src/daemon/driver/driverControlers.ml |   11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/src/daemon/driver/driverControlers.ml 
b/src/daemon/driver/driverControlers.ml
index 6f59833..fc89f20 100644
--- a/src/daemon/driver/driverControlers.ml
+++ b/src/daemon/driver/driverControlers.ml
@@ -963,15 +963,14 @@ let http_handler o t r =
   let user = if r.options.login = "" then (admin_user 
()).CommonTypes.user_name else r.options.login in
   if not (valid_password user r.options.passwd) || (r.get_url.Url.short_file = 
"logout") then begin
       clear_page buf;
-      http_file_type := TXT;
-      let _, error_text_long, header = Http_server.error_page "401" "" ""
+      http_file_type := HTM;
+      let _, error_text_long, head = Http_server.error_page "401" "" ""
        (Ip.to_string (TcpBufferedSocket.my_ip r.sock))
        (string_of_int !!http_port) None in
       Buffer.add_string buf error_text_long;
-      r.reply_head <- header;
-      r.reply_headers <- [
-        "Connection", "close";
-        "WWW-Authenticate", Printf.sprintf "Basic realm=\"%s\"" !!http_realm]
+      r.reply_head <- head;
+      http_add_html_header r;
+      add_reply_header r "WWW-Authenticate" (Printf.sprintf "Basic 
realm=\"%s\"" !!http_realm);
     end
   else
     begin
-- 
1.7.10