zabbix-agent-addons/lib/Zabbix/Agent/Addons/UPS.pm

package Zabbix::Agent::Addons::UPS;

use warnings;
use strict;
use File::Which;

# List configured UPS (only nut is supported)
sub list_ups {
  my @ups = ();
  my $upsc = which('upsc');
  if ($upsc && -x $upsc){
    my @out = qx($upsc -l 2>/dev/null);
    if ($? == 0){
      @ups = @out;
      chomp @ups;
    }
  }
  return @ups;
};

1;