[Mldonkey-commits] mldonkey/src/daemon/driver driverControlers.ml

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       09/02/24 19:20:54

Modified files:
        src/daemon/driver: driverControlers.ml 

Log message:
        patch #6754, part II

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/daemon/driver/driverControlers.ml?cvsroot=mldonkey&r1=1.113&r2=1.114

Patches:
Index: driverControlers.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/daemon/driver/driverControlers.ml,v
retrieving revision 1.113
retrieving revision 1.114
diff -u -b -r1.113 -r1.114
--- driverControlers.ml 24 Feb 2009 18:35:46 -0000      1.113
+++ driverControlers.ml 24 Feb 2009 19:20:53 -0000      1.114
@@ -816,7 +816,14 @@
     else
       try
         File.to_string filename
-      with _ ->
+      with _ -> raise Not_found
+  in
+  let ext = extension_to_file_ext (Filename2.last_extension2 filename) in
+  http_add_bin_header r ext (String.length file_to_send);
+  Buffer.add_string buf file_to_send
+
+let http_send_bin_pictures r buf filename =
+  let file_to_send =
         try
           Hashtbl.find CommonPictures.files filename
         with Not_found ->
@@ -1501,7 +1508,7 @@
                 read_theme_page this_page else
               if !!html_mods then !!CommonMessages.download_html_js_mods0
               else !!CommonMessages.download_html_js_old)
-        | s ->  http_send_bin r buf (String.lowercase s)
+        | s ->  http_send_bin_pictures r buf (String.lowercase s)
       with
       | Not_found ->
          let _, error_text_long, header = Http_server.error_page "404" "" ""