1375 |
<p>See <a href="/history">history</a> of all messages.</p> |
<p>See <a href="/history">history</a> of all messages.</p> |
1376 |
</body></html>}; |
</body></html>}; |
1377 |
|
|
1378 |
$response->content( decode('utf-8',$html) ); |
$response->content( $html ); |
1379 |
warn "<< ", $request->method, " ", $request->uri, " created ", length($html), " bytes\n"; |
warn "<< ", $request->method, " ", $request->uri, " created ", length($html), " bytes\n"; |
1380 |
return RC_OK; |
return RC_OK; |
1381 |
} |
} |
1415 |
} |
} |
1416 |
|
|
1417 |
my $html = qq{<div id="htmltagcloud">}; |
my $html = qq{<div id="htmltagcloud">}; |
1418 |
foreach my $tag (@tags) { |
foreach my $tag ( sort { lc($a->{name}) cmp lc($b->{name}) } @tags) { |
1419 |
$html .= sprintf(qq{<span class="tag tagcloud%d"><a href="%s" title="%s">%s</a></span>\n}, |
$html .= sprintf(qq{<span class="tag tagcloud%d"><a href="%s" title="%s">%s</a></span>\n}, |
1420 |
$tag->{level}, $tag->{url}, $tag->{count}, $tag->{name} |
$tag->{level}, $tag->{url}, $tag->{count}, $tag->{name} |
1421 |
); |
); |