basic (non-AJAX) chat implemented

diff --git a/lib/Chatty/Controller/Chat.pm b/lib/Chatty/Controller/Chat.pm
index 9be0e796e28449eefb4e31fbaad02c3e7cef997d..73fe2744e99c32ecfcfba61b6a222feabad8857c 100644 (file)
--- a/lib/Chatty/Controller/Chat.pm
+++ b/lib/Chatty/Controller/Chat.pm
@@ -7,6 +7,7 @@ BEGIN { extends 'Catalyst::Controller' }
 #__PACKAGE__->config(namespace => 'room');
 
 use Chatty::Form::RoomCreate;
+use Chatty::Form::MessageCreate;
 
 has 'roomcreate_form' => (
        isa     => 'Chatty::Form::RoomCreate',
@@ -15,6 +16,13 @@ has 'roomcreate_form' => (
        default => sub { Chatty::Form::RoomCreate->new }
 );
 
+has 'messagecreate_form' => (
+       isa     => 'Chatty::Form::MessageCreate',
+       is      => 'rw',
+       lazy    => 1,
+       default => sub { Chatty::Form::MessageCreate->new }
+);
+
 =head1 NAME
 
 Chatty::Controller::Chat - Catalyst Controller
@@ -93,6 +101,26 @@ sub view :Chained(room) :PathPart('') :Args(1) {
        $c->detach('/missing') if !$c->stash->{room};
 
        $c->stash(messages => [$c->model('DB::Message')->search(room => $room)]);
+
+       $c->stash(form => $self->messagecreate_form);
+
+       my $new_message = $c->model('DB::Message')->new_result({
+               author => $c->user->obj->id,
+               room => $c->stash->{room}->id
+       });
+       $self->messagecreate_form->process(
+               item    => $new_message,
+               params  => $c->req->params
+       );
+
+       if (!$self->messagecreate_form->is_valid) {
+               if ($c->req->method eq 'POST') {
+                       $c->stash->{error} = "The form has a validation error. Try again...";
+               }
+               return;
+       }
+
+       $c->res->redirect($c->uri_for_action('/chat/view', $c->stash->{room}->id));
 }
 
 =head1 AUTHOR

diff --git a/lib/Chatty/Form/MessageCreate.pm b/lib/Chatty/Form/MessageCreate.pm
new file mode 100644 (file)
index 0000000..72b616e
--- /dev/null
+++ b/lib/Chatty/Form/MessageCreate.pm
@@ -0,0 +1,13 @@
+package Chatty::Form::MessageCreate;
+
+use HTML::FormHandler::Moose;
+extends 'HTML::FormHandler::Model::DBIC';
+use namespace::autoclean;
+
+has '+item_class' => (default => 'Message');
+
+has_field 'content' => (input_class => 'validate[required]', label => 'Message', required => 1);
+has_field 'submit' => (type => 'Submit', value => 'Create');
+
+__PACKAGE__->meta->make_immutable;
+1;

diff --git a/root/tt/chat/view.tt b/root/tt/chat/view.tt
index bfb459018436831f5d5806e28cdedb90432a7045..19fe0c0d4c49d2e0ad9770f95e9d1d9b6b1ae83a 100644 (file)
--- a/root/tt/chat/view.tt
+++ b/root/tt/chat/view.tt
@@ -3,11 +3,7 @@
 $('form').validationEngine();
 [% END -%]
 <h1>Room: [% room.name %]</h1>
-[% IF messages.count == 0 -%]
 [% FOREACH msg IN messages -%]
 <p>[% msg.author.username %] ([% msg.posted %]): [% msg.content %]</p>
 [% END -%]
-[% ELSE -%]
-<p>No messages, yet.</p>
-[% END -%]
 [% form.render -%]