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: Thu, 14 Jul 2005 11:34:22 -0400

Index: mldonkey/src/daemon/driver/driverControlers.ml
diff -u mldonkey/src/daemon/driver/driverControlers.ml:1.34 
mldonkey/src/daemon/driver/driverControlers.ml:1.35
--- mldonkey/src/daemon/driver/driverControlers.ml:1.34 Thu Jul 14 14:02:28 2005
+++ mldonkey/src/daemon/driver/driverControlers.ml      Thu Jul 14 15:34:15 2005
@@ -885,7 +885,7 @@
                 read_theme_page this_page else
               if !!html_mods then !!CommonMessages.web_common_header_mods0
               else !!CommonMessages.web_common_header_old)
-        | "/" | "/index.html" -> 
+        | "/" | "/index.html" ->
             if !!use_html_frames then begin
                 html_open_page buf t r false;
                 let this_page = "frames.html" in
@@ -893,7 +893,7 @@
                   Buffer.add_string buf (read_theme_page this_page) else
                 if !!html_mods then
                   Printf.bprintf buf "
-                         <frameset src=\"index\" rows=\"%d,25,*\">
+            <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\">
@@ -1075,10 +1075,10 @@
                   DriverInteractive.print_search b s
                     { o with conn_filter = !filter };
 
-                  Buffer.add_string buf (html_escaped 
+                  Buffer.add_string buf (html_escaped
                       (Buffer.contents b))
 
-              | _ -> 
+              | _ ->
                   Buffer.add_string buf "Bad filter"
             end
 
@@ -1094,7 +1094,7 @@
                         let r = find_result num in
                         let files = result_download r [] false in
                         List.iter CommonInteractive.start_download files;
-                        
+
                         let module M = CommonMessages in
                         Gettext.buftext buf M.download_started num
                       with  e ->
@@ -1144,7 +1144,7 @@
                 | _ -> ()
             ) r.get_url.Url.args;
             let b = Buffer.create 10000 in
-            
+
             DriverInteractive.display_file_list b o;
             html_open_page buf t r true;
             Buffer.add_string buf (html_escaped (Buffer.contents b))
@@ -1205,7 +1205,7 @@
                   CommonInteractive.set_fully_qualified_options name value;
                   Buffer.add_string buf "Option value changed"
 
-              | args -> 
+              | args ->
                   List.iter (fun (s,v) ->
                       lprintf "[%s]=[%s]\n" (String.escaped s) (String.escaped 
v))
                   args;
@@ -1267,8 +1267,8 @@
                         end
                   in
                   r.reply_stream <- Some (stream_file file (ref begin_pos))
-                  
-              | args -> 
+
+              | args ->
                   List.iter (fun (s,v) ->
                       lprintf "[%s]=[%s]\n" (String.escaped s) (String.escaped 
v))
                   args;




reply via email to

[Prev in Thread] Current Thread [Next in Thread]