Class MyDatabases is not a subclass of Monitoring::GLPlugin about check_mssql_health HOT 10 OPEN

package MyDatabases;
our @ISA = qw(Monitoring::GLPlugin::DB);
# zur Umrechnung in MB
my %tomb = (
  'KB'  =>      1024,
  'MB'  =>      1,
  'GB'  =>      1/1024,
);
sub init {
  my $self = shift;
  if ($self->mode =~ /my::databases::dbspace/) {
    my @dbs = $self->fetchall_array(q{SELECT name FROM master.sys.databases});
    my %stats;
    my $cmd = "EXEC sp_spaceused";
    foreach (@dbs) {
      my @dbstat = $self->fetchall_array("USE \"" . $_->[0] . "\" " . $cmd);
      $stats{$_->[0]} = {
          'dbsize' => $dbstat[0][1],
          'unallocated' => $dbstat[0][2],
      };
    }
    $self->{dbstat} = \%stats;
    if (keys(%{$self->{dbstat}})) {
      while ((my $key, $value) = each(%{$self->{dbstat}})) {
        if ($self->opts->regexp) {
          next if $key !~ /$self->opts->regexp/;
        } elsif ($self->opts->name) {
          next if lc $key ne lc $self->opts->name;
        }
        $value->{'dbsize'} =~ m/(\d+\.?\d*?) (GB|MB|KB)/;
        my $totalmb = $1 / $tomb{$2};
        $value->{'unallocated'} =~ m/(\d+\.?\d*?) (GB|MB|KB)/;
        my $unusedmb = $1 / $tomb{$2};
        my $usedmb = $totalmb - $unusedmb;
        my $usedpct = ($usedmb / $totalmb) * 100;
        $self->add_info(
            #$self->check_thresholds($_->[2],80,90),
            sprintf("DB \"%s\": %0.2f%% used (%0.2f of %0.2f MB)",
            $key, $usedpct, $usedmb, $totalmb)
        );
        $self->add_ok();
        $self->add_perfdata(
            label => $key."_mbused",
            value => $usedmb,
            min => 0,
            max => $totalmb,
            uom => 'MB',
        );
        $self->add_perfdata(
            label => $key."_mbtotal",
            value => $totalmb,
            uom => 'MB',
        );
      }
    } else {
      $self->add_unknown("No database size information found. ");
    }
  }
}

 '/usr/lib/nagios/plugins/check_mssql_health' '--commit' '--mode' 'my-databases-dbspace' '--name' '^(?!.*_BK_MQDE01.SPDB0._IB.*)' '--password' 'xxx' '--regexp' '--report' 'short' '--server' 'xxx' '--username' 'xxx' --with-mymodules-dyn-dir /usr/lib/nagios/plugins
UNKNOWN - Class MyDatabases is not a subclass of Monitoring::GLPlugin

$ diff /usr/lib/nagios/plugins/check_mssql_health /usr/lib/nagios/plugins/check_mssql_health.old | grep pm
<       foreach my $extmod (glob $libpath."/".$plugin_name."*.pm") {
>       foreach my $extmod (glob $libpath."/CheckMSSQLHealth*.pm") {

     1  package MyDatabases;
     2  our @ISA = qw(DBD::MSSQL::Server);
     3  # zur Umrechnung in MB
     4  my %tomb = (
     5    'KB'  =>      1024,
     6    'MB'  =>      1,
     7    'GB'  =>      1/1024,
     8  );
     9  sub init {
    10      my $self = shift;
    11      my %params = @_;
    12      if ($params{mode} =~ /my::databases::dbspace/) {
    13      my @dbs = $params{handle}->fetchall_array(q{
    14              SELECT name FROM master.sys.databases
    15            });
    16      my %stats;
    17      my $cmd = "EXEC sp_spaceused";
    18      foreach (@dbs) {
    19          my @dbstat = $params{handle}->fetchall_array("USE " . $_->[0] . " " . $cmd);
    20          $stats{$_->[0]} = {
    21            'dbsize' => $dbstat[0][1],
    22            'unallocated' => $dbstat[0][2],
    23          };
    24      };
    25      $self->{dbstat} = \%stats;
    26    }
    27  }
    28  sub nagios {
    29      if ($params{mode} =~ /my::databases::dbspace/) {
    30      if (keys(%{$self->{dbstat}})) {
    31          while ((my $key, $value) = each(%{$self->{dbstat}})) {
    32          if ($params{regexp}) {
    33            next if $params{selectname} && $key !~ /$params{selectname}/;
    34          } else {
    35            next if $params{selectname} && lc $params{selectname} ne lc $key;
    36          }
    37          $value->{'dbsize'} =~ m/(\d+\.?\d*?) (GB|MB|KB)/;
    38          my $totalmb = $1 / $tomb{$2};
    39          $value->{'unallocated'} =~ m/(\d+\.?\d*?) (GB|MB|KB)/;
    40          my $unusedmb = $1 / $tomb{$2};
    41          my $usedmb = $totalmb - $unusedmb;
    42          my $usedpct = ($usedmb / $totalmb) * 100;
    43          $self->add_nagios(
    44            #$self->check_thresholds($_->[2],80,90),
    45            0,sprintf("DB \"%s\": %0.2f%% used (%0.2f of %0.2f MB)",
    46              $key, $usedpct, $usedmb, $totalmb)
    47          );
    48          $self->add_perfdata(sprintf("%s=%0.2fMB;;;0;%0.2f",
    49              $key."_mbused", $usedmb,$totalmb));
    50          $self->add_perfdata(sprintf("%s=%0.2fMB;;;;",
    51              $key."_mbtotal", $totalmb));
    52          }
    53      } else { $self->add_nagios_unknown("No database size information found. ")}
    54    }
    55  }