root/veekun/trunk/lib/Vee/Controller/Index.pm

package Vee::Controller::Index;

use strict;
use warnings;
use base 'Catalyst::Controller';

use DateTime;

__PACKAGE__->config->{namespace} = '';

=head1 NAME

Vee::Controller::Index - Index Controller

=head1 SYNOPSIS

See L<Vee>.

=head1 DESCRIPTION

Catalyst Controller for the index page.

=head1 METHODS

=cut

=head2 root

=cut

my $shoutbox_fields = {
    content => { type => 'textarea', rows => 3, cols => 20 },
};

sub index : Path {
    my ($self, $c) = @_;

    my $s = $c->stash;
    $s->{page_title} = 'Home/News';
    $s->{link_name}  = 'main';
    $s->{extra_css}  = [ 'index', 'bbcode' ];

    my $news_forum = $c->model('DBIC::Forums')->find( $c->site_opts->{special_forums}{news} );
    my $page_sizes = $c->site_opts->{page_sizes}{index};

    $s->{recent_news}   = $news_forum->threads( undef, { prefetch => 'first_post', order_by => 'me.id DESC', rows => $page_sizes->{news} } );
    $s->{recent_news}   = $s->{recent_news}->search(\ 'NOT FIND_IN_SET("deleted", me.flags)') unless $c->can_i(override_thread_deleted => $news_forum->id);

    $s->{recent_shouts} = $c->model('DBIC::Shoutbox')->search( undef, { order_by => 'me.time DESC', rows => $page_sizes->{shoutbox} } );
    $s->{recent_art}    = $c->model('DBIC::Gallery')->search( undef, { order_by => 'me.time DESC', rows => $page_sizes->{gallery} } );

    # TODO: break this off into a "new posts" sort of page, and just put NEW THREADS here
    my $threads_rs     = $c->model('DBIC::Threads')->search;
    $threads_rs        = $threads_rs->search({ 'me.flags' => { '!=', 'deleted' } }) unless $c->can_i('override_thread_deleted');
    $s->{recent_posts} = $threads_rs->search( undef, {
        order_by => 'last_post.time DESC',
        rows => $page_sizes->{forum},
        prefetch => { last_post => 'user' },
    } );

    # NOT FIND_IN_SET breaks here; why?
    $s->{recent_posts}  = $s->{recent_posts}->search({ 'last_post.flags' => { '!=', 'deleted' } }) unless $c->can_i('override_thread_deleted');

    # Grab a list of unread threads
    if ($c->user) {
        my @unread_ids  = $threads_rs->unread_ids($c->user->obj);
        my %unread_hash = map { $_ => 1 } @unread_ids;

        $s->{is_unread} = sub { $unread_hash{$_[0]->id} };
    }

    $s->{recent_users} = $c->model('DBIC::Users')->search(
        { time_active => { '>', time - $c->site_opts->{user_activity_timeout} } },
        { order_by => 'me.time_active DESC' }
    );

    my $shoutbox_form = Vee::Form->new(
        id     => 'shoutbox',
        fields => $shoutbox_fields,
        params => $c->req->params,
    );
    $s->{shoutbox_form} = $shoutbox_form;

    $s->{template} = 'index.tt';
}

=head1 AUTHOR

Maintainer: Alex "Eevee" Munroe (C<veekun@veekun.com>)

See the included F<AUTHORS> file for a full list of contributers.

=head1 LICENSE

See the included F<LICENSE> file.

=cut

1;