| … | |
… | |
| 110 | $SEED_WATCHER = AE::timer $int, 0, \&more_seeding; |
110 | $SEED_WATCHER = AE::timer $int, 0, \&more_seeding; |
| 111 | |
111 | |
| 112 | @SEEDS = keys %SEEDS unless @SEEDS; |
112 | @SEEDS = keys %SEEDS unless @SEEDS; |
| 113 | return unless @SEEDS; |
113 | return unless @SEEDS; |
| 114 | |
114 | |
| 115 | $AnyEvent::MP::Kernel::WARN->(9, "no nodes connected, seeding."); |
|
|
| 116 | |
|
|
| 117 | seed_connect splice @SEEDS, rand @SEEDS, 1; |
115 | seed_connect splice @SEEDS, rand @SEEDS, 1; |
| 118 | } |
116 | } |
| 119 | |
117 | |
| 120 | sub avoid_seed($) { |
118 | sub avoid_seed($) { |
| 121 | @SEEDS = grep $_ ne $_[0], @SEEDS; |
119 | delete $SEEDS{$_[0]}; |
| 122 | } |
120 | } |
| 123 | |
121 | |
| 124 | sub set_seeds(@) { |
122 | sub set_seeds(@) { |
| 125 | @SEEDS{@_} = (); |
123 | @SEEDS{@_} = (); |
| 126 | |
124 | |
