X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fdetail.cgi;h=b4c3e902e8e0251938ce366e42d4db434dffef13;hb=8af32b28b56662686b6ceb59f2e00dc19cfc7a33;hp=85ecb4958560e4441cbd9dde911de4c367f014a2;hpb=49b3d4933c2fcfd5a2665a4ffb9cb7ccd0184c10;p=clearscm.git

diff --git a/maps/bin/detail.cgi b/maps/bin/detail.cgi
index 85ecb49..b4c3e90 100755
--- a/maps/bin/detail.cgi
+++ b/maps/bin/detail.cgi
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 #################################################################################
+#
 # File:         $RCSfile: detail.cgi,v $
 # Revision:     $Revision: 1.1 $
 # Description:  Displays list of email addresses based on report type.
@@ -10,7 +11,8 @@
 #
 # (c) Copyright 2000-2006, Andrew@DeFaria.com, all rights reserved.
 #
-################################################################################use strict;
+################################################################################
+use strict;
 use warnings;
 
 use MIME::Words qw(:all);
@@ -172,6 +174,32 @@ sub PrintTable {
   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;
+
+    ($onlist, $rule, $hit_count) = OnWhitelist $sender, $userid, 0;
+
+    unless ($onlist) {
+      ($onlist, $rule, $hit_count) = OnBlacklist $sender, 0;
+
+      unless ($onlist) {
+        ($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
@@ -180,7 +208,7 @@ sub PrintTable {
       td {-class => 'tableborder'}, small ($next,
         checkbox {-name  => "action$next",
                   -label => ''}),
-          hidden ({-name     => "email$next",
+          hidden ({-name    => "email$next",
                    -default => $sender});
     print
       start_td {-align => 'left'};
@@ -196,8 +224,12 @@ sub PrintTable {
           -valign  => 'middle',
           -width   => '40'}, 'Sender:',
       td {-class   => 'sender',
+          -valign  => 'middle',
+          -width   => '40%'},
+        a {-href   => "mailto:$sender?subject=$msgs2[0][0]"}, $sender,
+      td {
           -valign  => 'middle'},
-        a {-href   => "mailto:$sender?subject=$msgs2[0][0]"}, $sender;
+          $rule;
     print
       end_table;
 
@@ -263,6 +295,7 @@ sub PrintTable {
 } # PrintTable
 
 # Main
+my $condition;
 my @scripts = ('ListActions.js');
 
 my $heading_date =$date ne '' ? ' on ' . FormatDate ($date) : '';