[Benson-commit] CVS: benson2/src/modules/Server/lib/Benson Alert.pm,1.1.1.1,1.2 Server.pm,1.3,1.4

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

Update of /cvsroot/benson/benson2/src/modules/Server/lib/Benson
In directory usw-pr-cvs1:/tmp/cvs-serv24671/src/modules/Server/lib/Benson

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

Index: Alert.pm
===================================================================
RCS file: /cvsroot/benson/benson2/src/modules/Server/lib/Benson/Alert.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** Alert.pm	2001/03/23 03:13:29	1.1.1.1
--- Alert.pm	2001/07/15 02:00:56	1.2
***************
*** 8,13 ****
  	my ($server,$alerts) = @_;
  	my $self = {
! 		server => $server,
! 		alertlist => $alerts
  	};
  	bless $self, $class;
--- 8,12 ----
  	my ($server,$alerts) = @_;
  	my $self = {
! 		server => $server
  	};
  	bless $self, $class;

Index: Server.pm
===================================================================
RCS file: /cvsroot/benson/benson2/src/modules/Server/lib/Benson/Server.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** Server.pm	2001/05/08 03:54:33	1.3
--- Server.pm	2001/07/15 02:00:56	1.4
***************
*** 15,22 ****
  sub BuildIdentity {
  	my $self = shift;
! 	my ($alert_list,$agent,$sev,$sub,$msg) = @_;
  	my $id = "";
  	my @words = split /\s+/, $msg;
- 	print $alert_list."\n";
  	$id .= time().".";
  	push @words, $agent;
--- 15,21 ----
  sub BuildIdentity {
  	my $self = shift;
! 	my ($agent,$sev,$sub,$msg) = @_;
  	my $id = "";
  	my @words = split /\s+/, $msg;
  	$id .= time().".";
  	push @words, $agent;