4 |
|
|
5 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
6 |
|
|
7 |
|
my $watch_current = 'held'; |
8 |
|
my $watch_max = 'limit'; |
9 |
|
|
10 |
|
# tune optimizer |
11 |
|
my $increase_over = 0.95; # 95% of resource $watch used |
12 |
|
my $increase_limit = 1.1; |
13 |
|
my $increase_barrier = 1.2; |
14 |
|
|
15 |
|
($watch_current,$watch_max) = ('maxheld','barrier'); |
16 |
|
|
17 |
|
my $debug = 0; |
18 |
|
|
19 |
my $proc='/proc/user_beancounters'; |
my $proc='/proc/user_beancounters'; |
20 |
$proc='./user_beancounters' if (! -e $proc); |
$proc='./user_beancounters' if (! -e $proc); |
21 |
|
|
26 |
|
|
27 |
my $d; |
my $d; |
28 |
|
|
29 |
|
warn "increasing $proc if $watch_current > $watch_max * $increase_over\n"; |
30 |
|
|
31 |
while(<$bc>) { |
while(<$bc>) { |
32 |
chomp; |
chomp; |
33 |
next if (/^Version/); |
next if (/^Version/); |
53 |
|
|
54 |
|
|
55 |
if ($r->{failcnt} > 0) { |
if ($r->{failcnt} > 0) { |
56 |
if ( ($r->{held} / $r->{limit}) > 0.95 ) { |
if ( ($r->{ $watch_current } / $r->{ $watch_max }) > $increase_over ) { |
57 |
print "vzctl set $vmid --${res} ", int($r->{held} * 1.1), "\n"; |
my $new_limit = int( $r->{ $watch_max } * $increase_limit ); |
58 |
|
my $new_barr = int( $r->{ $watch_max } * $increase_barrier ); |
59 |
|
warn "# $vmid $res $r->{ $watch_max } -> $new_limit:$new_barr\n"; |
60 |
|
my $cmd = "vzctl set $vmid --${res} $new_limit:$new_barr --save"; |
61 |
|
warn $cmd,$/; |
62 |
|
system $cmd if (! $debug); |
63 |
} else { |
} else { |
64 |
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", |
65 |
|
$vmid, $res, $increase_over * 100, $r->{ $watch_current }, $r->{ $watch_max }, ($r->{ $watch_current }/$r->{ $watch_max })*100 |
66 |
|
); |
67 |
} |
} |
68 |
|
|
69 |
} |
} |