995 |
$feed_entry->author( $m->{nick} ); |
$feed_entry->author( $m->{nick} ); |
996 |
$feed_entry->link( '/#' . $m->{id} ); |
$feed_entry->link( '/#' . $m->{id} ); |
997 |
$feed_entry->issued( DateTime::Format::Flexible->build( $m->{time} ) ); |
$feed_entry->issued( DateTime::Format::Flexible->build( $m->{time} ) ); |
998 |
|
|
999 |
|
my $message = $filter->{message}->( $m->{message} ); |
1000 |
|
$message .= "<br/>\n" unless $message =~ m!<(/p|br/?)>!; |
1001 |
|
warn "## message = $message\n"; |
1002 |
|
from_to( $message, $ENCODING, 'UTF-8' ); |
1003 |
|
|
1004 |
#$feed_entry->summary( |
#$feed_entry->summary( |
1005 |
$feed_entry->content( |
$feed_entry->content( |
1006 |
'<![CDATA[' . |
"<![CDATA[$message]]>" |
|
# $filter->{nick}->( $m->{nick} ) . |
|
|
# '<tt>' . $m->{nick} . '</tt> ' . |
|
|
$filter->{message}->( $m->{message} ) . |
|
|
"<br/>\n]]>" |
|
1007 |
); |
); |
1008 |
$feed_entry->category( join(', ', @{$m->{tags}}) ); |
$feed_entry->category( join(', ', @{$m->{tags}}) ); |
1009 |
$feed->add_entry( $feed_entry ); |
$feed->add_entry( $feed_entry ); |
1031 |
} . |
} . |
1032 |
$cloud->html(500) . |
$cloud->html(500) . |
1033 |
qq{<p>}; |
qq{<p>}; |
1034 |
if ($request->url =~ m#/history#) { |
|
1035 |
|
if ($request->url =~ m#/tags?#) { |
1036 |
|
# nop |
1037 |
|
} elsif ($request->url =~ m#/history#) { |
1038 |
my $sth = $dbh->prepare(qq{ |
my $sth = $dbh->prepare(qq{ |
1039 |
select date(time) as date,count(*) as nr,sum(length(message)) as len |
select date(time) as date,count(*) as nr,sum(length(message)) as len |
1040 |
from log |
from log |