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 "Load averages: " . join(' ', @avgs) . " ... Sleeping $sleeptime seconds";
print "Calculated sleeptime: $sleeptime\n";
print "Load averages: " . join(' ', @avgs) . " ... Sleeping $sleeptime seconds\n";
sleep $sleeptime;
sleep $sleeptime;
return $sleeptime;
return $sleeptime;