Is your pseudo code if statement in the MySQL query or in your Perl code?

Does that make sense?

It might help if you showed relevant bits of your existing code, at least the parts that do not do what you want.

How are your events received? Are they strings? Are they hashes with slot names as keys? Are they database records?

In your existing code, with all the filter values from the DB in a hash, what is your code for checking the slot/value combos against the received events?

here's the main chunk of code from the existing script, which is doing the job just fine

    while (my($gid,$gname) = each %groups) {
        if ($debug >= 3) { writeLog("I","Check notification group $gna
+me");}
        ##Create an ARRAY with each filter for each group
        my @gArray = getFilterGroups($gid);
        foreach my $fGroup (@gArray) {
            my %fHash = getFilters($fGroup);
            my $fullMatch = getEntries($fGroup);
            if ($debug >=3) { writeLog("I","The filter group ($fGroup)
+ has $fullMatch entries");}
            my $count = 0;
            while (my($slot,$value) = each %fHash) {
                if ($debug >=3) { writeLog("I","Checking event against
+ FILTER:$slot=>$value");}
                my $result = checkEvent($slot,$value);
                if ($result == 1) {
                    if ($debug >=3) {writeLog("I","Tivoli slot and fil
+ter slot information match");}
                    $count++;
                    if ($debug >=4) {writeLog("I","Count is at $count 
+--> fullMatch is $fullMatch")};
                    if ($count == $fullMatch) {
                        my @memberList = getMembers($gid);
                        foreach my $member(@memberList) {
                            if ($debug >=2) {writeLog("I","Generating 
+automated notification to $member");}
                            #notifyLog($member);
                            notify($member);
                        }
                        if ($debug >= 1) { writeLog("I","inserting int
+o db log");}
                        dblog($gid);
                        $count = 0;
                    }
                }
            }
        }
    }
[download]

It simply loops through all the groups present in the DB and grabs the filters. It considers a match to be when all the slot/value combination's in the filter DB match with those received from the event.

Events are received from a BMC product called Impact. It has a built-in rules engine and when certain criteria are satisfied we call the PERL script.

Details of the events are passed to the script as environment variables, here's a code snippet,

my $thost = $ENV{mc_host};
my $source = $ENV{source};
my $server_hndl = $ENV{server_handle};
[download]

If SlotA = Value and SlotB = Value and SlotC in (value1, value2) then 
+notify GroupA
[download]

There are actually a bunch of other tables,

• users: this table contains email address, and user names
• groups: this table defines all the groups - group id's and names
• membership: this table relates users to groups
• notify: this table relates filters to groups
• filter: this table actually contains the filters

Thanks for the tip! Here's the new code to handle a situation when the key already exists

while (my($slot,$value) = $filterSth->fetchrow_array()) {
  if ($filerHash{$slot}) {
     //slot already exists, just append to it
     my $existingValue = $filterHash{$slot};
     my $newValue = $existingValue . " | " . $value;
     $filterHash{$slot} = $newValue;
  } else {
     //slot does not exist, just add it
     $filterHash{$slot} = $value;
  }
}
[download]