Munin contributed plugins

=HEADER

        -== Munin plugin for VMware ESXi/vSphere monitoring ==-

 Copyright (c) 2012 - Stefan Seidel <munin@stefanseidel.info>

    This program is free software: you can redistribute it and/or modify

    it under the terms of the GNU General Public License as published by

    the Free Software Foundation, either version 3 of the License, or

    (at your option) any later version.

    This program is distributed in the hope that it will be useful,

    but WITHOUT ANY WARRANTY; without even the implied warranty of

    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License

    along with this program.  If not, see <http://www.gnu.org/licenses/>.

 This plugin uses the vSphere SDK for Perl available at

 http://www.vmware.com/support/developer/viperltoolkit/

 or included in the vSphere CLI available at

 http://www.vmware.com/support/developer/vcli/

 The use of the SDK is subject to the terms and condition

 of VMware, Inc. to which you must agree upon installation.

=cut

=USAGE

       -== Usage ==-

Put this file in /usr/share/munin/plugins, `chmod +x` it and

`ln -s` it to /etc/munin/plugins/esx_<hostname of server to monitor>

Add a file "esx_" /etc/munin/plugin-conf.d with content like this

(omit the "# " at the beginning of each line)

---- snip ----

[esx_*]

timeout 60

env.user <username on ESX server or vCenter>

env.password <password of user on ESX server or vCenter>

---- snip ----

Then you need to add this host to your munin.conf on the munin server

(often this is the same as your munin node, i.e. this host) and restart

munin-node, and wait for the data to populate.

       -== Graphs don't render ==-

Munin 1.4 has a bug with complex multigraphs like this, see

http://munin-monitoring.org/ticket/1224 for details and a fix if

your graphs don't render!

       -== Option flatview ==-

There is an option to render all VMs and Host Systems in a flat

structure, i.e. not rendering VMs as sub-items of their host.

This is useful if you frequently move VMs between hosts and want to

keep the VM graphs running. To activate this option, add

---- snip ----

env.flatview top_level_entry

---- snip ----

to the entry in your config file in /etc/munin/plugin-conf.d (see above).

Be aware that this has some drawbacks:

 - you cannot have the same VM name in two hosts you monitor

   (the VM name is the unique identifier for the graphs)

 - you will only indirectly be able to see which VM is on which host

   (running VMs will appear in the CPU graphs of their hosts)

 - it's a flat structure, so it can become quite a long list

 - because of the way Munin works, all hosts will be queried serially,

   not in parallel as it would be the case without "flat view" - this

   MAY lead to timing problems if you have a large number of hosts or VMs

       -== Option vCenter ==-

If you wish to access the host system indirectly through a vCenter, just

specify this parameter:

---- snip ----

env.vCenter <address or hostname of the vCenter>

---- snip ----

This option can be used with or without the "flatview" option. Make sure your

password and username are valid on the vCenter. The plugin name will still have

to contain the hostname of the host you want to monitor - be aware that you have

to use the hostname exactly as it is registered in the vCenter, so IPs and

hostnames are NOT interchangeable.

=cut

=ACK

     -== Ackknowledgements ==-

I would like to thank VMware for their SDK and the good documentation.

Special thanks go to MEGABIT Informationstechnik GmbH (www.megabit.net)

who graciously sponsored the development of the "flat view" option

and the ability to access hosts via vCenter.

=cut

use Time::HiRes qw(time);

my $DEBUG = ${Munin::Plugin::DEBUG};

# Important: this is needed if you do not use a "proper" SSL certificate

# on your vSphere/vCenter/ESX(i) server (which is the default)

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;

if ((defined $ARGV[0]) and ($ARGV[0] eq "config")) {

    if ($ENV{flatview}) {

        print "host_name $ENV{flatview}\n";

        print "# for host $host_name\n" if $DEBUG;

    } else {

        print "host_name $host_name\n";

    }

}

# env.user and env.password need to be set in plugin-conf.d

if ($ENV{vCenter}) {

    print "# vCenter: $ENV{vCenter} - host $host_name\n" if $DEBUG;

    Opts::add_options ( (vihost => { alias => "h", type => "=s", required => 0 }) );

    Opts::set_option ('vihost',"$host_name");

    Opts::set_option ('url',"https://$ENV{vCenter}/sdk/webService");

} else {

    Opts::set_option ('url',"https://$host_name/sdk/webService");

}

my $sstarttime = time();

my $host_view = VIExt::get_host_view(1, ['summary', 'network', 'datastore', 'vm', 'runtime', 'configManager.networkSystem', 'configManager.dateTimeSystem']);

my $serviceInst = Vim::get_view (mo_ref => ManagedObjectReference->new(type => 'ServiceInstance', value => 'ServiceInstance'));

my $perfMan = Vim::get_view (mo_ref => $serviceInst->content->perfManager);

my $dtsys = Vim::get_view(mo_ref => $host_view->{'configManager.dateTimeSystem'});

print "# time to connect and get objects: ", time() - $sstarttime, "\n" if $DEBUG;

$host_view->update_view_data();

        $datastore->update_view_data();

        $vm->update_view_data();

        $resolveNames->{vmuuid}->{$vmId} = $vm->summary->config->uuid;

if ($DEBUG) {

    foreach (sort { $a->{group} cmp $b->{group} || $a->{instance} cmp $b->{instance} || $a->{name} cmp $b->{name} || $a->{rollup} cmp $b->{rollup} || $a->{vm} cmp $b->{vm} } @all_perf_data) {

        print "# $_->{vm}\t$_->{rollup}\t$_->{group}\t$_->{instance}\t$_->{name}\t$_->{value}\t$_->{unit}\n";

    }

          config => { groupBy => "group", graphName => "host_cpu", graphTitle => "CPU usage per " }

          config => { groupBy => "group", graphName => "host_disk_transfer", graphTitle => "Disk Transfer Rates per " }

          config => { groupBy => "group", graphName => "host_disk_iops", graphTitle => "Disk I/O operations per " }

          config => { groupBy => "vm", graphName => "host_disk_latency", graphTitle => "Disk latency for " }

          config => { groupBy => "vm", graphName => "host_memory", graphTitle => "Memory usage for " }

          config => { groupBy => "vm", graphName => "host_traffic_net", graphTitle => "Network traffic for " }

          config => { groupBy => "vm", graphName => "host_packets_net", graphTitle => "Network packets for " }

    },

    {   selector => { group => qr/^power$/i, name => qr/^power$/i },

          config => { groupBy => "group", graphName => "power_usage", graphTitle => "Host System and VM " }

          config => { groupBy => "name", graphName => "host_disk_usage", graphTitle => "Host System " }

          config => { groupBy => "name", graphName => "uptimes", graphTitle => "Host System and VM ", graphArgs => "--lower-limit 1000 --logarithmic --alt-autoscale-min" }

              config => { groupBy => "vm", graphName => "$vmName.vm_cpu", graphTitle => "CPU usage for " }

              config => { groupBy => "vm", graphName => "$vmName.vm_memory", graphTitle => "Memory usage for " }

              config => { groupBy => "vm", graphName => "$vmName.vm_datastore", graphTitle => "Disk space usage for ", graphArgs => "--lower-limit 10485760 --logarithmic --alt-autoscale-min --units=si" }

              config => { groupBy => "vm", graphName => "$vmName.vm_disklat", graphTitle => "Disk latency for " }

              config => { groupBy => "vm", graphName => "$vmName.vm_diskiops", graphTitle => "Disk I/O operations for " }

              config => { groupBy => "vm", graphName => "$vmName.vm_disktrans", graphTitle => "Disk transfer rates for " }

              config => { groupBy => "vm", graphName => "$vmName.vm_traffic_net", graphTitle => "Network traffic for " }

              config => { groupBy => "vm", graphName => "$vmName.vm_packets_net", graphTitle => "Network packets for " }

              config => { groupBy => "vm", graphName => "$vmName.vm_uptime", graphTitle => "VM uptime " }

          config => { groupBy => "unit", graphName => "sensor_", graphTitle => "Sensors ", multiGraph => 1 }

print "# time to collect all data: ", time() - $sstarttime, "\n" if $DEBUG;

print "# time of the script: ", time() - $sstarttime, "\n" if $DEBUG;

    my $gathstart = time();

    print "# time to gather info for $entity :", time() - $gathstart, "\n" if $DEBUG;

    my $fname = $_[0]->{name};

    $fname .= "v".$resolveNames->{vmuuid}->{$_[0]->{vm}} unless $_[1] eq "vm" or $_[0]->{vm} eq "";

    $fname .= "i$_[0]->{instance}" unless $_[1] eq "instance" or $_[0]->{instance} eq "";

    return clean_fieldname($fname);

    if ($ENV{flatview}) {

        $cfg->{graphName} = clean_fieldname("Host_$host_name").".".$cfg->{graphName} unless $cfg->{graphName} =~ m/\./;

    }

    #foreach (sort { $a->{$cfg->{groupBy}} cmp $b->{$cfg->{groupBy}} } grep { my $d = $_; all { (not exists $d->{$_}) || $d->{$_} =~ /$par->{$_}/ } keys %$par; } @$arr) {

     foreach (sort { $a->{$cfg->{groupBy}} cmp $b->{$cfg->{groupBy}} } grep { my $d = $_; all { (not exists $d->{$_}) || $d->{$_} =~ /$par->{$_}/ } keys %$par; } @$arr) {

        my $groupCrit = $cfg->{groupBy} || "";

        my $curGroup = $_->{$groupCrit} || "";

            $ccurGroup =~ s/ |\./_/g;

            print "multigraph ",$cfg->{graphName},(exists $cfg->{multiGraph}?$ccurGroup:""),"\n";

        my $dpName = gen_dp_name($_, $groupCrit);

            print "$dpName.value $_->{value}\n";