2015-07-20 12:18:28 +02:00
|
|
|
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){
|
2019-07-30 13:59:42 +02:00
|
|
|
my @out = qx($upsc -l 2>/dev/null);
|
2015-07-20 12:18:28 +02:00
|
|
|
if ($? == 0){
|
2015-07-21 14:53:08 +02:00
|
|
|
@ups = @out;
|
|
|
|
chomp @ups;
|
2015-07-20 12:18:28 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
return @ups;
|
|
|
|
};
|
2015-07-21 13:08:51 +02:00
|
|
|
|
|
|
|
1;
|