From 1680a2d57638acbbec683cfa9728384eeae89ee8 Mon Sep 17 00:00:00 2001 From: Stephen L Johnson Date: Wed, 13 Jun 2001 16:07:20 +0000 Subject: [PATCH] stop_after flag not being reset after it's use on a service --- src/spong-message.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/spong-message.pl b/src/spong-message.pl index 24b9802..340573f 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.29 2001/04/20 19:04:17 sljohnson Exp $ +# $Id: spong-message.pl,v 1.30 2001/06/13 16:07:20 sljohnson Exp $ use lib "@@LIBDIR@@"; @@ -703,9 +703,10 @@ 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'} ) { + foreach $groupee ( split /[, \t]+/, + $HUMANS{ $contact->{'rcpt'} }{'group'} ) { my $newent = {'rcpt' => $groupee}; if ( defined $contact->{'delay'} ) { $newent->{'delay'} = $contact->{'delay'}; } -- 2.30.2