mldonkey-commits
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Mldonkey-commits] Changes to mldonkey/src/daemon/driver/driverControler

From: mldonkey-commits
Subject: [Mldonkey-commits] Changes to mldonkey/src/daemon/driver/driverControlers.ml
Date: Fri, 29 Jul 2005 11:40:36 -0400 
Index: mldonkey/src/daemon/driver/driverControlers.ml
diff -u mldonkey/src/daemon/driver/driverControlers.ml:1.38 
mldonkey/src/daemon/driver/driverControlers.ml:1.39
--- mldonkey/src/daemon/driver/driverControlers.ml:1.38 Tue Jul 26 21:52:03 2005
+++ mldonkey/src/daemon/driver/driverControlers.ml      Fri Jul 29 15:40:33 2005
@@ -849,7 +849,8 @@
     (Buffer.add_string buf
       "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Frameset//EN\"
         \"http://www.w3.org/TR/html4/frameset.dtd\";>\n<HTML>\n<HEAD>\n";)
-    else Buffer.add_string buf "<html>\n<head>\n";
+    else Buffer.add_string buf "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 
Transitional//EN\" 
+  \"http://www.w3.org/TR/html4/loose.dtd\";><html>\n<head>\n";
 
   if !CommonInteractive.display_vd then begin
         let this_page = "dheader.html" in
@@ -874,8 +875,8 @@
   if not !!use_html_frames then add_simple_commands buf;
   ()
 
-let html_close_page buf =
-  Buffer.add_string buf "</body>\n";
+let html_close_page buf close_body =
+  if close_body then Buffer.add_string buf "</body>\n";
   Buffer.add_string buf "</html>\n"
 
 let clear_page buf =
@@ -967,21 +968,23 @@
                 if !!html_mods_theme != "" && theme_page_exists this_page then
                   Buffer.add_string buf (read_theme_page this_page) else
                 if !!html_mods then
-                  Printf.bprintf buf "
-            <frameset src=\"index\" rows=\"%d,25,*\">
-                  <frame name=\"commands\" NORESIZE SCROLLING=\"NO\" NOSHADE 
marginwidth=0 marginheight=0 BORDER=0 FRAMESPACING=0 FRAMEBORDER=0 
src=\"commands.html\">
-                  <frame name=\"fstatus\" NORESIZE SCROLLING=\"NO\" NOSHADE 
marginwidth=0 marginheight=0 BORDER=0 FRAMESPACING=0 FRAMEBORDER=0 
src=\"noframe.html\">
-               <frame name=\"output\" NORESIZE NOSHADE marginwidth=0 
marginheight=0 BORDER=0 FRAMESPACING=0 FRAMEBORDER=0 src=\"oneframe.html\">
-            </frameset>" !!commands_frame_height
+                  Printf.bprintf buf
+"<frameset src=\"index\" rows=\"%d,25,*\" frameborder=\"no\">
+<frame name=\"commands\" NORESIZE SCROLLING=\"NO\" NOSHADE marginwidth=0 
marginheight=0 BORDER=0 FRAMESPACING=0 FRAMEBORDER=0 src=\"commands.html\">
+<frame name=\"fstatus\" NORESIZE SCROLLING=\"NO\" NOSHADE marginwidth=0 
marginheight=0 BORDER=0 FRAMESPACING=0 FRAMEBORDER=0 src=\"noframe.html\">
+<frame name=\"output\" NORESIZE NOSHADE marginwidth=0 marginheight=0 BORDER=0 
FRAMESPACING=0 FRAMEBORDER=0 src=\"oneframe.html\">
+</frameset>
+" !!commands_frame_height
                 else
-                  Printf.bprintf buf "
-            <frameset src=\"index\" rows=\"%d,2*\">
-               <frameset src=\"index\" cols=\"5*,1*\">
-                  <frame name=\"commands\" src=\"commands.html\">
-                  <frame name=\"fstatus\" src=\"noframe.html\">
-               </frameset>
-               <frame name=\"output\" src=\"oneframe.html\">
-            </frameset>" !!commands_frame_height;
+                  Printf.bprintf buf
+"<frameset src=\"index\" rows=\"%d,2*\">
+<frameset src=\"index\" cols=\"5*,1*\">
+<frame name=\"commands\" src=\"commands.html\">
+<frame name=\"fstatus\" src=\"noframe.html\">
+</frameset>
+<frame name=\"output\" src=\"oneframe.html\">
+</frameset>
+" !!commands_frame_height;
               end else
               html_open_page buf t r true
         | "complex_search.html" ->
@@ -1395,8 +1398,8 @@
 
   let s =
     match !http_file_type with
-      HTM -> html_close_page buf; dollar_escape o !!use_html_frames 
(Buffer.contents buf)
-    | MLHTM -> html_close_page buf; dollar_escape o !!use_html_frames 
(Buffer.contents buf)
+      HTM -> html_close_page buf false; dollar_escape o !!use_html_frames 
(Buffer.contents buf)
+    | MLHTM -> html_close_page buf true; dollar_escape o !!use_html_frames 
(Buffer.contents buf)
     | TXT
     | BIN -> Buffer.contents buf
     | UNK -> "Unknown type for content :" ^ (Buffer.contents buf)
reply via email to
[Prev in Thread] Current Thread [Next in Thread]