1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
#!/usr/bin/perl -w
#
# This is purely used to generate a page on the website; it's not intended
# to be distributed or installed.
use HTML::Entities;
my $tmpl = q{<tr __BGCOLOR__><td><strong>__TYPE__</strong></td>
<td><font size=-1>__LANG__</font></td>
<td><font size=-1>__DESCRIPTION__</font></td>
<td><font size=-1>__NAME__</font></td><td>__SCORE__</td>
<td><a href='__MORE__'>Wiki</a></td></tr>};
my %test = ();
my %type = ();
my %lang = ();
my %desc = ();
while (<>) {
s/(?<!\\)#.*$//; # remove comments
s/^\s+//; s/\s+$//;
my $lang ='';
if (s/^lang\s+(\S+)\s+//) { $lang = $1; }
if (/^(header|body|rawbody|uri|full)\s+(\S+)\s+(.+)$/) {
if (!defined $test{$2}) {
push (@testnames, $2);
$type{$2} = $1;
$lang{$2} = $lang;
}
$test{$2} = $3;
} elsif (/^describe\s+(\S+)\s+(.+)$/) {
# no locale; overrides any other desc
if ($lang eq '') {
$desc{$1} = $2;
}
# uses the test's "native" locale
if (defined ($lang) && defined($lang{$1}) && $lang{$1} eq $lang) {
if (!defined $desc{$1}) { $desc{$1} = $2; }
}
} elsif (/^score\s+(\S+)\s+(.+)$/) {
$score{$1} = $2;
}
}
my $n = 0;
foreach my $t (@testnames) {
next if ($t =~ /^__/);
next if ($t =~ /^T_/);
$n++;
$_ = $tmpl;
my $desc = $desc{$t};
if (!defined $desc) { $desc = $test{$t}; }
$desc =~ s,\|,| ,gs; # allow line breaks on pipes
$desc =~ s,\$,(dollar) ,gs;
$desc = HTML::Entities::encode ($desc);
my $bgcolor = '';
if ($n % 2 == 0) { $bgcolor = ' bgcolor=#ccffcc'; }
$t =~ s/[^A-Za-z0-9_]/_/gs; # sanitize odd chars
my $more = 'http://wiki.apache.org/spamassassin/Rules/'.$t;
s/__BGCOLOR__/$bgcolor/gs;
s/__NAME__/$t/gs;
s/__DESCRIPTION__/$desc/gs;
s/__TYPE__/$type{$t}/gs;
s/__LANG__/$lang{$t}/gs;
s/__SCORE__/$score{$t} or 1/ges;
s/__MORE__/$more/gs;
print;
}
|
