|
From: Bob T. <bt...@us...> - 2001-06-17 20:35:38
|
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);
|