X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fchatty;a=blobdiff_plain;f=lib%2FChatty%2FController%2FRoot.pm;h=ab0bfcd8ee1e07d6f48e1cbad556553552f10e30;hp=14aef8799fc1ae8628c54dffd5818b414654e5b6;hb=e872d7b7c02a1006e4481271d902ad1ca1e0b8d4;hpb=9a7bfdb65af033380ae3c9242b2b3815bdc2bdc5

diff --git a/lib/Chatty/Controller/Root.pm b/lib/Chatty/Controller/Root.pm
index 14aef87..ab0bfcd 100644
--- a/lib/Chatty/Controller/Root.pm
+++ b/lib/Chatty/Controller/Root.pm
@@ -10,6 +10,23 @@ BEGIN { extends 'Catalyst::Controller' }
 #
 __PACKAGE__->config(namespace => '');
 
+use Chatty::Form::Login;
+use Chatty::Form::Register;
+
+has 'login_form' => (
+	isa	=> 'Chatty::Form::Login',
+	is	=> 'rw',
+	lazy	=> 1,
+	default	=> sub { Chatty::Form::Login->new }
+);
+
+has 'register_form' => (
+	isa	=> 'Chatty::Form::Register',
+	is	=> 'rw',
+	lazy	=> 1,
+	default	=> sub { Chatty::Form::Register->new }
+);
+
 =head1 NAME
 
 Chatty::Controller::Root - Root Controller for Chatty
@@ -38,21 +55,24 @@ Allow a user to login.
 
 sub login :Local :Args(0) {
 	my ($self, $c) = @_;
-	if ($c->req->method eq 'POST' && exists($c->req->params->{handle})) {
-		eval {
-			if ($c->authenticate({
-				username => $c->req->params->{handle},
-				password => $c->req->params->{password}
-			})) {
-				$c->change_session_id;
-				my $user = $c->user->get('username');
-				$c->flash->{message} = "Hi, $user! You are now logged in.";
-				$c->response->redirect($c->uri_for('/'));
-			}
-			else {
-				$c->flash->{error} = "Log-in failed! Try again, I guess.";
-				$c->response->redirect($c->uri_for('login'));
-			}
+
+	$c->stash(form => $self->login_form);
+	$self->login_form->process($c->req->params);
+	return unless $self->login_form->is_valid;
+
+	eval {
+		if ($c->authenticate({
+			username => $self->login_form->value->{username},
+			password => $self->login_form->value->{password}
+		})) {
+			$c->change_session_id;
+			my $user = $c->user->get('username');
+			$c->flash->{message} .= "Hi, $user! You are now logged in.";
+			$c->response->redirect($c->uri_for('/'));
+		}
+		else {
+			$c->flash->{error} = "Log-in failed! Try again, I guess.";
+			$c->response->redirect($c->uri_for('login'));
 		}
 	}
 }
@@ -79,6 +99,20 @@ Register a new account.
 =cut
 
 sub register :Local :Args(0) {
+	my ($self, $c) = @_;
+
+	$c->stash(form => $self->register_form);
+
+	my $new_account = $c->model('DB::Account')->new_result({});
+	$self->register_form->process(
+		item	=> $new_account,
+		params	=> $c->req->params
+	);
+
+	return unless $self->register_form->is_valid;
+
+	$c->flash->{message} = "Registration complete. ";
+	$c->forward('login');
 }
 
 =head2 default