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 || |
109 |
END %] |
END %] |
110 |
|
|
111 |
|
|
112 |
[% MACRO url_search(param) BLOCK ; |
[% MACRO url_search(search_for) BLOCK ; |
113 |
IF !param ; param = param.search ; END ; |
IF param.sort_by ; "?search=" ; search_for ; "&sort_by=" ; param.sort_by ; |
114 |
IF param.sort_by ; "?search=" ; param ; "&sort_by=" ; param.sort_by ; |
ELSE ; "?search=" ; search_for ; |
|
ELSE ; "?search=" ; param ; |
|
115 |
END ; |
END ; |
116 |
END %] |
END %] |
117 |
|
|
170 |
|
|
171 |
|
|
172 |
[% MACRO date(msg) BLOCK %] |
[% MACRO date(msg) BLOCK %] |
173 |
<span class="date"><a href="/[% yyyy_mm(msg.date) %]/[% url_search %]">[% msg.date %]</a></span> |
<span class="date"><a href="/[% yyyy_mm(msg.date) %]/[% url_search(param.search) %]">[% msg.date %]</a></span> |
174 |
[% END %] |
[% END %] |
175 |
|
|
176 |
[% PERL %] |
[% PERL %] |
184 |
} |
} |
185 |
} ); |
} ); |
186 |
[% END %] |
[% 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 %] |