37 |
|
|
38 |
my ( $conf_barrier, $conf_limit ) = split(/:/, $config->{ $name }); |
my ( $conf_barrier, $conf_limit ) = split(/:/, $config->{ $name }); |
39 |
|
|
40 |
if ( $barrier != $conf_barrier ) { |
my $update; |
|
warn "# $name $barrier != $conf_barrier\n"; |
|
41 |
|
|
42 |
vzctl( 'set', $veid, "--$name", $conf_barrier ); |
if ( $barrier != $conf_barrier ) { |
43 |
|
warn "# $name barrier $barrier != $conf_barrier\n"; |
44 |
|
$update++; |
45 |
} |
} |
46 |
|
|
47 |
if ( $limit != $conf_limit ) { |
if ( $limit != $conf_limit ) { |
48 |
warn "# $name $limit != $conf_limit\n"; |
warn "# $name limit $limit != $conf_limit\n"; |
49 |
vzctl( 'set', $veid, "--$name", $conf_limit ); |
$update++; |
50 |
} |
} |
51 |
|
|
52 |
|
vzctl( 'set', $veid, "--$name", "$conf_barrier:$conf_limit" ) if $update; |
53 |
|
|
54 |
} |
} |