view release on metacpan or  search on metacpan

lib/Nagios/Plugin/LDAP.pm  view on Meta::CPAN

143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
if ($ssl and !eval { require Net::LDAPS }) {
  my $err = $@;
  $self->add_message(WARNING, $err);
  return;
}
 
my $ldap = $class->new(
  $hostname,
  timeout => $timeout,
  version => $version,
  inet6   => $ipv6,
);
 
unless ($ldap) {
  my $err = $@;
  $self->add_message(CRITICAL, "$hostname: " . $err);
  return;
}
 
if ($starttls) {
  my $mesg = $ldap->start_tls;