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