Changeset 443 for trunk/cgi-bin

Timestamp:

07/26/10 14:27:36 (14 years ago)

Author:

Kris Deugau

Message:

/trunk

Fix up multirecipient handling in mailNotify(); for reasons
unknown recipients beyond the first weren't making it into the
@recipients array.

File:

• trunk/cgi-bin/IPDB.pm (modified) (2 diffs)

trunk/cgi-bin/IPDB.pm

@@ -850 +850 @@
   my $sth = $dbh->prepare("SELECT reciplist FROM notify WHERE action=?");
 
-  my @reciplist;
+  my %reciplist;
   foreach (@actionsets) {
     $sth->execute($_);
@@ -857 +857 @@
     next if !$recipsub;
     foreach (split(/,/, $recipsub)) {
-      push @reciplist, $_ if !grep {/^$_$/} @reciplist;
+      $reciplist{$_}++;
     }
   }
 
-  return if !@reciplist;
-
-  foreach my $recip (@reciplist) {
+  return if !%reciplist;
+
+  foreach my $recip (keys %reciplist) {
     $mailer->mail("ipdb\@$domain");
     $mailer->to($recip);