[Mldonkey-commits] mldonkey distrib/ChangeLog src/daemon/driver/dr...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       06/09/23 22:24:17

Modified files:
        distrib        : ChangeLog 
        src/daemon/driver: driverCommands.ml 

Log message:
        patch #5415

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/distrib/ChangeLog?cvsroot=mldonkey&r1=1.1019&r2=1.1020
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/daemon/driver/driverCommands.ml?cvsroot=mldonkey&r1=1.177&r2=1.178

Patches:
Index: distrib/ChangeLog
===================================================================
RCS file: /sources/mldonkey/mldonkey/distrib/ChangeLog,v
retrieving revision 1.1019
retrieving revision 1.1020
diff -u -b -r1.1019 -r1.1020
--- distrib/ChangeLog   23 Sep 2006 20:29:46 -0000      1.1019
+++ distrib/ChangeLog   23 Sep 2006 22:24:17 -0000      1.1020
@@ -14,6 +14,9 @@
 ChangeLog
 =========
 
+2006/09/24
+5415: New command option: rem disc - remove all disconnected servers
+
 2006/09/23
 5414: Edonkey comments, update gui prot, some bt peer ids (zet)
 - Reimplement edonkey file comments with ratings (ro)

Index: src/daemon/driver/driverCommands.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/daemon/driver/driverCommands.ml,v
retrieving revision 1.177
retrieving revision 1.178
diff -u -b -r1.177 -r1.178
--- src/daemon/driver/driverCommands.ml 23 Sep 2006 20:29:47 -0000      1.177
+++ src/daemon/driver/driverCommands.ml 23 Sep 2006 22:24:17 -0000      1.178
@@ -736,6 +736,16 @@
                end
             ) !!servers;
             Printf.sprintf (_b "Removed %d blocked servers") !counter
+       | ["disc"] ->
+            Intmap.iter (fun _ s ->
+             match server_state s with
+               NotConnected _ ->
+                 begin
+                   server_remove s;
+                   incr counter
+                 end
+             | _ -> ()) !!servers;
+            Printf.sprintf (_b "Removed %d disconnected servers") !counter
        | _ ->
             List.iter (fun num ->
                 let num = int_of_string num in
@@ -743,7 +753,7 @@
                 server_remove s
             ) args;
             Printf.sprintf (_b"%d servers removed") (List.length args)
-    ), "<server numbers> :\t\t\tremove server (use 'all' for all servers, 
'blocked' for all IP blocked servers)";
+    ), "<server numbers|all|blocked|disc> :\t\t\tremove server(s) 
('all'/'blocked'/'disc' = all/IP blocked/disconnected servers)";
 
     "server_banner", Arg_one (fun num o ->
         let num = int_of_string num in