[Benson-commit] CVS: benson2/src/modules/contrib/rules R80escalate.pm,1.3,1.4 R90autoack.pm,1.5,1.6

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

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

Modified Files:
	R80escalate.pm R90autoack.pm 
Log Message:
Major bug fixes, and some small feature enhancments, looking into the memory leak bug that crop'd up again.

Index: R80escalate.pm
===================================================================
RCS file: /cvsroot/benson/benson2/src/modules/contrib/rules/R80escalate.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** R80escalate.pm	2001/05/30 03:21:57	1.3
--- R80escalate.pm	2001/06/17 20:35:36	1.4
***************
*** 10,15 ****
  sub handler {
  	my ($self, $s) = @_;
! 	my $queue = new Benson;
! 	print " R80escalate is running...\n";
  	$array = $queue->alert_list(forwarder => $s->Forwarder);
  	my @alerts = @{$array};
--- 10,14 ----
  sub handler {
  	my ($self, $s) = @_;
! 	my $queue = $s->Queue;
  	$array = $queue->alert_list(forwarder => $s->Forwarder);
  	my @alerts = @{$array};

Index: R90autoack.pm
===================================================================
RCS file: /cvsroot/benson/benson2/src/modules/contrib/rules/R90autoack.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** R90autoack.pm	2001/06/06 18:08:46	1.5
--- R90autoack.pm	2001/06/17 20:35:36	1.6
***************
*** 10,14 ****
  sub handler {
  	my ($self, $s) = @_;
! 	my $queue = new Benson;
  	$s->trace(" R90autoack is running...",3);
  	$array_ref = $queue->alert_list(forwarder => $s->Forwarder);
--- 10,14 ----
  sub handler {
  	my ($self, $s) = @_;
! 	my $queue = $s->Queue;
  	$s->trace(" R90autoack is running...",3);
  	$array_ref = $queue->alert_list(forwarder => $s->Forwarder);