Changeset 245

Timestamp:

Jun 25, 2018, 10:30:10 AM (6 years ago)

Author:

g7moreau

Message:

• First try to make remote command more generic...

File:

• trunk/nagios-velvice/velvice.cgi (modified) (8 diffs)

trunk/nagios-velvice/velvice.cgi

@@ -10 +10 @@
 # Possible command http://old.nagios.org/developerinfo/externalcommands/commandlist.php
 #
-# apt-get install libnagios-object-perl libhtml-parser-perl perl-modules liburi-encode-perl libcolor-calc-perl libyaml-syck-perl libhash-merge-perl
+# apt-get install libnagios-object-perl libhtml-parser-perl perl-modules liburi-encode-perl libcolor-calc-perl libyaml-syck-perl
 
 use strict;
@@ -22 +22 @@
 use Color::Calc ();
 use YAML::Syck;
-#use Hash::Merge;
 
 my $config = {};
@@ -35 +34 @@
 $config->{'downtime'}{'max'}     ||= 50;
 $config->{'downtime'}{'factor'}  ||= 0.7;
+$config->{'service'}             ||= {};
 
 my $query = CGI->new();
@@ -157 +157 @@
    my %sshdown       = ();
    my @aptuptodate   = ();
+   my %cmdafter      = ();
+   my $after;
+
    my $current_host  = '';
    $htmlpage .= "<table border=\"1\">\n";
@@ -162 +165 @@
       my $hostname = $srv->host_name;
       my $service  = $srv->service_description;
-      my $level    = $srv->status;
+      my $status   = $srv->status;
       my $downtime = downtime($srv->last_state_change);
       my $output   = HTML::Entities::encode($srv->plugin_output);
       $output =~ s/^[A-Z_\s]+?[:-]//;
 
-      my $color = $level eq 'CRITICAL' ? '#F88888' : '#FFFF00';
+      my $color = $status eq 'CRITICAL' ? '#F88888' : '#FFFF00';
       $color = alertcolor($color, $downtime);
       $htmlpage .= " <tr style='background:$color;'>\n";
@@ -174 +177 @@
          $htmlpage .= "  <td rowspan='$hostcount{$hostname}' style='vertical-align:middle;'><a href=\"$config->{'status-cgi'}?host=$hostname\">$hostname</a></td>\n";
          }
-      if ($service eq 'APT UPTODATE') {
-         $htmlpage .= "  <td><b>$service</b></td>\n";
-         }
-      else {
-         $htmlpage .= "  <td>$service</td>\n";
-         }
-      $htmlpage .= "  <td>$level</td>\n";
+
+      my $bold;
+      for my $srv_name (keys %{$config->{'service'}}) {
+         my $srv_regex = $config->{'service'}{$srv_name}{'regex'};
+         $bold++ if $service =~ m/$srv_regex/ and $config->{'service'}{$srv_name}{'style'} eq 'bold';
+         }
+      $htmlpage .= "  <td>";
+      $htmlpage .= "<b>" if $bold;
+      $htmlpage .= "$service";
+      $htmlpage .= "</b>" if $bold;
+      $htmlpage .= "</td>\n";
+
+      $htmlpage .= "  <td>$status</td>\n";
       $htmlpage .= "  <td style='max-width:60%;'><small>$output";
 
       $sshdown{$hostname}++ if $service eq 'SSH';
 
-      #      or ($check =~ m/apt/i      and $service eq 'APT UPTODATE')
       if (($check =~ m/all/i)
             or ($check =~ m/^$service$/i)
-            or ($check =~ m/critical/i and $level   eq 'CRITICAL')
-            or ($check =~ m/warning/i  and $level   eq 'WARNING')
-            or ($check =~ m/pending/i  and $level   eq 'PENDING')
+            or ($check =~ m/critical/i and $status eq 'CRITICAL')
+            or ($check =~ m/warning/i  and $status eq 'WARNING')
+            or ($check =~ m/pending/i  and $status eq 'PENDING')
             ) {
          $now++;
@@ -205 +213 @@
 
       push @aptuptodate, $hostname if $service eq 'APT UPTODATE';
-      push @oomkiller,   $hostname if $service eq 'OOM Killer' and $level ne 'PENDING';
+      push @oomkiller,   $hostname if $service eq 'OOM Killer' and $status ne 'PENDING';
+      for my $srv_name (keys %{$config->{'service'}}) {
+         my $srv_regex  = $config->{'service'}{$srv_name}{'regex'};
+         my $srv_status = $config->{'service'}{$srv_name}{'status'};
+         if ($service =~ m/$srv_regex/ and ($srv_status eq 'ALL' or $status =~ m/$srv_status/)) {
+            $cmdafter{$srv_name} ||= [];
+            push @{$cmdafter{$srv_name}}, $hostname;
+            $after++;
+            }
+         }
 
       $htmlpage .= "</small></td>\n";
@@ -236 +253 @@
       }
 
-   if (@oomkiller or @aptuptodate) {
+   if (@oomkiller or @aptuptodate or $after) {
       require Nagios::Object::Config;
       my $parser = Nagios::Object::Config->new();
       $parser->parse("/var/cache/nagios3/objects.cache");
+
+      for my $srv_name (keys %cmdafter) {
+         my @action = grep !exists $sshdown{$_}, @{$cmdafter{$srv_name}};
+         if (@action) {
+            $htmlpage .= "<h2>Action: $srv_name</h2>\n";
+            $htmlpage .= "<pre>\n";
+            my $remote_action = $config->{'service'}{$srv_name}{'command'};
+            $remote_action = $config->{'service'}{$srv_name}{'command-one'} if @action == 1;
+            my @hosts;
+            for my $host (@action) {
+               my $object = $parser->find_object("$host", "Nagios::Host");
+               push @hosts, hostmapping($object->address =~ s/\..*$//r);
+               }
+            my $hosts_list = join ' ', @hosts;
+            $htmlpage .= $remote_action =~ s{\%m}{$hosts_list}r;
+            $htmlpage .= "</pre>\n";
+            }
+         }
 
       @oomkiller = grep !exists $sshdown{$_}, @oomkiller;