#!/usr/bin/perl -w
use strict;
################### Test arrays ########################
my @severity_map = (
    "Error:Warning",         "Warning:Minor",
    "Critical:Critical",     "Alarm:Critical",
    "System Shutdown:Fatal", "System Powered Off:Fatal",
    "Failure:Critical",      "Memory Bank Deconfigured:Warning",
    "Uncorrectable ECC:Fatal"
);

my @description_samples = (
    "Memory Bank Deconfigured",
    "Uncorrectable ECC",
    "Sticky Corrected ECC Error",
    "System Shutdown"
);

################### The code #########################

foreach my $description (@description_samples) {
    my $severity;
    foreach (@severity_map) {
        /(.*):(.*)/;
        my $regexp = $1;
        # uncomment following to see why this drives me mad
        # print "does $description=~/$regexp/i\n";
        next unless $description =~ /$regexp/i;
        $severity = $2;
    }
    unless ($severity) {
        print "can find no severity mapping for: $description ";
        print "defaulting to WARNING\n";
        $severity = "Warning";
    }
}

##</code><code>##

my @severity_map = (
    ["Error","Warning"],         ["Warning","Minor"],
    ["Critical","Critical"],     ["Alarm","Critical"],
.
.
.
    foreach (@severity_map) {
        next unless $description =~ /$_->[0]/i;
        $severity = $_->[1];
    }