--- trunk/vz-optimize.pl	2007/01/08 22:59:26	12
+++ trunk/vz-optimize.pl	2007/01/31 21:12:47	14
@@ -43,8 +43,11 @@
 	if ($r->{failcnt} > 0) {
 		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 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