[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-users] [PATCH 4/7] Fix content-type for 401 error (bug #35170)
From: |
ygrek |
Subject: |
[Mldonkey-users] [PATCH 4/7] Fix content-type for 401 error (bug #35170) |
Date: |
Mon, 18 Jun 2012 00:20:39 +0300 |
---
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
- [Mldonkey-users] [PATCH 1/7] new option filenames_utf8, ygrek, 2012/06/17
- [Mldonkey-users] [PATCH 2/7] pause conditions: "pause where priority < X", ygrek, 2012/06/17
- [Mldonkey-users] [PATCH 3/7] Do not leave empty files if code generation fails, ygrek, 2012/06/17
- [Mldonkey-users] [PATCH 5/7] Improve error message visibility (bug #35171), ygrek, 2012/06/17
- [Mldonkey-users] [PATCH 6/7] fix html validation errors, ygrek, 2012/06/17
- [Mldonkey-users] [PATCH 7/7] restore OSX compatibility (bug #36654), ygrek, 2012/06/17
- [Mldonkey-users] [PATCH 4/7] Fix content-type for 401 error (bug #35170),
ygrek <=