From: Stephen L Johnson <sjohnson@monsters.org>
Date: Wed, 13 Jun 2001 16:07:20 +0000 (+0000)
Subject: stop_after flag not being reset after it's use on a service
X-Git-Tag: spong-2_7_5~2
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1680a2d57638acbbec683cfa9728384eeae89ee8;p=spong.git

stop_after flag not being reset after it's use on a service
---

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'}; }