- foreach my $sender (ReturnSenders $userid, $type, $next, $lines, $date) {
- my @msgs = ReturnMessages $userid, $sender;
+ for my $sender (ReturnSenders($userid, $type, $next, $lines, $date)) {
+ my @msgs = ReturnMessages($userid, $sender);
+ my @msgs2 = @msgs;
+
+ my ($onlist, $seq);
+
+ my $rule = 'none';
+ my $hit_count = 0;
+
+ ($onlist, $rule, $seq, $hit_count) = OnWhitelist($sender, $userid, 0);
+
+ unless ($onlist) {
+ ($onlist, $rule, $seq, $hit_count) = OnBlacklist($sender, 0);
+
+ unless ($onlist) {
+ ($onlist, $rule, $seq, $hit_count) = OnNulllist($sender, 0);
+ } # unless
+ } # unless
+
+ if ($rule) {
+ $rule =~ s/Matching rule: \(//;
+ $rule =~ s/\)//;
+
+ if ($rule =~ /(\w+):(\d+)/) {
+ my $list = $1;
+ my $sequence = $2 - 1;
+ my $link = "<a href=\"/maps/php/list.php?type=$list&next=$sequence\">$list:$2</a>/$hit_count";
+
+ $rule =~ s/\w+:\d+/$link/;
+ } # if
+ } # if