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;