Changeset 1251 for trunk/utils
- Timestamp:
- 01/03/09 02:35:31 (15 months ago)
- Files:
-
- 1 modified
-
trunk/utils/mogtool (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/utils/mogtool
r1240 r1251 979 979 # verify replication and chunks 980 980 my %paths; # { chunknum => [ path, path, path ... ] } 981 my %still_need = $opts{noreplwait} ? () :( %chunkinfo );981 my %still_need = ( %chunkinfo ); 982 982 while (%still_need) { 983 print "Replicating (disable with --noreplwait): " . join(' ', sort { $a <=> $b } keys %still_need) . "\n";983 print "Replicating: " . join(' ', sort { $a <=> $b } keys %still_need) . "\n"; 984 984 sleep 1; # give things time to replicate some 985 985 … … 1023 1023 1024 1024 # now make sure %paths contains at least 2 verified 1025 next unless scalar(@{$paths{$num} || []}) >= 2;1025 next if scalar(@{$paths{$num} || []}) < 2 && !$opts{noreplwait}; 1026 1026 delete $still_need{$num}; 1027 1027 }
