guestbook-ng/lib/GuestbookNg/Model/Message.pm

69 lines
1.7 KiB
Perl
Raw Normal View History

2021-12-05 04:06:05 +00:00
#!/usr/bin/env perl
package GuestbookNg::Model::Message;
use Mojo::Base -base, -signatures;
has 'pg';
2021-12-12 06:50:07 +00:00
sub new($class, $pg, $pg_object) {
bless {
$pg => $pg_object,
max_posts => 5
}
2021-12-05 04:06:05 +00:00
}
2021-12-23 03:23:10 +00:00
sub get_posts($self, $this_page = undef) {
if ($this_page) {
my $row_count = $self->{'max_posts'};
my $offset = ($this_page - 1) * $row_count;
$self->pg->db->query(<<~'END_SQL', $row_count, $offset)->arrays();
SELECT to_char(message_date, 'Dy Mon DD HH:MI:SS AM TZ YYYY'),
visitor_name,
message
FROM messages
ORDER BY message_date DESC
LIMIT ? OFFSET ?;
END_SQL
}
else {
$self->pg->db->query(<<~'END_SQL')->arrays()
SELECT to_char(message_date, 'Dy Mon DD HH:MI:SS AM TZ YYYY'),
visitor_name,
message
FROM messages
ORDER BY message_date DESC;
END_SQL
}
}
2021-12-20 00:09:16 +00:00
sub create_post($self, $name, $message) {
2021-12-23 02:03:51 +00:00
$self->pg->db->query(<<~'END_SQL', $name, $message)
2021-12-22 04:57:48 +00:00
INSERT INTO messages (message_date, visitor_name, message)
VALUES (NOW(), ?, ?);
END_SQL
}
2021-12-12 06:50:07 +00:00
sub max_posts($self, $value = undef) {
2021-12-22 04:09:35 +00:00
$self->{'max_posts'} = $value // $self->{'max_posts'}
2021-12-12 06:50:07 +00:00
}
2021-12-23 03:23:10 +00:00
sub get_last_page($self) {
my $post_count = get_post_count($self);
2021-12-19 04:03:53 +00:00
# Add a page if we have "remainder" posts
2021-12-23 03:23:10 +00:00
if ($post_count % $self->{'max_posts'}) {
sprintf('%d', $post_count / $self->{'max_posts'}) + 1
2021-12-19 04:03:53 +00:00
}
else {
2021-12-23 03:23:10 +00:00
sprintf('%d', $post_count / $self->{'max_posts'})
2021-12-19 04:03:53 +00:00
}
2021-12-12 06:50:07 +00:00
}
2021-12-23 03:23:10 +00:00
sub get_post_count($self) {
$self->pg->db->query('SELECT count(*) FROM messages;')->text()
}
2021-12-05 04:06:05 +00:00
1;