Changeset 319

Timestamp:

Jul 20, 2018, 12:24:13 PM (6 years ago)

Author:

g7moreau

Message:

• Master color if multiple alert on one host

File:

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

trunk/nagios-velvice/velvice.cgi

@@ -15 +15 @@
 use strict;
 use warnings;
-use version; our $VERSION = version->declare('0.8.9');
+use version; our $VERSION = version->declare('0.8.10');
 
 use CGI;
@@ -98 +98 @@
       }}
 
+   SRV:
    for my $srv ($log->list_services_on_host($host)) {
-      if ($log->service($host, $srv)->status ne 'OK') {
-         push @serviceproblems, $log->service($host, $srv);
-         $hostcount{$host}++;
+      my $status = $log->service($host, $srv)->status;
+
+      next SRV if $status eq 'OK';
+
+      push @serviceproblems, $log->service($host, $srv);
+    
+      my $downtime = downtime($log->service($host, $srv)->last_state_change);
+      my $color    = $status eq 'CRITICAL' ? '#F88888' : '#FFFF00';
+      $color = alertcolor($color, $downtime);
+
+      my %status_db = (
+         CRITICAL => 3,
+         WARNING  => 2,
+         PENDING  => 1,
+         );
+
+      my $status_id = 0;
+      $status_id = $status_db{$status} if exists $status_db{$status};
+
+      #$hostcount{$host}++;
+      $hostcount{$host} ||= {count => 0, color => $color, status_id => $status_id, downtime => $downtime};
+      $hostcount{$host}->{'count'}++;
+      if (($status_id >= $hostcount{$host}->{'status_id'}) and ($downtime < $hostcount{$host}->{'downtime'})) {
+         $hostcount{$host}->{'downtime'}  = $downtime;
+         $hostcount{$host}->{'status_id'} = $status_id;
+         $hostcount{$host}->{'color'}     = $color;
          }
       }
@@ -182 +206 @@
       $htmlpage .= " <tr>\n";
       if ($hostname ne $current_host) {
-         $current_host = $hostname;
-         $htmlpage .= "  <td $stylecolor rowspan='$hostcount{$hostname}'>"
+         $current_host  = $hostname;
+         my $rowspan    = $hostcount{$hostname}->{'count'};
+         my $rowcolor   = "style='background:" . $hostcount{$hostname}->{'color'} . ";'";
+         $htmlpage .= "  <td $rowcolor rowspan='$rowspan'>"
             . "<a href=\"$cgi_script_name?check=" . uri_encode($hostname) . '">&#8623;</a></td>' . "\n";
-         $htmlpage .= "  <td $stylecolor class='hoop' rowspan='$hostcount{$hostname}'>"
+         $htmlpage .= "  <td $rowcolor class='hoop' rowspan='$rowspan'>"
             . "<a href=\"$config->{'nagios-server'}{'status-cgi'}?host=" . uri_encode($hostname) . "\">$hostname</a></td>\n";
          }