[Mldonkey-commits] Changes to mldonkey/src/networks/fileTP/fileTPMain.ml

[mldonkey-commits]

Index: mldonkey/src/networks/fileTP/fileTPMain.ml
diff -u mldonkey/src/networks/fileTP/fileTPMain.ml:1.3 
mldonkey/src/networks/fileTP/fileTPMain.ml:1.4
--- mldonkey/src/networks/fileTP/fileTPMain.ml:1.3      Sun Feb  8 22:58:17 2004
+++ mldonkey/src/networks/fileTP/fileTPMain.ml  Tue Jul 26 23:16:48 2005
@@ -30,34 +30,34 @@
 open FileTPGlobals
 open FileTPTypes
 open CommonTypes
-  
+
 let is_enabled = ref false
- 
+
 let disable enabler () =
   if !enabler then begin
       is_enabled := false;
       enabler := false;
-      Hashtbl2.safe_iter (fun c -> disconnect_client c Closed_by_user) 
+      Hashtbl2.safe_iter (fun c -> disconnect_client c Closed_by_user)
       clients_by_uid;
       (match !listen_sock with None -> ()
-        | Some sock -> 
+        | Some sock ->
             listen_sock := None;
             TcpServerSocket.close sock Closed_by_user);
       if !!enable_fileTP then enable_fileTP =:= false;
       match !udp_sock with
         None -> ()
-      | Some sock -> 
+      | Some sock ->
           udp_sock := None;
           UdpSocket.close sock Closed_by_user
     end
-    
+
 let enable () =
   if not !is_enabled then
     let enabler = ref true in
-    
+
     is_enabled := true;
     network.op_network_disable <- disable enabler;
-    
+
     if not !!enable_fileTP then enable_fileTP =:= true;
 
     add_session_timer enabler 1.0 (fun timer ->
@@ -69,13 +69,13 @@
         FileTPClients.ask_for_files ();
     );
   ()
-  
+
 let _ =
-  
+
   Hashtbl.add protos_by_name "http" FileTPHTTP.proto;
   Hashtbl.add protos_by_name "ftp" FileTPFTP.proto;
   Hashtbl.add protos_by_name "ssh" FileTPSSH.proto;
-  
+
   network.op_network_is_enabled <- (fun _ -> !!CommonOptions.enable_fileTP);
   option_hook enable_fileTP (fun _ ->
       if !CommonOptions.start_running_plugins then
@@ -85,7 +85,7 @@
   network.op_network_enable <- enable;
   network.network_config_file <- [fileTP_ini];
   network.op_network_info <- (fun n ->
-      { 
+      {
         network_netnum = network.network_num;
         network_config_filename = (match network.network_config_file with
             [] -> "" | opfile :: _ -> options_file_name opfile);
@@ -96,9 +96,7 @@
         network_downloaded = Int64.zero;
         network_connected = 0;
       });
-  CommonInteractive.register_gui_options_panel "FileTP" 
+  CommonInteractive.register_gui_options_panel "FileTP"
   gui_fileTP_options_panel
-  
-  
+
 let main (toto: int) = ()
-