Fix Zimbra discovery and check scripts
This commit is contained in:
parent
1950abbc0f
commit
31ccccd2e0
|
@ -45,7 +45,7 @@ my $output = {};
|
||||||
|
|
||||||
if (defined $status){
|
if (defined $status){
|
||||||
foreach my $line (qx($zmcontrol status)){
|
foreach my $line (qx($zmcontrol status)){
|
||||||
if ($line =~ m/^\s+(\w+)\s+(Running|Stopped)/){
|
if ($line =~ m/^\s+(\w+)(\swebapp)?\s+(Running|Stopped)/){
|
||||||
$output->{$1} = ($2 eq 'Running') ? 1 : 0;
|
$output->{$1} = ($2 eq 'Running') ? 1 : 0;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
@ -6,8 +6,7 @@ use Getopt::Long;
|
||||||
use Net::Domain qw(hostfqdn);
|
use Net::Domain qw(hostfqdn);
|
||||||
use Data::Dumper;
|
use Data::Dumper;
|
||||||
|
|
||||||
my $json;
|
my $json = [];
|
||||||
@{$json->{data}} = ();
|
|
||||||
|
|
||||||
my $pretty = 0;
|
my $pretty = 0;
|
||||||
my $services = 1;
|
my $services = 1;
|
||||||
|
@ -47,7 +46,7 @@ if ($services){
|
||||||
};
|
};
|
||||||
foreach my $service (qx($zmprov getServer $hostname zimbraServiceEnabled)){
|
foreach my $service (qx($zmprov getServer $hostname zimbraServiceEnabled)){
|
||||||
if ($service =~ m/^zimbraServiceEnabled:\s+(\w+)/){
|
if ($service =~ m/^zimbraServiceEnabled:\s+(\w+)/){
|
||||||
push @{$json->{data}}, {
|
push @{$json}, {
|
||||||
'{#ZM_SERVICE}' => $1
|
'{#ZM_SERVICE}' => $1
|
||||||
};
|
};
|
||||||
}
|
}
|
||||||
|
@ -55,7 +54,7 @@ if ($services){
|
||||||
} elsif ($servers){
|
} elsif ($servers){
|
||||||
foreach my $server (qx($zmprov getAllServers)){
|
foreach my $server (qx($zmprov getAllServers)){
|
||||||
chomp $server;
|
chomp $server;
|
||||||
push @{$json->{data}}, {
|
push @{$json}, {
|
||||||
'{#ZM_SERVER}' => $server
|
'{#ZM_SERVER}' => $server
|
||||||
};
|
};
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue