[Benson-commit] CVS: benson3/src/perl/Benson/lib/Benson/Handlers/Network Update.pm,1.4,1.5

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

Update of /cvsroot/benson/benson3/src/perl/Benson/lib/Benson/Handlers/Network
In directory sc8-pr-cvs1:/tmp/cvs-serv818/src/perl/Benson/lib/Benson/Handlers/Network

Modified Files:
	Update.pm 
Log Message:
More updates to the system.

Index: Update.pm
===================================================================
RCS file: /cvsroot/benson/benson3/src/perl/Benson/lib/Benson/Handlers/Network/Update.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** Update.pm	6 Feb 2002 20:44:23 -0000	1.4
--- Update.pm	26 Nov 2003 00:14:20 -0000	1.5
***************
*** 17,22 ****
  	my $s = $a->server;
  	my $identity = $a->identity;
  	my $status = $a->status;
! 	$s->trace("Preparing to update alert status ($status) for identity = $identity", 4);
  
  #
--- 17,35 ----
  	my $s = $a->server;
  	my $identity = $a->identity;
+ 	my $agent = $a->agent;
+ 	my $subsystem = $a->subsystem;
  	my $status = $a->status;
! 
! #
! # Determine what track we are updating on... identity or agent/subsystem pair
! #
! 	if(defined $identity) {
! 		$s->trace("Preparing to update alert status ($status) for identity = $identity", 4);
! 	} elsif((defined $agent) && (defined $subsystem)) {
! 		$s->trace("Preparing to update alert status ($status) for agent/subsystem = $agent/$subsystem", 4);
! 	} else {
! 		$s->trace("(param error) update alert status failed. No parameters supplied (identity) or (agent/suppress)",4);
! 		return ERROR;
! 	}
  
  #