[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonSwarming2.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonSwarming2.ml
diff -u mldonkey/src/daemon/common/commonSwarming2.ml:1.18 
mldonkey/src/daemon/common/commonSwarming2.ml:1.19
--- mldonkey/src/daemon/common/commonSwarming2.ml:1.18  Wed Sep 14 21:04:12 2005
+++ mldonkey/src/daemon/common/commonSwarming2.ml       Thu Oct  6 10:19:29 2005
@@ -3006,6 +3006,19 @@
 
 (*************************************************************************)
 (*                                                                       *)
+(*                         Remove swarmer                                *)
+(*                                                                       *)
+(*************************************************************************)
+
+let remove_swarmer file_swarmer =
+  match file_swarmer with 
+    None -> () 
+  | Some sw -> if not (has_secondaries sw)
+                then HS.remove swarmers_by_name sw.t_s
+                else lprintf_nl () "Tried to remove swarmer with secondaries"
+
+(*************************************************************************)
+(*                                                                       *)
 (*                         subfiles                                      *)
 (*                                                                       *)
 (*************************************************************************)