32 lines
663 B
Perl
32 lines
663 B
Perl
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
use warnings;
|
|
use JSON;
|
|
use Getopt::Long;
|
|
use File::Which;
|
|
use Data::Dumper;
|
|
|
|
my $pmgsh = which('pmgsh');
|
|
my $json = {};
|
|
my $pretty = 0;
|
|
my ($domain) = undef;
|
|
|
|
GetOptions(
|
|
'domain=s' => \$domain,
|
|
'pretty' => \$pretty
|
|
);
|
|
|
|
if ($domain){
|
|
my $stats = from_json(qx($pmgsh get /statistics/domains 2>/dev/null));
|
|
foreach my $dom (@{$stats}){
|
|
next unless ($dom->{domain} eq $domain);
|
|
$json->{$_} = $dom->{$_} foreach (qw/bytes_in bytes_out count_in count_out spamcount_in spamcount_out viruscount_in viruscount_out/);
|
|
}
|
|
} else{
|
|
print 'ZBX_UNSUPORTED';
|
|
exit 0;
|
|
}
|
|
|
|
print to_json($json, { pretty => $pretty }) . "\n";
|