|
From: Bob T. <bt...@us...> - 2003-11-26 00:14:23
|
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;
! }
#
|