Changeset 443
- Timestamp:
- 07/26/10 14:27:36 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cgi-bin/IPDB.pm
r437 r443 850 850 my $sth = $dbh->prepare("SELECT reciplist FROM notify WHERE action=?"); 851 851 852 my @reciplist;852 my %reciplist; 853 853 foreach (@actionsets) { 854 854 $sth->execute($_); … … 857 857 next if !$recipsub; 858 858 foreach (split(/,/, $recipsub)) { 859 push @reciplist, $_ if !grep {/^$_$/} @reciplist;859 $reciplist{$_}++; 860 860 } 861 861 } 862 862 863 return if ! @reciplist;864 865 foreach my $recip ( @reciplist) {863 return if !%reciplist; 864 865 foreach my $recip (keys %reciplist) { 866 866 $mailer->mail("ipdb\@$domain"); 867 867 $mailer->to($recip);
Note:
See TracChangeset
for help on using the changeset viewer.