lib/Blog/Controller/Post.pm

   1 package Blog::Controller::Post;
   2
   3 use strict;
   4 use warnings;
   5 use base 'Catalyst::Controller';
   6
   7 use Blog::Form::Post;
   8 use Blog::Validator::Post;
   9
  10 use Time::Local;
  11 use Date::Calc 'Add_Delta_YMD';
  12
  13 sub list : Path('') Args(0) {
  14     my ( $self, $c ) = @_;
  15
  16     my $page = $c->req->param( 'p' );
  17
  18     $page = 1 unless $page && $page =~ m/^\d+$/o;
  19
  20     my $count = $c->model( 'Post' )->count();
  21
  22     $c->stash->{ count }     = $count;
  23     $c->stash->{ page_size } = 20;
  24     $c->stash->{ page }      = $page;
  25
  26     my $objects = $c->model( 'Post' )->manager->posts_full( page => $page );
  27
  28     $self->throw_not_found( $c ) unless ( $page == 1 || @$objects );
  29
  30     $c->stash->{ 'posts' } = $objects;
  31 }
  32
  33 sub archive : Local Args(0) { }
  34
  35 sub archive_list
  36     : Route('archive/:year|(19|20)\d\d|/:month|(0|1)?\d|=/:day|[0-3]?\d|=')
  37 #sub archive_list : LocalRegex('archive/((?:19|20)?\d\d)/(?:((?:0|1)?\d)/())?')
  38 {
  39     my ( $self, $c ) = @_;
  40
  41     my $year  = $c->req->param('year');
  42     my $month = $c->req->param('month');
  43     my $day   = $c->req->param('day');
  44
  45     my $from;
  46     eval { $from = timelocal(0, 0, 0, $day || 1, $month ? $month - 1 : 0, $year) };
  47
  48     $self->throw_not_found( $c ) if $@;
  49
  50     my $page = $c->req->param( 'p' );
  51
  52     $page = 1 unless $page && $page =~ m/^\d+$/o;
  53
  54     my $count = $c->model( 'Post' )->count();
  55
  56     $c->stash->{ count }     = $count;
  57     $c->stash->{ page_size } = 20;
  58     $c->stash->{ page }      = $page;
  59
  60     my ( $Dy, $Dm, $Dd ) = (0, 0, 0);
  61     if ( $day ) {
  62         $Dd = 1;
  63     } elsif ( $month ) {
  64         $Dm = 1;
  65     } else {
  66         $Dy = 1;
  67     }
  68
  69     my ( $new_year, $new_month, $new_day ) =
  70       Add_Delta_YMD( $year, $month || 1, $day || 1, $Dy, $Dm, $Dd );
  71
  72     my $to = timelocal(0, 0, 0, $new_day, $new_month - 1, $new_year);
  73     warn 'SHIT' unless $to < $from;
  74
  75     my $posts = $c->model( 'Post' )->manager->posts_full(
  76         query => [ addtime => { ge => $from }, addtime => { lt => $to } ],
  77         page  => $page
  78     );
  79
  80     $c->stash->{ template } = 'post/archive.tt2';
  81     $c->stash(
  82         year  => $year,
  83         month => $month,
  84         day   => $day,
  85         posts => $posts
  86     );
  87 }
  88
  89 sub view : LocalRegex('^(\d+)$') {
  90     my ( $self, $c ) = @_;
  91
  92     my $id = $c->req->captures->[ 0 ];
  93
  94     my $object = $c->model( 'Post' )->create( id => $id );
  95     $object->load(
  96         speculative => 1,
  97         select      => [ qw/ id addtime title content / ]
  98     );
  99
 100     $self->throw_not_found( $c ) if $object->not_found;
 101
 102     $c->stash->{ post } = $object;
 103 }
 104
 105 sub add : Local {
 106     my ( $self, $c ) = @_;
 107
 108     my $form      = Blog::Form::Post->new( $c );
 109     my $validator = Blog::Validator::Post->new( $c->req->params );
 110
 111     if ( $form->was_submitted && $validator->is_valid ) {
 112         my $object = $form->object_from_form(
 113             class  => $c->model( 'Post' )->name,
 114             params => $validator->params
 115         );
 116         $object->save();
 117
 118         $c->flash->{ msg } = $c->loc( 'Post was added successfully' );
 119
 120         $c->res->redirect( '/post' );
 121     }
 122
 123     $c->stash->{ validator } = $validator;
 124 }
 125
 126 sub edit : LocalRegex('^(\d+)/edit$') {
 127     my ( $self, $c ) = @_;
 128
 129     my $id = $c->req->captures->[ 0 ];
 130
 131     my $post = $c->model( 'Post' )->create( id => $id );
 132     $post->load( speculative => 1, with_objects => [ 'tags' ] );
 133     $self->throw_not_found( $c ) if $post->not_found;
 134
 135     my $form      = Blog::Form::Post->new( $c );
 136     my $validator = Blog::Validator::Post->new( $c->req->params );
 137
 138     if ( $form->was_submitted && $validator->is_valid ) {
 139         $post = $form->object_from_form(
 140             object => $post,
 141             params => $validator->params
 142         );
 143         $post->save();
 144
 145         $c->flash->{ msg } = $c->loc( 'Post was saved successfully' );
 146
 147         $c->res->redirect( '/post' );
 148     }
 149
 150     $c->stash->{ validator } = $validator;
 151     $c->stash->{ post }      = $post;
 152 }
 153
 154 sub delete : LocalRegex('^(\d+)/delete$') {
 155     my ( $self, $c ) = @_;
 156
 157     my $object = $c->model( 'Post' )->create( id => $c->req->captures->[ 0 ] );
 158     $object->load( speculative => 1, select => [ 'id' ] );
 159     $self->throw_not_found( $c ) if $object->not_found;
 160
 161     $object->delete( cascade => 1 );
 162
 163     $c->flash->{ msg } = $c->loc( 'Post was deleted successfully' );
 164
 165     $c->res->redirect( '/post' );
 166 }
 167
 168 sub feed : Local {
 169     my ( $self, $c ) = @_;
 170
 171     my $items = $c->model( 'Post' )->search(
 172         sort_by      => 'addtime DESC',
 173         limit        => 20,
 174         with_objects => 'tags'
 175     );
 176
 177     $c->stash->{ feed } = { description => $c->loc( 'Recent posts' ) };
 178
 179     return unless @$items;
 180
 181     $c->stash->{ feed }->{ items } = [
 182         map {
 183             {
 184                 title       => $_->title,
 185                 description => $c->bbcode( $_->annot ),
 186                 category    => [ map { { name => $_->name } } @{ $_->tags } ],
 187                 pubDate     => $_->addtime,
 188                 link     => $c->uri_for( '/post', $_->id ),
 189                 comments => $c->uri_for( '/post', $_->id ) . '#comments',
 190                 author   => $c->config->{ author }
 191             }
 192           } @$items
 193     ];
 194 }
 195
 196 sub throw_not_found {
 197     my ( $self, $c ) = @_;
 198
 199     $c->detach( '/default' );
 200 }
 201
 202 =head1 AUTHOR
 203
 204 vti
 205
 206 =head1 LICENSE
 207
 208 This library is free software, you can redistribute it and/or modify
 209 it under the same terms as Perl itself.
 210
 211 =cut
 212
 213 1;