Anonymous user
User:ImplSearchBot/Code: Difference between revisions
m
ImplSearchBot:0
m (ImplSearchBot:0) |
m (ImplSearchBot:0) |
||
Line 41:
# Wait one minute for every process in the wait queue.
my @avgs = split / +/, $loadstr, 3;
my $sleeptime = 0;
Line 48:
$sleeptime = $avgs[0] * 60;
# If we're currently under notable load
if($sleeptime > 30)
{
print "
print "Load averages: " . join(' ', @avgs) . " ... Sleeping $sleeptime seconds\n";
sleep $sleeptime;
return $sleeptime;
|