Munin contributed plugins

#!/usr/bin/perl

# Copyright (c) 2008, Maxime Besson

# Copyright (c) 2011, David Bernard

# Permission to use, copy, modify, and/or distribute this software for any

# purpose with or without fee is hereby granted, provided that the above

# copyright notice and this permission notice appear in all copies.

# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES

# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF

# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR

# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF

# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

#

# Graph VE load averages on an OpenVZ server

#

# This plugin needs root privileges to call vzlist, so add this :

	# Dynamic config

	my @result=`/usr/sbin/vzlist -H -a -s veid -o veid,name`;

	my $A=0; # draw an area only under the first line

	for (@result ) {

		( my $veid,my $label ) = /^\s*(\d+)\s*([\w\-]+)\s*$/ ;

		my $name = $label;