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

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

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

Modified Files:
	Submit.pm 
Log Message:
Fixed many show stopping things.

Index: Submit.pm
===================================================================
RCS file: /cvsroot/benson/benson3/src/perl/Benson/lib/Benson/Handlers/Network/Submit.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** Submit.pm	21 May 2002 20:11:28 -0000	1.5
--- Submit.pm	2 Aug 2004 19:18:26 -0000	1.6
***************
*** 16,20 ****
  	my $hash = "";
  	foreach my $word (split /\s+/, $value) {
! 		$hash .= substr($value, 0, 1);
  	}
  	return $hash;
--- 16,20 ----
  	my $hash = "";
  	foreach my $word (split /\s+/, $value) {
! 		$hash .= substr($word, 0, 1);
  	}
  	return $hash;
***************
*** 28,31 ****
--- 28,32 ----
  	$hash .= build_hash($a->subsystem);
  	$hash .= build_hash($a->message);
+ 	$hash = substr($hash, 0, 30);
  	my @row = $dbh->selectrow_array(qq{SELECT NEXTVAL('alerts_sequence')});
  	my $seq = $row[0];