#!/usr/bin/perl
#################################################################################
+#
# File: $RCSfile: detail.cgi,v $
# Revision: $Revision: 1.1 $
# Description: Displays list of email addresses based on report type.
#
# (c) Copyright 2000-2006, Andrew@DeFaria.com, all rights reserved.
#
-################################################################################use strict;
+################################################################################
+use strict;
use warnings;
use MIME::Words qw(:all);
foreach my $sender (ReturnSenders $userid, $type, $next, $lines, $date) {
my @msgs = ReturnMessages $userid, $sender;
my @msgs2 = @msgs;
+ my $onlist;
+ my $rule = 'none';
+ my $hit_count = 0;
- my ($onlist, $rule);
- $rule = 'none';
-
- ($onlist, $rule) = OnNulllist $sender;
+ ($onlist, $rule, $hit_count) = OnWhitelist $sender, $userid, 0;
unless ($onlist) {
- ($onlist, $rule) = OnBlacklist $sender;
+ ($onlist, $rule, $hit_count) = OnBlacklist $sender, 0;
unless ($onlist) {
- ($onlist, $rule) = OnWhitelist $sender;
+ ($onlist, $rule, $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
+
$next++;
print
start_Tr {-valign => 'middle'};
-width => '40'}, 'Sender:',
td {-class => 'sender',
-valign => 'middle',
- -width => '50%'},
+ -width => '40%'},
a {-href => "mailto:$sender?subject=$msgs2[0][0]"}, $sender,
td {
-valign => 'middle'},
} # PrintTable
# Main
+my $condition;
my @scripts = ('ListActions.js');
my $heading_date =$date ne '' ? ' on ' . FormatDate ($date) : '';