#!/usr/bin/perl
#$Id$
#(C)Peter Gervai, 2009
#

use strict;
use warnings;

use IO::File;


my $f_stat = "/proc/vz/vestat";
my $stat_ver = "2.2";

my $f = new IO::File "< $f_stat" or die $!;
my $l = <$f>;
if( $l !~ /Version: $stat_ver/ ) {
    die "Unknown file version $l, required $stat_ver";
}

$l = <$f>; # headers

my @fields = (1,2,3,4,5,7,8);
my %ve, %ve1;

while(1) {
    while( <$f> ) {
        chomp;
        my @d = split;
        # 0veid, 1user, 2nice, 3systm, 4uptime, 5idle, (6strv)
        # 7uptime, 8used, (9maxlat, 10totlat, 11numched)
        $ve{$d[0]} = [ @d[0..11] ];
    }
    
    for my $veid ( sort {$a<=>$b} keys %ve ) {
        if( defined( $ve1{$veid} ) ) {
            print "$veid: ";
            for my $field ( @fields ) {
                print "$field=", $ve{$veid}->[$field] - $ve1{$veid}->[$field];
            }
            print "\n";
        }
        $ve1{$veid}->[$field] = $ve{$veid}->[$field];
    }
    
    sleep(1);
}