/[vz-tools]/trunk/vzoptimize.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/vzoptimize.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2 by dpavlin, Mon Nov 27 14:16:52 2006 UTC revision 3 by dpavlin, Mon Nov 27 15:35:36 2006 UTC
# Line 14  my $vmid; Line 14  my $vmid;
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/);
# Line 39  while(<$bc>) { Line 41  while(<$bc>) {
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          }          }

Legend:
Removed from v.2  
changed lines
  Added in v.3

  ViewVC Help
Powered by ViewVC 1.1.26