From 0b089ea777d9eee4d1e06b360ffa9da78d0f153a Mon Sep 17 00:00:00 2001 From: Kenyon Ralph Date: Sun, 12 Feb 2012 20:08:15 -0800 Subject: [PATCH] remove duplicate openvz load plugin This commit closes Issue #27. --- plugins/other/openvz-load-average | 125 ------------------------------ 1 file changed, 125 deletions(-) delete mode 100755 plugins/other/openvz-load-average diff --git a/plugins/other/openvz-load-average b/plugins/other/openvz-load-average deleted file mode 100755 index 4c0219f9..00000000 --- a/plugins/other/openvz-load-average +++ /dev/null @@ -1,125 +0,0 @@ -#!/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 -# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES -# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN -# 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 : -# -# [openvz_loadavg] -# user root -# -# to your munin config (or use sudo) -# -# Changelog -# version 0.1 - 2008 September 17 -# Maxime Besson -# - Script creation -# version 0.2 - 2011 July 18 -# Bernard David -# - Script improvements : multigraph - -use strict; -my $arg=shift(@ARGV); - -# Various tests -if ( ! -d "/proc/vz" ) { - print "This server does not seem to run OpenVZ\n"; - exit(1); -} - -if ( $> ne "0" ) { - print "Must run as root\n"; - exit(1); -} - -# Autoconfig -if ( $arg eq "autoconf" ) { - print "yes\n"; -} elsif ( $arg eq "config" ) { - print "multigraph openvz_loadavg\n"; - print "graph_title loadavg of VE\n"; - print "graph_args --base 1000 -l 0 -N\n"; - print "graph_scale no\n"; - print "graph_vlabel loadavg\n"; - print "graph_info Shows 5-minute load average per VE\n"; - print "graph_category OpenVZ\n"; - - # 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; - $name =~ s/\W/_/g; - - print "$name.label $label: load average\n"; - print "$name.min 0\n"; - if ($A==0) { - print "$name.draw AREA\n"; - $A=1; - }else{ - print "$name.draw STACK\n"; - } - } - - for (@result ) { - ( my $veid,my $label ) = /^\s*(\d+)\s*([\w\-]+)\s*$/ ; - my $name = $label; - $name =~ s/\W/_/g; - - print "multigraph openvz_loadavg.$name\n"; - print "graph_title loadavg of VE\n"; - print "graph_vlabel loadavg\n"; - print "$name.label $label: load average\n"; - print "$name.info Average load on $label for the past 5 minutes\n"; - print "$name.min 0\n"; - print "$name.draw AREA\n"; - } -} else { - # Getting the values - my @result=`/usr/sbin/vzlist -H -s veid -o veid,name,laverage`; - my $A=0; - print "multigraph openvz_loadavg\n"; - print "graph_title loadavg of VE\n"; - print "graph_vlabel loadavg\n"; - print "graph_category OpenVZ\n"; - - for (@result ) { - if (( my $veid,my $label, my $laverage ) = /^\s*(\d+)\s+([\w\-]+)\s+[\d\.]+\/([\d\.]+)\/[\d\.]+\s*$/) { - my $name = $label; - $name =~ s/\W/_/g; - print "$name.label $name\n"; - print "$name.min 0\n"; - if ($A==0) { print "$name.draw AREA\n"; $A=1; } else { print "$name.draw STACK\n"; } - print "$name.value $laverage\n" - } - } - - for (@result ) { - if (( my $veid,my $label, my $laverage ) = /^\s*(\d+)\s+([\w\-]+)\s+[\d\.]+\/([\d\.]+)\/[\d\.]+\s*$/) { - my $name = $label; - $name =~ s/\W/_/g; - print "multigraph openvz_loadavg.$name\n"; - print "graph_title loadavg of VE\n"; - print "graph_vlabel loadavg\n"; - print "$name.value $laverage\n" - } - } - -}