Human readable user beancounters - Revision history

Kir: use vzubc

2013-04-22T19:14:00Z

use vzubc

Nean at 12:08, 30 May 2011

2011-05-30T12:08:18Z

Show changes

Drodriguez at 15:52, 6 May 2011

2011-05-06T15:52:16Z

Drodriguez at 15:50, 6 May 2011

2011-05-06T15:50:13Z

Drodriguez at 15:48, 6 May 2011

2011-05-06T15:48:07Z

Kir: use 'unlimited' instead of MAX_ULONG (to be consistent with vzctl)

2011-01-25T13:55:24Z

use 'unlimited' instead of MAX_ULONG (to be consistent with vzctl)

Dosborn: Added patch to display VE hostname

2008-11-09T19:18:41Z

Added patch to display VE hostname

Fibbs: Human readable /proc/user beancounters moved to Human readable user beancounters

2008-09-20T20:36:03Z

Human readable /proc/user beancounters moved to Human readable user beancounters

Fibbs: email addy

2008-09-18T09:06:10Z

email addy

Fibbs: Created page with useful content

2008-09-18T09:00:53Z

Created page with useful content

Show changes

← Older revision		Revision as of 19:14, 22 April 2013
Line 1:		Line 1:
−	{{~~UBC toc~~}}	+	{{Note\|This article is obsoleted, please use {{Man\|vzubc\|8}} that comes with vzctl}}

	For newbies to openvz it is fairly difficult to understand the meaning of the numbers in '''/proc/user_beancounters''' file. Calculating the values to something understandable for human brain everytime you look at these statistics is much work. I have written a perl script which reformats the output to human-readable values in kbyte and mbyte.		For newbies to openvz it is fairly difficult to understand the meaning of the numbers in '''/proc/user_beancounters''' file. Calculating the values to something understandable for human brain everytime you look at these statistics is much work. I have written a perl script which reformats the output to human-readable values in kbyte and mbyte.

@@ Line 307: / Line 307: @@
 Quick (and dirty) patch to only display the information of one container (first argument of the script).
 Usage:
-<pre>$ beacounters.pl VEID</pre>
+<pre>$ beancounters.pl VEID</pre>
 <source lang=diff>
---- beacounters.pl	2011-05-06 01:06:58.000000000 -0300
+--- beancounters.pl	2011-05-06 01:06:58.000000000 -0300
-+++ beacounters-container.pl	2011-05-06 12:43:09.000000000 -0300
++++ beancounters-container.pl	2011-05-06 12:43:09.000000000 -0300
 @@ -11,8 +11,7 @@
   # Christian Anton <mail |_at_| christiananton.de> 2008-09-18

@@ Line 305: / Line 305: @@
 </source>
-Quick (and dirty) patch to only display the information of one container (first argument of the script)
+Quick (and dirty) patch to only display the information of one container (first argument of the script).
 <source lang=diff>

@@ Line 303: / Line 303: @@
          } else {
                  &work_line($line);
 </source>

@@ Line 13: / Line 13: @@
 shmpages                 11.58 mb             11.64 mb            512.00 mb            512.00 mb                    0
 numproc                        84                  101                  500                  500                    0
-physpages               278.24 mb            395.75 mb                    0            MAX_ULONG                    0
+physpages               278.24 mb            395.75 mb                    0            unlimited                    0
-vmguarpages                     0                    0            244.14 mb            MAX_ULONG                    0
+vmguarpages                     0                    0            244.14 mb            unlimited                    0
-oomguarpages            279.66 mb            396.98 mb            122.07 mb            MAX_ULONG                    0
+oomguarpages            279.66 mb            396.98 mb            122.07 mb            unlimited                    0
 numtcpsock                     25                   53                  500                  500                    0
 numflock                       18                   22                  200                  220                    0
@@ Line 70: / Line 70: @@
 	my $bytes = shift;
-	if (defined(&check_maxulong($bytes))) { return "MAX_ULONG"; }
+	if (defined(&check_maxulong($bytes))) { return "unlimited"; }
 	my $kbytes = $bytes / 1024;
@@ Line 90: / Line 90: @@
 	if ($pages == 0) { return "0"; }
-	if (defined(&check_maxulong($pages))) { return "MAX_ULONG"; }
+	if (defined(&check_maxulong($pages))) { return "unlimited"; }
 	my $kbytes = $pages * 4;
@@ Line 107: / Line 107: @@
 sub recalc_nothing {
 	my $number = shift;
-	if (defined(&check_maxulong($number))) { return "MAX_ULONG"; }
+	if (defined(&check_maxulong($number))) { return "unlimited"; }
 	return $number;

← Older revision		Revision as of 19:18, 9 November 2008
Line 208:		Line 208:

	close(BEANS);		close(BEANS);
		+	</source>
		+
		+	Here's a quick patch which adds on VE hostname lookups. It depends on vzlist being in the path but won't break if it isn't.
		+
		+	<source lang=perl>
		+	*** beanCounters.pl-orig Sun Nov 9 14:08:56 2008
		+	--- beanCounters.pl Sun Nov 9 14:08:21 2008
		+	***************
		+	* 9,14 **
		+	--- 9,17 ----
		+	# The script can be distributed freely for everybody who finds it usable.
		+	#
		+	# Christian Anton <mail \|_at_\| christiananton.de> 2008-09-18
		+	+ #
		+	+ # David Osborn <ossdev -at- daoCon.com> 2008-11-09
		+	+ # Added VE name to output
		+
		+
		+
		+	***************
		+	* 147,158 **
		+
		+	sub print_header {
		+	my $uid = shift;
		+
		+	print "#####################################################################################################################\n";
		+	! print "BEANS FOR UID $uid\n";
		+	print "resource held maxheld barrier limit failcnt\n";
		+	}
		+
		+	# now eat your beans baby
		+	while (<BEANS>) {
		+	chomp($line = $_);
		+	--- 150,193 ----
		+
		+	sub print_header {
		+	my $uid = shift;
		+	+ my $hostname = shift;
		+
		+	print "#####################################################################################################################\n";
		+	! print "BEANS FOR UID $uid ($hostname)\n";
		+	print "resource held maxheld barrier limit failcnt\n";
		+	}
		+
		+	+ sub get_hostname {
		+	+ my $uid = shift;
		+	+ my @vzout;
		+	+
		+	+ # already retrieved list
		+	+ if (defined %hostnames) {
		+	+ if (defined $hostnames{$uid}) {
		+	+ return $hostnames{$uid};
		+	+ } else {
		+	+ return 'not found';
		+	+ }
		+	+ # try to retrieve the list
		+	+ } elsif ( eval(@vzout = `vzlist -H -o veid,hostname`) ) {
		+	+ $hostnames{0} = 'HN';
		+	+ while (@vzout) {
		+	+ my $line = shift @vzout;
		+	+ my ($tuid,$hostname) = $line =~ /^\s+(\d+)\s+(\S+)/;
		+	+ $hostnames{$tuid} = $hostname;
		+	+ }
		+	+ return $hostnames{$uid};
		+	+ } else {
		+	+ # something's wrong
		+	+ return 'unknown';
		+	+ }
		+	+
		+	+ }
		+	+
		+	+
		+	+ # Hash used to store uid to hostname lookups
		+	+ my %hostnames;
		+	+
		+	# now eat your beans baby
		+	while (<BEANS>) {
		+	chomp($line = $_);
		+	***************
		+	* 166,172 **
		+	$uid = $line;
		+	$line =~ s/^(\s+)(\d+):/$1/;
		+	$uid =~ s/^(\s+)(\d+):.*$/$2/;
		+	! &print_header($uid);
		+	&work_line($line);
		+	} else {
		+	&work_line($line);
		+	--- 201,207 ----
		+	$uid = $line;
		+	$line =~ s/^(\s+)(\d+):/$1/;
		+	$uid =~ s/^(\s+)(\d+):.*$/$2/;
		+	! &print_header($uid, get_hostname($uid));
		+	&work_line($line);
		+	} else {
		+	&work_line($line);
	</source>		</source>

← Older revision	Revision as of 20:36, 20 September 2008
(No difference)

@@ Line 42: / Line 42: @@
 # The script can be distributed freely for everybody who finds it usable.
+#
-# Christian Anton <mail@christiananton.de> 2008-09-18
+# Christian Anton <mail |_at_| christiananton.de> 2008-09-18