Révision 17f78427
Whitespace cleanup
- remove trailing whitespace
- remove empty lines at the end of files
| plugins/xen/xen-cpu | ||
|---|---|---|
| 3 | 3 |
# Script to minitor the cpu usage of Xen domains |
| 4 | 4 |
# |
| 5 | 5 |
# Author: Adam Crews <doo <at> shroom <dot> com> |
| 6 |
#
|
|
| 6 |
# |
|
| 7 | 7 |
# License: GPL |
| 8 | 8 |
# Based on the original xen script from Matthias Pfafferodt, syntron at web.de |
| 9 | 9 |
# |
| ... | ... | |
| 55 | 55 |
'graph_vlabel' => 'Percent (%)', |
| 56 | 56 |
'graph_category' => 'virtualization', |
| 57 | 57 |
'graph_info' => 'Display the % of CPU Usage for each domain', |
| 58 |
);
|
|
| 58 |
); |
|
| 59 | 59 |
|
| 60 | 60 |
my @domains = `$XM list`; |
| 61 | 61 |
shift(@domains); # we dont need the header line |
| ... | ... | |
| 75 | 75 |
if ( "$cnt" == "0") { $cnf{$dom.'.draw'} = 'AREA'; }
|
| 76 | 76 |
$cnt++; |
| 77 | 77 |
} |
| 78 |
|
|
| 78 |
|
|
| 79 | 79 |
foreach my $key (sort(keys(%cnf))) {
|
| 80 | 80 |
print "$key $cnf{$key}\n";
|
| 81 | 81 |
} |
| ... | ... | |
| 87 | 87 |
|
| 88 | 88 |
my @chunks; undef(@chunks); |
| 89 | 89 |
|
| 90 |
{
|
|
| 90 |
{
|
|
| 91 | 91 |
# run the xentop command a few times because the first reading is not always accurate |
| 92 | 92 |
local $/ = undef; |
| 93 | 93 |
@chunks = split(/^xentop - .*$/m, `$XMTOP -b -i2 -d2`); |
| ... | ... | |
| 97 | 97 |
my @stats = split (/\n/,pop(@chunks)); |
| 98 | 98 |
|
| 99 | 99 |
# remove the first 4 items that are junk that we don't need. |
| 100 |
shift(@stats);
|
|
| 101 |
shift(@stats);
|
|
| 102 |
shift(@stats);
|
|
| 103 |
shift(@stats);
|
|
| 100 |
shift(@stats); |
|
| 101 |
shift(@stats); |
|
| 102 |
shift(@stats); |
|
| 103 |
shift(@stats); |
|
| 104 | 104 |
|
| 105 | 105 |
my %vals; undef(%vals); |
| 106 | 106 |
|
Formats disponibles : Unified diff