From: Stephen L Johnson <sjohnson@monsters.org>
Date: Tue, 17 Apr 2001 21:39:48 +0000 (+0000)
Subject: fixed problem in add_contact() and rcpt hashes.
X-Git-Tag: spong-2_7_4~5
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0948f36199e3a730136c2a94eeb986e1051368b0;p=spong.git

fixed problem in add_contact() and rcpt hashes.
---

diff --git a/src/spong-message.pl b/src/spong-message.pl
index eaf1b1c..df44b53 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.27 2001/02/07 14:33:10 sljohnson Exp $
+# $Id: spong-message.pl,v 1.28 2001/04/17 21:39:48 sljohnson Exp $
 
 use lib "@@LIBDIR@@";
 
@@ -702,8 +702,8 @@ sub add_contact {
    &debug("Adding contact " . (ref($contact) eq 'HASH' ? "hash: " .
           $contact->{'rcpt'} : ": " . $contact));
    if ( ref($contact) eq 'HASH') {
-      foreach $rcpt ( split /[, \t]+/, $contact->{'rcpt'} ) {
-         if ( $HUMANS{$rcpt}->{'group'} ) {
+#      foreach $rcpt ( split /[, \t]+/, $contact->{'rcpt'} ) {
+         if ( $HUMANS{$contact}{'rcpt'}{'group'} ) {
             my $groupee;
             foreach $groupee ( split /[, \t]+/, $HUMANS{$rcpt}->{'group'} ) {
                my $newent = {'rcpt' => $groupee};
@@ -716,9 +716,9 @@ sub add_contact {
                &add_contact(\@con, $newent);
             }
          } else {
-            push @con, $rcpt
+            push @con, $contact;
          } 
-      }
+#      }
    } elsif ( $HUMANS{$contact}->{'group'} ) {
       my $groupee;
       foreach $groupee ( split /[, \t]+/, $HUMANS{$contact}->{'group'} ) {