14 |
|
|
15 |
my $d; |
my $d; |
16 |
|
|
17 |
|
my $increase_over = 0.95; # 95% of resource limit used |
18 |
|
|
19 |
while(<$bc>) { |
while(<$bc>) { |
20 |
chomp; |
chomp; |
21 |
next if (/^Version/); |
next if (/^Version/); |
41 |
|
|
42 |
|
|
43 |
if ($r->{failcnt} > 0) { |
if ($r->{failcnt} > 0) { |
44 |
if ( ($r->{held} / $r->{limit}) > 0.00095 ) { |
if ( ($r->{held} / $r->{limit}) > $increase_over ) { |
45 |
my $new_limit = int($r->{limit} * 1.1); |
my $new_limit = int($r->{limit} * 1.1); |
46 |
# warn "# $vmid $res $r->{limit} -> $new_limit\n"; |
# warn "# $vmid $res $r->{limit} -> $new_limit\n"; |
47 |
print "vzctl set $vmid --${res} $new_limit\n"; |
print "vzctl set $vmid --${res} $new_limit\n"; |
48 |
} else { |
} else { |
49 |
warn "$vmid/$res failed, but not used 95% [",$r->{held},"/",$r->{limit},"]\n"; |
warn sprintf("%s/%s failed, but not used %d%% [%d/%d %d%%]\n", |
50 |
|
$vmid, $res, $increase_over * 100, $r->{held}, $r->{limit}, ($r->{held}/$r->{limit})*100 |
51 |
|
); |
52 |
} |
} |
53 |
|
|
54 |
} |
} |