7 |
my $s = $search; |
my $s = $search; |
8 |
|
|
9 |
# remove re: fdw: [list] preffixes from e-mail |
# remove re: fdw: [list] preffixes from e-mail |
10 |
while ( $s =~ s/^\s*\[(?:re|fwd|fw):\s+(.+)\]\s*$/$1/ig || |
while ( $s =~ s/^\s*\[(?:re|fwd|fw)(?:\[\d+\])*:\s+(.+)\]\s*$/$1/ig || |
11 |
$s =~ s/^\s*(?:re|fwd|fw):\s+(.+?)\s*$/$1/ig || |
$s =~ s/^\s*(?:re|fwd|fw)(?:\[\d+\])*:\s+(.+?)\s*$/$1/ig || |
12 |
$s =~ s/^\[\S+\]\s*//ig || |
$s =~ s/^\[\S+\]\s*//ig || |
13 |
$s =~ s/^\[[^@]+@[\w\.]+\s*:\s+(.+)\s*\]\s*$/$1/g || |
$s =~ s/^\[[^@]+@[\w\.]+\s*:\s+(.+)\s*\]\s*$/$1/g || |
14 |
$s =~ s/\(fwd\)\s*$//ig || |
$s =~ s/\(fwd\)\s*$//ig || |
67 |
[% END %] |
[% END %] |
68 |
[% END %] |
[% END %] |
69 |
|
|
|
[% MACRO date(msg) BLOCK %] |
|
|
<span class="date">[% msg.date %]</span> |
|
|
[% END %] |
|
|
|
|
70 |
[% MACRO usage_list(list,key,description) BLOCK %] |
[% MACRO usage_list(list,key,description) BLOCK %] |
71 |
[% IF list %] |
[% IF list %] |
72 |
<div class="[% key %]"> |
<div class="[% key %]"> |
73 |
[% description %] |
[% description %] |
74 |
[% FOREACH l IN list %] |
[% FOREACH l IN list %] |
75 |
<br>[% search(key,l.name,param.sort_by) %] <span class="counter">[% l.usage %]</span> |
<br>[% search("${key}_phrase",l.name,param.sort_by) %] <span class="counter">[% l.usage %]</span> |
76 |
[% END %] |
[% END %] |
77 |
</div> |
</div> |
78 |
[% END %] |
[% END %] |
104 |
|
|
105 |
[% MACRO url_show_id(id) BLOCK ; |
[% MACRO url_show_id(id) BLOCK ; |
106 |
'?show_id=' ; id ; |
'?show_id=' ; id ; |
107 |
IF param.sort_by ; '&sort_by=' ; param.sort_by ; |
IF param.search ; '&search=' ; param.search ; END ; |
108 |
END ; |
IF param.sort_by ; '&sort_by=' ; param.sort_by ; END ; |
109 |
END %] |
END %] |
110 |
|
|
111 |
|
|
112 |
[% MACRO url_search BLOCK ; |
[% MACRO url_search(search_for) BLOCK ; |
113 |
IF param.sort_by ; "?search=" ; param.search ; "&sort_by=" ; param.sort_by ; |
IF param.sort_by ; "?search=" ; search_for ; "&sort_by=" ; param.sort_by ; |
114 |
ELSE ; "?search=" ; param.search ; |
ELSE ; "?search=" ; search_for ; |
115 |
END ; |
END ; |
116 |
END %] |
END %] |
117 |
|
|
168 |
} ); |
} ); |
169 |
[% END %] |
[% END %] |
170 |
|
|
171 |
|
|
172 |
|
[% MACRO date(msg) BLOCK %] |
173 |
|
<span class="date"><a href="/[% yyyy_mm(msg.date) %]/[% url_search(param.search) %]">[% msg.date %]</a></span> |
174 |
|
[% END %] |
175 |
|
|
176 |
|
[% PERL %] |
177 |
|
$stash->set( yyyy_mm => sub { |
178 |
|
my $d = shift; |
179 |
|
|
180 |
|
if ($d =~ /^(\d{4}[\-\/]\d{2})/) { |
181 |
|
return $1; |
182 |
|
} else { |
183 |
|
return $d; |
184 |
|
} |
185 |
|
} ); |
186 |
|
[% END %] |
187 |
|
|
188 |
|
[% PERL %] |
189 |
|
$stash->set( id => sub { |
190 |
|
my ($folder,$msgid) = split(/\s+/,shift); |
191 |
|
return $msgid; |
192 |
|
} ); |
193 |
|
|
194 |
|
$stash->set( folder => sub { |
195 |
|
my ($folder,$msgid) = split(/\s+/,shift); |
196 |
|
return $folder; |
197 |
|
} ); |
198 |
|
[% END %] |