package BurguillosInfo::Controller::Page; use v5.34.1; use strict; use warnings; use BurguillosInfo::Categories; use BurguillosInfo::Posts; use Data::Dumper; use Mojo::Base 'Mojolicious::Controller'; use DateTime::Format::ISO8601; use DateTime::Format::Mail; sub index { my $self = shift; my $categories = BurguillosInfo::Categories->new->Retrieve; my $current_category = $categories->{'index'}; # Render template "example/welcome.html.ep" with message $self->render( categories => $categories, current_category => $current_category ); } sub category_rss { my $self = shift; my $categories = BurguillosInfo::Categories->new->Retrieve; my $category_name = $self->param('category'); my $current_category = $categories->{$category_name}; my ( $posts_categories, $posts_slug ) = BurguillosInfo::Posts->new->Retrieve; if ( !defined $current_category && $category_name ne 'all' ) { $self->render( template => '404', status => 404 ); return; } my $dom = Mojo::DOM->new_tag( 'rss', version => '2.0', undef ); my $channel_tag = Mojo::DOM->new_tag('channel'); if ( $category_name eq 'all' ) { my $title_tag = Mojo::DOM->new_tag( 'title', 'Burguillos.info' ); my $description_tag = Mojo::DOM->new_tag( 'description', 'Todas las noticias de Burguillos.info.' ); my $link_tag = Mojo::DOM->new_tag( 'link', 'https://burguillos.info/' ); $channel_tag->child_nodes->first->append_content($title_tag); $channel_tag->child_nodes->first->append_content($description_tag); $channel_tag->child_nodes->first->append_content($link_tag); for my $category ( keys %$posts_categories ) { my $posts = $posts_categories->{$category}; for my $post (@$posts) { $channel_tag->child_nodes->first->append_content( _post_to_rss($post) ); } } } else { my $category = $current_category; my $title_tag = Mojo::DOM->new_tag( 'title', "Burguillos.info - " . $category->{title} ); my $description_tag = Mojo::DOM->new_tag( 'description', 'Todas las noticias de la categoria de Burguillos.info ' . $category->{title} ); my $link_tag = Mojo::DOM->new_tag( 'link', 'https://burguillos.info/' . $category->{slug} ); $channel_tag->child_nodes->first->append_content($title_tag); $channel_tag->child_nodes->first->append_content($description_tag); $channel_tag->child_nodes->first->append_content($link_tag); my $posts = $posts_categories->{$category_name}; for my $post (@$posts) { $channel_tag->child_nodes->first->append_content( _post_to_rss($post) ); } } $dom->child_nodes->first->append_content($channel_tag); $self->render( format => 'xml', text => $dom, ); } sub _post_to_rss { my $post = shift; my $item_tag = Mojo::DOM->new_tag('item'); my $title_tag = Mojo::DOM->new_tag( 'title', $post->{title} ); my $link = Mojo::DOM->new_tag( 'link', 'https://burguillos.info/posts/' . $post->{slug} ); my $description = Mojo::DOM->new_tag( 'description', Mojo::DOM->new( $post->{content} )->all_text ); my $guid = Mojo::DOM->new_tag( 'guid', $post->{slug} ); my $date = Mojo::DOM->new_tag( 'pubDate', ''.DateTime::Format::Mail->format_datetime( DateTime::Format::ISO8601->parse_datetime( $post->{date} ) ) ); $item_tag->child_nodes->first->append_content($title_tag); $item_tag->child_nodes->first->append_content($link); $item_tag->child_nodes->first->append_content($description); $item_tag->child_nodes->first->append_content($guid); $item_tag->child_nodes->first->append_content($date); return $item_tag; } sub post { my $self = shift; my $slug = $self->param('slug'); my ( $posts_categories, $posts_slug ) = BurguillosInfo::Posts->new->Retrieve; my $categories = BurguillosInfo::Categories->new->Retrieve; my $post = $posts_slug->{$slug}; if ( !defined $post ) { $self->render( template => '404', status => 404 ); return; } my $current_category = $categories->{ $post->{category} }; $self->stash(ogimage => 'https://burguillos.info/posts/'.$post->{slug}.'-preview.png'); $self->stash(useragent => $self->req->headers->user_agent); $self->render( post => $post, current_category => $current_category ); } sub category { my $self = shift; my $categories = BurguillosInfo::Categories->new->Retrieve; my $category_name = $self->param('category'); my $current_category = $categories->{$category_name}; if ( !defined $current_category ) { $self->render( template => '404', status => 404 ); return; } $self->render( template => 'page/index', categories => $categories, current_category => $current_category ); } sub get_post_preview { my $self = shift; my $slug = $self->param('slug'); my $post_model = BurguillosInfo::Posts->new; my ( $posts_categories, $posts_slug ) = $post_model->Retrieve; if ( !defined $posts_slug->{$slug} ) { $self->render( template => '404', status => 404 ); return; } my $post = $posts_slug->{$slug}; $self->render( format => 'png', data => $post_model->PostPreviewOg($post) ); } 1;