Nagios 監控ESXI指令碼

urgel_babay發表於2016-05-11
iOS指令碼
Nagios 監控ESXI指令碼

1. 監控指令碼下載。
https://exchange.nagios.org/directory/Plugins/Operating-Systems/%2A-Virtual-Environments/VMWare/Vmware-ESX-%26-VM-host/details

2. 監控展示
check_esx -H 10.8.3.115 -u xxx -p xxx -l cpu 
CHECK_ESX OK - cpu usage=1169.82 MHz (4.99%) | cpu_usagemhz=1169.82Mhz;; cpu_usage=4.99%;; 

#check_esx -H 10.8.3.115 -u xxx -p xxx -l cpu -s usage -w 80 -c 90 -t 60 
CHECK_ESX OK - cpu usage=3.56 % | cpu_usage=3.56%;80;90 

#check_esx -H 10.8.3.115 -u xxx -p xxx -l vmfs 
CHECK_ESX OK - storages : Storage1=2287.00 MB (3.36%), Storage3=35440.00 MB (3.72%), Storage2=40352.00 MB (14.49%) | Storage1=2287.00MB;; Storage3=35440.00MB;; Storage2=40352.00MB;; 

#check_esx -H 10.8.3.115 -u xxx -p xxx -l net 
CHECK_ESX OK - net receive=4.40 KBps, send=0.30 KBps, all 1 NICs are connected | net_receive=4.40KBps;; net_send=0.30KBps;; OK_NICs=1;; Bad_NICs=0;; 

#check_esx -H 10.8.3.115 -u xxx -p xxx -l io 
CHECK_ESX OK - io commands aborted=0, io bus resets=0, io read latency=0 ms, write latency=0 ms, kernel latency=0 ms, device latency=0 ms, queue latency=0 ms | io_aborted=0;; io_busresets=0;; io_read=0ms;; io_write=0ms;; io_kernel=0ms;; io_device=0ms;; io_queue=0ms;; 

#check_esx -H 10.8.3.115 -u xxx -p xxx -l runtime 
CHECK_ESX OK - 3/4 VMs up, overall status=green, connection state=connected, maintenance=no, All 175 health checks are Green, no config issues | vmcount=3units;; 

#check_esx -H 10.8.3.115 -u xxx -p xxx -l service 
CHECK_ESX OK - services : ntpd (down), sshd (up), vmware-vpxa (up), vmware-webAccess (up) 


指令碼可以到官網下載，文字末尾也有下載連結。

官網網頁上已有很多安裝辦法。主要報錯的點也列出來了。

記錄一下我自己的問題。
[root@sznagiosapp8 libexec]# ./check_esx -H 172.25.133.52 -u esxmon -p Sinolife2014  -l cpu
CHECK_ESX CRITICAL - Undefined subroutine &HTTP::Headers::redirects called at (eval 51) line 1


一直報這個垃圾錯誤。問題主要缺包HTTP-Message-6.11.tar.gz


其他缺包報錯，需要安裝的包
[root@sznagiosapp8 SNMP]# ll
total 142104
drwxr-xr-x   8 nagios   nagios      4096 Jan 21 16:00 Config-IniFiles-2.88
-rw-r--r--   1 root     root       80137 Jan 21 15:57 Config-IniFiles-2.88.tar_.gz
-rw-------   1 root     root       80137 Jan 21 15:39 Config-IniFiles-2.88.tar.gz
drwxr-xr-x   3     1000   1000      4096 Jan 21 15:25 Crypt-DES-2.07
-rw-r--r--.  1 root     root       16720 Jan  6 09:22 Crypt-DES-2.07.tar.gz
drwxr-xr-x   5 centreon games       4096 Jan 21 15:27 Digest-HMAC-1.03
-rw-r--r--.  1 root     root        7251 Jan  6 09:22 Digest-HMAC-1.03.tar.gz
drwxr-xr-x   5 centreon games       4096 Jan 21 15:28 Digest-MD5-2.54
-rw-r--r--.  1 root     root       48699 Jan  6 09:22 Digest-MD5-2.54.tar.gz
drwxr-xr-x   5 centreon games       4096 Jan 21 15:28 Digest-SHA1-2.13
-rw-r--r--.  1 root     root       39078 Jan  6 09:22 Digest-SHA1-2.13.tar.gz
-rw-r--r--   1 root     root       35147 Jan 21 17:12 gpl.txt
-rw-r--r--   1 root     root       59981 Jan 22 16:08 HTTP-Message-6.11.tar.gz
-rw-r--r--   1 root     root        2943 Jan 21 16:26 Nagios-Plugin-0.990001.tar.gz
drwxr-xr-x   5      502 games       4096 Jan 22 16:03 Net-HTTP-6.09
-rw-r--r--   1 root     root       17686 Jan 22 14:26 Net-HTTP-6.09.tar.gz
drwxr-xr-x   6     1000   1000      4096 Jan 21 15:26 Net-SNMP-v6.0.1
-rw-r--r--.  1 root     root       94664 Jan  6 09:22 Net-SNMP-v6.0.1.tar.gz
drwxr-sr-x   5     1000   1000      4096 Jan 21 15:59 Scalar-List-Utils-1.42
-rw-r--r--   1 root     root       82574 Jan 21 15:57 Scalar-List-Utils-1.42.tar.gz
drwxr-xr-x  12 root     root        4096 Jan 21 17:22 vmware-vsphere-cli-distrib
-rw-r--r--   1 root     root   144885760 Jan 21 16:16 VMware-vSphere-Perl-SDK-5.5.0-1292267.x86_64.tar

包下載地址：
https://metacpan.org/pod/HTTP::Headers

per指令碼：

點選(此處)摺疊或開啟

  1. #!/usr/bin/perl -w
  2. #
  3. # Nagios plugin to monitor vmware esx servers
  4. #
  5. # License: GPL
  6. # Copyright (c) 2008 op5 AB
  7. # Author: Kostyantyn Hushchyn <dev@op5.com>
  8. # Contributor(s): Patrick Müller, Jeremy Martin, Eric Jonsson, stumpr, John Cavanaugh, Libor Klepac, maikmayers, Steffen Poulsen, Mark Elliott
  9. #
  10. # For direct contact with any of the op5 developers send a mail to
  11. # dev@op5.com
  12. # Discussions are directed to the mailing list op5-users@op5.com,
  13. # see http://lists.op5.com/mailman/listinfo/op5-users
  14. #
  15. # This program is free software; you can redistribute it and/or modify
  16. # it under the terms of the GNU General Public License version 2 as
  17. # published by the Free Software Foundation.
  18. #
  19. # This program is distributed in the hope that it will be useful,
  20. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  21. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  22. # GNU General Public License for more details.
  23. #
  24. # You should have received a copy of the GNU General Public License
  25. # along with this program. If not, see <http://www.gnu.org/licenses/>.
  26. #

  28. use strict;
  29. use warnings;
  30. use vars qw($PROGNAME $VERSION $output $values $result);
  31. use Nagios::Plugin;
  32. use File::Basename;
  33. my $perl_module_instructions="
  34. Download the latest version of Perl Toolkit from VMware support page.
  35. In this example we use VMware-vSphere-SDK-for-Perl-4.0.0-161974.x86_64.tar.gz,
  36. but the instructions should apply to newer versions as well.
  37.   
  38. Upload the file to your op5 Monitor server's /root dir and execute:

  40.     cd /root
  41.     tar xvzf VMware-vSphere-SDK-for-Perl-4.0.0-161974.x86_64.tar.gz
  42.     cd vmware-vsphere-cli-distrib/
  43.     ./vmware-install.pl
  44.   
  45. Follow the on screen instructions, described below:

  47.   \"Creating a new vSphere CLI installer database using the tar4 format.

  49.   Installing vSphere CLI.

  51.   Installing version 161974 of vSphere CLI

  53.   You must read and accept the vSphere CLI End User License Agreement to
  54.   continue.
  55.   Press enter to display it.\"
  56.   
  57.     <ENTER>

  59.   \"Read through the License Agreement\"
  60.   \"Do you accept? (yes/no)
  61.   
  62.     yes


  65.   \"The following Perl modules were found on the system but may be too old to work
  66.   with VIPerl:
  67.   
  68.   Crypt::SSLeay
  69.   Compress::Zlib\"
  70.   
  71.   \"In which directory do you want to install the executable files? [/usr/bin]\"

  73.     <ENTER>

  75.   \"Please wait while copying vSphere CLI files...

  77.   The installation of vSphere CLI 4.0.0 build-161974 for Linux completed
  78.   successfully. You can decide to remove this software from your system at any
  79.   time by invoking the following command:
  80.   \"/usr/bin/vmware-uninstall-vSphere-CLI.pl\".
  81.   
  82.   This installer has successfully installed both vSphere CLI and the vSphere SDK
  83.   for Perl.
  84.   Enjoy,
  85.   
  86.   --the VMware team\"

  88. Note: \"Crypt::SSLeay\" and \"Compress::Zlib\" are not needed for check_esx3 to work.
  89. ";


  92. eval {
  93.     require VMware::VIRuntime
  94. } or Nagios::Plugin::Functions::nagios_exit(UNKNOWN, "Missing perl module VMware::VIRuntime. Download and install \'VMware Infrastructure (VI) Perl Toolkit\', available at http://www.vmware.com/download/sdk/\n $perl_module_instructions");

  96. $PROGNAME = basename($0);
  97. $VERSION = '0.5.0';

  99. my $np = Nagios::Plugin->new(
  100.   usage => "Usage: %s -D <data_center> | -H <host_name> [ -N <vm_name> ]\n"
  101.     . " -u <user> -p <pass> | -f <authfile>\n"
  102.     . " -l <command> [ -s <subcommand> ]\n"
  103.     . " [ -x <black_list> ] [ -o <additional_options> ]\n"
  104.     . " [ -t <timeout> ] [ -w <warn_range> ] [ -c <crit_range> ]\n"
  105.     . ' [ -V ] [ -h ]',
  106.   version => $VERSION,
  107.   plugin => $PROGNAME,
  108.   shortname => uc($PROGNAME),
  109.   blurb => 'VMWare Infrastructure plugin',
  110.   extra => "Supported commands(^ means blank or not specified parameter) :\n"
  111.     . " Common options for VM, Host and DC :\n"
  112.     . " * cpu - shows cpu info\n"
  113.     . " + usage - CPU usage in percentage\n"
  114.     . " + usagemhz - CPU usage in MHz\n"
  115.     . " ^ all cpu info\n"
  116.     . " * mem - shows mem info\n"
  117.     . " + usage - mem usage in percentage\n"
  118.     . " + usagemb - mem usage in MB\n"
  119.     . " + swap - swap mem usage in MB\n"
  120.     . " + overhead - additional mem used by VM Server in MB\n"
  121.     . " + overall - overall mem used by VM Server in MB\n"
  122.     . " + memctl - mem used by VM memory control driver(vmmemctl) that controls ballooning\n"
  123.     . " ^ all mem info\n"
  124.     . " * net - shows net info\n"
  125.     . " + usage - overall network usage in KBps(Kilobytes per Second) \n"
  126.     . " + receive - receive in KBps(Kilobytes per Second) \n"
  127.     . " + send - send in KBps(Kilobytes per Second) \n"
  128.     . " ^ all net info\n"
  129.     . " * io - shows disk io info\n"
  130.     . " + read - read latency in ms (totalReadLatency.average)\n"
  131.     . " + write - write latency in ms (totalWriteLatency.average)\n"
  132.     . " ^ all disk io info\n"
  133.     . " * runtime - shows runtime info\n"
  134.     . " + status - overall host status (gray/green/red/yellow)\n"
  135.     . " + issues - all issues for the host\n"
  136.     . " ^ all runtime info\n"
  137.     . " VM specific :\n"
  138.     . " * cpu - shows cpu info\n"
  139.     . " + wait - CPU wait time in ms\n"
  140.     . " + ready - CPU ready time in ms\n"
  141.     . " * mem - shows mem info\n"
  142.     . " + swapin - swapin mem usage in MB\n"
  143.     . " + swapout - swapout mem usage in MB\n"
  144.     . " + active - active mem usage in MB\n"
  145.     . " * io - shows disk I/O info\n"
  146.     . " + usage - overall disk usage in MB/s\n"
  147.     . " * runtime - shows runtime info\n"
  148.     . " + con - connection state\n"
  149.     . " + cpu - allocated CPU in MHz\n"
  150.     . " + mem - allocated mem in MB\n"
  151.     . " + state - virtual machine state (UP, DOWN, SUSPENDED)\n"
  152.     . " + consoleconnections - console connections to VM\n"
  153.     . " + guest - guest OS status, needs VMware Tools\n"
  154.     . " + tools - VMWare Tools status\n"
  155.     . " Host specific :\n"
  156.     . " * net - shows net info\n"
  157.     . " + nic - makes sure all active NICs are plugged in\n"
  158.     . " * io - shows disk io info\n"
  159.     . " + aborted - aborted commands count\n"
  160.     . " + resets - bus resets count\n"
  161.     . " + kernel - kernel latency in ms\n"
  162.     . " + device - device latency in ms\n"
  163.     . " + queue - queue latency in ms\n"
  164.     . " * vmfs - shows Datastore info\n"
  165.     . " + (name) - free space info for datastore with name (name)\n"
  166.     . " ^ all datastore info\n"
  167.     . " * runtime - shows runtime info\n"
  168.     . " + con - connection state\n"
  169.     . " + health - checks cpu/storage/memory/sensor status\n"
  170.     . " + maintenance - shows whether host is in maintenance mode\n"
  171.     . " + list(vm) - list of VMWare machines and their statuses\n"
  172.     . " * service - shows Host service info\n"
  173.     . " + (names) - check the state of one or several services specified by (names), syntax for (names):<service1>,<service2>,...,<serviceN>\n"
  174.     . " ^ show all services\n"
  175.     . " * storage - shows Host storage info\n"
  176.     . " + adapter - list bus adapters\n"
  177.     . " + lun - list SCSI logical units\n"
  178.     . " + path - list logical unit paths\n"
  179.     . " DC specific :\n"
  180.     . " * io - shows disk io info\n"
  181.     . " + aborted - aborted commands count\n"
  182.     . " + resets - bus resets count\n"
  183.     . " + kernel - kernel latency in ms\n"
  184.     . " + device - device latency in ms\n"
  185.     . " + queue - queue latency in ms\n"
  186.     . " * vmfs - shows Datastore info\n"
  187.     . " + (name) - free space info for datastore with name (name)\n"
  188.     . " ^ all datastore info\n"
  189.     . " * runtime - shows runtime info\n"
  190.     . " + list(vm) - list of VMWare machines and their statuses\n"
  191.     . " + listhost - list of VMWare esx host servers and their statuses\n"
  192.     . " + tools - VMWare Tools status\n"
  193.     . " * recommendations - shows recommendations for cluster\n"
  194.     . " + (name) - recommendations for cluster with name (name)\n"
  195.     . " ^ all clusters recommendations\n"
  196.     . "\n\nCopyright (c) 2008 op5",
  197.   timeout => 30,
  198. );

  200. $np->add_arg(
  201.   spec => 'host|H=s',
  202.   help => "-H, --host=<hostname>\n"
  203.     . ' ESX or ESXi hostname.',
  204.   required => 0,
  205. );

  207. $np->add_arg(
  208.   spec => 'cluster|C=s',
  209.   help => "-C, --cluster=<clustername>\n"
  210.     . ' ESX or ESXi clustername.',
  211.   required => 0,
  212. );

  214. $np->add_arg(
  215.   spec => 'datacenter|D=s',
  216.   help => "-D, --datacenter=<DCname>\n"
  217.     . ' Datacenter hostname.',
  218.   required => 0,
  219. );

  221. $np->add_arg(
  222.   spec => 'name|N=s',
  223.   help => "-N, --name=<vmname>\n"
  224.     . ' Virtual machine name.',
  225.   required => 0,
  226. );

  228. $np->add_arg(
  229.   spec => 'username|u=s',
  230.   help => "-u, --username=<username>\n"
  231.     . ' Username to connect with.',
  232.   required => 0,
  233. );

  235. $np->add_arg(
  236.   spec => 'password|p=s',
  237.   help => "-p, --password=<password>\n"
  238.     . ' Password to use with the username.',
  239.   required => 0,
  240. );

  242. $np->add_arg(
  243.   spec => 'authfile|f=s',
  244.   help => "-f, --authfile=<path>\n"
  245.     . " Authentication file with login and password. File syntax :\n"
  246.     . " username=<login>\n"
  247.     . ' password=<password>',
  248.   required => 0,
  249. );

  251. $np->add_arg(
  252.   spec => 'warning|w=s',
  253.   help => "-w, --warning=THRESHOLD\n"
  254.     . " Warning threshold. See\n"
  255.     . " http://nagiosplug.sourceforge.net/developer-guidelines.html#THRESHOLDFORMAT\n"
  256.     . ' for the threshold format.',
  257.   required => 0,
  258. );

  260. $np->add_arg(
  261.   spec => 'critical|c=s',
  262.   help => "-c, --critical=THRESHOLD\n"
  263.     . " Critical threshold. See\n"
  264.     . " http://nagiosplug.sourceforge.net/developer-guidelines.html#THRESHOLDFORMAT\n"
  265.     . ' for the threshold format.',
  266.   required => 0,
  267. );

  269. $np->add_arg(
  270.   spec => 'command|l=s',
  271.   help => "-l, --command=COMMAND\n"
  272.     . ' Specify command type (CPU, MEM, NET, IO, VMFS, RUNTIME, ...)',
  273.   required => 1,
  274. );

  276. $np->add_arg(
  277.   spec => 'subcommand|s=s',
  278.   help => "-s, --subcommand=SUBCOMMAND\n"
  279.     . ' Specify subcommand',
  280.   required => 0,
  281. );

  283. $np->add_arg(
  284.   spec => 'sessionfile|S=s',
  285.   help => "-S, --sessionfile=SESSIONFILE\n"
  286.     . ' Specify a filename to store sessions for faster authentication',
  287.   required => 0,
  288. );

  290. $np->add_arg(
  291.   spec => 'exclude|x=s',
  292.   help => "-x, --exclude=<black_list>\n"
  293.     . ' Specify black list',
  294.   required => 0,
  295. );

  297. $np->add_arg(
  298.   spec => 'options|o=s',
  299.   help => "-o, --options=<additional_options> \n"
  300.     . ' Specify additional command options',
  301.   required => 0,
  302. );

  304. $np->getopts;

  306. my $host = $np->opts->host;
  307. my $cluster = $np->opts->cluster;
  308. my $datacenter = $np->opts->datacenter;
  309. my $vmname = $np->opts->name;
  310. my $username = $np->opts->username;
  311. my $password = $np->opts->password;
  312. my $authfile = $np->opts->authfile;
  313. my $warning = $np->opts->warning;
  314. my $critical = $np->opts->critical;
  315. my $command = $np->opts->command;
  316. my $subcommand = $np->opts->subcommand;
  317. my $sessionfile = $np->opts->sessionfile;
  318. my $blacklist = $np->opts->exclude;
  319. my $addopts = $np->opts->options;
  320. my $percw;
  321. my $percc;
  322. $output = "Unknown ERROR!";
  323. $result = CRITICAL;

  325. if (defined($subcommand))
  326. {
  327.     $subcommand = undef if ($subcommand eq '');
  328. }

  330. if (defined($critical))
  331. {
  332.     ($percc, $critical) = check_percantage($critical);
  333.     $critical = undef if ($critical eq '');
  334. }

  336. if (defined($warning))
  337. {
  338.     ($percw, $warning) = check_percantage($warning);
  339.     $warning = undef if ($warning eq '');
  340. }

  342. $np->set_thresholds(critical => $critical, warning => $warning);

  344. eval
  345. {
  346.     die "Provide either Password/Username or Auth file or Session file\n" if ((!defined($password) || !defined($username) || defined($authfile)) && (defined($password) || defined($username) || !defined($authfile)) && (defined($password) || defined($username) || defined($authfile) || !defined($sessionfile)));
  347.     die "Both threshold values must be the same units\n" if (($percw && !$percc && defined($critical)) || (!$percw && $percc && defined($warning)));
  348.     if (defined($authfile))
  349.     {
  350.         open (AUTH_FILE, $authfile) || die "Unable to open auth file \"$authfile\"\n";
  351.         while( <AUTH_FILE> ) {
  352.             if(s/^[ \t]*username[ \t]*=//){
  353.                 s/^\s+//;s/\s+$//;
  354.                 $username = $_;
  355.             }
  356.             if(s/^[ \t]*password[ \t]*=//){
  357.                 s/^\s+//;s/\s+$//;
  358.                 $password = $_;
  359.             }
  360.         }
  361.         die "Auth file must contain both username and password\n" if (!(defined($username) && defined($password)));
  362.     }

  364.     my $host_address;

  366.     if (defined($datacenter))
  367.     {
  368.         $host_address = $datacenter;
  369.     }
  370.     elsif (defined($host))
  371.     {
  372.         $host_address = $host;
  373.     }
  374.     else
  375.     {
  376.         $np->nagios_exit(CRITICAL, "No Host or Datacenter specified");
  377.     }

  379.     $host_address .= ":443" if (index($host_address, ":") == -1);
  380.     $host_address = "https://" . $host_address . "/sdk/webService";

  382.     if (defined($sessionfile) and -e $sessionfile)
  383.     {
  384.         Opts::set_option("sessionfile", $sessionfile);
  385.         eval {
  386.             Util::connect($host_address, $username, $password);
  387.             die "Connected host doesn't match reqested once\n" if (Opts::get_option("url") ne $host_address);
  388.         };
  389.         if ($@) {
  390.             Opts::set_option("sessionfile", undef);
  391.             Util::connect($host_address, $username, $password);
  392.         }
  393.     }
  394.     else
  395.     {
  396.         Util::connect($host_address, $username, $password);
  397.     }

  399.     if (defined($sessionfile))
  400.     {
  401.         Vim::save_session(session_file => $sessionfile);
  402.     }
  403.     $command = uc($command);
  404.     if (defined($vmname))
  405.     {
  406.         if ($command eq "CPU")
  407.         {
  408.             ($result, $output) = vm_cpu_info($vmname, $np, local_uc($subcommand));
  409.         }
  410.         elsif ($command eq "MEM")
  411.         {
  412.             ($result, $output) = vm_mem_info($vmname, $np, local_uc($subcommand));
  413.         }
  414.         elsif ($command eq "NET")
  415.         {
  416.             ($result, $output) = vm_net_info($vmname, $np, local_uc($subcommand));
  417.         }
  418.         elsif ($command eq "IO")
  419.         {
  420.             ($result, $output) = vm_disk_io_info($vmname, $np, local_uc($subcommand));
  421.         }
  422.         elsif ($command eq "RUNTIME")
  423.         {
  424.             ($result, $output) = vm_runtime_info($vmname, $np, local_uc($subcommand));
  425.         }
  426.         else
  427.         {
  428.             $output = "Unknown HOST-VM command\n" . $np->opts->_help;
  429.             $result = CRITICAL;
  430.         }
  431.     }
  432.     elsif (defined($host))
  433.     {
  434.         my $esx;
  435.         $esx = {name => $host} if (defined($datacenter));
  436.         if ($command eq "CPU")
  437.         {
  438.             ($result, $output) = host_cpu_info($esx, $np, local_uc($subcommand), $addopts);
  439.         }
  440.         elsif ($command eq "MEM")
  441.         {
  442.             ($result, $output) = host_mem_info($esx, $np, local_uc($subcommand), $addopts);
  443.         }
  444.         elsif ($command eq "NET")
  445.         {
  446.             ($result, $output) = host_net_info($esx, $np, local_uc($subcommand));
  447.         }
  448.         elsif ($command eq "IO")
  449.         {
  450.             ($result, $output) = host_disk_io_info($esx, $np, local_uc($subcommand));
  451.         }
  452.         elsif ($command eq "VMFS")
  453.         {
  454.             ($result, $output) = host_list_vm_volumes_info($esx, $np, $subcommand, $blacklist, $percc || $percw, $addopts);
  455.         }
  456.         elsif ($command eq "RUNTIME")
  457.         {
  458.             ($result, $output) = host_runtime_info($esx, $np, local_uc($subcommand), $blacklist);
  459.         }
  460.         elsif ($command eq "SERVICE")
  461.         {
  462.             ($result, $output) = host_service_info($esx, $np, $subcommand);
  463.         }
  464.         elsif ($command eq "STORAGE")
  465.         {
  466.             ($result, $output) = host_storage_info($esx, $np, local_uc($subcommand), $blacklist);
  467.         }
  468.         else
  469.         {
  470.             $output = "Unknown HOST command\n" . $np->opts->_help;
  471.             $result = CRITICAL;
  472.         }
  473.     }
  474.     elsif (defined($cluster))
  475.     {
  476.         if ($command eq "CPU")
  477.         {
  478.             ($result, $output) = cluster_cpu_info($cluster, $np, local_uc($subcommand));
  479.         }
  480.         elsif ($command eq "MEM")
  481.         {
  482.             ($result, $output) = cluster_mem_info($cluster, $np, local_uc($subcommand), $addopts);
  483.         }
  484.         elsif ($command eq "CLUSTER")
  485.         {
  486.             ($result, $output) = cluster_cluster_info($cluster, $np, local_uc($subcommand));
  487.         }
  488.         elsif ($command eq "VMFS")
  489.         {
  490.             ($result, $output) = cluster_list_vm_volumes_info($cluster, $np, $subcommand, $blacklist, $percc || $percw, $addopts);
  491.         }
  492.         elsif ($command eq "RUNTIME")
  493.         {
  494.             ($result, $output) = cluster_runtime_info($cluster, $np, local_uc($subcommand));
  495.         }
  496.         else
  497.         {
  498.             $output = "Unknown CLUSTER command\n" . $np->opts->_help;
  499.             $result = CRITICAL;
  500.         }
  501.     }
  502.     else
  503.     {
  504.         if ($command eq "RECOMMENDATIONS")
  505.         {
  506.             my $cluster_name;
  507.             $cluster_name = {name => $subcommand} if (defined($subcommand));
  508.             ($result, $output) = return_cluster_DRS_recommendations($np, $cluster_name);
  509.         }
  510.         elsif ($command eq "CPU")
  511.         {
  512.             ($result, $output) = dc_cpu_info($np, local_uc($subcommand), $addopts);
  513.         }
  514.         elsif ($command eq "MEM")
  515.         {
  516.             ($result, $output) = dc_mem_info($np, local_uc($subcommand), $addopts);
  517.         }
  518.         elsif ($command eq "NET")
  519.         {
  520.             ($result, $output) = dc_net_info($np, local_uc($subcommand));
  521.         }
  522.         elsif ($command eq "IO")
  523.         {
  524.             ($result, $output) = dc_disk_io_info($np, local_uc($subcommand));
  525.         }
  526.         elsif ($command eq "VMFS")
  527.         {
  528.             ($result, $output) = dc_list_vm_volumes_info($np, $subcommand, $blacklist, $percc || $percw, $addopts);
  529.         }
  530.         elsif ($command eq "RUNTIME")
  531.         {
  532.             ($result, $output) = dc_runtime_info($np, local_uc($subcommand), $blacklist);
  533.         }
  534.         else
  535.         {
  536.             $output = "Unknown HOST command\n" . $np->opts->_help;
  537.             $result = CRITICAL;
  538.         }        
  539.     }
  540. };
  541. if ($@)
  542. {
  543.     if (uc(ref($@)) eq "HASH")
  544.     {
  545.         $output = $@->{msg};
  546.         $result = $@->{code};
  547.     }
  548.     else
  549.     {
  550.         $output = $@ . "";
  551.         $result = CRITICAL;
  552.     }
  553. }

  555. Util::disconnect();
  556. $np->nagios_exit($result, $output);

  558. #######################################################################################################################################################################

  560. sub get_key_metrices {
  561.     my ($perfmgr_view, $group, @names) = @_;

  563.     my $perfCounterInfo = $perfmgr_view->perfCounter;
  564.     my @counters;

  566.     die "Insufficient rights to access perfcounters\n" if (!defined($perfCounterInfo));

  568.     foreach (@$perfCounterInfo) {
  569.         if ($_->groupInfo->key eq $group) {
  570.             my $cur_name = $_->nameInfo->key . "." . $_->rollupType->val;
  571.             foreach my $index (0..@names-1)
  572.             {
  573.                 if ($names[$index] =~ /$cur_name/)
  574.                 {
  575.                     $names[$index] =~ /(\w+).(\w+):*(.*)/;
  576.                     $counters[$index] = PerfMetricId->new(counterId => $_->key, instance => $3);
  577.                 }
  578.             }
  579.         }
  580.     }

  582.     return \@counters;
  583. }

  585. sub generic_performance_values {
  586.     my ($views, $group, @list) = @_;
  587.     my $counter = 0;
  588.     my @values = ();
  589.     my $amount = @list;
  590.     my $perfMgr = Vim::get_view(mo_ref => Vim::get_service_content()->perfManager, properties => [ 'perfCounter' ]);
  591.     my $metrices = get_key_metrices($perfMgr, $group, @list);

  593.     my @perf_query_spec = ();
  594.     push(@perf_query_spec, PerfQuerySpec->new(entity => $_, metricId => $metrices, format => 'csv', intervalId => 20, maxSample => 1)) foreach (@$views);
  595.     my $perf_data = $perfMgr->QueryPerf(querySpec => \@perf_query_spec);
  596.     $amount *= @$perf_data;

  598.     while (@$perf_data)
  599.     {
  600.         my $unsorted = shift(@$perf_data)->value;
  601.         my @host_values = ();

  603.         foreach my $id (@$unsorted)
  604.         {
  605.             foreach my $index (0..@$metrices-1)
  606.             {
  607.                 if ($id->id->counterId == $$metrices[$index]->counterId)
  608.                 {
  609.                     $counter++ if (!defined($host_values[$index]));
  610.                     $host_values[$index] = $id;
  611.                 }
  612.             }
  613.         }
  614.         push(@values, \@host_values);
  615.     }
  616.     return undef if ($counter != $amount || $counter == 0);
  617.     return \@values;
  618. }

  620. sub return_host_performance_values {
  621.     my $values;
  622.     my $host_name = shift(@_);
  623.     my $host_view = Vim::find_entity_views(view_type => 'HostSystem', filter => $host_name, properties => [ 'name', 'runtime.inMaintenanceMode' ]); # Added properties named argument.
  624.     die "Runtime error\n" if (!defined($host_view));
  625.     die "Host \"" . $$host_name{"name"} . "\" does not exist\n" if (!@$host_view);
  626.     die {msg => ("NOTICE: \"" . $$host_view[0]->name . "\" is in maintenance mode, check skipped\n"), code => OK} if (uc($$host_view[0]->get_property('runtime.inMaintenanceMode')) eq "TRUE");
  627.     $values = generic_performance_values($host_view, @_);

  629.     return undef if ($@);
  630.     return ($host_view, $values);
  631. }

  633. sub return_host_vmware_performance_values {
  634.     my $values;
  635.     my $vmname = shift(@_);
  636.     my $vm_view = Vim::find_entity_views(view_type => 'VirtualMachine', filter => {name => "$vmname"}, properties => [ 'name', 'runtime.powerState' ]);
  637.     die "Runtime error\n" if (!defined($vm_view));
  638.     die "VMware machine \"" . $vmname . "\" does not exist\n" if (!@$vm_view);
  639.     die "VMware machine \"" . $vmname . "\" is not running. Current state is \"" . $$vm_view[0]->get_property('runtime.powerState')->val . "\"\n" if ($$vm_view[0]->get_property('runtime.powerState')->val ne "poweredOn");
  640.     $values = generic_performance_values($vm_view, @_);

  642.     return $@ if ($@);
  643.     return ($vm_view, $values);
  644. }

  646. sub return_dc_performance_values {
  647.     my $values;
  648.     my $host_views = Vim::find_entity_views(view_type => 'HostSystem', properties => [ 'name' ]);
  649.     die "Runtime error\n" if (!defined($host_views));
  650.     die "Datacenter does not contain any hosts\n" if (!@$host_views);
  651.     $values = generic_performance_values($host_views, @_);

  653.     return undef if ($@);
  654.     return ($host_views, $values);
  655. }

  657. sub return_cluster_performance_values {
  658.     my $values;
  659.     my $cluster_name = shift(@_);
  660.     my $cluster_view = Vim::find_entity_views(view_type => 'ClusterComputeResource', filter => { name => "$cluster_name" }, properties => [ 'name' ]); # Added properties named argument.
  661.     die "Runtime error\n" if (!defined($cluster_view));
  662.     die "Cluster \"" . $cluster_name . "\" does not exist\n" if (!@$cluster_view);
  663.     $values = generic_performance_values($cluster_view, @_);

  665.     return undef if ($@);
  666.     return $values;
  667. }

  669. sub local_uc
  670. {
  671.     my ($val) = shift(@_);
  672.     return defined($val)?uc($val):undef;
  673. }

  675. sub simplify_number
  676. {
  677.     my ($number, $cnt) = @_;
  678.     $cnt = 2 if (!defined($cnt));
  679.     return sprintf("%.${cnt}f", "$number");
  680. }

  682. sub convert_number
  683. {
  684.     my @vals = split(/,/, shift(@_));
  685.     return shift(@vals) if ($vals[-1] < 0);
  686.     return pop(@vals);
  687. }

  689. sub check_percantage
  690. {
  691.     my ($number) = shift(@_);
  692.     my $perc = $number =~ s/\%//;
  693.     return ($perc, $number);
  694. }

  696. sub check_health_state
  697. {
  698.     my ($state) = shift(@_);
  699.     my $res = UNKNOWN;

  701.     if (uc($state) eq "GREEN") {
  702.         $res = OK
  703.     } elsif (uc($state) eq "YELLOW") {
  704.         $res = WARNING;
  705.     } elsif (uc($state) eq "RED") {
  706.         $res = CRITICAL;
  707.     }
  708.     
  709.     return $res;
  710. }

  712. sub format_issue {
  713.     my ($issue) = shift(@_);

  715.     my $output = '';

  717.     if (defined($issue->datacenter))
  718.     {
  719.         $output .= 'Datacenter "' . $issue->datacenter->name . '", ';
  720.     }
  721.     if (defined($issue->host))
  722.     {
  723.         $output .= 'Host "' . $issue->host->name . '", ';
  724.     }
  725.     if (defined($issue->vm))
  726.     {
  727.         $output .= 'VM "' . $issue->vm->name . '", ';
  728.     }
  729.     if (defined($issue->computeResource))
  730.     {
  731.         $output .= 'Compute Resource "' . $issue->computeResource->name . '", ';
  732.     }
  733.     if (exists($issue->{dvs}) && defined($issue->dvs))
  734.     {
  735.         # Since vSphere API 4.0
  736.         $output .= 'Virtual Switch "' . $issue->dvs->name . '", ';
  737.     }
  738.     if (exists($issue->{ds}) && defined($issue->ds))
  739.     {
  740.         # Since vSphere API 4.0
  741.         $output .= 'Datastore "' . $issue->ds->name . '", ';
  742.     }
  743.     if (exists($issue->{net}) && defined($issue->net))
  744.     {
  745.         # Since vSphere API 4.0
  746.         $output .= 'Network "' . $issue->net->name . '" ';
  747.     }

  749.     $output =~ s/, $/ /;
  750.     $output .= ": " . $issue->fullFormattedMessage;
  751.     $output .= "(caused by " . $issue->userName . ")" if ($issue->userName ne "");

  753.     return $output;
  754. }

  756. sub datastore_volumes_info
  757. {
  758.     my ($datastore, $np, $subcommand, $blacklist, $perc, $addopts) = @_;

  760.     my $res = OK;
  761.     my $output = '';

  763.     my $usedflag;
  764.     my $briefflag;
  765.     my $regexpflag;
  766.     my $blackregexpflag;
  767.     $usedflag = $addopts =~ m/(^|\s|\t|,)\Qused\E($|\s|\t|,)/ if (defined($addopts));
  768.     $briefflag = $addopts =~ m/(^|\s|\t|,)\Qbrief\E($|\s|\t|,)/ if (defined($addopts));
  769.     $regexpflag = $addopts =~ m/(^|\s|\t|,)\Qregexp\E($|\s|\t|,)/ if (defined($addopts));
  770.     $blackregexpflag = $addopts =~ m/(^|\s|\t|,)\Qblacklistregexp\E($|\s|\t|,)/ if (defined($addopts));

  772.     die "Blacklist is supported only in generic check or regexp subcheck\n" if (defined($subcommand) && defined($blacklist) && !defined($regexpflag));

  774.     if (defined($regexpflag) && defined($subcommand))
  775.     {
  776.         eval
  777.         {
  778.             qr{$subcommand};
  779.         };
  780.         if ($@)
  781.         {
  782.             $@ =~ s/ at.*line.*\.//;
  783.             die $@;
  784.         }
  785.     }

  787.     my $state;
  788.     foreach my $ref_store (@{$datastore})
  789.     {
  790.         my $store = Vim::get_view(mo_ref => $ref_store, properties => ['summary', 'info']);
  791.         my $name = $store->summary->name;
  792.         if (!defined($subcommand) || ($name eq $subcommand) || (defined($regexpflag) && $name =~ /$subcommand/))
  793.         {
  794.             if (defined($blacklist))
  795.             {
  796.                 next if ($blackregexpflag?$name =~ /$blacklist/:$blacklist =~ m/(^|\s|\t|,)\Q$name\E($|\s|\t|,)/);
  797.             }

  799.             if ($store->summary->accessible)
  800.             {
  801.                 my $value1 = simplify_number(convert_number($store->summary->freeSpace) / 1024 / 1024);
  802.                 my $value2 = convert_number($store->summary->capacity);
  803.                 $value2 = simplify_number(convert_number($store->info->freeSpace) / $value2 * 100) if ($value2 > 0);

  805.                 if ($usedflag)
  806.                 {
  807.                     $value1 = simplify_number(convert_number($store->summary->capacity) / 1024 / 1024) - $value1;
  808.                     $value2 = 100 - $value2;
  809.                 }

  811.                 $state = $np->check_threshold(check => $perc?$value2:$value1);
  812.                 $res = Nagios::Plugin::Functions::max_state($res, $state);
  813.                 $np->add_perfdata(label => $name, value => $perc?$value2:$value1, uom => $perc?'%':'MB', threshold => $np->threshold);
  814.                 $output .= $name . "=". $value1 . " MB (" . $value2 . "%), " if (!$briefflag || $state != OK);
  815.             }
  816.             else
  817.             {
  818.                 $res = CRITICAL;
  819.                 $output .= $name . " is not accessible, ";
  820.             }
  821.             last if (!$regexpflag && defined($subcommand) && ($name eq $subcommand));
  822.             $blacklist .= $blackregexpflag?"|^$name\$":",$name";
  823.         }
  824.     }

  826.     if ($output)
  827.     {
  828.         chop($output);
  829.         chop($output);
  830.         $output = "Storages : " . $output;
  831.     }
  832.     else
  833.     {
  834.         if ($briefflag)
  835.         {
  836.             $output = "There are no alerts";
  837.         }
  838.         else
  839.         {
  840.             $res = WARNING;
  841.             $output = defined($subcommand)?$regexpflag? "No matching volumes for regexp \"$subcommand\" found":"No volume named \"$subcommand\" found":"There are no volumes";
  842.         }
  843.     }

  845.     return ($res, $output);
  846. }

  848. #=====================================================================| HOST |============================================================================#

  850. sub host_cpu_info
  851. {
  852.     my ($host, $np, $subcommand, $addopts) = @_;

  854.     my $res = CRITICAL;
  855.     my $output = 'HOST CPU Unknown error';

  857.     my $quickStats;
  858.     $quickStats = $addopts =~ m/(^|\s|\t|,)\Qquickstats\E($|\s|\t|,)/ if (defined($addopts));

  860.     if (defined($subcommand))
  861.     {
  862.         if ($subcommand eq "USAGE")
  863.         {
  864.             my $value;
  865.             if (defined($quickStats))
  866.             {
  867.                 my $host_view = Vim::find_entity_view(view_type => 'HostSystem', filter => $host, properties => ['name', 'runtime.inMaintenanceMode', 'summary.hardware', 'summary.quickStats']);
  868.                 die "Host \"" . $$host{"name"} . "\" does not exist\n" if (!defined($host_view));
  869.                 die {msg => ("NOTICE: \"" . $host_view->name . "\" is in maintenance mode, check skipped\n"), code => OK} if (uc($host_view->get_property('runtime.inMaintenanceMode')) eq "TRUE");
  870.                 $values = $host_view->get_property('summary.quickStats');
  871.                 my $hardinfo = $host_view->get_property('summary.hardware');
  872.                 $value = simplify_number($values->overallCpuUsage / ($hardinfo->numCpuCores * $hardinfo->cpuMhz) * 100) if exists($values->{overallCpuUsage}) && defined($hardinfo);
  873.             }
  874.             else
  875.             {
  876.                 $values = return_host_performance_values($host, 'cpu', ('usage.average'));
  877.                 $value = simplify_number(convert_number($$values[0][0]->value) * 0.01) if (defined($values));
  878.             }
  879.             if (defined($value))
  880.             {
  881.                 $np->add_perfdata(label => "cpu_usage", value => $value, uom => '%', threshold => $np->threshold);
  882.                 $output = "cpu usage=" . $value . " %";
  883.                 $res = $np->check_threshold(check => $value);
  884.             }
  885.         }
  886.         elsif ($subcommand eq "USAGEMHZ")
  887.         {
  888.             my $value;
  889.             if (defined($quickStats))
  890.             {
  891.                 my $host_view = Vim::find_entity_view(view_type => 'HostSystem', filter => $host, properties => ['name', 'runtime.inMaintenanceMode', 'summary.quickStats']);
  892.                 die "Host \"" . $$host{"name"} . "\" does not exist\n" if (!defined($host_view));
  893.                 die {msg => ("NOTICE: \"" . $host_view->name . "\" is in maintenance mode, check skipped\n"), code => OK} if (uc($host_view->get_property('runtime.inMaintenanceMode')) eq "TRUE");
  894.                 $values = $host_view->get_property('summary.quickStats');
  895.                 $value = simplify_number($values->overallCpuUsage) if exists($values->{overallCpuUsage});
  896.             }
  897.             else
  898.             {
  899.                 $values = return_host_performance_values($host, 'cpu', ('usagemhz.average'));
  900.                 $value = simplify_number(convert_number($$values[0][0]->value)) if (defined($values));
  901.             }
  902.             if (defined($value))
  903.             {
  904.                 $np->add_perfdata(label => "cpu_usagemhz", value => $value, uom => 'Mhz', threshold => $np->threshold);
  905.                 $output = "cpu usagemhz=" . $value . " MHz";
  906.                 $res = $np->check_threshold(check => $value);
  907.             }
  908.         }
  909.         else
  910.         {
  911.             $res = CRITICAL;
  912.             $output = "HOST CPU - unknown subcommand\n" . $np->opts->_help;
  913.         }
  914.     }
  915.     else
  916.     {
  917.         my $value1;
  918.         my $value2;
  919.         if (defined($quickStats))
  920.         {
  921.             my $host_view = Vim::find_entity_view(view_type => 'HostSystem', filter => $host, properties => ['name', 'runtime.inMaintenanceMode', 'summary.hardware', 'summary.quickStats']);
  922.             die "Host \"" . $$host{"name"} . "\" does not exist\n" if (!defined($host_view));
  923.             die {msg => ("NOTICE: \"" . $host_view->name . "\" is in maintenance mode, check skipped\n"), code => OK} if (uc($host_view->get_property('runtime.inMaintenanceMode')) eq "TRUE");
  924.             $values = $host_view->get_property('summary.quickStats');
  925.             my $hardinfo = $host_view->get_property('summary.hardware');
  926.             if (exists($values->{overallCpuUsage}) && defined($hardinfo))
  927.             {
  928.                 $value1 = simplify_number($values->overallCpuUsage);
  929.                 $value2 = simplify_number($values->overallCpuUsage / ($hardinfo->numCpuCores * $hardinfo->cpuMhz) * 100);
  930.             }
  931.         }
  932.         else
  933.         {
  934.             $values = return_host_performance_values($host, 'cpu', ('usagemhz.average', 'usage.average'));
  935.             if ($values) {
  936.                 $value1 = simplify_number(convert_number($$values[0][0]->value));
  937.                 $value2 = simplify_number(convert_number($$values[0][1]->value) * 0.01);
  938.             }
  939.         }
  940.         if (defined($value1) && defined($value2))
  941.         {
  942.             $np->add_perfdata(label => "cpu_usagemhz", value => $value1, uom => 'Mhz', threshold => $np->threshold);
  943.             $np->add_perfdata(label => "cpu_usage", value => $value2, uom => '%', threshold => $np->threshold);
  944.             $res = OK;
  945.             $output = "cpu usage=" . $value1 . " MHz (" . $value2 . "%)";
  946.         }
  947.     }

  949.     return ($res, $output);
  950. }

  952. sub host_mem_info
  953. {
  954.     my ($host, $np, $subcommand, $addopts) = @_;

  956.     my $res = CRITICAL;
  957.     my $output = 'HOST MEM Unknown error';

  959.     my $quickStats;
  960.     my $outputlist;
  961.     $quickStats = $addopts =~ m/(^|\s|\t|,)\Qquickstats\E($|\s|\t|,)/ if (defined($addopts));
  962.     $outputlist = $addopts =~ m/(^|\s|\t|,)\Qlistvm\E($|\s|\t|,)/ if (defined($addopts));

  964.     if (defined($subcommand))
  965.     {
  966.         if ($subcommand eq "USAGE")
  967.         {
  968.             my $value;
  969.             if (defined($quickStats))
  970.             {
  971.                 my $host_view = Vim::find_entity_view(view_type => 'HostSystem', filter => $host, properties => ['name', 'runtime.inMaintenanceMode', 'summary.hardware', 'summary.quickStats']);
  972.                 die "Host \"" . $$host{"name"} . "\" does not exist\n" if (!defined($host_view));
  973.                 die {msg => ("NOTICE: \"" . $host_view->name . "\" is in maintenance mode, check skipped\n"), code => OK} if (uc($host_view->get_property('runtime.inMaintenanceMode')) eq "TRUE");
  974.                 $values = $host_view->get_property('summary.quickStats');
  975.                 my $hardinfo = $host_view->get_property('summary.hardware');
  976.                 $value = simplify_number($values->overallMemoryUsage / ($hardinfo->memorySize / 1024 / 1024) * 100) if exists($values->{overallMemoryUsage}) && defined($hardinfo);
  977.             }
  978.             else
  979.             {
  980.                 $values = return_host_performance_values($host, 'mem', ('usage.average'));
  981.                 $value = simplify_number(convert_number($$values[0][0]->value) * 0.01) if (defined($values));
  982.             }
  983.             if (defined($value))
  984.             {
  985.                 $np->add_perfdata(label => "mem_usage", value => $value, uom => '%', threshold => $np->threshold);
  986.                 $output = "mem usage=" . $value . " %";
  987.                 $res = $np->check_threshold(check => $value);
  988.             }
  989.         }
  990.         elsif ($subcommand eq "USAGEMB")
  991.         {
  992.             my $value;
  993.             if (defined($quickStats))
  994.             {
  995.                 my $host_view = Vim::find_entity_view(view_type => 'HostSystem', filter => $host, properties => ['name', 'runtime.inMaintenanceMode', 'summary.quickStats']);
  996.                 die "Host \"" . $$host{"name"} . "\" does not exist\n" if (!defined($host_view));
  997.                 die {msg => ("NOTICE: \"" . $host_view->name . "\" is in maintenance mode, check skipped\n"), code => OK} if (uc($host_view->get_property('runtime.inMaintenanceMode')) eq "TRUE");
  998.                 $values = $host_view->get_property('summary.quickStats');
  999.                 $value = simplify_number($values->overallMemoryUsage) if exists($values->{overallMemoryUsage});
  1000.             }
  1001.             else
  1002.             {
  1003.                 $values = return_host_performance_values($host, 'mem', ('consumed.average'));
  1004.                 $value = simplify_number(convert_number($$values[0][0]->value) / 1024) if (defined($values));
  1005.             }
  1006.             if (defined($value))
  1007.             {
  1008.                 $np->add_perfdata(label => "mem_usagemb", value => $value, uom => 'MB', threshold => $np->threshold);
  1009.                 $output = "mem usage=" . $value . " MB";
  1010.                 $res = $np->check_threshold(check => $value);
  1011.             }
  1012.         }
  1013.         elsif ($subcommand eq "SWAP")
  1014.         {
  1015.             my $host_view;
  1016.             ($host_view, $values) = return_host_performance_values($host, 'mem', ('swapused.average'));
  1017.             if (defined($values))
  1018.             {
  1019.                 my $value = simplify_number(convert_number($$values[0][0]->value) / 1024);
  1020.                 $np->add_perfdata(label => "mem_swap", value => $value, uom => 'MB', threshold => $np->threshold);
  1021.                 $output = "swap usage=" . $value . " MB: ";
  1022.                 $res = $np->check_threshold(check => $value);
  1023.                 if ($res != OK && $outputlist)
  1024.                 {
  1025.                     my $vm_views = Vim::find_entity_views(view_type => 'VirtualMachine', begin_entity => $$host_view[0], properties => ['name', 'runtime.powerState']);
  1026.                     die "Runtime error\n" if (!defined($vm_views));
  1027.                     die "There are no VMs.\n" if (!@$vm_views);
  1028.                     my @vms = ();
  1029.                     foreach my $vm (@$vm_views)
  1030.                     {
  1031.                         push(@vms, $vm) if ($vm->get_property('runtime.powerState')->val eq "poweredOn");
  1032.                     }
  1033.                     $values = generic_performance_values(\@vms, 'mem', ('swapped.average'));
  1034.                     if (defined($values))
  1035.                     {
  1036.                         foreach my $index (0..@vms-1) {
  1037.                             my $value = simplify_number(convert_number($$values[$index][0]->value) / 1024);
  1038.                             $output .= $vms[$index]->name . " (" . $value . "MB), " if ($value > 0);
  1039.                         }
  1040.                     }
  1041.                 }
  1042.                 chop($output);
  1043.                 chop($output);
  1044.             }
  1045.         }
  1046.         elsif ($subcommand eq "OVERHEAD")
  1047.         {
  1048.             $values = return_host_performance_values($host, 'mem', ('overhead.average'));
  1049.             if (defined($values))
  1050.             {
  1051.                 my $value = simplify_number(convert_number($$values[0][0]->value) / 1024);
  1052.                 $np->add_perfdata(label => "mem_overhead", value => $value, uom => 'MB', threshold => $np->threshold);
  1053.                 $output = "overhead=" . $value . " MB";
  1054.                 $res = $np->check_threshold(check => $value);
  1055.             }
  1056.         }
  1057.         elsif ($subcommand eq "OVERALL")
  1058.         {
  1059.             $values = return_host_performance_values($host, 'mem', ('consumed.average', 'overhead.average'));
  1060.             if (defined($values))
  1061.             {
  1062.                 my $value = simplify_number((convert_number($$values[0][0]->value) + convert_number($$values[0][1]->value)) / 1024);
  1063.                 $np->add_perfdata(label => "mem_overhead", value => $value, uom => 'MB', threshold => $np->threshold);
  1064.                 $output = "overall=" . $value . " MB";
  1065.                 $res = $np->check_threshold(check => $value);
  1066.             }
  1067.         }
  1068.         elsif ($subcommand eq "MEMCTL")
  1069.         {
  1070.             my $host_view;
  1071.             ($host_view, $values) = return_host_performance_values($host, 'mem', ('vmmemctl.average'));
  1072.             if (defined($values))
  1073.             {
  1074.                 my $value = simplify_number(convert_number($$values[0][0]->value) / 1024);
  1075.                 $np->add_perfdata(label => "mem_memctl", value => $value, uom => 'MB', threshold => $np->threshold);
  1076.                 $output = "memctl=" . $value . " MB: ";
  1077.                 $res = $np->check_threshold(check => $value);
  1078.                 if ($res != OK && $outputlist)
  1079.                 {
  1080.                     my $vm_views = Vim::find_entity_views(view_type => 'VirtualMachine', begin_entity => $$host_view[0], properties => ['name', 'runtime.powerState']);
  1081.                     die "Runtime error\n" if (!defined($vm_views));
  1082.                     die "There are no VMs.\n" if (!@$vm_views);
  1083.                     my @vms = ();
  1084.                     foreach my $vm (@$vm_views)
  1085.                     {
  1086.                         push(@vms, $vm) if ($vm->get_property('runtime.powerState')->val eq "poweredOn");
  1087.                     }
  1088.                     $values = generic_performance_values(\@vms, 'mem', ('vmmemctl.average'));
  1089.                     if (defined($values))
  1090.                     {
  1091.                         foreach my $index (0..@vms-1) {
  1092.                             my $value = simplify_number(convert_number($$values[$index][0]->value) / 1024);
  1093.                             $output .= $vms[$index]->name . " (" . $value . "MB), " if ($value > 0);
  1094.                         }
  1095.                     }
  1096.                 }
  1097.                 chop($output);
  1098.                 chop($output);
  1099.             }
  1100.         }
  1101.         else
  1102.         {
  1103.             $res = CRITICAL;
  1104.             $output = "HOST MEM - unknown subcommand\n" . $np->opts->_help;
  1105.         }
  1106.     }
  1107.     else
  1108.     {
  1109.         $values = return_host_performance_values($host, 'mem', ('consumed.average', 'usage.average', 'overhead.average', 'swapused.average', 'vmmemctl.average'));
  1110.         if (defined($values))
  1111.         {
  1112.             my $value1 = simplify_number(convert_number($$values[0][0]->value) / 1024);
  1113.             my $value2 = simplify_number(convert_number($$values[0][1]->value) * 0.01);
  1114.             my $value3 = simplify_number(convert_number($$values[0][2]->value) / 1024);
  1115.             my $value4 = simplify_number(convert_number($$values[0][3]->value) / 1024);
  1116.             my $value5 = simplify_number(convert_number($$values[0][4]->value) / 1024);
  1117.             $np->add_perfdata(label => "mem_usagemb", value => $value1, uom => 'MB', threshold => $np->threshold);
  1118.             $np->add_perfdata(label => "mem_usage", value => $value2, uom => '%', threshold => $np->threshold);
  1119.             $np->add_perfdata(label => "mem_overhead", value => $value3, uom => 'MB', threshold => $np->threshold);
  1120.             $np->add_perfdata(label => "mem_swap", value => $value4, uom => 'MB', threshold => $np->threshold);
  1121.             $np->add_perfdata(label => "mem_memctl", value => $value5, uom => 'MB', threshold => $np->threshold);
  1122.             $res = OK;
  1123.             $output = "mem usage=" . $value1 . " MB (" . $value2 . "%), overhead=" . $value3 . " MB, swapped=" . $value4 . " MB, memctl=" . $value5 . " MB";
  1124.         }
  1125.     }

  1127.     return ($res, $output);
  1128. }

  1130. sub host_net_info
  1131. {
  1132.     my ($host, $np, $subcommand) = @_;

  1134.     my $res = CRITICAL;
  1135.     my $output = 'HOST NET Unknown error';
  1136.     
  1137.     if (defined($subcommand))
  1138.     {
  1139.         if ($subcommand eq "USAGE")
  1140.         {
  1141.             $values = return_host_performance_values($host, 'net', ('usage.average:*'));
  1142.             if (defined($values))
  1143.             {
  1144.                 my $value = simplify_number(convert_number($$values[0][0]->value));
  1145.                 $np->add_perfdata(label => "net_usage", value => $value, uom => 'KBps', threshold => $np->threshold);
  1146.                 $output = "net usage=" . $value . " KBps";
  1147.                 $res = $np->check_threshold(check => $value);
  1148.             }
  1149.         }
  1150.         elsif ($subcommand eq "RECEIVE")
  1151.         {
  1152.             $values = return_host_performance_values($host, 'net', ('received.average:*'));
  1153.             if (defined($values))
  1154.             {
  1155.                 my $value = simplify_number(convert_number($$values[0][0]->value));
  1156.                 $np->add_perfdata(label => "net_receive", value => $value, uom => 'KBps', threshold => $np->threshold);
  1157.                 $output = "net receive=" . $value . " KBps";
  1158.                 $res = $np->check_threshold(check => $value);
  1159.             }
  1160.         }
  1161.         elsif ($subcommand eq "SEND")
  1162.         {
  1163.             $values = return_host_performance_values($host, 'net', ('transmitted.average:*'));
  1164.             if (defined($values))
  1165.             {
  1166.                 my $value = simplify_number(convert_number($$values[0][0]->value));
  1167.                 $np->add_perfdata(label => "net_send", value => $value, uom => 'KBps', threshold => $np->threshold);
  1168.                 $output = "net send=" . $value . " KBps";
  1169.                 $res = $np->check_threshold(check => $value);
  1170.             }
  1171.         }
  1172.         elsif ($subcommand eq "NIC")
  1173.         {
  1174.             my $host_view = Vim::find_entity_view(view_type => 'HostSystem', filter => $host, properties => ['name', 'configManager.networkSystem', 'runtime.inMaintenanceMode']);
  1175.             die "Host \"" . $$host{"name"} . "\" does not exist\n" if (!defined($host_view));
  1176.             die {msg => ("NOTICE: \"" . $host_view->name . "\" is in maintenance mode, check skipped\n"), code => OK} if (uc($host_view->get_property('runtime.inMaintenanceMode')) eq "TRUE");
  1177.             my $network_system = Vim::get_view(mo_ref => $host_view->get_property('configManager.networkSystem') , properties => ['networkInfo']);
  1178.             $network_system->update_view_data(['networkInfo']);
  1179.             my $network_config = $network_system->networkInfo;
  1180.             die "Host \"" . $$host{"name"} . "\" has no network info in the API.\n" if (!defined($network_config));

  1182.             $output = "";
  1183.             $res = OK;
  1184.             my $OKCount = 0;
  1185.             my $BadCount = 0;
  1186.             my @switches = ();

  1188.             # create a hash of NIC info to facilitate easy lookups
  1189.             my %NIC = ();
  1190.             foreach (@{$network_config->pnic})
  1191.             {
  1192.                 $NIC{$_->key} = $_;
  1193.             }

  1195.             push(@switches, $network_config->vswitch) if (exists($network_config->{vswitch}));
  1196.             push(@switches, $network_config->proxySwitch) if (exists($network_config->{proxySwitch}));

  1198.             # see which NICs are actively part of a switch
  1199.             foreach my $switch (@switches)
  1200.             {
  1201.                 foreach (@{$switch})
  1202.                 {
  1203.                     # get list of physical nics
  1204.                     if (defined($_->pnic)){
  1205.                         foreach my $nic_key (@{$_->pnic})
  1206.                         {
  1207.                             if (!defined($NIC{$nic_key}->linkSpeed))
  1208.                             {
  1209.                                 $output .= ", " if ($output);
  1210.                                 $output .= $NIC{$nic_key}->device . " is unplugged";
  1211.                                 $res = CRITICAL;
  1212.                                 $BadCount++;
  1213.                             }
  1214.                             else
  1215.                             {
  1216.                                 $OKCount++;
  1217.                             }
  1218.                         }
  1219.                     }
  1220.                 }
  1221.             }

  1223.             if (!$BadCount)
  1224.             {
  1225.                 $output = "All $OKCount NICs are connected";
  1226.             }
  1227.             else
  1228.             {
  1229.                 $output = $BadCount ."/" . ($BadCount + $OKCount) . " NICs are disconnected: " . $output;
  1230.             }
  1231.             $np->add_perfdata(label => "OK_NICs", value => $OKCount);
  1232.             $np->add_perfdata(label => "Bad_NICs", value => $BadCount);
  1233.         }
  1234.         else
  1235.         {
  1236.             $res = CRITICAL;
  1237.             $output = "HOST NET - unknown subcommand\n" . $np->opts->_help;
  1238.         }
  1239.     }
  1240.     else
  1241.     {
  1242.         my $host_view;
  1243.         ($host_view, $values) = return_host_performance_values($host, 'net', ('received.average:*', 'transmitted.average:*'));
  1244.         $output = '';
  1245.         if (defined($values))
  1246.         {
  1247.             my $value1 = simplify_number(convert_number($$values[0][0]->value));
  1248.             my $value2 = simplify_number(convert_number($$values[0][1]->value));
  1249.             $np->add_perfdata(label => "net_receive", value => $value1, uom => 'KBps', threshold => $np->threshold);
  1250.             $np->add_perfdata(label => "net_send", value => $value2, uom => 'KBps', threshold => $np->threshold);
  1251.             $res = OK;
  1252.             $output = "net receive=" . $value1 . " KBps, send=" . $value2 . " KBps, ";
  1253.         }
  1254.         $host_view = $$host_view[0];
  1255.         $host_view->update_view_data(['configManager.networkSystem']);
  1256.         my $network_system = Vim::get_view(mo_ref => $host_view->get_property('configManager.networkSystem') , properties => ['networkInfo']);
  1257.         $network_system->update_view_data(['networkInfo']);
  1258.         my $network_config = $network_system->networkInfo;
  1259.         if (defined($network_config))
  1260.         {
  1261.             my $OKCount = 0;
  1262.             my $BadCount = 0;

  1264.             # create a hash of NIC info to facilitate easy lookups
  1265.             my %NIC = ();
  1266.             foreach (@{$network_config->pnic})
  1267.             {
  1268.                 $NIC{$_->key} = $_;
  1269.             }

  1271.             my $nic_output = '';
  1272.             my @switches = ();

  1274.             push(@switches, $network_config->vswitch) if (exists($network_config->{vswitch}));
  1275.             push(@switches, $network_config->proxySwitch) if (exists($network_config->{proxySwitch}));

  1277.             # see which NICs are actively part of a switch
  1278.             foreach my $switch (@switches)
  1279.             {
  1280.                 foreach (@{$switch})
  1281.                 {
  1282.                     # get list of physical nics
  1283.                     if (defined($_->pnic)){
  1284.                         foreach my $nic_key (@{$_->pnic})
  1285.                         {
  1286.                             if (!defined($NIC{$nic_key}->linkSpeed))
  1287.                             {
  1288.                                 $nic_output .= ", " if ($output);
  1289.                                 $nic_output .= $NIC{$nic_key}->device . " is unplugged";
  1290.                                 $res = CRITICAL;
  1291.                                 $BadCount++;
  1292.                             }
  1293.                             else
  1294.                             {
  1295.                                 $OKCount++;
  1296.                             }
  1297.                         }
  1298.                     }
  1299.                 }
  1300.             }

  1302.             if (!$BadCount)
  1303.             {
  1304.                 $output .= "all $OKCount NICs are connected";
  1305.             }
  1306.             else
  1307.             {
  1308.                 $output .= $BadCount ."/" . ($BadCount + $OKCount) . " NICs are disconnected: " . $nic_output;
  1309.             }
  1310.             $np->add_perfdata(label => "OK_NICs", value => $OKCount);
  1311.             $np->add_perfdata(label => "Bad_NICs", value => $BadCount);
  1312.         }
  1313.     }

  1315.     return ($res, $output);
  1316. }

  1318. sub host_disk_io_info
  1319. {
  1320.     my ($host, $np, $subcommand) = @_;

  1322.     my $res = CRITICAL;
  1323.     my $output = 'HOST IO Unknown error';

  1325.     if (defined($subcommand))
  1326.     {
  1327.         if ($subcommand eq "ABORTED")
  1328.         {
  1329.             $values = return_host_performance_values($host, 'disk', ('commandsAborted.summation:*'));
  1330.             if (defined($values))
  1331.             {
  1332.                 my $value = simplify_number(convert_number($$values[0][0]->value), 0);
  1333.                 $np->add_perfdata(label => "io_aborted", value => $value, threshold => $np->threshold);
  1334.                 $output = "io commands aborted=" . $value;
  1335.                 $res = $np->check_threshold(check => $value);
  1336.             }
  1337.         }
  1338.         elsif ($subcommand eq "RESETS")
  1339.         {
  1340.             $values = return_host_performance_values($host, 'disk', ('busResets.summation:*'));
  1341.             if (defined($values))
  1342.             {
  1343.                 my $value = simplify_number(convert_number($$values[0][0]->value), 0);
  1344.                 $np->add_perfdata(label => "io_busresets", value => $value, threshold => $np->threshold);
  1345.                 $output = "io bus resets=" . $value;
  1346.                 $res = $np->check_threshold(check => $value);
  1347.             }
  1348.         }
  1349.         elsif ($subcommand eq "READ")
  1350.         {
  1351.             $values = return_host_performance_values($host, 'disk', ('totalReadLatency.average:*'));
  1352.             if (defined($values))
  1353.             {
  1354.                 my $value = simplify_number(convert_number($$values[0][0]->value), 0);
  1355.                 $np->add_perfdata(label => "io_read", value => $value, uom => 'ms', threshold => $np->threshold);
  1356.                 $output = "io read latency=" . $value . " ms";
  1357.                 $res = $np->check_threshold(check => $value);
  1358.             }
  1359.         }
  1360.         elsif ($subcommand eq "WRITE")
  1361.         {
  1362.             $values = return_host_performance_values($host, 'disk', ('totalWriteLatency.average:*'));
  1363.             if (defined($values))
  1364.             {
  1365.                 my $value = simplify_number(convert_number($$values[0][0]->value), 0);
  1366.                 $np->add_perfdata(label => "io_write", value => $value, uom => 'ms', threshold => $np->threshold);
  1367.                 $output = "io write latency=" . $value . " ms";
  1368.                 $res = $np->check_threshold(check => $value);
  1369.             }
  1370.         }
  1371.         elsif ($subcommand eq "KERNEL")
  1372.         {
  1373.             $values = return_host_performance_values($host, 'disk', ('kernelLatency.average:*'));
  1374.             if (defined($values))
  1375.             {
  1376.                 my $value = simplify_number(convert_number($$values[0][0]->value), 0);
  1377.                 $np->add_perfdata(label => "io_kernel", value => $value, uom => 'ms', threshold => $np->threshold);
  1378.                 $output = "io kernel latency=" . $value . " ms";
  1379.                 $res = $np->check_threshold(check => $value);
  1380.             }
  1381.         }
  1382.         elsif ($subcommand eq "DEVICE")
  1383.         {
  1384.             $values = return_host_performance_values($host, 'disk', ('deviceLatency.average:*'));
  1385.             if (defined($values))
  1386.             {
  1387.                 my $value = simplify_number(convert_number($$values[0][0]->value), 0);
  1388.                 $np->add_perfdata(label => "io_device", value => $value, uom => 'ms', threshold => $np->threshold);
  1389.                 $output = "io device latency=" . $value . " ms";
  1390.                 $res = $np->check_threshold(check => $value);
  1391.             }
  1392.         }
  1393.         elsif ($subcommand eq "QUEUE")
  1394.         {
  1395.             $values = return_host_performance_values($host, 'disk', ('queueLatency.average:*'));
  1396.             if (defined($values))
  1397.             {
  1398.                 my $value = simplify_number(convert_number($$values[0][0]->value), 0);
  1399.                 $np->add_perfdata(label => "io_queue", value => $value, uom => 'ms', threshold => $np->threshold);
  1400.                 $output = "io queue latency=" . $value . " ms";
  1401.                 $res = $np->check_threshold(check => $value);
  1402.             }
  1403.         }
  1404.         else
  1405.         {
  1406.             $res = CRITICAL;
  1407.             $output = "HOST IO - unknown subcommand\n" . $np->opts->_help;
  1408.         }
  1409.     }
  1410.     else
  1411.     {
  1412.         $values = return_host_performance_values($host, 'disk', ('commandsAborted.summation:*', 'busResets.summation:*', 'totalReadLatency.average:*', 'totalWriteLatency.average:*', 'kernelLatency.average:*', 'deviceLatency.average:*', 'queueLatency.average:*'));
  1413.         if (defined($values))
  1414.         {
  1415.             my $value1 = simplify_number(convert_number($$values[0][0]->value), 0);
  1416.             my $value2 = simplify_number(convert_number($$values[0][1]->value), 0);
  1417.             my $value3 = simplify_number(convert_number($$values[0][2]->value), 0);
  1418.             my $value4 = simplify_number(convert_number($$values[0][3]->value), 0);
  1419.             my $value5 = simplify_number(convert_number($$values[0][4]->value), 0);
  1420.             my $value6 = simplify_number(convert_number($$values[0][5]->value), 0);
  1421.             my $value7 = simplify_number(convert_number($$values[0][6]->value), 0);
  1422.             $np->add_perfdata(label => "io_aborted", value => $value1, threshold => $np->threshold);
  1423.             $np->add_perfdata(label => "io_busresets", value => $value2, threshold => $np->threshold);
  1424.             $np->add_perfdata(label => "io_read", value => $value3, uom => 'ms', threshold => $np->threshold);
  1425.             $np->add_perfdata(label => "io_write", value => $value4, uom => 'ms', threshold => $np->threshold);
  1426.             $np->add_perfdata(label => "io_kernel", value => $value5, uom => 'ms', threshold => $np->threshold);
  1427.             $np->add_perfdata(label => "io_device", value => $value6, uom => 'ms', threshold => $np->threshold);
  1428.             $np->add_perfdata(label => "io_queue", value => $value7, uom => 'ms', threshold => $np->threshold);
  1429.             $res = OK;
  1430.             $output = "io commands aborted=" . $value1 . ", io bus resets=" . $value2 . ", io read latency=" . $value3 . " ms, write latency=" . $value4 . " ms, kernel latency=" . $value5 . " ms, device latency=" . $value6 . " ms, queue latency=" . $value7 ." ms";
  1431.         }
  1432.     }

  1434.     return ($res, $output);
  1435. }

  1437. sub host_list_vm_volumes_info
  1438. {
  1439.     my ($host, $np, $subcommand, $blacklist, $perc, $addopts) = @_;

  1441.     my $host_view = Vim::find_entity_view(view_type => 'HostSystem', filter => $host, properties => ['name', 'datastore', 'runtime.inMaintenanceMode']);
  1442.     die "Host \"" . $$host{"name"} . "\" does not exist\n" if (!defined($host_view));
  1443.     die {msg => ("NOTICE: \"" . $host_view->name . "\" is in maintenance mode, check skipped\n"), code => OK} if (uc($host_view->get_property('runtime.inMaintenanceMode')) eq "TRUE");
  1444.     die "Insufficient rights to access Datastores on the Host\n" if (!defined($host_view->datastore));

  1446.     return datastore_volumes_info($host_view->datastore, $np, $subcommand, $blacklist, $perc, $addopts);
  1447. }

  1449. sub host_runtime_info
  1450. {
  1451.     my ($host, $np, $subcommand, $blacklist) = @_;

  1453.     my $res = CRITICAL;
  1454.     my $output = 'HOST RUNTIME Unknown error';
  1455.     my $runtime;
  1456.     my $host_view = Vim::find_entity_view(view_type => 'HostSystem', filter => $host, properties => ['name', 'runtime', 'overallStatus', 'configIssue']);
  1457.     die "Host \"" . $$host{"name"} . "\" does not exist\n" if (!defined($host_view));
  1458.     $host_view->update_view_data(['name', 'runtime', 'overallStatus', 'configIssue']);
  1459.     $runtime = $host_view->runtime;
  1460.     die {msg => ("NOTICE: \"" . $host_view->name . "\" is in maintenance mode, check skipped\n"), code => OK} if ($runtime->inMaintenanceMode);

  1462.     if (defined($subcommand))
  1463.     {
  1464.         if ($subcommand eq "CON")
  1465.         {
  1466.             $output = "connection state=" . $runtime->connectionState->val;
  1467.             $res = OK if (uc($runtime->connectionState->val) eq "CONNECTED");
  1468.         }
  1469.         elsif ($subcommand eq "HEALTH")
  1470.         {
  1471.             my $OKCount = 0;
  1472.             my $AlertCount = 0;
  1473.             my ($cpuStatusInfo, $storageStatusInfo, $memoryStatusInfo, $numericSensorInfo);

  1475.             $res = UNKNOWN;

  1477.             if(defined($runtime->healthSystemRuntime))
  1478.             {
  1479.                 $cpuStatusInfo = $runtime->healthSystemRuntime->hardwareStatusInfo->cpuStatusInfo;
  1480.                 $storageStatusInfo = $runtime->healthSystemRuntime->hardwareStatusInfo->storageStatusInfo;
  1481.                 $memoryStatusInfo = $runtime->healthSystemRuntime->hardwareStatusInfo->memoryStatusInfo;
  1482.                 $numericSensorInfo = $runtime->healthSystemRuntime->systemHealthInfo->numericSensorInfo;

  1484.                 $output = '';

  1486.                 if (defined($cpuStatusInfo))
  1487.                 {
  1488.                     foreach (@$cpuStatusInfo)
  1489.                     {
  1490.                         # print "CPU Name = ". $_->name .", Label = ". $_->status->label . ", Summary = ". $_->status->summary . ", Key = ". $_->status->key . "\n";
  1491.                         my $state = check_health_state($_->status->key);
  1492.                         if ($state != OK)
  1493.                         {
  1494.                             $res = Nagios::Plugin::Functions::max_state($res, $state);
  1495.                             $output .= ", " if ($output);
  1496.                             $output .= $_->name . ": " . $_->status->summary;
  1497.                             $AlertCount++;
  1498.                         }
  1499.                         else
  1500.                         {
  1501.                             $OKCount++;
  1502.                         }
  1503.                     }
  1504.                 }

  1506.                 if (defined($storageStatusInfo))
  1507.                 {
  1508.                     foreach (@$storageStatusInfo)
  1509.                     {
  1510.                         # print "Storage Name = ". $_->name .", Label = ". $_->status->label . ", Summary = ". $_->status->summary . ", Key = ". $_->status->key . "\n";
  1511.                         my $state = check_health_state($_->status->key);
  1512.                         if ($state != OK)
  1513.                         {
  1514.                             $res = Nagios::Plugin::Functions::max_state($res, $state);
  1515.                             $output .= ", " if ($output);
  1516.                             $output .= "Storage " . $_->name . ": " . $_->status->summary;
  1517.                             $AlertCount++;
  1518.                         }
  1519.                         else
  1520.                         {
  1521.                             $OKCount++;
  1522.                         }
  1523.                     }
  1524.                 }

  1526.                 if (defined($memoryStatusInfo))
  1527.                 {
  1528.                     foreach (@$memoryStatusInfo)
  1529.                     {
  1530.                         # print "Memory Name = ". $_->name .", Label = ". $_->status->label . ", Summary = ". $_->status->summary . ", Key = ". $_->status->key . "\n";
  1531.                         my $state = check_health_state($_->status->key);
  1532.                         if ($state != OK)
  1533.                         {
  1534.                             $res = Nagios::Plugin::Functions::max_state($res, $state);
  1535.                             $output .= ", " if ($output);
  1536.                             $output .= "Memory: " . $_->status->summary;
  1537.                             $AlertCount++;
  1538.                         }
  1539.                         else
  1540.                         {
  1541.                             $OKCount++;
  1542.                         }
  1543.                     }
  1544.                 }

  1546.                 if (defined($numericSensorInfo))
  1547.                 {
  1548.                     foreach (@$numericSensorInfo)
  1549.                     {
  1550.                         # print "Sensor Name = ". $_->name .", Type = ". $_->sensorType . ", Label = ". $_->healthState->label . ", Summary = ". $_->healthState->summary . ", Key = " . $_->healthState->key . "\n";
  1551.                         my $state = check_health_state($_->healthState->key);
  1552.                         if ($state != OK)
  1553.                         {
  1554.                             $res = Nagios::Plugin::Functions::max_state($res, $state);
  1555.                             $output .= ", " if ($output);
  1556.                             $output .= $_->sensorType . " sensor " . $_->name . ": ".$_->healthState->summary;
  1557.                             $AlertCount++;
  1558.                         }
  1559.                         else
  1560.                         {
  1561.                             $OKCount++;
  1562.                         }
  1563.                     }
  1564.                 }

  1566.                 if ($output)
  1567.                 {
  1568.                     $output = "$AlertCount health issue(s) found: $output";
  1569.                 }
  1570.                 else
  1571.                 {
  1572.                     $output = "All $OKCount health checks are Green";
  1573.                     $res = OK;
  1574.                 }
  1575.             }
  1576.             else
  1577.             {
  1578.                 $res = "System health status unavailable";
  1579.             }

  1581.             $np->add_perfdata(label => "Alerts", value => $AlertCount);
  1582.         }
  1583.         elsif ($subcommand eq "MAINTENANCE")
  1584.         {
  1585.             my %host_maintenance_state = (0 => "no", 1 => "yes");
  1586.             $output = "maintenance=" . $host_maintenance_state{$runtime->inMaintenanceMode};
  1587.             $res = OK;
  1588.         }
  1589.         elsif (($subcommand eq "LIST") || ($subcommand eq "LISTVM"))
  1590.         {
  1591.             my %vm_state_strings = ("poweredOn" => "UP", "poweredOff" => "DOWN", "suspended" => "SUSPENDED");
  1592.             my $vm_views = Vim::find_entity_views(view_type => 'VirtualMachine', begin_entity => $host_view, properties => ['name', 'runtime']);
  1593.             die "Runtime error\n" if (!defined($vm_views));
  1594.             die "There are no VMs.\n" if (!@$vm_views);
  1595.             my $up = 0;
  1596.             $output = '';

  1598.             foreach my $vm (@$vm_views)
  1599.             {
  1600.                 my $vm_state = $vm_state_strings{$vm->runtime->powerState->val};
  1601.                 if ($vm_state eq "UP")
  1602.                 {
  1603.                     $up++;
  1604.                     $output .= $vm->name . "(OK), ";
  1605.                 }
  1606.                 else
  1607.                 {
  1608.                     $output = $vm->name . "(" . $vm_state . "), " . $output;
  1609.                 }
  1610.             }

  1612.             chop($output);
  1613.             chop($output);
  1614.             $res = OK;
  1615.             $output = $up . "/" . @$vm_views . " VMs up: " . $output;
  1616.             $np->add_perfdata(label => "vmcount", value => $up, uom => 'units', threshold => $np->threshold);
  1617.             $res = $np->check_threshold(check => $up) if (defined($np->threshold));
  1618.         }
  1619.         elsif ($subcommand eq "STATUS")
  1620.         {
  1621.             my $status = $host_view->overallStatus->val;
  1622.             $output = "overall status=" . $status;
  1623.             $res = check_health_state($status);
  1624.         }
  1625.         elsif ($subcommand eq "ISSUES")
  1626.         {
  1627.             my $issues = $host_view->configIssue;

  1629.             $output = '';
  1630.             if (defined($issues))
  1631.             {
  1632.                 foreach (@$issues)
  1633.                 {
  1634.                     if (defined($blacklist))
  1635.                     {
  1636.                         my $name = ref($_);
  1637.                         next if ($blacklist =~ m/(^|\s|\t|,)\Q$name\E($|\s|\t|,)/);
  1638.                     }
  1639.                     $output .= format_issue($_) . "; ";
  1640.                 }
  1641.             }

  1643.             if ($output eq '')
  1644.             {
  1645.                 $res = OK;
  1646.                 $output = 'No config issues';
  1647.             }
  1648.         }
  1649.         else
  1650.         {
  1651.             $res = CRITICAL;
  1652.             $output = "HOST RUNTIME - unknown subcommand\n" . $np->opts->_help;
  1653.         }
  1654.     }
  1655.     else
  1656.     {
  1657.         my %host_maintenance_state = (0 => "no", 1 => "yes");
  1658.         my $vm_views = Vim::find_entity_views(view_type => 'VirtualMachine', begin_entity => $host_view, properties => ['name', 'runtime']);
  1659.         my $up = 0;

  1661.         die "Runtime error\n" if (!defined($vm_views));
  1662.         if (@$vm_views)
  1663.         {
  1664.             foreach my $vm (@$vm_views)
  1665.             {
  1666.                 $up += $vm->runtime->powerState->val eq "poweredOn";
  1667.             }
  1668.             $output = $up . "/" . @$vm_views . " VMs up";
  1669.         }
  1670.         else
  1671.         {
  1672.             $output = "No VMs installed";
  1673.         }
  1674.         $np->add_perfdata(label => "vmcount", value => $up, uom => 'units', threshold => $np->threshold);

  1676.         my $AlertCount = 0;
  1677.         my $SensorCount = 0;
  1678.         my ($cpuStatusInfo, $storageStatusInfo, $memoryStatusInfo, $numericSensorInfo);
  1679.         if(defined($runtime->healthSystemRuntime))
  1680.         {
  1681.             $cpuStatusInfo = $runtime->healthSystemRuntime->hardwareStatusInfo->cpuStatusInfo;
  1682.             $storageStatusInfo = $runtime->healthSystemRuntime->hardwareStatusInfo->storageStatusInfo;
  1683.             $memoryStatusInfo = $runtime->healthSystemRuntime->hardwareStatusInfo->memoryStatusInfo;
  1684.             $numericSensorInfo = $runtime->healthSystemRuntime->systemHealthInfo->numericSensorInfo;
  1685.         }

  1687.         if (defined($cpuStatusInfo))
  1688.         {
  1689.             foreach (@$cpuStatusInfo)
  1690.             {
  1691.                 $SensorCount++;
  1692.                 $AlertCount++ if (check_health_state($_->status->key) != OK);
  1693.             }
  1694.         }

  1696.         if (defined($storageStatusInfo))
  1697.         {
  1698.             foreach (@$storageStatusInfo)
  1699.             {
  1700.                 $SensorCount++;
  1701.                 $AlertCount++ if (check_health_state($_->status->key) != OK);
  1702.             }
  1703.         }

  1705.         if (defined($memoryStatusInfo))
  1706.         {
  1707.             foreach (@$memoryStatusInfo)
  1708.             {
  1709.                 $SensorCount++;
  1710.                 $AlertCount++ if (check_health_state($_->status->key) != OK);
  1711.             }
  1712.         }

  1714.         if (defined($numericSensorInfo))
  1715.         {
  1716.             foreach (@$numericSensorInfo)
  1717.             {
  1718.                 $SensorCount++;
  1719.                 $AlertCount++ if (check_health_state($_->healthState->key) != OK);
  1720.             }
  1721.         }

  1723.         $res = OK;
  1724.         $output .= ", overall status=" . $host_view->overallStatus->val . ", connection state=" . $runtime->connectionState->val . ", maintenance=" . $host_maintenance_state{$runtime->inMaintenanceMode} . ", ";

  1726.         if ($AlertCount)
  1727.         {
  1728.             $output .= "$AlertCount health issue(s), ";
  1729.         }
  1730.         else
  1731.         {
  1732.             $output .= "All $SensorCount health checks are Green, ";
  1733.         }
  1734.         $np->add_perfdata(label => "health_issues", value => $AlertCount);

  1736.         my $issues = $host_view->configIssue;
  1737.         if (defined($issues))
  1738.         {
  1739.             $output .= @$issues . " config issue(s)";
  1740.             $np->add_perfdata(label => "config_issues", value => "" . @$issues);
  1741.         }
  1742.         else
  1743.         {
  1744.             $output .= "no config issues";
  1745.             $np->add_perfdata(label => "config_issues", value => 0);
  1746.         }
  1747.     }

  1749.     return ($res, $output);
  1750. }

  1752. sub host_service_info
  1753. {
  1754.     my ($host, $np, $subcommand) = @_;

  1756.     my $res = CRITICAL;
  1757.     my $output = 'HOST RUNTIME Unknown error';
  1758.     my $host_view = Vim::find_entity_view(view_type => 'HostSystem', filter => $host, properties => ['name', 'configManager', 'runtime.inMaintenanceMode']);
  1759.     die "Host \"" . $$host{"name"} . "\" does not exist\n" if (!defined($host_view));
  1760.     die {msg => ("NOTICE: \"" . $host_view->name . "\" is in maintenance mode, check skipped\n"), code => OK} if (uc($host_view->get_property('runtime.inMaintenanceMode')) eq "TRUE");

  1762.     my $services = Vim::get_view(mo_ref => $host_view->configManager->serviceSystem, properties => ['serviceInfo'])->serviceInfo->service;

  1764.     if (defined($subcommand))
  1765.     {
  1766.         $subcommand = ',' . $subcommand . ',';
  1767.         $output = '';
  1768.         foreach (@$services)
  1769.         {
  1770.             my $srvname = $_->key;
  1771.             if ($subcommand =~ s/,$srvname,/,/g)
  1772.             {
  1773.                 while ($subcommand =~ s/,$srvname,/,/g){};
  1774.                 $output .= $srvname . ", " if (!$_->running);
  1775.             }
  1776.         }
  1777.         $subcommand =~ s/^,//;
  1778.         chop($subcommand);

  1780.         if ($subcommand ne '')
  1781.         {
  1782.             $res = UNKNOWN;
  1783.             $output = "unknown services : $subcommand";
  1784.         }
  1785.         elsif ($output eq '')
  1786.         {
  1787.             $res = OK;
  1788.             $output = "All services are in their apropriate state.";
  1789.         }
  1790.         else
  1791.         {
  1792.             chop($output);
  1793.             chop($output);
  1794.             $output .= " are down";
  1795.         }
  1796.     }
  1797.     else
  1798.     {
  1799.         my %service_state = (0 => "down", 1 => "up");
  1800.         $res = OK;
  1801.         $output = "services : ";
  1802.         $output .= $_->key . " (" . $service_state{$_->running} . "), " foreach (@$services);
  1803.         chop($output);
  1804.         chop($output);
  1805.     }

  1807.     return ($res, $output);
  1808. }

  1810. sub host_storage_info
  1811. {
  1812.     my ($host, $np, $subcommand, $blacklist) = @_;

  1814.     my $count = 0;
  1815.     my $res = CRITICAL;
  1816.     my $output = 'HOST RUNTIME Unknown error';
  1817.     my $host_view = Vim::find_entity_view(view_type => 'HostSystem', filter => $host, properties => ['name', 'configManager', 'runtime.inMaintenanceMode']);
  1818.     die "Host \"" . $$host{"name"} . "\" does not exist\n" if (!defined($host_view));
  1819.     die {msg => ("NOTICE: \"" . $host_view->name . "\" is in maintenance mode, check skipped\n"), code => OK} if (uc($host_view->get_property('runtime.inMaintenanceMode')) eq "TRUE");

  1821.     my $storage = Vim::get_view(mo_ref => $host_view->configManager->storageSystem, properties => ['storageDeviceInfo']);

  1823.     if (defined($subcommand))
  1824.     {
  1825.         if ($subcommand eq "ADAPTER")
  1826.         {
  1827.             $output = "";
  1828.             $res = OK;
  1829.             foreach my $dev (@{$storage->storageDeviceInfo->hostBusAdapter})
  1830.             {
  1831.                 my $name = $dev->device;
  1832.                 my $status = $dev->status;
  1833.                 if (defined($blacklist))
  1834.                 {
  1835.                     my $key = $dev->key;
  1836.                     if (($blacklist =~ m/(^|\s|\t|,)\Q$name\E($|\s|\t|,)/) || ($blacklist =~ m/(^|\s|\t|,)\Q$key\E($|\s|\t|,)/))
  1837.                     {
  1838.                         $count++;
  1839.                         $status = "ignored";
  1840.                     }
  1841.                 }
  1842.                 $count ++ if (uc($status) eq "ONLINE");
  1843.                 $res = UNKNOWN if (uc($status) eq "UNKNOWN");
  1844.                 $output .= $name . " (" . $status . "); ";
  1845.             }
  1846.             my $state = $np->check_threshold(check => $count);
  1847.             $res = $state if ($state != OK);
  1848.             $np->add_perfdata(label => "adapters", value => $count, uom => 'units', threshold => $np->threshold);
  1849.         }
  1850.         elsif ($subcommand eq "LUN")
  1851.         {
  1852.             $output = "";
  1853.             $res = OK;
  1854.             my $state = OK; # For unkonwn or other statuses
  1855.             foreach my $scsi (@{$storage->storageDeviceInfo->scsiLun})
  1856.             {
  1857.                 my $name = "";
  1858.                 if (exists($scsi->{displayName}))
  1859.                 {
  1860.                     $name = $scsi->displayName;
  1861.                 }
  1862.                 elsif (exists($scsi->{canonicalName}))
  1863.                 {
  1864.                     $name = $scsi->canonicalName;
  1865.                 }
  1866.                 else
  1867.                 {
  1868.                     $name = $scsi->deviceName;
  1869.                 }
  1870.                 $state = OK;

  1872.                 my $operationState;
  1873.                 if (defined($blacklist) && ($blacklist =~ m/(^|\s|\t|,)\Q$name\E($|\s|\t|,)/))
  1874.                 {
  1875.                     $operationState = "ignored";
  1876.                 }
  1877.                 else
  1878.                 {
  1879.                     $operationState = join("-", @{$scsi->operationalState});
  1880.                     foreach (@{$scsi->operationalState})
  1881.                     {
  1882.                         if (uc($_) eq "OK")
  1883.                         {
  1884.                             # $state = OK;
  1885.                         }
  1886.                         elsif (uc($_) eq "UNKNOWN")
  1887.                         {
  1888.                             $res = UNKNOWN;
  1889.                         }
  1890.                         elsif (uc($_) eq "UNKNOWNSTATE")
  1891.                         {
  1892.                             $res = UNKNOWN;
  1893.                         }
  1894.                         else
  1895.                         {
  1896.                             $state = CRITICAL;
  1897.                         }
  1898.                     }
  1899.                 }

  1901.                 $count++ if ($state == OK);
  1902.                 $output .= $name . " <" . $operationState . ">; ";
  1903.             }
  1904.             $np->add_perfdata(label => "LUNs", value => $count, uom => 'units', threshold => $np->threshold);
  1905.             $state = $np->check_threshold(check => $count);
  1906.             $res = $state if ($state != OK);
  1907.         }
  1908.         elsif ($subcommand eq "PATH")
  1909.         {
  1910.             if (exists($storage->storageDeviceInfo->{multipathInfo}))
  1911.             {
  1912.                 $output = "";
  1913.                 $res = OK;
  1914.                 foreach my $lun (@{$storage->storageDeviceInfo->multipathInfo->lun})
  1915.                 {
  1916.                     foreach my $path (@{$lun->path})
  1917.                     {
  1918.                         my $status = UNKNOWN; # For unknown or other statuses
  1919.                         my $pathState = "unknown";
  1920.                         my $name = $path->name;

  1922.                         if (exists($path->{state}))
  1923.                         {
  1924.                             $pathState = $path->state;
  1925.                         }
  1926.                         else
  1927.                         {
  1928.                             $pathState = $path->pathState;
  1929.                         }

  1931.                         if (defined($blacklist) && ($blacklist =~ m/(^|\s|\t|,)\Q$name\E($|\s|\t|,)/))
  1932.                         {
  1933.                             $pathState = "ignored";
  1934.                             $count++;
  1935.                         }

  1937.                         $count++ if (uc($pathState) eq "ACTIVE");
  1938.                         $res = UNKNOWN if (uc($pathState) eq "UNKNOWN");
  1939.                         $output .= $name . " <" . $pathState . ">; ";
  1940.                     }
  1941.                 }
  1942.                 $np->add_perfdata(label => "paths", value => $count, uom => 'units', threshold => $np->threshold);
  1943.                 my $state = $np->check_threshold(check => $count);
  1944.                 $res = $state if ($state != OK);
  1945.             }
  1946.             else
  1947.             {
  1948.                 $output = "path info is unavailable on this host";
  1949.                 $res = UNKNOWN;
  1950.             }
  1951.         }
  1952.         else
  1953.         {
  1954.             $res = CRITICAL;
  1955.             $output = "HOST STORAGE - unknown subcommand\n" . $np->opts->_help;
  1956.         }
  1957.     }
  1958.     else
  1959.     {
  1960.         my $status = UNKNOWN;
  1961.         my $state = OK;
  1962.         $output = "";
  1963.         $res = OK;
  1964.         foreach my $dev (@{$storage->storageDeviceInfo->hostBusAdapter})
  1965.         {
  1966.             $status = UNKNOWN;
  1967.             if (uc($dev->status) eq "ONLINE")
  1968.             {
  1969.                 $status = OK;
  1970.                 $count++;
  1971.             }
  1972.             elsif (uc($dev->status) eq "OFFLINE")
  1973.             {
  1974.                 $status = CRITICAL;
  1975.             }
  1976.             elsif (uc($dev->status) eq "FAULT")
  1977.             {
  1978.                 $status = CRITICAL;
  1979.             }
  1980.             else
  1981.             {
  1982.                 $res = UNKNOWN;
  1983.             }
  1984.             $state = Nagios::Plugin::Functions::max_state($state, $status);
  1985.         }
  1986.         $np->add_perfdata(label => "adapters", value => $count, uom => 'units', threshold => $np->threshold);
  1987.         $output .= $count . "/" . @{$storage->storageDeviceInfo->hostBusAdapter} . " adapters online, ";

  1989.         $count = 0;
  1990.         foreach my $scsi (@{$storage->storageDeviceInfo->scsiLun})
  1991.         {
  1992.             $status = UNKNOWN;
  1993.             foreach (@{$scsi->operationalState})
  1994.             {
  1995.                 if (uc($_) eq "OK")
  1996.                 {
  1997.                     $status = OK;
  1998.                     $count++;
  1999.                 }
  2000.                 elsif (uc($_) eq "ERROR")
  2001.                 {
  2002.                     $status = CRITICAL;
  2003.                 }
  2004.                 elsif (uc($_) eq "UNKNOWNSTATE")
  2005.                 {
  2006.                     $status = UNKNOWN;
  2007.                 }
  2008.                 elsif (uc($_) eq "OFF")
  2009.                 {
  2010.                     $status = CRITICAL;
  2011.                 }
  2012.                 elsif (uc($_) eq "QUIESCED")
  2013.                 {
  2014.                     $status = WARNING;
  2015.                 }
  2016.                 elsif (uc($_) eq "DEGRADED")
  2017.                 {
  2018.                     $status = WARNING;
  2019.                 }
  2020.                 elsif (uc($_) eq "LOSTCOMMUNICATION")
  2021.                 {
  2022.                     $status = CRITICAL;
  2023.                 }
  2024.                 else
  2025.                 {
  2026.                     $res = UNKNOWN;
  2027.                     $status = UNKNOWN;
  2028.                 }
  2029.                 $state = Nagios::Plugin::Functions::max_state($state, $status);
  2030.             }
  2031.         }
  2032.         $np->add_perfdata(label => "LUNs", value => $count, uom => 'units', threshold => $np->threshold);
  2033.         $output .= $count . "/" . @{$storage->storageDeviceInfo->scsiLun} . " LUNs ok, ";

  2035.         if (exists($storage->storageDeviceInfo->{multipathInfo}))
  2036.         {
  2037.             $count = 0;
  2038.             my $amount = 0;
  2039.             foreach my $lun (@{$storage->storageDeviceInfo->multipathInfo->lun})
  2040.             {
  2041.                 foreach my $path (@{$lun->path})
  2042.                 {
  2043.                     my $status = UNKNOWN; # For unkonwn or other statuses
  2044.                     my $pathState = "unknown";
  2045.                     if (exists($path->{state}))
  2046.                     {
  2047.                         $pathState = $path->state;
  2048.                     }
  2049.                     else
  2050.                     {
  2051.                         $pathState = $path->pathState;
  2052.                     }

  2054.                     $status = UNKNOWN;
  2055.                     if (uc($pathState) eq "ACTIVE")
  2056.                     {
  2057.                         $status = OK;
  2058.                         $count++;
  2059.                     }
  2060.                     elsif (uc($pathState) eq "DISABLED")
  2061.                     {
  2062.                         $status = WARNING;
  2063.                     }
  2064.                     elsif (uc($pathState) eq "STANDBY")
  2065.                     {
  2066.                         $status = WARNING;
  2067.                     }
  2068.                     elsif (uc($pathState) eq "DEAD")
  2069.                     {
  2070.                         $status = CRITICAL;
  2071.                     }
  2072.                     else
  2073.                     {
  2074.                         $res = UNKNOWN;
  2075.                         $status = UNKNOWN;
  2076.                     }
  2077.                     $state = Nagios::Plugin::Functions::max_state($state, $status);
  2078.                     $amount++;
  2079.                 }
  2080.             }
  2081.             $np->add_perfdata(label => "paths", value => $count, uom => 'units', threshold => $np->threshold);
  2082.             $output .= $count . "/" . $amount . " paths active";
  2083.         }
  2084.         else
  2085.         {
  2086.             $output .= "no path info";
  2087.         }

  2089.         $res = $state if ($state != OK);
  2090.     }

  2092.     return ($res, $output);
  2093. }
  2094. #==========================================================================| VM |============================================================================#

  2096. sub vm_cpu_info
  2097. {
  2098.     my ($vmname, $np, $subcommand) = @_;

  2100.     my $res = CRITICAL;
  2101.     my $output = 'HOST-VM CPU Unknown error';

  2103.     if (defined($subcommand))
  2104.     {
  2105.         if ($subcommand eq "USAGE")
  2106.         {
  2107.             $values = return_host_vmware_performance_values($vmname, 'cpu', ('usage.average'));
  2108.             if (defined($values))
  2109.             {
  2110.                 my $value = simplify_number(convert_number($$values[0][0]->value) * 0.01);
  2111.                 $np->add_perfdata(label => "cpu_usage", value => $value, uom => '%', threshold => $np->threshold);
  2112.                 $output = "\"$vmname\" cpu usage=" . $value . " %";
  2113.                 $res = $np->check_threshold(check => $value);
  2114.             }
  2115.         }
  2116.         elsif ($subcommand eq "USAGEMHZ")
  2117.         {
  2118.             $values = return_host_vmware_performance_values($vmname, 'cpu', ('usagemhz.average'));
  2119.             if (defined($values))
  2120.             {
  2121.                 my $value = simplify_number(convert_number($$values[0][0]->value));
  2122.                 $np->add_perfdata(label => "cpu_usagemhz", value => $value, uom => 'Mhz', threshold => $np->threshold);
  2123.                 $output = "\"$vmname\" cpu usage=" . $value . " MHz";
  2124.                 $res = $np->check_threshold(check => $value);
  2125.             }
  2126.         }
  2127.         elsif ($subcommand eq "WAIT")
  2128.         {
  2129.             $values = return_host_vmware_performance_values($vmname, 'cpu', ('wait.summation:*'));
  2130.             if (defined($values))
  2131.             {
  2132.                 my $value = simplify_number(convert_number($$values[0][0]->value));
  2133.                 $np->add_perfdata(label => "cpu_wait", value => $value, uom => 'ms', threshold => $np->threshold);
  2134.                 $output = "\"$vmname\" cpu wait=" . $value . " ms";
  2135.                 $res = $np->check_threshold(check => $value);
  2136.             }
  2137.         }
  2138.         elsif ($subcommand eq "READY")
  2139.         {
  2140.             $values = return_host_vmware_performance_values($vmname, 'cpu', ('ready.summation:*'));
  2141.             if (defined($values))
  2142.             {
  2143.                 my $value = simplify_number(convert_number($$values[0][0]->value));
  2144.                 $np->add_perfdata(label => "cpu_ready", value => $value, uom => 'ms', threshold => $np->threshold);
  2145.                 $output = "\"$vmname\" cpu ready=" . $value . " ms";
  2146.                 $res = $np->check_threshold(check => $value);
  2147.             }
  2148.         }
  2149.         else
  2150.         {
  2151.             $res = CRITICAL;
  2152.             $output = "HOST-VM CPU - unknown subcommand\n" . $np->opts->_help;
  2153.         }
  2154.     }
  2155.     else
  2156.     {
  2157.         $values = return_host_vmware_performance_values($vmname, 'cpu', ('usagemhz.average', 'usage.average', 'wait.summation:*', 'ready.summation:*'));
  2158.         if (defined($values))
  2159.         {
  2160.             my $value1 = simplify_number(convert_number($$values[0][0]->value));
  2161.             my $value2 = simplify_number(convert_number($$values[0][1]->value) * 0.01);
  2162.             my $value3 = simplify_number(convert_number($$values[0][2]->value));
  2163.             my $value4 = simplify_number(convert_number($$values[0][3]->value));
  2164.             $np->add_perfdata(label => "cpu_usagemhz", value => $value1, uom => 'Mhz', threshold => $np->threshold);
  2165.             $np->add_perfdata(label => "cpu_usage", value => $value2, uom => '%', threshold => $np->threshold);
  2166.             $np->add_perfdata(label => "cpu_wait", value => $value3, uom => 'ms', threshold => $np->threshold);
  2167.             $np->add_perfdata(label => "cpu_ready", value => $value4, uom => 'ms', threshold => $np->threshold);
  2168.             $res = OK;
  2169.             $output = "\"$vmname\" cpu usage=" . $value1 . " MHz(" . $value2 . "%), wait=" . $value3 . " ms, ready=" . $value4 . " ms";
  2170.         }
  2171.     }

  2173.     return ($res, $output);
  2174. }

  2176. sub vm_mem_info
  2177. {
  2178.     my ($vmname, $np, $subcommand) = @_;

  2180.     my $res = CRITICAL;
  2181.     my $output = 'HOST-VM MEM Unknown error';

  2183.     if (defined($subcommand))
  2184.     {
  2185.         if ($subcommand eq "USAGE")
  2186.         {
  2187.             $values = return_host_vmware_performance_values($vmname, 'mem', ('usage.average'));
  2188.             if (defined($values))
  2189.             {
  2190.                 my $value = simplify_number(convert_number($$values[0][0]->value) * 0.01);
  2191.                 $np->add_perfdata(label => "mem_usage", value => $value, uom => '%', threshold => $np->threshold);
  2192.                 $output = "\"$vmname\" mem usage=" . $value . " %";
  2193.                 $res = $np->check_threshold(check => $value);
  2194.             }
  2195.         }
  2196.         elsif ($subcommand eq "USAGEMB")
  2197.         {
  2198.             $values = return_host_vmware_performance_values($vmname, 'mem', ('consumed.average'));
  2199.             if (defined($values))
  2200.             {
  2201.                 my $value = simplify_number(convert_number($$values[0][0]->value) / 1024);
  2202.                 $np->add_perfdata(label => "mem_usagemb", value => $value, uom => 'MB', threshold => $np->threshold);
  2203.                 $output = "\"$vmname\" mem usage=" . $value . " MB";
  2204.                 $res = $np->check_threshold(check => $value);
  2205.             }
  2206.         }
  2207.         elsif ($subcommand eq "SWAP")
  2208.         {
  2209.             $values = return_host_vmware_performance_values($vmname, 'mem', ('swapped.average'));
  2210.             if (defined($values))
  2211.             {
  2212.                 my $value = simplify_number(convert_number($$values[0][0]->value) / 1024);
  2213.                 $np->add_perfdata(label => "mem_swap", value => $value, uom => 'MB', threshold => $np->threshold);
  2214.                 $output = "\"$vmname\" swap usage=" . $value . " MB";
  2215.                 $res = $np->check_threshold(check => $value);
  2216.             }
  2217.         }
  2218.         elsif ($subcommand eq "SWAPIN")
  2219.         {
  2220.             $values = return_host_vmware_performance_values($vmname, 'mem', ('swapin.average'));
  2221.             if (defined($values))
  2222.             {
  2223.                 my $value = simplify_number(convert_number($$values[0][0]->value) / 1024);
  2224.                 $np->add_perfdata(label => "mem_swapin", value => $value, uom => 'MB', threshold => $np->threshold);
  2225.                 $output = "\"$vmname\" swapin=" . $value . " MB";
  2226.                 $res = $np->check_threshold(check => $value);
  2227.             }
  2228.         }
  2229.         elsif ($subcommand eq "SWAPOUT")
  2230.         {
  2231.             $values = return_host_vmware_performance_values($vmname, 'mem', ('swapout.average'));
  2232.             if (defined($values))
  2233.             {
  2234.                 my $value = simplify_number(convert_number($$values[0][0]->value) / 1024);
  2235.                 $np->add_perfdata(label => "mem_swapout", value => $value, uom => 'MB', threshold => $np->threshold);
  2236.                 $output = "\"$vmname\" swapout=" . $value . " MB";
  2237.                 $res = $np->check_threshold(check => $value);
  2238.             }
  2239.         }
  2240.         elsif ($subcommand eq "OVERHEAD")
  2241.         {
  2242.             $values = return_host_vmware_performance_values($vmname, 'mem', ('overhead.average'));
  2243.             if (defined($values))
  2244.             {
  2245.                 my $value = simplify_number(convert_number($$values[0][0]->value) / 1024);
  2246.                 $np->add_perfdata(label => "mem_overhead", value => $value, uom => 'MB', threshold => $np->threshold);
  2247.                 $output = "\"$vmname\" mem overhead=" . $value . " MB";
  2248.                 $res = $np->check_threshold(check => $value);
  2249.             }
  2250.         }
  2251.         elsif ($subcommand eq "OVERALL")
  2252.         {
  2253.             $values = return_host_vmware_performance_values($vmname, 'mem', ('consumed.average', 'overhead.average'));
  2254.             if (defined($values))
  2255.             {
  2256.                 my $value = simplify_number((convert_number($$values[0][0]->value) + convert_number($$values[0][1]->value)) / 1024);
  2257.                 $np->add_perfdata(label => "mem_overall", value => $value, uom => 'MB', threshold => $np->threshold);
  2258.                 $output = "\"$vmname\" mem overall=" . $value . " MB";
  2259.                 $res = $np->check_threshold(check => $value);
  2260.             }
  2261.         }
  2262.         elsif ($subcommand eq "ACTIVE")
  2263.         {
  2264.             $values = return_host_vmware_performance_values($vmname, 'mem', ('active.average'));
  2265.             if (defined($values))
  2266.             {
  2267.                 my $value = simplify_number(convert_number($$values[0][0]->value) / 1024);
  2268.                 $np->add_perfdata(label => "mem_active", value => $value, uom => 'MB', threshold => $np->threshold);
  2269.                 $output = "\"$vmname\" mem active=" . $value . " MB";
  2270.                 $res = $np->check_threshold(check => $value);
  2271.             }
  2272.         }
  2273.         elsif ($subcommand eq "MEMCTL")
  2274.         {
  2275.             $values = return_host_vmware_performance_values($vmname, 'mem', ('vmmemctl.average'));
  2276.             if (defined($values))
  2277.             {
  2278.                 my $value = simplify_number(convert_number($$values[0][0]->value) / 1024);
  2279.                 $np->add_perfdata(label => "mem_memctl", value => $value, uom => 'MB', threshold => $np->threshold);
  2280.                 $output = "\"$vmname\" mem memctl=" . $value . " MB";
  2281.                 $res = $np->check_threshold(check => $value);
  2282.             }
  2283.         }
  2284.         else
  2285.         {
  2286.             $res = CRITICAL;
  2287.             $output = "HOST-VM MEM - unknown subcommand\n" . $np->opts->_help;
  2288.         }
  2289.     }
  2290.     else
  2291.     {
  2292.         $values = return_host_vmware_performance_values($vmname, 'mem', ('consumed.average', 'usage.average', 'overhead.average', 'active.average', 'swapped.average', 'swapin.average', 'swapout.average', 'vmmemctl.average'));
  2293.         if (defined($values))
  2294.         {
  2295.             my $value1 = simplify_number(convert_number($$values[0][0]->value) / 1024);
  2296.             my $value2 = simplify_number(convert_number($$values[0][1]->value) * 0.01);
  2297.             my $value3 = simplify_number(convert_number($$values[0][2]->value) / 1024);
  2298.             my $value4 = simplify_number(convert_number($$values[0][3]->value) / 1024);
  2299.             my $value5 = simplify_number(convert_number($$values[0][4]->value) / 1024);
  2300.             my $value6 = simplify_number(convert_number($$values[0][5]->value) / 1024);
  2301.             my $value7 = simplify_number(convert_number($$values[0][6]->value) / 1024);
  2302.             my $value8 = simplify_number(convert_number($$values[0][7]->value) / 1024);
  2303.             $np->add_perfdata(label => "mem_usagemb", value => $value1, uom => 'MB', threshold => $np->threshold);
  2304.             $np->add_perfdata(label => "mem_usage", value => $value2, uom => '%', threshold => $np->threshold);
  2305.             $np->add_perfdata(label => "mem_overhead", value => $value3, uom => 'MB', threshold => $np->threshold);
  2306.             $np->add_perfdata(label => "mem_active", value => $value4, uom => 'MB', threshold => $np->threshold);
  2307.             $np->add_perfdata(label => "mem_swap", value => $value5, uom => 'MB', threshold => $np->threshold);
  2308.             $np->add_perfdata(label => "mem_swapin", value => $value6, uom => 'MB', threshold => $np->threshold);
  2309.             $np->add_perfdata(label => "mem_swapout", value => $value7, uom => 'MB', threshold => $np->threshold);
  2310.             $np->add_perfdata(label => "mem_memctl", value => $value8, uom => 'MB', threshold => $np->threshold);
  2311.             $res = OK;
  2312.             $output = "\"$vmname\" mem usage=" . $value1 . " MB(" . $value2 . "%), overhead=" . $value3 . " MB, active=" . $value4 . " MB, swapped=" . $value5 . " MB, swapin=" . $value6 . " MB, swapout=" . $value7 . " MB, memctl=" . $value8 . " MB";
  2313.         }
  2314.     }

  2316.     return ($res, $output);
  2317. }

  2319. sub vm_net_info
  2320. {
  2321.     my ($vmname, $np, $subcommand) = @_;

  2323.     my $res = CRITICAL;
  2324.     my $output = 'HOST-VM NET Unknown error';

  2326.     if (defined($subcommand))
  2327.     {
  2328.         if ($subcommand eq "USAGE")
  2329.         {
  2330.             $values = return_host_vmware_performance_values($vmname, 'net', ('usage.average:*'));
  2331.             if (defined($values))
  2332.             {
  2333.                 my $value = simplify_number(convert_number($$values[0][0]->value));
  2334.                 $np->add_perfdata(label => "net_usage", value => $value, uom => 'KBps', threshold => $np->threshold);
  2335.                 $output = "\"$vmname\" net usage=" . $value . " KBps";
  2336.                 $res = $np->check_threshold(check => $value);
  2337.             }
  2338.         }
  2339.         elsif ($subcommand eq "RECEIVE")
  2340.         {
  2341.             $values = return_host_vmware_performance_values($vmname, 'net', ('received.average:*'));
  2342.             if (defined($values))
  2343.             {
  2344.                 my $value = simplify_number(convert_number($$values[0][0]->value));
  2345.                 $np->add_perfdata(label => "net_receive", value => $value, uom => 'KBps', threshold => $np->threshold);
  2346.                 $output = "\"$vmname\" net receive=" . $value . " KBps";
  2347.                 $res = $np->check_threshold(check => $value);
  2348.             }
  2349.         }
  2350.         elsif ($subcommand eq "SEND")
  2351.         {
  2352.             $values = return_host_vmware_performance_values($vmname, 'net', ('transmitted.average:*'));
  2353.             if (defined($values))
  2354.             {
  2355.                 my $value = simplify_number(convert_number($$values[0][0]->value));
  2356.                 $np->add_perfdata(label => "net_send", value => $value, uom => 'KBps', threshold => $np->threshold);
  2357.                 $output = "\"$vmname\" net send=" . $value . " KBps";
  2358.                 $res = $np->check_threshold(check => $value);
  2359.             }
  2360.         }
  2361.         else
  2362.         {
  2363.             $res = CRITICAL;
  2364.             $output = "HOST-VM NET - unknown subcommand\n" . $np->opts->_help;
  2365.         }
  2366.     }
  2367.     else
  2368.     {
  2369.         $values = return_host_vmware_performance_values($vmname, 'net', ('received.average:*', 'transmitted.average:*'));
  2370.         if (defined($values))
  2371.         {
  2372.             my $value1 = simplify_number(convert_number($$values[0][0]->value));
  2373.             my $value2 = simplify_number(convert_number($$values[0][1]->value));
  2374.             $np->add_perfdata(label => "net_receive", value => $value1, uom => 'KBps', threshold => $np->threshold);
  2375.             $np->add_perfdata(label => "net_send", value => $value2, uom => 'KBps', threshold => $np->threshold);
  2376.             $res = OK;
  2377.             $output = "\"$vmname\" net receive=" . $value1 . " KBps, send=" . $value2 . " KBps";
  2378.         }
  2379.     }

  2381.     return ($res, $output);
  2382. }

  2384. sub vm_disk_io_info
  2385. {
  2386.     my ($vmname, $np, $subcommand) = @_;

  2388.     my $res = CRITICAL;
  2389.     my $output = 'HOST-VM IO Unknown error';

  2391.     if (defined($subcommand))
  2392.     {
  2393.         if ($subcommand eq "USAGE")
  2394.         {
  2395.             $values = return_host_vmware_performance_values($vmname, 'disk', ('usage.average:*'));
  2396.             if (defined($values))
  2397.             {
  2398.                 my $value = simplify_number(convert_number($$values[0][0]->value) / 1024);
  2399.                 $np->add_perfdata(label => "io_usage", value => $value, uom => 'MB', threshold => $np->threshold);
  2400.                 $output = "\"$vmname\" io usage=" . $value . " MB";
  2401.                 $res = $np->check_threshold(check => $value);
  2402.             }
  2403.         }
  2404.         elsif ($subcommand eq "READ")
  2405.         {
  2406.             $values = return_host_vmware_performance_values($vmname, 'disk', ('read.average:*'));
  2407.             if (defined($values))
  2408.             {
  2409.                 my $value = simplify_number(convert_number($$values[0][0]->value) / 1024);
  2410.                 $np->add_perfdata(label => "io_read", value => $value, uom => 'MB/s', threshold => $np->threshold);
  2411.                 $output = "\"$vmname\" io read=" . $value . " MB/s";
  2412.                 $res = $np->check_threshold(check => $value);
  2413.             }
  2414.         }
  2415.         elsif ($subcommand eq "WRITE")
  2416.         {
  2417.             $values = return_host_vmware_performance_values($vmname, 'disk', ('write.average:*'));
  2418.             if (defined($values))
  2419.             {
  2420.                 my $value = simplify_number(convert_number($$values[0][0]->value) / 1024);
  2421.                 $np->add_perfdata(label => "io_write", value => $value, uom => 'MB/s', threshold => $np->threshold);
  2422.                 $output = "\"$vmname\" io write=" . $value . " MB/s";
  2423.                 $res = $np->check_threshold(check => $value);
  2424.             }
  2425.         }
  2426.         else
  2427.         {
  2428.             $res = CRITICAL;
  2429.             $output = "HOST IO - unknown subcommand\n" . $np->opts->_help;
  2430.         }
  2431.     }
  2432.     else
  2433.     {
  2434.         $values = return_host_vmware_performance_values($vmname, 'disk', ('usage.average:*', 'read.average:*', 'write.average:*'));
  2435.         if (defined($values))
  2436.         {
  2437.             my $value1 = simplify_number(convert_number($$values[0][0]->value) / 1024);
  2438.             my $value2 = simplify_number(convert_number($$values[0][1]->value) / 1024);
  2439.             my $value3 = simplify_number(convert_number($$values[0][2]->value) / 1024);
  2440.             $np->add_perfdata(label => "io_usage", value => $value1, uom => 'MB', threshold => $np->threshold);
  2441.             $np->add_perfdata(label => "io_read", value => $value2, uom => 'MB/s', threshold => $np->threshold);
  2442.             $np->add_perfdata(label => "io_write", value => $value3, uom => 'MB/s', threshold => $np->threshold);
  2443.             $res = OK;
  2444.             $output = "\"$vmname\" io usage=" . $value1 . " MB, read=" . $value2 . " MB/s, write=" . $value3 . " MB/s";
  2445.         }
  2446.     }

  2448.     return ($res, $output);
  2449. }

  2451. sub vm_runtime_info
  2452. {
  2453.     my ($vmname, $np, $subcommand) = @_;

  2455.     my $res = CRITICAL;
  2456.     my $output = 'HOST-VM RUNTIME Unknown error';
  2457.     my $runtime;
  2458.     my $vm_view = Vim::find_entity_view(view_type => 'VirtualMachine', filter => {name => $vmname}, properties => ['name', 'runtime', 'overallStatus', 'guest', 'configIssue']);
  2459.     die "VMware machine \"" . $vmname . "\" does not exist\n" if (!defined($vm_view));
  2460.     $runtime = $vm_view->runtime;

  2462.     if (defined($subcommand))
  2463.     {
  2464.         if ($subcommand eq "CON")
  2465.         {
  2466.             $output = "\"$vmname\" connection state=" . $runtime->connectionState->val;
  2467.             $res = OK if ($runtime->connectionState->val eq "connected");
  2468.         }
  2469.         elsif ($subcommand eq "CPU")
  2470.         {
  2471.             $output = "\"$vmname\" max cpu=" . $runtime->maxCpuUsage . " MHz";
  2472.             $res = OK;
  2473.         }
  2474.         elsif ($subcommand eq "MEM")
  2475.         {
  2476.             $output = "\"$vmname\" max mem=" . $runtime->maxMemoryUsage . " MB";
  2477.             $res = OK;
  2478.         }
  2479.         elsif ($subcommand eq "STATE")
  2480.         {
  2481.             my %vm_state_strings = ("poweredOn" => "UP", "poweredOff" => "DOWN", "suspended" => "SUSPENDED");
  2482.             my $state = $vm_state_strings{$runtime->powerState->val};
  2483.             $output = "\"$vmname\" run state=" . $state;
  2484.             $res = OK if ($state eq "UP");
  2485.         }
  2486.         elsif ($subcommand eq "STATUS")
  2487.         {
  2488.             my $status = $vm_view->overallStatus->val;
  2489.             $output = "\"$vmname\" overall status=" . $status;
  2490.             $res = check_health_state($status);
  2491.         }
  2492.         elsif ($subcommand eq "CONSOLECONNECTIONS")
  2493.         {
  2494.             $output = "\"$vmname\" console connections=" . $runtime->numMksConnections;
  2495.             $res = $np->check_threshold(check => $runtime->numMksConnections);
  2496.         }
  2497.         elsif ($subcommand eq "GUEST")
  2498.         {
  2499.             my %vm_guest_state = ("running" => "Running", "notRunning" => "Not running", "shuttingDown" => "Shutting down", "resetting" => "Resetting", "standby" => "Standby", "unknown" => "Unknown");
  2500.             my $state = $vm_guest_state{$vm_view->guest->guestState};
  2501.             $output = "\"$vmname\" guest state=" . $state;
  2502.             $res = OK if ($state eq "Running");
  2503.         }
  2504.         elsif ($subcommand eq "TOOLS")
  2505.         {
  2506.             my $tools_status;
  2507.             my $tools_runstate;
  2508.             my $tools_version;
  2509.             $tools_runstate = $vm_view->guest->toolsRunningStatus if (exists($vm_view->guest->{toolsRunningStatus}) && defined($vm_view->guest->toolsRunningStatus));
  2510.             $tools_version = $vm_view->guest->toolsVersionStatus if (exists($vm_view->guest->{toolsVersionStatus}) && defined($vm_view->guest->toolsVersionStatus));

  2512.             if (defined($tools_runstate) || defined($tools_version))
  2513.             {
  2514.                 my %vm_tools_strings = ("guestToolsCurrent" => "Newest", "guestToolsNeedUpgrade" => "Old", "guestToolsNotInstalled" => "Not installed", "guestToolsUnmanaged" => "Unmanaged", "guestToolsExecutingScripts" => "Starting", "guestToolsNotRunning" => "Not running", "guestToolsRunning" => "Running");
  2515.                 $tools_status = $vm_tools_strings{$tools_runstate} . "-" if (defined($tools_runstate));
  2516.                 $tools_status .= $vm_tools_strings{$tools_version} . "-" if (defined($tools_version));
  2517.                 chop($tools_status);
  2518.                 $res = OK if (($tools_status eq "Running-Newest") || ($tools_status eq "Running-Unmanaged"));
  2519.             }
  2520.             else
  2521.             {
  2522.                 my %vm_tools_strings = ("toolsNotInstalled" => "Not installed", "toolsNotRunning" => "Not running", "toolsOk" => "OK", "toolsOld" => "Old", "notDefined" => "Not defined");
  2523.                 $tools_status = $vm_view->guest->toolsStatus;
  2524.                 if (defined($tools_status))
  2525.                 {
  2526.                     $tools_status = $vm_tools_strings{$tools_status->val};
  2527.                 }
  2528.                 else
  2529.                 {
  2530.                     $tools_status = $vm_tools_strings{"notDefined"};
  2531.                 }
  2532.                 $res = OK if ($tools_status eq "OK");
  2533.             }
  2534.             $output = "\"$vmname\" tools status=" . $tools_status;
  2535.         }
  2536.         elsif ($subcommand eq "ISSUES")
  2537.         {
  2538.             my $issues = $vm_view->configIssue;

  2540.             if (defined($issues))
  2541.             {
  2542.                 $output = "\"$vmname\": ";
  2543.                 foreach (@$issues)
  2544.                 {
  2545.                     $output .= $_->fullFormattedMessage . "(caused by " . $_->userName . "); ";
  2546.                 }
  2547.             }
  2548.             else
  2549.             {
  2550.                 $res = OK;
  2551.                 $output = "\"$vmname\" has no config issues";
  2552.             }
  2553.         }
  2554.         else
  2555.         {
  2556.             $res = CRITICAL;
  2557.             $output = "HOST-VM RUNTIME - unknown subcommand\n" . $np->opts->_help;
  2558.         }
  2559.     }
  2560.     else
  2561.     {
  2562.         my %vm_state_strings = ("poweredOn" => "UP", "poweredOff" => "DOWN", "suspended" => "SUSPENDED");
  2563.         my %vm_tools_status = ("toolsNotInstalled" => "Not installed", "toolsNotRunning" => "Not running", "toolsOk" => "OK", "toolsOld" => "Old");
  2564.         my %vm_guest_state = ("running" => "Running", "notRunning" => "Not running", "shuttingDown" => "Shutting down", "resetting" => "Resetting", "standby" => "Standby", "unknown" => "Unknown");
  2565.         $res = OK;
  2566.         $output = "\"$vmname\" status=" . $vm_view->overallStatus->val . ", run state=" . $vm_state_strings{$runtime->powerState->val} . ", guest state=" . $vm_guest_state{$vm_view->guest->guestState} . ", max cpu=" . $runtime->maxCpuUsage . " MHz, max mem=" . $runtime->maxMemoryUsage . " MB, console connections=" . $runtime->numMksConnections . ", tools status=" . $vm_tools_status{$vm_view->guest->toolsStatus->val} . ", ";
  2567.         my $issues = $vm_view->configIssue;
  2568.         if (defined($issues))
  2569.         {
  2570.             $output .= @$issues . " config issue(s)";
  2571.         }
  2572.         else
  2573.         {
  2574.             $output .= "has no config issues";
  2575.         }
  2576.     }

  2578.     return ($res, $output);
  2579. }

  2581. #==========================================================================| DC |============================================================================#

  2583. sub return_cluster_DRS_recommendations {
  2584.     my ($np, $cluster_name) = @_;
  2585.     my $res = OK;
  2586.     my $output;
  2587.     my @clusters;

  2589.     if (defined($cluster_name))
  2590.     {
  2591.         my $cluster = Vim::find_entity_view(view_type => 'ClusterComputeResource', filter => $cluster_name, properties => ['name', 'recommendation']);
  2592.         die "cluster \"" . $$cluster_name{"name"} . "\" does not exist\n" if (!defined($cluster));
  2593.         push(@clusters, $cluster);
  2594.     }
  2595.     else
  2596.     {
  2597.         my $cluster = Vim::find_entity_views(view_type => 'ClusterComputeResource', properties => ['name', 'recommendation']);
  2598.         die "Runtime error\n" if (!defined($cluster));
  2599.         die "There are no clusters\n" if (!@$cluster);
  2600.         @clusters = @$cluster;
  2601.     }

  2603.     my $rec_count = 0;
  2604.     foreach my $cluster_view (@clusters)
  2605.     {
  2606.         my ($recommends) = $cluster_view->recommendation;
  2607.         if (defined($recommends))
  2608.         {
  2609.             my $value = 0;
  2610.             foreach my $recommend (@$recommends)
  2611.             {
  2612.                 $value = $recommend->rating if ($recommend->rating > $value);
  2613.                 $output .= "(" . $recommend->rating . ") " . $recommend->reason . " : " . $recommend->reasonText . "; ";
  2614.             }
  2615.             $rec_count += @$recommends;
  2616.             $res = $np->check_threshold(check => $value);
  2617.         }
  2618.     }

  2620.     if (defined($output))
  2621.     {
  2622.         $output = "Recommendations:" . $output;
  2623.     }
  2624.     else
  2625.     {
  2626.         $output = "No recommendations";
  2627.     }

  2629.     $np->add_perfdata(label => "recommendations", value => $rec_count);

  2631.     return ($res, $output);
  2632. }

  2634. sub dc_cpu_info
  2635. {
  2636.     my ($np, $subcommand, $addopts) = @_;

  2638.     my $res = CRITICAL;
  2639.     my $output = 'DC CPU Unknown error';

  2641.     my $quickStats;
  2642.     $quickStats = $addopts =~ m/(^|\s|\t|,)\Qquickstats\E($|\s|\t|,)/ if (defined($addopts));

  2644.     if (defined($subcommand))
  2645.     {
  2646.         if ($subcommand eq "USAGE")
  2647.         {
  2648.             my $value;
  2649.             if (defined($quickStats))
  2650.             {
  2651.                 my $host_views = Vim::find_entity_views(view_type => 'HostSystem', properties => ['name', 'summary.hardware', 'summary.quickStats']);
  2652.                 die "Runtime error\n" if (!defined($host_views));
  2653.                 die "Datacenter does not contain any hosts\n" if (!@$host_views);
  2654.                 foreach my $host_view (@$host_views)
  2655.                 {
  2656.                     $values = $host_view->get_property('summary.quickStats');
  2657.                     my $hardinfo = $host_view->get_property('summary.hardware');
  2658.                     die "Can not retrieve required information from Host '" . $host_view->name . "'\n" if !(exists($values->{overallCpuUsage}) && defined($hardinfo));
  2659.                     $value += $values->overallCpuUsage / ($hardinfo->numCpuCores * $hardinfo->cpuMhz) * 100;
  2660.                 }
  2661.                 $value = simplify_number($value / @$host_views);
  2662.             }
  2663.             else
  2664.             {
  2665.                 $values = return_dc_performance_values('cpu', ('usage.average'));
  2666.                 grep($value += convert_number($$_[0]->value) * 0.01, @$values) if (defined($values));
  2667.                 $value = simplify_number($value / @$values) if (defined($value));
  2668.             }
  2669.             if (defined($value))
  2670.             {
  2671.                 $np->add_perfdata(label => "cpu_usage", value => $value, uom => '%', threshold => $np->threshold);
  2672.                 $output = "cpu usage=" . $value . " %";
  2673.                 $res = $np->check_threshold(check => $value);
  2674.             }
  2675.         }
  2676.         elsif ($subcommand eq "USAGEMHZ")
  2677.         {
  2678.             my $value;
  2679.             if (defined($quickStats))
  2680.             {
  2681.                 my $host_views = Vim::find_entity_views(view_type => 'HostSystem', properties => ['name', 'summary.quickStats']);
  2682.                 die "Runtime error\n" if (!defined($host_views));
  2683.                 die "Datacenter does not contain any hosts\n" if (!@$host_views);
  2684.                 foreach my $host_view (@$host_views)
  2685.                 {
  2686.                     $values = $host_view->get_property('summary.quickStats');
  2687.                     die "Can not retrieve required information from Host '" . $host_view->name . "'\n" if !(exists($values->{overallCpuUsage}));
  2688.                     $value += $values->overallCpuUsage;
  2689.                 }
  2690.                 $value = simplify_number($value);
  2691.             }
  2692.             else
  2693.             {
  2694.                 $values = return_dc_performance_values('cpu', ('usagemhz.average'));
  2695.                 grep($value += convert_number($$_[0]->value), @$values);
  2696.                 $value = simplify_number($value) if (defined($value));
  2697.             }
  2698.             if (defined($value))
  2699.             {
  2700.                 $np->add_perfdata(label => "cpu_usagemhz", value => $value, uom => 'Mhz', threshold => $np->threshold);
  2701.                 $output = "cpu usagemhz=" . $value . " MHz";
  2702.                 $res = $np->check_threshold(check => $value);
  2703.             }
  2704.         }
  2705.         else
  2706.         {
  2707.             $res = CRITICAL;
  2708.             $output = "DC CPU - unknown subcommand\n" . $np->opts->_help;
  2709.         }
  2710.     }
  2711.     else
  2712.     {
  2713.         my $value1 = 0;
  2714.         my $value2 = 0;
  2715.         if (defined($quickStats))
  2716.         {
  2717.             my $host_views = Vim::find_entity_views(view_type => 'HostSystem', properties => ['name', 'summary.hardware', 'summary.quickStats']);
  2718.             die "Runtime error\n" if (!defined($host_views));
  2719.             die "Datacenter does not contain any hosts\n" if (!@$host_views);
  2720.             foreach my $host_view (@$host_views)
  2721.             {
  2722.                 $values = $host_view->get_property('summary.quickStats');
  2723.                 my $hardinfo = $host_view->get_property('summary.hardware');
  2724.                 die "Can not retrieve required information from Host '" . $host_view->name . "'\n" if !(exists($values->{overallCpuUsage}) && defined($hardinfo));
  2725.                 $value1 += $values->overallCpuUsage;
  2726.                 $value2 += $values->overallCpuUsage / ($hardinfo->numCpuCores * $hardinfo->cpuMhz) * 100;
  2727.             }
  2728.             $value1 = simplify_number($value1);
  2729.             $value2 = simplify_number($value2 / @$host_views);
  2730.         }
  2731.         else
  2732.         {
  2733.             $values = return_dc_performance_values('cpu', ('usagemhz.average', 'usage.average'));
  2734.             grep($value1 += convert_number($$_[0]->value), @$values);
  2735.             grep($value2 += convert_number($$_[1]->value) * 0.01, @$values);
  2736.             $value1 = simplify_number($value1);
  2737.             $value2 = simplify_number($value2 / @$values);
  2738.         }
  2739.         if (defined($value1) && defined($value2))
  2740.         {
  2741.             $np->add_perfdata(label => "cpu_usagemhz", value => $value1, uom => 'Mhz', threshold => $np->threshold);
  2742.             $np->add_perfdata(label => "cpu_usage", value => $value2, uom => '%', threshold => $np->threshold);
  2743.             $res = OK;
  2744.             $output = "cpu usage=" . $value1 . " MHz (" . $value2 . "%)";
  2745.         }
  2746.     }

  2748.     return ($res, $output);
  2749. }

  2751. sub dc_mem_info
  2752. {
  2753.     my ($np, $subcommand, $addopts) = @_;

  2755.     my $res = CRITICAL;
  2756.     my $output = 'DC MEM Unknown error';

  2758.     my $quickStats;
  2759.     $quickStats = $addopts =~ m/(^|\s|\t|,)\Qquickstats\E($|\s|\t|,)/ if (defined($addopts));

  2761.     if (defined($subcommand))
  2762.     {
  2763.         if ($subcommand eq "USAGE")
  2764.         {
  2765.             my $value;
  2766.             if (defined($quickStats))
  2767.             {
  2768.                 my $host_views = Vim::find_entity_views(view_type => 'HostSystem', properties => ['name', 'summary.hardware', 'summary.quickStats']);
  2769.                 die "Runtime error\n" if (!defined($host_views));
  2770.                 die "Datacenter does not contain any hosts\n" if (!@$host_views);
  2771.                 foreach my $host_view (@$host_views)
  2772.                 {
  2773.                     $values = $host_view->get_property('summary.quickStats');
  2774.                     my $hardinfo = $host_view->get_property('summary.hardware');
  2775.                     die "Can not retrieve required information from Host '" . $host_view->name . "'\n" if !(exists($values->{overallMemoryUsage}) && defined($hardinfo));
  2776.                     $value += $values->overallMemoryUsage / ($hardinfo->memorySize / 1024 / 1024) * 100;
  2777.                 }
  2778.                 $value = simplify_number($value);
  2779.             }
  2780.             else
  2781.             {
  2782.                 $values = return_dc_performance_values('mem', ('usage.average'));
  2783.                 grep($value += convert_number($$_[0]->value) * 0.01, @$values);
  2784.                 $value = simplify_number($value / @$values) if (defined($value));
  2785.             }
  2786.             if (defined($value))
  2787.             {
  2788.                 $np->add_perfdata(label => "mem_usage", value => $value, uom => '%', threshold => $np->threshold);
  2789.                 $output = "mem usage=" . $value . " %";
  2790.                 $res = $np->check_threshold(check => $value);
  2791.             }
  2792.         }
  2793.         elsif ($subcommand eq "USAGEMB")
  2794.         {
  2795.             my $value;
  2796.             if (defined($quickStats))
  2797.             {
  2798.                 my $host_views = Vim::find_entity_views(view_type => 'HostSystem', properties => ['name', 'summary.quickStats']);
  2799.                 die "Runtime error\n" if (!defined($host_views));
  2800.                 die "Datacenter does not contain any hosts\n" if (!@$host_views);
  2801.                 foreach my $host_view (@$host_views)
  2802.                 {
  2803.                     $values = $host_view->get_property('summary.quickStats');
  2804.                     die "Can not retrieve required information from Host '" . $host_view->name . "'\n" if !(exists($values->{overallMemoryUsage}));
  2805.                     $value += $values->overallMemoryUsage;
  2806.                 }
  2807.                 $value = simplify_number($value);
  2808.             }
  2809.             else
  2810.             {
  2811.                 $values = return_dc_performance_values('mem', ('consumed.average'));
  2812.                 grep($value += convert_number($$_[0]->value) / 1024, @$values);
  2813.                 $value = simplify_number($value) if (defined($value));
  2814.             }
  2815.             if (defined($value))
  2816.             {
  2817.                 $np->add_perfdata(label => "mem_usagemb", value => $value, uom => 'MB', threshold => $np->threshold);
  2818.                 $output = "mem usage=" . $value . " MB";
  2819.                 $res = $np->check_threshold(check => $value);
  2820.             }
  2821.         }
  2822.         elsif ($subcommand eq "SWAP")
  2823.         {
  2824.             $values = return_dc_performance_values('mem', ('swapused.average'));
  2825.             if (defined($values))
  2826.             {
  2827.                 my $value = 0;
  2828.                 grep($value += convert_number($$_[0]->value) / 1024, @$values);
  2829.                 $value = simplify_number($value);
  2830.                 $np->add_perfdata(label => "mem_swap", value => $value, uom => 'MB', threshold => $np->threshold);
  2831.                 $output = "swap usage=" . $value . " MB";
  2832.                 $res = $np->check_threshold(check => $value);
  2833.             }
  2834.         }
  2835.         elsif ($subcommand eq "OVERHEAD")
  2836.         {
  2837.             $values = return_dc_performance_values('mem', ('overhead.average'));
  2838.             if (defined($values))
  2839.             {
  2840.                 my $value = 0;
  2841.                 grep($value += convert_number($$_[0]->value) / 1024, @$values);
  2842.                 $value = simplify_number($value);
  2843.                 $np->add_perfdata(label => "mem_overhead", value => $value, uom => 'MB', threshold => $np->threshold);
  2844.                 $output = "overhead=" . $value . " MB";
  2845.                 $res = $np->check_threshold(check => $value);
  2846.             }
  2847.         }
  2848.         elsif ($subcommand eq "OVERALL")
  2849.         {
  2850.             $values = return_dc_performance_values('mem', ('consumed.average', 'overhead.average'));
  2851.             if (defined($values))
  2852.             {
  2853.                 my $value = 0;
  2854.                 grep($value += (convert_number($$_[0]->value) + convert_number($$_[1]->value)) / 1024, @$values);
  2855.                 $value = simplify_number($value);
  2856.                 $np->add_perfdata(label => "mem_overall", value => $value, uom => 'MB', threshold => $np->threshold);
  2857.                 $output = "overall=" . $value . " MB";
  2858.                 $res = $np->check_threshold(check => $value);
  2859.             }
  2860.         }
  2861.         elsif ($subcommand eq "MEMCTL")
  2862.         {
  2863.             $values = return_dc_performance_values('mem', ('vmmemctl.average'));
  2864.             if (defined($values))
  2865.             {
  2866.                 my $value = 0;
  2867.                 grep($value += convert_number($$_[0]->value) / 1024, @$values);
  2868.                 $value = simplify_number($value);
  2869.                 $np->add_perfdata(label => "mem_memctl", value => $value, uom => 'MB', threshold => $np->threshold);
  2870.                 $output = "memctl=" . $value . " MB";
  2871.                 $res = $np->check_threshold(check => $value);
  2872.             }
  2873.         }
  2874.         else
  2875.         {
  2876.             $res = CRITICAL;
  2877.             $output = "DC MEM - unknown subcommand\n" . $np->opts->_help;
  2878.         }
  2879.     }
  2880.     else
  2881.     {
  2882.         $values = return_dc_performance_values('mem', ('consumed.average', 'usage.average', 'overhead.average', 'swapused.average', 'vmmemctl.average'));
  2883.         if (defined($values))
  2884.         {
  2885.             my $value1 = 0;
  2886.             my $value2 = 0;
  2887.             my $value3 = 0;
  2888.             my $value4 = 0;
  2889.             my $value5 = 0;
  2890.             grep($value1 += convert_number($$_[0]->value) / 1024, @$values);
  2891.             grep($value2 += convert_number($$_[1]->value) * 0.01, @$values);
  2892.             grep($value3 += convert_number($$_[2]->value) / 1024, @$values);
  2893.             grep($value4 += convert_number($$_[3]->value) / 1024, @$values);
  2894.             grep($value5 += convert_number($$_[4]->value) / 1024, @$values);
  2895.             $value1 = simplify_number($value1);
  2896.             $value2 = simplify_number($value2 / @$values);
  2897.             $value3 = simplify_number($value3);
  2898.             $value4 = simplify_number($value4);
  2899.             $value5 = simplify_number($value5);
  2900.             $np->add_perfdata(label => "mem_usagemb", value => $value1, uom => 'MB', threshold => $np->threshold);
  2901.             $np->add_perfdata(label => "mem_usage", value => $value2, uom => '%', threshold => $np->threshold);
  2902.             $np->add_perfdata(label => "mem_overhead", value => $value3, uom => 'MB', threshold => $np->threshold);
  2903.             $np->add_perfdata(label => "mem_swap", value => $value4, uom => 'MB', threshold => $np->threshold);
  2904.             $np->add_perfdata(label => "mem_memctl", value => $value5, uom => 'MB', threshold => $np->threshold);
  2905.             $res = OK;
  2906.             $output = "mem usage=" . $value1 . " MB (" . $value2 . "%), overhead=" . $value3 . " MB, swapped=" . $value4 . " MB, memctl=" . $value5 . " MB";
  2907.         }
  2908.     }

  2910.     return ($res, $output);
  2911. }

  2913. sub dc_net_info
  2914. {
  2915.     my ($np, $subcommand) = @_;

  2917.     my $res = CRITICAL;
  2918.     my $output = 'DC NET Unknown error';

  2920.     if (defined($subcommand))
  2921.     {
  2922.         if ($subcommand eq "USAGE")
  2923.         {
  2924.             $values = return_dc_performance_values('net', ('usage.average:*'));
  2925.             if (defined($values))
  2926.             {
  2927.                 my $value = 0;
  2928.                 grep($value += convert_number($$_[0]->value), @$values);
  2929.                 $value = simplify_number($value);
  2930.                 $np->add_perfdata(label => "net_usage", value => $value, uom => 'KBps', threshold => $np->threshold);
  2931.                 $output = "net usage=" . $value . " KBps";
  2932.                 $res = $np->check_threshold(check => $value);
  2933.             }
  2934.         }
  2935.         elsif ($subcommand eq "RECEIVE")
  2936.         {
  2937.             $values = return_dc_performance_values('net', ('received.average:*'));
  2938.             if (defined($values))
  2939.             {
  2940.                 my $value = 0;
  2941.                 grep($value += convert_number($$_[0]->value), @$values);
  2942.                 $value = simplify_number($value);
  2943.                 $np->add_perfdata(label => "net_receive", value => $value, uom => 'KBps', threshold => $np->threshold);
  2944.                 $output = "net receive=" . $value . " KBps";
  2945.                 $res = $np->check_threshold(check => $value);
  2946.             }
  2947.         }
  2948.         elsif ($subcommand eq "SEND")
  2949.         {
  2950.             $values = return_dc_performance_values('net', ('transmitted.average:*'));
  2951.             if (defined($values))
  2952.             {
  2953.                 my $value = 0;
  2954.                 grep($value += convert_number($$_[0]->value), @$values);
  2955.                 $value = simplify_number($value);
  2956.                 $np->add_perfdata(label => "net_send", value => $value, uom => 'KBps', threshold => $np->threshold);
  2957.                 $output = "net send=" . $value . " KBps";
  2958.                 $res = $np->check_threshold(check => $value);
  2959.             }
  2960.         }
  2961.         else
  2962.         {
  2963.             $res = CRITICAL;
  2964.             $output = "DC NET - unknown subcommand\n" . $np->opts->_help;
  2965.         }
  2966.     }
  2967.     else
  2968.     {
  2969.         $values = return_dc_performance_values('net', ('received.average:*', 'transmitted.average:*'));
  2970.         if (defined($values))
  2971.         {
  2972.             my $value1 = 0;
  2973.             my $value2 = 0;
  2974.             grep($value1 += convert_number($$_[0]->value), @$values);
  2975.             grep($value2 += convert_number($$_[1]->value), @$values);
  2976.             $value1 = simplify_number($value1);
  2977.             $value2 = simplify_number($value2);
  2978.             $np->add_perfdata(label => "net_receive", value => $value1, uom => 'KBps', threshold => $np->threshold);
  2979.             $np->add_perfdata(label => "net_send", value => $value2, uom => 'KBps', threshold => $np->threshold);
  2980.             $res = OK;
  2981.             $output = "net receive=" . $value1 . " KBps, send=" . $value2 . " KBps";
  2982.         }
  2983.     }

  2985.     return ($res, $output);
  2986. }

  2988. sub dc_list_vm_volumes_info
  2989. {
  2990.     my ($np, $subcommand, $blacklist, $perc, $addopts) = @_;

  2992.     my $host_views = Vim::find_entity_views(view_type => 'HostSystem', properties => ['name', 'datastore']);
  2993.     die "Runtime error\n" if (!defined($host_views));
  2994.     die "Datacenter does not contain any hosts\n" if (!@$host_views);

  2996.     my @datastores;
  2997.     foreach my $host (@$host_views)
  2998.     {
  2999.         push(@datastores, @{$host->datastore});
  3000.     }
  3001.     return datastore_volumes_info(\@datastores, $np, $subcommand, $blacklist, $perc, $addopts);
  3002. }

  3004. sub dc_disk_io_info
  3005. {
  3006.     my ($np, $subcommand) = @_;

  3008.     my $res = CRITICAL;
  3009.     my $output = 'DC IO Unknown error';

  3011.     if (defined($subcommand))
  3012.     {
  3013.         if ($subcommand eq "ABORTED")
  3014.         {
  3015.             $values = return_dc_performance_values('disk', ('commandsAborted.summation:*'));
  3016.             if (defined($values))
  3017.             {
  3018.                 my $value = 0;
  3019.                 grep($value += convert_number($$_[0]->value), @$values);
  3020.                 $value = simplify_number($value, 0);
  3021.                 $np->add_perfdata(label => "io_aborted", value => $value, threshold => $np->threshold);
  3022.                 $output = "io commands aborted=" . $value;
  3023.                 $res = $np->check_threshold(check => $value);
  3024.             }
  3025.         }
  3026.         elsif ($subcommand eq "RESETS")
  3027.         {
  3028.             $values = return_dc_performance_values('disk', ('busResets.summation:*'));
  3029.             if (defined($values))
  3030.             {
  3031.                 my $value = 0;
  3032.                 grep($value += convert_number($$_[0]->value), @$values);
  3033.                 $value = simplify_number($value, 0);
  3034.                 $np->add_perfdata(label => "io_busresets", value => $value, threshold => $np->threshold);
  3035.                 $output = "io bus resets=" . $value;
  3036.                 $res = $np->check_threshold(check => $value);
  3037.             }
  3038.         }
  3039.         elsif ($subcommand eq "READ")
  3040.         {
  3041.             $values = return_dc_performance_values('disk', ('totalReadLatency.average:*'));
  3042.             if (defined($values))
  3043.             {
  3044.                 my $value = 0;
  3045.                 grep($value += convert_number($$_[0]->value), @$values);
  3046.                 $value = simplify_number($value, 0);
  3047.                 $np->add_perfdata(label => "io_read", value => $value, uom => 'ms', threshold => $np->threshold);
  3048.                 $output = "io read latency=" . $value . " ms";
  3049.                 $res = $np->check_threshold(check => $value);
  3050.             }
  3051.         }
  3052.         elsif ($subcommand eq "WRITE")
  3053.         {
  3054.             $values = return_dc_performance_values('disk', ('totalWriteLatency.average:*'));
  3055.             if (defined($values))
  3056.             {
  3057.                 my $value = 0;
  3058.                 grep($value += convert_number($$_[0]->value), @$values);
  3059.                 $value = simplify_number($value, 0);
  3060.                 $np->add_perfdata(label => "io_write", value => $value, uom => 'ms', threshold => $np->threshold);
  3061.                 $output = "io write latency=" . $value . " ms";
  3062.                 $res = $np->check_threshold(check => $value);
  3063.             }
  3064.         }
  3065.         elsif ($subcommand eq "KERNEL")
  3066.         {
  3067.             $values = return_dc_performance_values('disk', ('kernelLatency.average:*'));
  3068.             if (defined($values))
  3069.             {
  3070.                 my $value = 0;
  3071.                 grep($value += convert_number($$_[0]->value), @$values);
  3072.                 $value = simplify_number($value, 0);
  3073.                 $np->add_perfdata(label => "io_kernel", value => $value, uom => 'ms', threshold => $np->threshold);
  3074.                 $output = "io kernel latency=" . $value . " ms";
  3075.                 $res = $np->check_threshold(check => $value);
  3076.             }
  3077.         }
  3078.         elsif ($subcommand eq "DEVICE")
  3079.         {
  3080.             $values = return_dc_performance_values('disk', ('deviceLatency.average:*'));
  3081.             if (defined($values))
  3082.             {
  3083.                 my $value = 0;
  3084.                 grep($value += convert_number($$_[0]->value), @$values);
  3085.                 $value = simplify_number($value, 0);
  3086.                 $np->add_perfdata(label => "io_device", value => $value, uom => 'ms', threshold => $np->threshold);
  3087.                 $output = "io device latency=" . $value . " ms";
  3088.                 $res = $np->check_threshold(check => $value);
  3089.             }
  3090.         }
  3091.         elsif ($subcommand eq "QUEUE")
  3092.         {
  3093.             $values = return_dc_performance_values('disk', ('queueLatency.average:*'));
  3094.             if (defined($values))
  3095.             {
  3096.                 my $value = 0;
  3097.                 grep($value += convert_number($$_[0]->value), @$values);
  3098.                 $value = simplify_number($value, 0);
  3099.                 $np->add_perfdata(label => "io_queue", value => $value, uom => 'ms', threshold => $np->threshold);
  3100.                 $output = "io queue latency=" . $value . " ms";
  3101.                 $res = $np->check_threshold(check => $value);
  3102.             }
  3103.         }
  3104.         else
  3105.         {
  3106.             $res = CRITICAL;
  3107.             $output = "DC IO - unknown subcommand\n" . $np->opts->_help;
  3108.         }
  3109.     }
  3110.     else
  3111.     {
  3112.         $values = return_dc_performance_values('disk', ('commandsAborted.summation:*', 'busResets.summation:*', 'totalReadLatency.average:*', 'totalWriteLatency.average:*', 'kernelLatency.average:*', 'deviceLatency.average:*', 'queueLatency.average:*'));
  3113.         if (defined($values))
  3114.         {
  3115.             my $value1 = 0;
  3116.             my $value2 = 0;
  3117.             my $value3 = 0;
  3118.             my $value4 = 0;
  3119.             my $value5 = 0;
  3120.             my $value6 = 0;
  3121.             my $value7 = 0;
  3122.             grep($value1 += convert_number($$_[0]->value), @$values);
  3123.             grep($value2 += convert_number($$_[1]->value), @$values);
  3124.             grep($value3 += convert_number($$_[2]->value), @$values);
  3125.             grep($value4 += convert_number($$_[3]->value), @$values);
  3126.             grep($value5 += convert_number($$_[4]->value), @$values);
  3127.             grep($value6 += convert_number($$_[5]->value), @$values);
  3128.             grep($value7 += convert_number($$_[6]->value), @$values);
  3129.             $value1 = simplify_number($value1, 0);
  3130.             $value2 = simplify_number($value2, 0);
  3131.             $value3 = simplify_number($value3, 0);
  3132.             $value4 = simplify_number($value4, 0);
  3133.             $value5 = simplify_number($value5, 0);
  3134.             $value6 = simplify_number($value6, 0);
  3135.             $value7 = simplify_number($value7, 0);
  3136.             $np->add_perfdata(label => "io_aborted", value => $value1, threshold => $np->threshold);
  3137.             $np->add_perfdata(label => "io_busresets", value => $value2, threshold => $np->threshold);
  3138.             $np->add_perfdata(label => "io_read", value => $value3, uom => 'ms', threshold => $np->threshold);
  3139.             $np->add_perfdata(label => "io_write", value => $value4, uom => 'ms', threshold => $np->threshold);
  3140.             $np->add_perfdata(label => "io_kernel", value => $value5, uom => 'ms', threshold => $np->threshold);
  3141.             $np->add_perfdata(label => "io_device", value => $value6, uom => 'ms', threshold => $np->threshold);
  3142.             $np->add_perfdata(label => "io_queue", value => $value7, uom => 'ms', threshold => $np->threshold);
  3143.             $res = OK;
  3144.             $output = "io commands aborted=" . $value1 . ", io bus resets=" . $value2 . ", io read latency=" . $value3 . " ms, write latency=" . $value4 . " ms, kernel latency=" . $value5 . " ms, device latency=" . $value6 . " ms, queue latency=" . $value7 ." ms";
  3145.         }
  3146.     }

  3148.     return ($res, $output);
  3149. }

  3151. sub dc_runtime_info
  3152. {
  3153.     my ($np, $subcommand, $blacklist) = @_;

  3155.     my $res = CRITICAL;
  3156.     my $output = 'DC RUNTIME Unknown error';
  3157.     my $runtime;
  3158.     my $dc_view = Vim::find_entity_view(view_type => 'Datacenter', properties => ['name', 'overallStatus', 'configIssue']);

  3160.     die "There are no Datacenter\n" if (!defined($dc_view));

  3162.     if (defined($subcommand))
  3163.     {
  3164.         if (($subcommand eq "LIST") || ($subcommand eq "LISTVM"))
  3165.         {
  3166.             my %vm_state_strings = ("poweredOn" => "UP", "poweredOff" => "DOWN", "suspended" => "SUSPENDED");
  3167.             my $vm_views = Vim::find_entity_views(view_type => 'VirtualMachine', properties => ['name', 'runtime']);
  3168.             die "Runtime error\n" if (!defined($vm_views));
  3169.             die "There are no VMs.\n" if (!@$vm_views);
  3170.             my $up = 0;
  3171.             $output = '';

  3173.             foreach my $vm (@$vm_views) {
  3174.                 my $vm_state = $vm_state_strings{$vm->runtime->powerState->val};
  3175.                 if ($vm_state eq "UP")
  3176.                 {
  3177.                     $up++;
  3178.                     $output .= $vm->name . "(UP), ";
  3179.                 }
  3180.                 else
  3181.                 {
  3182.                     $output = $vm->name . "(" . $vm_state . "), " . $output;
  3183.                 }
  3184.             }

  3186.             chop($output);
  3187.             chop($output);
  3188.             $res = OK;
  3189.             $output = $up . "/" . @$vm_views . " VMs up: " . $output;
  3190.             $np->add_perfdata(label => "vmcount", value => $up, uom => 'units', threshold => $np->threshold);
  3191.             $res = $np->check_threshold(check => $up) if (defined($np->threshold));
  3192.         }
  3193.         elsif ($subcommand eq "LISTHOST")
  3194.         {
  3195.             my %host_state_strings = ("unknown" => "UNKNOWN", "poweredOn" => "UP", "poweredOff" => "DOWN", "suspended" => "SUSPENDED", "standBy" => "STANDBY", "MaintenanceMode" => "Maintenance Mode");
  3196.             my $host_views = Vim::find_entity_views(view_type => 'HostSystem', properties => ['name', 'runtime.powerState']);
  3197.             die "Runtime error\n" if (!defined($host_views));
  3198.             die "There are no VMs.\n" if (!@$host_views);
  3199.             my $up = 0;
  3200.             my $unknown = 0;
  3201.             $output = '';

  3203.             foreach my $host (@$host_views) {
  3204.                 $host->update_view_data(['name', 'runtime.powerState']);
  3205.                 my $host_state = $host_state_strings{$host->get_property('runtime.powerState')->val};
  3206.                 $unknown += $host_state eq "UNKNOWN";
  3207.                 if ($host_state eq "UP") {
  3208.                     $up++;
  3209.                     $output .= $host->name . "(UP), ";
  3210.                 } else
  3211.                 {
  3212.                     $output = $host->name . "(" . $host_state . "), " . $output;
  3213.                 }
  3214.             }

  3216.             chop($output);
  3217.             chop($output);
  3218.             $res = OK;
  3219.             $output = $up . "/" . @$host_views . " Hosts up: " . $output;
  3220.             $np->add_perfdata(label => "hostcount", value => $up, uom => 'units', threshold => $np->threshold);
  3221.             $res = $np->check_threshold(check => $up) if (defined($np->threshold));
  3222.             $res = UNKNOWN if ($res == OK && $unknown);
  3223.         }
  3224.         elsif ($subcommand eq "TOOLS")
  3225.         {
  3226.             my $vm_views = Vim::find_entity_views(view_type => 'VirtualMachine', properties => ['name', 'runtime.powerState', 'summary.guest']);
  3227.             die "Runtime error\n" if (!defined($vm_views));
  3228.             die "There are no VMs.\n" if (!@$vm_views);
  3229.             $output = '';
  3230.             my $tools_ok = 0;
  3231.             my $vms_up = 0;
  3232.             foreach my $vm (@$vm_views) {
  3233.                 my $name = $vm->name;
  3234.                 if (defined($blacklist))
  3235.                 {
  3236.                     next if ($blacklist =~ m/(^|\s|\t|,)\Q$name\E($|\s|\t|,)/);
  3237.                 }
  3238.                 if ($vm->get_property('runtime.powerState')->val eq "poweredOn")
  3239.                 {
  3240.                     my $vm_guest = $vm->get_property('summary.guest');
  3241.                     my $tools_status;
  3242.                     my $tools_runstate;
  3243.                     my $tools_version;
  3244.                     $tools_runstate = $vm_guest->toolsRunningStatus if (exists($vm_guest->{toolsRunningStatus}) && defined($vm_guest->toolsRunningStatus));
  3245.                     $tools_version = $vm_guest->toolsVersionStatus if (exists($vm_guest->{toolsVersionStatus}) && defined($vm_guest->toolsVersionStatus));

  3247.                     $vms_up++;
  3248.                     if (defined($tools_runstate) || defined($tools_version))
  3249.                     {
  3250.                         my %vm_tools_strings = ("guestToolsCurrent" => "Newest", "guestToolsNeedUpgrade" => "Old", "guestToolsNotInstalled" => "Not installed", "guestToolsUnmanaged" => "Unmanaged", "guestToolsExecutingScripts" => "Starting", "guestToolsNotRunning" => "Not running", "guestToolsRunning" => "Running");
  3251.                         $tools_status = $vm_tools_strings{$tools_runstate} . "-" if (defined($tools_runstate));
  3252.                         $tools_status .= $vm_tools_strings{$tools_version} . "-" if (defined($tools_version));
  3253.                         chop($tools_status);
  3254.                         if ($tools_status eq "Running-Newest")
  3255.                         {
  3256.                             $output .= $name . "(Running-Newest), ";
  3257.                             $tools_ok++;
  3258.                         }
  3259.                         else
  3260.                         {
  3261.                             $output = $name . "(" . $tools_status . "), " . $output;
  3262.                         }
  3263.                     }
  3264.                     else
  3265.                     {
  3266.                         my %vm_tools_strings = ("toolsNotInstalled" => "Not installed", "toolsNotRunning" => "Not running", "toolsOk" => "OK", "toolsOld" => "Old", "notDefined" => "Not defined");
  3267.                         $tools_status = $vm_guest->toolsStatus;
  3268.                         if (defined($tools_status))
  3269.                         {
  3270.                             $tools_status = $vm_tools_strings{$tools_status->val};
  3271.                             if ($tools_status eq "OK")
  3272.                             {
  3273.                                 $output .= $name . "(OK), ";
  3274.                                 $tools_ok++;
  3275.                             }
  3276.                             else
  3277.                             {
  3278.                                 $output = $name . "(" . $tools_status . "), " . $output;
  3279.                             }
  3280.                         }
  3281.                         else
  3282.                         {
  3283.                             $output = $name . "(" . $vm_tools_strings{"notDefined"} . "), " . $output;
  3284.                         }
  3285.                     }
  3286.                 }
  3287.             }
  3288.             chop($output);
  3289.             chop($output);
  3290.             if ($vms_up)
  3291.             {
  3292.                 $tools_ok /= $vms_up / 100;
  3293.             }
  3294.             else
  3295.             {
  3296.                 $tools_ok = 100;
  3297.             }
  3298.             $res = $np->check_threshold(check => $tools_ok) if (defined($np->threshold));
  3299.             $np->add_perfdata(label => "toolsok", value => $tools_ok, uom => '%', threshold => $np->threshold);
  3300.         }
  3301.         elsif ($subcommand eq "STATUS")
  3302.         {
  3303.             if (defined($dc_view->overallStatus))
  3304.             {
  3305.                 my $status = $dc_view->overallStatus->val;
  3306.                 $output = "overall status=" . $status;
  3307.                 $res = check_health_state($status);
  3308.             }
  3309.             else
  3310.             {
  3311.                 $output = "Insufficient rights to access status info on the DC\n";
  3312.                 $res = WARNING;
  3313.             }
  3314.         }
  3315.         elsif ($subcommand eq "ISSUES")
  3316.         {
  3317.             my $issues = $dc_view->configIssue;
  3318.             my $issues_count = 0;

  3320.             $output = '';
  3321.             if (defined($issues))
  3322.             {
  3323.                 foreach (@$issues)
  3324.                 {
  3325.                     if (defined($blacklist))
  3326.                     {
  3327.                         my $name = ref($_);
  3328.                         next if ($blacklist =~ m/(^|\s|\t|,)\Q$name\E($|\s|\t|,)/);
  3329.                     }
  3330.                     $output .= format_issue($_) . "; ";
  3331.                     $issues_count++;
  3332.                 }
  3333.             }

  3335.             if ($output eq '')
  3336.             {
  3337.                 $res = OK;
  3338.                 $output = 'No config issues';
  3339.             }
  3340.             $np->add_perfdata(label => "issues", value => $issues_count);
  3341.         }
  3342.         else
  3343.         {
  3344.             $res = CRITICAL;
  3345.             $output = "HOST RUNTIME - unknown subcommand\n" . $np->opts->_help;
  3346.         }
  3347.     }
  3348.     else
  3349.     {
  3350.         my %host_maintenance_state = (0 => "no", 1 => "yes");
  3351.         my $vm_views = Vim::find_entity_views(view_type => 'VirtualMachine', begin_entity => $dc_view, properties => ['name', 'runtime.powerState']);
  3352.         die "Runtime error\n" if (!defined($vm_views));
  3353.         my $up = 0;

  3355.         if (@$vm_views)
  3356.         {
  3357.             foreach my $vm (@$vm_views) {
  3358.                 $up += $vm->get_property('runtime.powerState')->val eq "poweredOn";
  3359.             }
  3360.             $output = $up . "/" . @$vm_views . " VMs up, ";
  3361.         }
  3362.         else
  3363.         {
  3364.             $output = "No VMs installed, ";
  3365.         }
  3366.         $np->add_perfdata(label => "vmcount", value => $up, uom => 'units', threshold => $np->threshold);

  3368.         my $host_views = Vim::find_entity_views(view_type => 'HostSystem', properties => ['name', 'runtime.powerState']);
  3369.         die "Runtime error\n" if (!defined($host_views));
  3370.         $up = 0;

  3372.         if (@$host_views)
  3373.         {
  3374.             foreach my $host (@$host_views) {
  3375.                 $up += $host->get_property('runtime.powerState')->val eq "poweredOn"
  3376.             }
  3377.             $output .= $up . "/" . @$host_views . " Hosts up, ";
  3378.         }
  3379.         else
  3380.         {
  3381.             $output .= "there are no hosts, ";
  3382.         }
  3383.         $np->add_perfdata(label => "hostcount", value => $up, uom => 'units');

  3385.         $res = OK;
  3386.         $output .= "overall status=" . $dc_view->overallStatus->val . ", " if (defined($dc_view->overallStatus));
  3387.         my $issues = $dc_view->configIssue;
  3388.         if (defined($issues))
  3389.         {
  3390.             $output .= @$issues . " config issue(s)";
  3391.             $np->add_perfdata(label => "config_issues", value => "" . @$issues);
  3392.         }
  3393.         else
  3394.         {
  3395.             $output .= "no config issues";
  3396.             $np->add_perfdata(label => "config_issues", value => 0);
  3397.         }
  3398.     }

  3400.     return ($res, $output);
  3401. }

  3403. #=====================================================================| Cluster |============================================================================#

  3405. sub cluster_cpu_info
  3406. {
  3407.     my ($cluster, $np, $subcommand) = @_;

  3409.     my $res = CRITICAL;
  3410.     my $output = 'CLUSTER CPU Unknown error';

  3412.     if (defined($subcommand))
  3413.     {
  3414.         if ($subcommand eq "USAGE")
  3415.         {
  3416.             $values = return_cluster_performance_values($cluster, 'cpu', ('usage.average'));
  3417.             if (defined($values))
  3418.             {
  3419.                 my $value = simplify_number(convert_number($$values[0][0]->value) * 0.01);
  3420.                 $np->add_perfdata(label => "cpu_usage", value => $value, uom => '%', threshold => $np->threshold);
  3421.                 $output = "cpu usage=" . $value . " %";
  3422.                 $res = $np->check_threshold(check => $value);
  3423.             }
  3424.         }
  3425.         elsif ($subcommand eq "USAGEMHZ")
  3426.         {
  3427.             $values = return_cluster_performance_values($cluster, 'cpu', ('usagemhz.average'));
  3428.             if (defined($values))
  3429.             {
  3430.                 my $value = simplify_number(convert_number($$values[0][0]->value));
  3431.                 $np->add_perfdata(label => "cpu_usagemhz", value => $value, uom => 'Mhz', threshold => $np->threshold);
  3432.                 $output = "cpu usagemhz=" . $value . " MHz";
  3433.                 $res = $np->check_threshold(check => $value);
  3434.             }
  3435.         }
  3436.         else
  3437.         {
  3438.             $res = CRITICAL;
  3439.             $output = "CLUSTER CPU - unknown subcommand\n" . $np->opts->_help;
  3440.         }
  3441.     }
  3442.     else
  3443.     {
  3444.         $values = return_host_performance_values($cluster, 'cpu', ('usagemhz.average', 'usage.average'));
  3445.         if (defined($values))
  3446.         {
  3447.             my $value1 = simplify_number(convert_number($$values[0][0]->value));
  3448.             my $value2 = simplify_number(convert_number($$values[0][1]->value) * 0.01);
  3449.             $np->add_perfdata(label => "cpu_usagemhz", value => $value1, uom => 'Mhz', threshold => $np->threshold);
  3450.             $np->add_perfdata(label => "cpu_usage", value => $value2, uom => '%', threshold => $np->threshold);
  3451.             $res = OK;
  3452.             $output = "cpu usage=" . $value1 . " MHz (" . $value2 . "%)";
  3453.         }
  3454.     }

  3456.     return ($res, $output);
  3457. }

  3459. sub cluster_mem_info
  3460. {
  3461.     my ($cluster, $np, $subcommand, $addopts) = @_;

  3463.     my $res = CRITICAL;
  3464.     my $output = 'CLUSTER MEM Unknown error';

  3466.     my $outputlist;
  3467.     $outputlist = $addopts =~ m/(^|\s|\t|,)\Qlistvm\E($|\s|\t|,)/ if (defined($addopts));

  3469.     if (defined($subcommand))
  3470.     {
  3471.         if ($subcommand eq "USAGE")
  3472.         {
  3473.             $values = return_cluster_performance_values($cluster, 'mem', ('usage.average'));
  3474.             if (defined($values))
  3475.             {
  3476.                 my $value = simplify_number(convert_number($$values[0][0]->value) * 0.01);
  3477.                 $np->add_perfdata(label => "mem_usage", value => $value, uom => '%', threshold => $np->threshold);
  3478.                 $output = "mem usage=" . $value . " %";
  3479.                 $res = $np->check_threshold(check => $value);
  3480.             }
  3481.         }
  3482.         elsif ($subcommand eq "USAGEMB")
  3483.         {
  3484.             $values = return_cluster_performance_values($cluster, 'mem', ('consumed.average'));
  3485.             if (defined($values))
  3486.             {
  3487.                 my $value = simplify_number(convert_number($$values[0][0]->value) / 1024);
  3488.                 $np->add_perfdata(label => "mem_usagemb", value => $value, uom => 'MB', threshold => $np->threshold);
  3489.                 $output = "mem usage=" . $value . " MB";
  3490.                 $res = $np->check_threshold(check => $value);
  3491.             }
  3492.         }
  3493.         elsif ($subcommand eq "SWAP")
  3494.         {
  3495.             my $cluster_view;
  3496.             ($cluster_view, $values) = return_cluster_performance_values($cluster, 'mem', ('swapused.average'));
  3497.             if (defined($values))
  3498.             {
  3499.                 my $value = simplify_number(convert_number($$values[0][0]->value) / 1024);
  3500.                 $np->add_perfdata(label => "mem_swap", value => $value, uom => 'MB', threshold => $np->threshold);
  3501.                 $output = "swap usage=" . $value . " MB: ";
  3502.                 $res = $np->check_threshold(check => $value);
  3503.                 if ($res != OK && $outputlist)
  3504.                 {
  3505.                     my $vm_views = Vim::find_entity_views(view_type => 'VirtualMachine', begin_entity => $$cluster_view[0], properties => ['name', 'runtime.powerState']);
  3506.                     die "Runtime error\n" if (!defined($vm_views));
  3507.                     die "There are no VMs.\n" if (!@$vm_views);
  3508.                     my @vms = ();
  3509.                     foreach my $vm (@$vm_views)
  3510.                     {
  3511.                         push(@vms, $vm) if ($vm->get_property('runtime.powerState')->val eq "poweredOn");
  3512.                     }
  3513.                     $values = generic_performance_values(\@vms, 'mem', ('swapped.average'));
  3514.                     if (defined($values))
  3515.                     {
  3516.                         foreach my $index (0..@vms-1) {
  3517.                             my $value = simplify_number(convert_number($$values[$index][0]->value) / 1024);
  3518.                             $output .= $vms[$index]->name . " (" . $value . "MB), " if ($value > 0);
  3519.                         }
  3520.                     }
  3521.                 }
  3522.                 chop($output);
  3523.                 chop($output);
  3524.             }
  3525.         }
  3526.         elsif ($subcommand eq "OVERHEAD")
  3527.         {
  3528.             $values = return_cluster_performance_values($cluster, 'mem', ('overhead.average'));
  3529.             if (defined($values))
  3530.             {
  3531.                 my $value = simplify_number(convert_number($$values[0][0]->value) / 1024);
  3532.                 $np->add_perfdata(label => "mem_overhead", value => $value, uom => 'MB', threshold => $np->threshold);
  3533.                 $output = "overhead=" . $value . " MB";
  3534.                 $res = $np->check_threshold(check => $value);
  3535.             }
  3536.         }
  3537.         elsif ($subcommand eq "OVERALL")
  3538.         {
  3539.             $values = return_cluster_performance_values($cluster, 'mem', ('consumed.average', 'overhead.average'));
  3540.             if (defined($values))
  3541.             {
  3542.                 my $value = simplify_number((convert_number($$values[0][0]->value) + convert_number($$values[1]->value)) / 1024);
  3543.                 $np->add_perfdata(label => "mem_overhead", value => $value, uom => 'MB', threshold => $np->threshold);
  3544.                 $output = "overall=" . $value . " MB";
  3545.                 $res = $np->check_threshold(check => $value);
  3546.             }
  3547.         }
  3548.         elsif ($subcommand eq "MEMCTL")
  3549.         {
  3550.             my $cluster_view;
  3551.             ($cluster_view, $values) = return_cluster_performance_values($cluster, 'mem', ('vmmemctl.average'));
  3552.             if (defined($values))
  3553.             {
  3554.                 my $value = simplify_number(convert_number($$values[0][0]->value) / 1024);
  3555.                 $np->add_perfdata(label => "mem_memctl", value => $value, uom => 'MB', threshold => $np->threshold);
  3556.                 $output = "memctl=" . $value . " MB: ";
  3557.                 $res = $np->check_threshold(check => $value);
  3558.                 if ($res != OK && $outputlist)
  3559.                 {
  3560.                     my $vm_views = Vim::find_entity_views(view_type => 'VirtualMachine', begin_entity => $$cluster_view[0], properties => ['name', 'runtime.powerState']);
  3561.                     die "Runtime error\n" if (!defined($vm_views));
  3562.                     die "There are no VMs.\n" if (!@$vm_views);
  3563.                     my @vms = ();
  3564.                     foreach my $vm (@$vm_views)
  3565.                     {
  3566.                         push(@vms, $vm) if ($vm->get_property('runtime.powerState')->val eq "poweredOn");
  3567.                     }
  3568.                     $values = generic_performance_values(\@vms, 'mem', ('vmmemctl.average'));
  3569.                     if (defined($values))
  3570.                     {
  3571.                         foreach my $index (0..@vms-1) {
  3572.                             my $value = simplify_number(convert_number($$values[$index][0]->value) / 1024);
  3573.                             $output .= $vms[$index]->name . " (" . $value . "MB), " if ($value > 0);
  3574.                         }
  3575.                     }
  3576.                 }
  3577.                 chop($output);
  3578.                 chop($output);
  3579.             }
  3580.         }
  3581.         else
  3582.         {
  3583.             $res = CRITICAL;
  3584.             $output = "CLUSTER MEM - unknown subcommand\n" . $np->opts->_help;
  3585.         }
  3586.     }
  3587.     else
  3588.     {
  3589.         $values = return_cluster_performance_values($cluster, 'mem', ('consumed.average', 'usage.average', 'overhead.average', 'swapused.average', 'vmmemctl.average'));
  3590.         if (defined($values))
  3591.         {
  3592.             my $value1 = simplify_number(convert_number($$values[0][0]->value) / 1024);
  3593.             my $value2 = simplify_number(convert_number($$values[0][1]->value) * 0.01);
  3594.             my $value3 = simplify_number(convert_number($$values[0][2]->value) / 1024);
  3595.             my $value4 = simplify_number(convert_number($$values[0][3]->value) / 1024);
  3596.             my $value5 = simplify_number(convert_number($$values[0][4]->value) / 1024);
  3597.             $np->add_perfdata(label => "mem_usagemb", value => $value1, uom => 'MB', threshold => $np->threshold);
  3598.             $np->add_perfdata(label => "mem_usage", value => $value2, uom => '%', threshold => $np->threshold);
  3599.             $np->add_perfdata(label => "mem_overhead", value => $value3, uom => 'MB', threshold => $np->threshold);
  3600.             $np->add_perfdata(label => "mem_swap", value => $value4, uom => 'MB', threshold => $np->threshold);
  3601.             $np->add_perfdata(label => "mem_memctl", value => $value5, uom => 'MB', threshold => $np->threshold);
  3602.             $res = OK;
  3603.             $output = "mem usage=" . $value1 . " MB (" . $value2 . "%), overhead=" . $value3 . " MB, swapped=" . $value4 . " MB, memctl=" . $value5 . " MB";
  3604.         }
  3605.     }

  3607.     return ($res, $output);
  3608. }

  3610. sub cluster_cluster_info
  3611. {
  3612.     my ($cluster, $np, $subcommand) = @_;
  3613.     
  3614.     my $res = CRITICAL;
  3615.     my $output = 'CLUSTER clusterServices Unknown error';
  3616.     
  3617.     if (defined($subcommand))
  3618.     {
  3619.         if ($subcommand eq "EFFECTIVECPU")
  3620.         {
  3621.             $values = return_cluster_performance_values($cluster, 'clusterServices', ('effectivecpu.average'));
  3622.             if (defined($values))
  3623.             {
  3624.                 my $value = simplify_number(convert_number(get_val_from_list($$values[0][0]->value)) * 0.01);
  3625.                 $np->add_perfdata(label => "effective cpu", value => $value, uom => 'Mhz', threshold => $np->threshold);
  3626.                 $output = "effective cpu=" . $value . " %";
  3627.                 $res = $np->check_threshold(check => $value);
  3628.             }
  3629.         }
  3630.         elsif ($subcommand eq "EFFECTIVEMEM")
  3631.         {
  3632.             $values = return_cluster_performance_values($cluster, 'clusterServices', ('effectivemem.average'));
  3633.             if (defined($values))
  3634.             {
  3635.                 my $value = simplify_number(convert_number($$values[0][0]->value) / 1024);
  3636.                 $np->add_perfdata(label => "effectivemem", value => $value, uom => 'MB', threshold => $np->threshold);
  3637.                 $output = "effective mem=" . $value . " MB";
  3638.                 $res = $np->check_threshold(check => $value);
  3639.             }
  3640.         }
  3641.         elsif ($subcommand eq "FAILOVER")
  3642.         {
  3643.             $values = return_cluster_performance_values($cluster, 'clusterServices', ('failover.latest:*'));
  3644.             if (defined($values))
  3645.             {
  3646.                 my $value = simplify_number(convert_number($$values[0][0]->value) / 1024);
  3647.                 $np->add_perfdata(label => "failover", value => $value, uom => 'MB', threshold => $np->threshold);
  3648.                 $output = "failover=" . $value . " ";
  3649.                 $res = $np->check_threshold(check => $value);
  3650.             }
  3651.         }
  3652.         elsif ($subcommand eq "CPUFAIRNESS")
  3653.         {
  3654.             $values = return_cluster_performance_values($cluster, 'clusterServices', ('cpufairness.latest'));
  3655.             if (defined($values))
  3656.             {
  3657.                 my $value = simplify_number(convert_number($$values[0][0]->value));
  3658.                 $np->add_perfdata(label => "cpufairness", value => $value, uom => '%', threshold => $np->threshold);
  3659.                 $output = "cpufairness=" . $value . " %";
  3660.                 $res = $np->check_threshold(check => $value);
  3661.             }
  3662.         }
  3663.         elsif ($subcommand eq "MEMFAIRNESS")
  3664.         {
  3665.             $values = return_cluster_performance_values($cluster, 'clusterServices', ('memfairness.latest'));
  3666.             if (defined($values))
  3667.             {
  3668.                 my $value = simplify_number((convert_number($$values[0][0]->value)));
  3669.                 $np->add_perfdata(label => "memfairness", value => $value, uom => '%', threshold => $np->threshold);
  3670.                 $output = "memfairness=" . $value . " %";
  3671.                 $res = $np->check_threshold(check => $value);
  3672.             }
  3673.         }
  3674.         else
  3675.         {
  3676.             $res = CRITICAL;
  3677.             $output = "CLUSTER clusterServices - unknown subcommand\n" . $np->opts->_help;
  3678.         }
  3679.     }
  3680.     else
  3681.     {
  3682.         $values = return_cluster_performance_values($cluster, 'clusterServices', ('effectivecpu.average', 'effectivemem.average'));
  3683.         if (defined($values))
  3684.         {
  3685.             my $value1 = simplify_number(convert_number($$values[0][0]->value));
  3686.             my $value2 = simplify_number(convert_number($$values[0][1]->value) / 1024);
  3687.             $np->add_perfdata(label => "effective cpu", value => $value1, uom => 'Mhz', threshold => $np->threshold);
  3688.             $np->add_perfdata(label => "effective mem", value => $value2, uom => 'MB', threshold => $np->threshold);
  3689.             $res = OK;
  3690.             $output = "effective cpu=" . $value1 . " Mhz, effective Mem=" . $value2 . " MB";
  3691.         }
  3692.     }

  3694.     return ($res, $output);
  3695. }

  3697. sub cluster_runtime_info
  3698. {
  3699.     my ($cluster, $np, $subcommand) = @_;

  3701.     my $res = CRITICAL;
  3702.     my $output = 'CLUSTER RUNTIME Unknown error';
  3703.     my $runtime;
  3704.     my $cluster_view = Vim::find_entity_view(view_type => 'ClusterComputeResource', filter => { name => "$cluster" }, properties => ['name', 'overallStatus', 'configIssue']);
  3705.     die "Cluster \"" . $$cluster{"name"} . "\" does not exist\n" if (!defined($cluster_view));
  3706.     $cluster_view->update_view_data();

  3708.     if (defined($subcommand))
  3709.     {
  3710.         if (($subcommand eq "LIST") || ($subcommand eq "LISTVM"))
  3711.         {
  3712.             my %vm_state_strings = ("poweredOn" => "UP", "poweredOff" => "DOWN", "suspended" => "SUSPENDED");
  3713.             my $vm_views = Vim::find_entity_views(view_type => 'VirtualMachine', begin_entity => $cluster_view, properties => ['name', 'runtime']);
  3714.             die "Runtime error\n" if (!defined($vm_views));
  3715.             die "There are no VMs.\n" if (!defined($vm_views));
  3716.             my $up = 0;
  3717.             $output = '';

  3719.             foreach my $vm (@$vm_views)
  3720.             {
  3721.                 my $vm_state = $vm_state_strings{$vm->runtime->powerState->val};
  3722.                 if ($vm_state eq "UP")
  3723.                 {
  3724.                     $up++;
  3725.                     $output .= $vm->name . "(OK), ";
  3726.                 }
  3727.                 else
  3728.                 {
  3729.                     $output = $vm->name . "(" . $vm_state . "), " . $output;
  3730.                 }
  3731.             }

  3733.             chop($output);
  3734.             chop($output);
  3735.             $res = OK;
  3736.             $output = $up . "/" . @$vm_views . " VMs up: " . $output;
  3737.             $np->add_perfdata(label => "vmcount", value => $up, uom => 'units', threshold => $np->threshold);
  3738.             $res = $np->check_threshold(check => $up) if (defined($np->threshold));
  3739.         }
  3740.         elsif ($subcommand eq "LISTHOST")
  3741.         {
  3742.             my %host_state_strings = ("poweredOn" => "UP", "poweredOff" => "DOWN", "suspended" => "SUSPENDED", "standBy" => "STANDBY", "MaintenanceMode" => "Maintenance Mode");
  3743.             my $host_views = Vim::find_entity_views(view_type => 'HostSystem', begin_entity => $cluster_view, properties => ['name', 'runtime.powerState']);
  3744.             die "Runtime error\n" if (!defined($host_views));
  3745.             die "There are no hosts.\n" if (!defined($host_views));
  3746.             my $up = 0;
  3747.             my $unknown = 0;
  3748.             $output = '';

  3750.             foreach my $host (@$host_views) {
  3751.                 $host->update_view_data(['name', 'runtime.powerState']);
  3752.                 my $host_state = $host_state_strings{$host->get_property('runtime.powerState')->val};
  3753.                 $unknown += $host_state eq "UNKNOWN";
  3754.                 if ($host_state eq "UP" && $host_state eq "Maintenance Mode") {
  3755.                     $up++;
  3756.                     $output .= $host->name . "(UP), ";
  3757.                 } else
  3758.                 {
  3759.                     $output = $host->name . "(" . $host_state . "), " . $output;
  3760.                 }
  3761.             }

  3763.             chop($output);
  3764.             chop($output);
  3765.             $res = OK;
  3766.             $output = $up . "/" . @$host_views . " Hosts up: " . $output;
  3767.             $np->add_perfdata(label => "vmcount", value => $up, uom => 'units', threshold => $np->threshold);
  3768.             $res = $np->check_threshold(check => $up) if (defined($np->threshold));
  3769.             $res = UNKNOWN if ($res == OK && $unknown);
  3770.         }
  3771.         elsif ($subcommand eq "STATUS")
  3772.         {
  3773.             if (defined($cluster_view->overallStatus))
  3774.             {
  3775.                 my $status = $cluster_view->overallStatus->val;
  3776.                 $output = "overall status=" . $status;
  3777.                 $res = check_health_state($status);
  3778.             }
  3779.             else
  3780.             {
  3781.                 $output = "Insufficient rights to access status info on the DC\n";
  3782.                 $res = WARNING;
  3783.             }
  3784.         }
  3785.         elsif ($subcommand eq "ISSUES")
  3786.         {
  3787.             my $issues = $cluster_view->configIssue;
  3788.             my $issues_count = 0;

  3790.             $output = '';
  3791.             if (defined($issues))
  3792.             {
  3793.                 foreach (@$issues)
  3794.                 {
  3795.                     if (defined($blacklist))
  3796.                     {
  3797.                         my $name = ref($_);
  3798.                         next if ($blacklist =~ m/(^|\s|\t|,)\Q$name\E($|\s|\t|,)/);
  3799.                     }
  3800.                     $output .= format_issue($_) . "; ";
  3801.                     $issues_count++;
  3802.                 }
  3803.             }

  3805.             if ($output eq '')
  3806.             {
  3807.                 $res = OK;
  3808.                 $output = 'No config issues';
  3809.             }
  3810.             $np->add_perfdata(label => "issues", value => $issues_count);
  3811.         }
  3812.         else
  3813.         {
  3814.             $res = CRITICAL;
  3815.             $output = "CLUSTER RUNTIME - unknown subcommand\n" . $np->opts->_help;
  3816.         }
  3817.     }
  3818.     else
  3819.     {
  3820.         my %cluster_maintenance_state = (0 => "no", 1 => "yes");
  3821.         my $vm_views = Vim::find_entity_views(view_type => 'VirtualMachine', begin_entity => $cluster_view, properties => ['name', 'runtime.powerState']);
  3822.         my $up = 0;

  3824.         if (defined($vm_views))
  3825.         {
  3826.             foreach my $vm (@$vm_views) {
  3827.                 $up += $vm->get_property('runtime.powerState')->val eq "poweredOn";
  3828.             }
  3829.             $np->add_perfdata(label => "vmcount", value => $up, uom => 'units', threshold => $np->threshold);
  3830.             $output = $up . "/" . @$vm_views . " VMs up";
  3831.         }
  3832.         else
  3833.         {
  3834.             $output = "No VMs installed";
  3835.         }

  3837.         my $AlertCount = 0;
  3838.         my $SensorCount = 0;
  3839.         my ($cpuStatusInfo, $storageStatusInfo, $memoryStatusInfo, $numericSensorInfo);

  3841.         $res = OK;
  3842.         $output .= ", overall status=" . $cluster_view->overallStatus->val . ", " if (defined($cluster_view->overallStatus));

  3844.         my $issues = $cluster_view->configIssue;
  3845.         if (defined($issues))
  3846.         {
  3847.             $output .= @$issues . " config issue(s)";
  3848.         }
  3849.         else
  3850.         {
  3851.             $output .= "no config issues";
  3852.         }
  3853.     }

  3855.     return ($res, $output);
  3856. }

  3858. sub cluster_list_vm_volumes_info
  3859. {
  3860.     my ($cluster, $np, $subcommand, $blacklist, $perc, $addopts) = @_;

  3862.     my $cluster_view = Vim::find_entity_view(view_type => 'ClusterComputeResource', filter => {name => "$cluster"}, properties => ['name', 'datastore']);
  3863.     die "Insufficient rights to access Datastores on the Host\n" if (!defined($cluster_view->datastore));

  3865.     return datastore_volumes_info($cluster_view->datastore, $np, $subcommand, $blacklist, $perc, $addopts);
  3866. }










來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/30936525/viewspace-2097962/，如需轉載，請註明出處，否則將追究法律責任。

相關文章