22 lines
339 B
Perl
22 lines
339 B
Perl
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;
|