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

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

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

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

Index: R80escalate.pm
===================================================================
RCS file: /cvsroot/benson/benson2/src/modules/contrib/rules/R80escalate.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** R80escalate.pm	2001/06/17 20:35:36	1.4
--- R80escalate.pm	2001/07/15 02:00:56	1.5
***************
*** 11,15 ****
  	my ($self, $s) = @_;
  	my $queue = $s->Queue;
! 	$array = $queue->alert_list(forwarder => $s->Forwarder);
  	my @alerts = @{$array};
  	my $current_time = time();
--- 11,15 ----
  	my ($self, $s) = @_;
  	my $queue = $s->Queue;
! 	$array = $queue->alert_list();
  	my @alerts = @{$array};
  	my $current_time = time();

Index: R90autoack.pm
===================================================================
RCS file: /cvsroot/benson/benson2/src/modules/contrib/rules/R90autoack.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** R90autoack.pm	2001/06/17 20:35:36	1.6
--- R90autoack.pm	2001/07/15 02:00:56	1.7
***************
*** 12,16 ****
  	my $queue = $s->Queue;
  	$s->trace(" R90autoack is running...",3);
! 	$array_ref = $queue->alert_list(forwarder => $s->Forwarder);
  	my @alerts = @{$array_ref};
  	my $current_time = time();
--- 12,16 ----
  	my $queue = $s->Queue;
  	$s->trace(" R90autoack is running...",3);
! 	$array_ref = $queue->alert_list();
  	my @alerts = @{$array_ref};
  	my $current_time = time();