972 |
|
|
973 |
if ($request->url =~ m#/rss#i) { |
if ($request->url =~ m#/rss#i) { |
974 |
my $type = 'RSS'; # Atom |
my $type = 'RSS'; # Atom |
|
my $url = "http://$http_hostname:$http_port"; |
|
975 |
|
|
976 |
$response->content_type("application/$type+xml"); |
$response->content_type( 'application/' . lc($type) . '+xml' ); |
977 |
|
|
978 |
my $html = '<!-- error -->'; |
my $html = '<!-- error -->'; |
979 |
warn "create $type feed from ",dump( @last_tags ); |
warn "create $type feed from ",dump( @last_tags ); |
981 |
my $feed = XML::Feed->new( $type ); |
my $feed = XML::Feed->new( $type ); |
982 |
|
|
983 |
$feed->title( "last $last_x_tags from $CHANNEL" ); |
$feed->title( "last $last_x_tags from $CHANNEL" ); |
984 |
$feed->link( "http://$http_hostname:$http_port" ); |
# $feed->link( "http://$http_hostname:$http_port" ); |
985 |
$feed->description( "collects messages which have tags// in them" ); |
$feed->description( "collects messages which have tags// in them" ); |
986 |
|
|
987 |
foreach my $m ( @last_tags ) { |
foreach my $m ( @last_tags ) { |