Changeset 380 for trunk/nagios-velvice/velvice.cgi
- Timestamp:
- Jan 5, 2019, 8:55:36 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/nagios-velvice/velvice.cgi
r378 r380 7 7 # 8 8 # velvice.cgi 9 # Copyright (C) 2014-201 8, LEGI UMR 5519 / CNRS UGA G-INP, Grenoble, France9 # Copyright (C) 2014-2019, LEGI UMR 5519 / CNRS UGA G-INP, Grenoble, France 10 10 # 11 11 # Need NagiosStatus http://exchange.nagios.org/directory/Addons/APIs/Perl/NagiosStatus-2Epm/details … … 17 17 use strict; 18 18 use warnings; 19 use version; our $VERSION = version->declare('0.10. 6');19 use version; our $VERSION = version->declare('0.10.7'); 20 20 21 21 use CGI; … … 153 153 $hostcount{$host} ||= {count => 0, color => $color, status_id => $status_id, downtime => $downtime}; 154 154 $hostcount{$host}->{'count'}++; 155 if (($status_id >= $hostcount{$host}->{'status_id'}) and ($downtime < $hostcount{$host}->{'downtime'})) { 155 if (($status_id > $hostcount{$host}->{'status_id'}) 156 or (($status_id == $hostcount{$host}->{'status_id'}) and ($downtime < $hostcount{$host}->{'downtime'}))) { 156 157 $hostcount{$host}->{'downtime'} = $downtime; 157 158 $hostcount{$host}->{'status_id'} = $status_id;
Note: See TracChangeset
for help on using the changeset viewer.