From: Stephen L Johnson Date: Fri, 20 Apr 2001 19:04:17 +0000 (+0000) Subject: contac group processing has wrong variable subscript in add_contact() X-Git-Tag: spong-2_7_4~4 X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=05bc3bc906e4d18f9561a06e11f7d5d88b75d165;p=spong.git contac group processing has wrong variable subscript in add_contact() --- diff --git a/src/spong-message.pl b/src/spong-message.pl index df44b53..24b9802 100755 --- a/src/spong-message.pl +++ b/src/spong-message.pl @@ -12,7 +12,7 @@ # (2) Added rules based paging (Stephen Johnson Nov 14, 1998) # (3) Added checks against Acks and downtime (Stephen Johnson Mar 17, 1999) # -# $Id: spong-message.pl,v 1.28 2001/04/17 21:39:48 sljohnson Exp $ +# $Id: spong-message.pl,v 1.29 2001/04/20 19:04:17 sljohnson Exp $ use lib "@@LIBDIR@@"; @@ -703,7 +703,7 @@ sub add_contact { $contact->{'rcpt'} : ": " . $contact)); if ( ref($contact) eq 'HASH') { # foreach $rcpt ( split /[, \t]+/, $contact->{'rcpt'} ) { - if ( $HUMANS{$contact}{'rcpt'}{'group'} ) { + if ( $HUMANS{ $contact{'rcpt'} }{'group'} ) { my $groupee; foreach $groupee ( split /[, \t]+/, $HUMANS{$rcpt}->{'group'} ) { my $newent = {'rcpt' => $groupee};