tyler.durden
/
centreon-plugins
mirror of https://github.com/centreon/centreon-plugins.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix #2117

This commit is contained in:
garnier-quentin 2020-07-23 08:48:26 +02:00
parent e9b0cf6b16
commit d925ab5222
1 changed files with 23 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
centreon-plugins/apps/citrix/local/mode/folder.pm
View File

@ -31,13 +31,13 @@ sub new {
my $self = $class->SUPER::new(package => __PACKAGE__, %options); my $self = $class->SUPER::new(package => __PACKAGE__, %options);
bless $self, $class; bless $self, $class;
$options{options}->add_options(arguments => $options{options}->add_options(arguments => {
{ 'warning:s' => { name => 'warning' },
"warning:s" => { name => 'warning', }, 'critical:s' => { name => 'critical' },
"critical:s" => { name => 'critical', }, 'folder:s' => { name => 'folder' },
"folder:s" => { name => 'folder', }, 'filter-folder' => { name => 'filter_folder' }
"filter-folder" => { name => 'filter_folder', },
}); });
$self->{wql_filter} = ''; $self->{wql_filter} = '';
return $self; return $self;
} }
@ -68,8 +68,10 @@ sub check_options {
sub run { sub run {
my ($self, %options) = @_; my ($self, %options) = @_;
$self->{output}->output_add(severity => 'Ok', $self->{output}->output_add(
short_msg => "All folders are ok"); severity => 'Ok',
short_msg => 'All folders are ok'
);
my $wmi = Win32::OLE->GetObject('winmgmts:root\citrix'); my $wmi = Win32::OLE->GetObject('winmgmts:root\citrix');
if (!defined($wmi)) { if (!defined($wmi)) {
@ -83,18 +85,22 @@ sub run {
my $folderDN = $obj->{FolderDN}; my $folderDN = $obj->{FolderDN};
my $query2 = "ASSOCIATORS OF {Citrix_ServerFolder.FolderDN='" . $folderDN . "'} WHERE AssocClass=Citrix_ServersInFolder Role=Antecedent"; my $query2 = "ASSOCIATORS OF {Citrix_ServerFolder.FolderDN='" . $folderDN . "'} WHERE AssocClass=Citrix_ServersInFolder Role=Antecedent";
my $resultset2 = $wmi->ExecQuery($query2); my $resultset2 = $wmi->ExecQuery($query2);
my $numServers = keys $resultset2; my $numServers = keys %$resultset2;
$self->{output}->output_add(long_msg => $numServers . " servers in folder '" . $folderDN . "'"); $self->{output}->output_add(long_msg => $numServers . " servers in folder '" . $folderDN . "'");
my $exit = $self->{perfdata}->threshold_check(value => $numServers, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]); my $exit = $self->{perfdata}->threshold_check(value => $numServers, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
$self->{output}->output_add(severity => $exit, $self->{output}->output_add(
short_msg => $numServers . " servers in in folder '" . $folderDN . "'"); severity => $exit,
short_msg => $numServers . " servers in in folder '" . $folderDN . "'"
);
} }
$self->{output}->perfdata_add(label => 'servers_' . $folderDN, $self->{output}->perfdata_add(
label => 'servers_' . $folderDN,
value => $numServers, value => $numServers,
warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'), warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'), critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
min => 0); min => 0
);
} }