vz-tools/trunk/vz-from-config.pl

#!/usr/bin/perl

use warnings;
use strict;

use lib 'lib';
use VZ;

use Data::Dump qw/dump/;

my $file = shift @ARGV || die "usage: $0 /etc/vz/conf/veid.conf\n";

my $veid = $1 if $file =~ m{(\d+).conf};

open(my $fh, '<', $file) || die "can't open $file: $!";

my $config;

while (<$fh>) {
        chomp;
        if ( m{(\w+)\s*=\s*"?([^"]+)"?} ) {
                my ($name,$value) = ($1,$2);
                $config->{ lc($name) } = $value;
        } else {
                warn "SKIP: $_\n";
        }
}

warn "# config ",dump( $config );

my $path = "/proc/bc/$veid/resources";
open(my $res, '<', $path) || die "can't open $path: $!";
while (<$res>) {
        chomp;
        s{^\s+}{};
        my ( $name,$held,$maxheld,$barrier,$limit,$failcnt ) = split(/\s+/, $_, 6);

        my ( $conf_barrier, $conf_limit ) = split(/:/, $config->{ $name });

        if ( $barrier != $conf_barrier ) {
                warn "# $name $barrier != $conf_barrier\n";

                vzctl( 'set', $veid, "--$name", $conf_barrier );
        }

        if ( $limit != $conf_limit ) {
                warn "# $name $limit != $conf_limit\n";
                vzctl( 'set', $veid, "--$name", $conf_limit );
        }

}
1	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5
6	use lib 'lib';
7	use VZ;
8
9	use Data::Dump qw/dump/;
10
11	my $file = shift @ARGV \|\| die "usage: $0 /etc/vz/conf/veid.conf\n";
12
13	my $veid = $1 if $file =~ m{(\d+).conf};
14
15	open(my $fh, '<', $file) \|\| die "can't open $file: $!";
16
17	my $config;
18
19	while (<$fh>) {
20	chomp;
21	if ( m{(\w+)\s=\s"?([^"]+)"?} ) {
22	my ($name,$value) = ($1,$2);
23	$config->{ lc($name) } = $value;
24	} else {
25	warn "SKIP: $_\n";
26	}
27	}
28
29	warn "# config ",dump( $config );
30
31	my $path = "/proc/bc/$veid/resources";
32	open(my $res, '<', $path) \|\| die "can't open $path: $!";
33	while (<$res>) {
34	chomp;
35	s{^\s+}{};
36	my ( $name,$held,$maxheld,$barrier,$limit,$failcnt ) = split(/\s+/, $_, 6);
37
38	my ( $conf_barrier, $conf_limit ) = split(/:/, $config->{ $name });
39
40	if ( $barrier != $conf_barrier ) {
41	warn "# $name $barrier != $conf_barrier\n";
42
43	vzctl( 'set', $veid, "--$name", $conf_barrier );
44	}
45
46	if ( $limit != $conf_limit ) {
47	warn "# $name $limit != $conf_limit\n";
48	vzctl( 'set', $veid, "--$name", $conf_limit );
49	}
50
51	}