projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added cplintm
[clearscm.git]
/
maps
/
bin
/
checkaddress.cgi
diff --git
a/maps/bin/checkaddress.cgi
b/maps/bin/checkaddress.cgi
index
a1b0d5e
..
210d5c1
100755
(executable)
--- a/
maps/bin/checkaddress.cgi
+++ b/
maps/bin/checkaddress.cgi
@@
-42,12
+42,16
@@
sub formatRule($$$) {
my ($list, $email_on_file, $rec) = @_;
my $next = $rec->{sequence} - 1;
my ($list, $email_on_file, $rec) = @_;
my $next = $rec->{sequence} - 1;
- my $rule = "Rule: $email_on_file (";
+ my $rule = 'Rule: "';
+ $rule .= $rec->{pattern} || '';
+ $rule .= '@';
+ $rule .= $rec->{domain} || '';
+ $rule .= '" - ';
$rule .= a {
-href => "/maps/php/list.php?type=$list&next=$next",
-target => '_blank',
}, "$list:$rec->{sequence}";
$rule .= a {
-href => "/maps/php/list.php?type=$list&next=$next",
-target => '_blank',
}, "$list:$rec->{sequence}";
- $rule .=
')' .
br;
+ $rule .= br;
if ($rec->{retention}) {
$rule .= "Retention: " . $rec->{retention} . br;
if ($rec->{retention}) {
$rule .= "Retention: " . $rec->{retention} . br;