Mercurial > openvz

comparison ovz_statshow.pl @ 3:4cd907a693d1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ovz_statshow: some comment for people using it from the outside world
author Peter Gervai <grin@grin.hu>
date Mon, 23 Mar 2009 17:06:10 +0100
parents 4080b53fd4a2
children
comparison
equal deleted inserted replaced
2:4080b53fd4a2 3:4cd907a693d1
2 #$Id$ 2 #$Id$
3 #(C)Peter Gervai, 2009 3 #(C)Peter Gervai, 2009
4 # email: grin.grin.hu 4 # email: grin.grin.hu
5 # 5 #
6 # Released under GPL v2 or later and CC-BY-SA-3.0 6 # Released under GPL v2 or later and CC-BY-SA-3.0
7 #
8 # Lists openvz VE usage statistics.
9 #
7 10
8 use strict; 11 use strict;
9 use warnings; 12 use warnings;
10 13
11 use IO::File; 14 use IO::File;
62 my $val = $ve{$veid}->[$field] - $ve1{$veid}->[$field]; 65 my $val = $ve{$veid}->[$field] - $ve1{$veid}->[$field];
63 printf "%6s(%3d)=", $fieldname[$i], $field; 66 printf "%6s(%3d)=", $fieldname[$i], $field;
64 67
65 if( $val < 0 ) { 68 if( $val < 0 ) {
66 # debug 69 # debug
70 print "NEGATIVE VALUE!!\n";
67 print "\n#", $ve{$veid}->[$field], ' ', $ve1{$veid}->[$field], "#$_#\n"; 71 print "\n#", $ve{$veid}->[$field], ' ', $ve1{$veid}->[$field], "#$_#\n";
68 print "$debug_proc\n"; 72 print "$debug_proc\n";
69 } 73 }
70 74
71 if( $field < 5 ) { 75 if( $field < 5 ) {