use Moose;
use Moose::Autobox;
-
+use DateTime;
use Sys::Hostname qw/hostname/;
use XML::OPML::SimpleGen;
my $opml = XML::OPML::SimpleGen->new();
- $opml->head(title => lc(hostname()) . ' - ' . blessed($c)->config->{name});
-
- for my $repos ( $c->model()->repositories->flatten ) {
- $opml->insert_outline(
- text => $repos->name. ' - '. $repos->description,
- xmlUrl => $c->uri_for_action('/repository/rss', [$repos->name])->as_string,
- );
- }
+ $c->stash(
+ title => lc(hostname()) . ' - ' . blessed($c)->config->{name},
+ Repositories => $c->model()->repositories,
+ now => DateTime->now,
+ template => 'opml.tt2',
+ no_wrapper => 1,
+ );
- $c->response->body($opml->as_string);
$c->response->content_type('application/rss');
}