X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fdetail.cgi;h=b4c3e902e8e0251938ce366e42d4db434dffef13;hb=8af32b28b56662686b6ceb59f2e00dc19cfc7a33;hp=646f51e7f37979c961fb18e33c6efe80e93abeef;hpb=12005924b97cde62e3b2f2ddc2c50aa22661a190;p=clearscm.git diff --git a/maps/bin/detail.cgi b/maps/bin/detail.cgi index 646f51e..b4c3e90 100755 --- a/maps/bin/detail.cgi +++ b/maps/bin/detail.cgi @@ -174,17 +174,17 @@ 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; - my ($onlist, $rule); - $rule = 'none'; - - ($onlist, $rule) = OnWhitelist $sender, $userid, 0; + ($onlist, $rule, $hit_count) = OnWhitelist $sender, $userid, 0; unless ($onlist) { - ($onlist, $rule) = OnBlacklist $sender, 0; + ($onlist, $rule, $hit_count) = OnBlacklist $sender, 0; unless ($onlist) { - ($onlist, $rule) = OnNulllist $sender, 0; + ($onlist, $rule, $hit_count) = OnNulllist $sender, 0; } # unless } # unless @@ -195,7 +195,7 @@ sub PrintTable { if ($rule =~ /(\w+):(\d+)/) { my $list = $1; my $sequence = $2 - 1; - my $link = "$list:$2"; + my $link = "$list:$2/$hit_count"; $rule =~ s/\w+:\d+/$link/; } # if