39 |
|
|
40 |
|
|
41 |
if ($r->{failcnt} > 0) { |
if ($r->{failcnt} > 0) { |
42 |
if ( ($r->{held} / $r->{limit}) > 0.95 ) { |
if ( ($r->{held} / $r->{limit}) > 0.00095 ) { |
43 |
print "vzctl set $vmid --${res} ", int($r->{held} * 1.1), "\n"; |
my $new_limit = int($r->{limit} * 1.1); |
44 |
|
# warn "# $vmid $res $r->{limit} -> $new_limit\n"; |
45 |
|
print "vzctl set $vmid --${res} $new_limit\n"; |
46 |
} else { |
} else { |
47 |
warn "$vmid/$res failed, but not used 95% [",$r->{held},"/",$r->{limit},"]\n"; |
warn "$vmid/$res failed, but not used 95% [",$r->{held},"/",$r->{limit},"]\n"; |
48 |
} |
} |