Incident Queue Reliability Report

Count incidents visible at a selected minimum severity.

Incident Queue Reliability Report

incident_queue.pl

use strict;
use warnings;

my $min_severity = ;
my $visible = 0;
my $high = 0;

for my $severity (1, 2, 3, 3) {
    if ($severity >= $min_severity) {
        $visible = $visible + 1;
    }
    if ($severity >= 3) {
        $high = $high + 1;
    }
}

print "min=$min_severity visible=$visible high=$high\n";

use strict;
use warnings;

my $min_severity = ;
my $visible = 0;
my $high = 0;

for my $severity (1, 2, 3, 3) {
    if ($severity >= $min_severity) {
        $visible = $visible + 1;
    }
    if ($severity >= 3) {
        $high = $high + 1;
    }
}

print "min=$min_severity visible=$visible high=$high\n";

use strict;
use warnings;

my $min_severity = ;
my $visible = 0;
my $high = 0;

for my $severity (1, 2, 3, 3) {
    if ($severity >= $min_severity) {
        $visible = $visible + 1;
    }
    if ($severity >= 3) {
        $high = $high + 1;
    }
}

print "min=$min_severity visible=$visible high=$high\n";

incident queue Small severity lists make queue thresholds visible without using external incident systems.