MyRedland/lib/MyRedland/Controller/Page.pm

package MyRedland::Controller::Page;

use v5.34.1;

use strict;
use warnings;

use MyRedland::Categories;
use MyRedland::Posts;

use Data::Dumper;

use Mojo::Base 'Mojolicious::Controller';

use DateTime::Format::ISO8601;
use DateTime::Format::Mail;

sub index {
    my $self             = shift;
    my $categories       = MyRedland::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       = MyRedland::Categories->new->Retrieve;
    my $category_name    = $self->param('category');
    my $current_category = $categories->{$category_name};
    my ( $posts_categories, $posts_slug ) =
      MyRedland::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->{slur} );
        $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 ) =
      MyRedland::Posts->new->Retrieve;
    my $categories       = MyRedland::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       = MyRedland::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 = MyRedland::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;