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 ); |