--- trunk/vzoptimize.pl	2006/11/27 14:16:52	2
+++ trunk/vz-optimize.pl	2007/01/31 21:12:47	14
@@ -14,6 +14,8 @@
 
 my $d;
 
+my $increase_over = 0.95;	# 95% of resource limit used
+
 while(<$bc>) {
 	chomp;
 	next if (/^Version/);
@@ -39,12 +41,17 @@
 
 
 	if ($r->{failcnt} > 0) {
-		if ( ($r->{held} / $r->{limit}) > 0.00095 ) {
+		if ( ($r->{held} / $r->{limit}) > $increase_over ) {
 			my $new_limit = int($r->{limit} * 1.1);
-#			warn "# $vmid $res $r->{limit} -> $new_limit\n";
-			print "vzctl set $vmid --${res} $new_limit\n";
+			my $new_barr = int($r->{limit} * 1.2);
+			warn "# $vmid $res $r->{limit} -> $new_limit:$new_barr\n";
+			my $cmd = "vzctl set $vmid --${res} $new_limit:$new_barr --save";
+			warn $cmd,$/;
+			system $cmd;
 		} else {
-			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",
+				$vmid, $res, $increase_over * 100, $r->{held}, $r->{limit}, ($r->{held}/$r->{limit})*100
+			);
 		}
 
 	}