[Benson-commit] CVS: benson2/src/modules/contrib/suppress S10simple.pm,1.6,1.7

[Bob T. <bt...@us...>]

Update of /cvsroot/benson/benson2/src/modules/contrib/suppress
In directory usw-pr-cvs1:/tmp/cvs-serv24671/src/modules/contrib/suppress

Modified Files:
	S10simple.pm 
Log Message:
This is somewhat experimental stuff, don't use for real

Index: S10simple.pm
===================================================================
RCS file: /cvsroot/benson/benson2/src/modules/contrib/suppress/S10simple.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** S10simple.pm	2001/06/17 20:51:42	1.6
--- S10simple.pm	2001/07/15 02:00:56	1.7
***************
*** 7,19 ****
  	my ($self,$t) = @_;
  	my $s = $t->server;
- 	my $array_ref = $t->alertlist;
- 	my @alerts = @{$array_ref};
  	my ($curr_time,$curr_id) = split /\./, $t->identity;
  	my $queue = $s->Queue;
! 
  	$s->trace("S10simple suppression handler called", 2);
  
  	for(my $current_alert=0;$current_alert<=$#alerts; $current_alert++) {
  		my ($time,$id) = split /\./, $alert{"identity"};
  		my $total = 0;
  		my %alert = %{$alerts[$current_alert]};
--- 7,21 ----
  	my ($self,$t) = @_;
  	my $s = $t->server;
  	my ($curr_time,$curr_id) = split /\./, $t->identity;
  	my $queue = $s->Queue;
! 	my $array_ref = $queue->alert_list;
! 	my @alerts = @{$array_ref};
  	$s->trace("S10simple suppression handler called", 2);
  
  	for(my $current_alert=0;$current_alert<=$#alerts; $current_alert++) {
  		my ($time,$id) = split /\./, $alert{"identity"};
+ 		if($alerts{"identity"} eq $t->identity) {
+ 			next; # Skip our alert identity
+ 		}
  		my $total = 0;
  		my %alert = %{$alerts[$current_alert]};