summaryrefslogtreecommitdiff
path: root/files/plugins/xen-cpu
blob: da36f6d3f07f7877f798d49fca2b3db4d8093854 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
#!/usr/bin/perl -wT
#
# Script to minitor the cpu usage of Xen domains
#
# Author: Adam Crews <doo <at> shroom <dot> com>
# 
# License: GPL
# Based on the origional xen script from Matthias Pfafferodt, syntron at web.de
#
# Note: Your munin config must run this as root.
#
# Parameters
#   config 	(required)
#   autoconf	(optional - used by munin-config)
#
# Changelog:
# Properly ignore the xentop output header line.
# Ward Vandewege (ward@gnu.org), 2011-04-20
#
#%# family=auto
#%# capabilities=autoconf

# Define where to find xm tools
my $XM = '/usr/sbin/xm';
my $XMTOP = '/usr/sbin/xentop';

##############
# You should not need to edit anything below here
#

use strict;

$ENV{PATH} = '/bin:/usr/bin:/usr/sbin';

# we cache xm list for 5 min for perfomance reasons
system('((find /var/lib/munin/plugin-state/xm_list.state -mmin -5 2>&1 | grep -qE \'^\/var\/lib\/munin\/plugin-state\/xm_list\.state$\') && [ `cat /var/lib/munin/plugin-state/xm_list.state | wc -l` -gt 1 ]) || /usr/sbin/xm list | grep -v "^Name .* Console$" > /var/lib/munin/plugin-state/xm_list.state');
system('((find /var/lib/munin/plugin-state/xm_top.state -mmin -5 2>&1 | grep -qE \'^\/var\/lib\/munin\/plugin-state\/xm_top\.state$\') && [ `cat /var/lib/munin/plugin-state/xm_top.state | wc -l` -gt 1 ]) || /usr/sbin/xentop -b -i1 > /var/lib/munin/plugin-state/xm_top.state');

my $arg; undef($arg);
if (defined($ARGV[0])) {
	$arg = 'config' if ($ARGV[0] eq 'config');
	$arg = 'autoconf' if ($ARGV[0] eq 'autoconf');

	if ( "$arg" eq 'autoconf') {
		if ( -e $XM && -e $XMTOP ) {
			print "yes\n";
			exit 0;
		} else {
			print "no ($XM and/or $XMTOP not found\n";
			exit 1;
		}
	}

	if ( "$arg" eq 'config') {
		my %cnf; undef(%cnf);
		%cnf = (
			'graph_title' => 'Xen Domain CPU Usage',
			'graph_args' => '--base 1000 -l 0 --upper-limit 100 --rigid',
			'graph_vlabel' => 'Percent (%)',
			'graph_category' => 'xen',
			'graph_info' => 'Display the % of CPU Usage for each domain',
		);	

		my @domains = `cat /var/lib/munin/plugin-state/xm_list.state`;
		# the header line is not in the cached file
		#shift(@domains); # we dont need the header line
		my $cnt = "0";
		foreach my $domain ( @domains ) {
			my ($dom,undef) = split(/\s/, $domain, 2);
			# we need to change - and . to _ or things get weird with the graphs
			# some decent quoting would probably fix this, but this works for now
			$dom =~ s/[-.]/_/g;

			$cnf{ "$dom" . '.label' } = "$dom";
			$cnf{ "$dom" . '.draw' } = 'STACK';
			$cnf{ "$dom" . '.min' } = '0';
			$cnf{ "$dom" . '.max' } = '100';
			$cnf{ "$dom" . '.info' } = '% CPU used for ' . "$dom";

			if ( "$cnt" == "0") { $cnf{$dom.'.draw'} = 'AREA'; }
			$cnt++;
		}
	
		foreach my $key (sort(keys(%cnf))) {
			print "$key $cnf{$key}\n";
		}
		exit 0;
	}
}

# Nothing was passed as an argument, so let's just return the proper values

my @stats = `cat /var/lib/munin/plugin-state/xm_top.state`;

# remove the first 4 items that are junk that we don't need.
shift(@stats); 
shift(@stats); 
shift(@stats); 
shift(@stats); 

my %vals; undef(%vals);

foreach my $domain (@stats) {
	# trim the leading whitespace
	$domain =~ s/^\s+//;
	my @v_tmp = split(/\s+/, $domain);

	# we need to change - and . to _ or things get weird with the graphs
	# some decent quoting would probably fix this, but this works for now
	$v_tmp[0] =~ s/[-.]/_/g;

	$vals{$v_tmp[0]}{'cpu_percent'} = $v_tmp[3];
	$vals{$v_tmp[0]}{'vcpu'} = $v_tmp[8];
	if ( $vals{$v_tmp[0]}{'vcpu'} =~ m/n\/a/ ) {
		my $cpu = `grep -c "processor" < /proc/cpuinfo`;
		if ( $cpu =~ m/^(\d+)$/ ) {
			$vals{$v_tmp[0]}{'vcpu'} = $1;
		}
	}
}

foreach my $key (sort(keys(%vals))) {
	print "$key.value " . ($vals{$key}{'cpu_percent'}/$vals{'Domain_0'}{'vcpu'}), "\n";
}