Changeset 380
- Timestamp:
- 08/25/06 02:11:52 (2 years ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
branches/server-newrepl/lib/MogileFS/Worker/Monitor.pm
r374 r380 24 24 my $update_db_every = 15; 25 25 my %last_db_update; # devid -> time. update db less often than poll interval. 26 my %last_test_write; # devid -> time. time we last tried writing to a device. 26 27 27 28 every(2.5, sub { … … 101 102 } 102 103 104 # next if we're not going to try this now 105 next if $last_test_write{$dev->{devid}} + $update_db_every > $now; 106 $last_test_write{$dev->{devid}} = $now; 107 103 108 # now we want to check if this device is writeable 104 109 my $num = int(rand 10000); # this was "$$-$now" before, but we don't yet have a cleaner in mogstored for these files
