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 16:42:50 -0400 
Index: mldonkey/src/daemon/driver/driverControlers.ml
diff -u mldonkey/src/daemon/driver/driverControlers.ml:1.39 
mldonkey/src/daemon/driver/driverControlers.ml:1.40
--- mldonkey/src/daemon/driver/driverControlers.ml:1.39 Fri Jul 29 15:40:33 2005
+++ mldonkey/src/daemon/driver/driverControlers.ml      Fri Jul 29 20:42:48 2005
@@ -849,8 +849,7 @@
     (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 "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 
Transitional//EN\" 
-  \"http://www.w3.org/TR/html4/loose.dtd\";><html>\n<head>\n";
+    else Buffer.add_string buf "<html>\n<head>\n";
 
   if !CommonInteractive.display_vd then begin
         let this_page = "dheader.html" in
@@ -875,8 +874,8 @@
   if not !!use_html_frames then add_simple_commands buf;
   ()
 
-let html_close_page buf close_body =
-  if close_body then Buffer.add_string buf "</body>\n";
+let html_close_page buf =
+  Buffer.add_string buf "</body>\n";
   Buffer.add_string buf "</html>\n"
 
 let clear_page buf =
@@ -968,23 +967,21 @@
                 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,*\" 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
+                  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
                 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" ->
@@ -1398,8 +1395,8 @@
 
   let s =
     match !http_file_type with
-      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)
+      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)
     | 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]