Additional scripts for Zabbix agent on Linux to discover and monitor several services
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

35 lines
592 B

#!/usr/bin/perl -w
use strict;
use warnings;
use JSON;
use Getopt::Long;
use File::Which;
my $what = 'nodes';
my $pretty = 0;
GetOptions(
'what=s' => \$what,
'pretty' => \$pretty
);
my $pmgsh = which('pmgsh');
my $json = {};
@{$json->{data}} = ();
unless($pmgsh){
print to_json($json) . "\n";
exit 0;
}
if ($what eq 'domains'){
my $domains = from_json(qx($pmgsh get /config/domains 2>/dev/null));
foreach my $item (@{$domains}){
push @{$json->{data}}, {
'{#PMG_RELAY_DOMAIN}' => $item->{domain},
};
}
}
print to_json($json, { pretty => $pretty }) . "\n";