X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fchatty;a=blobdiff_plain;f=lib%2FChatty%2FController%2FRoot.pm;h=fec3f090f81fec61afd4aa3029797c319d71243b;hp=f3e5030b2a82b34e825482da718b92d6eecc8f2a;hb=30558f981fe131d1ae3cc88ff5fc7f9e910932e9;hpb=9b343fd3d0f46473e2f5804ac09caeaed95e4283

diff --git a/lib/Chatty/Controller/Root.pm b/lib/Chatty/Controller/Root.pm
index f3e5030..fec3f09 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
@@ -27,7 +44,9 @@ The root page (/)
 =cut
 
 sub index :Path :Args(0) {
-	my ( $self, $c ) = @_;
+	my ($self, $c) = @_;
+	$c->go('/chat/list') if ($c->user_exists);
+	$c->go('login');
 }
 
 =head2 login
@@ -38,23 +57,27 @@ 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->res->redirect($c->uri_for_action('index'));
+			return;
 		}
-	}
+		else {
+			$c->flash->{error} = "Log-in failed! Try again, I guess.";
+			$c->res->redirect($c->uri_for_action('login'));
+		}
+	};
 }
 
 =head2 logout
@@ -69,7 +92,86 @@ sub logout :Local :Args(0) {
 		$c->logout;
 		$c->flash->{message} = "Goodbye! You have been logged out.";
 	}
-	$c->response->redirect($c->uri_for('/'));
+	$c->res->redirect($c->uri_for_action('index'));
+}
+
+=head2 register
+
+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
+	);
+
+	if (!$self->register_form->is_valid) {
+		if ($c->req->method eq 'POST') {
+			$c->stash->{error} = "The form has a validation error. Try again...";
+		}
+		return;
+	}
+
+	$c->flash->{message} = "Registration complete. ";
+	$c->forward('login');
+}
+
+=head2 register_validate
+
+Check whether or not a username is available.
+
+=cut
+
+sub register_validate :Local :Args(0) {
+	my ($self, $c) = @_;
+
+	my $id = $c->req->param('fieldId');
+	my $username = $c->req->param('fieldValue');
+
+	if ($username) {
+		my $account = $c->model('DB::Account')->find({username => $username});
+		if (!$account) {
+			$c->stash->{json} = ["$id", 1, "This username is available. Nice!"];
+		}
+		else {
+			$c->stash->{json} = ["$id", 0, "This username is taken."];
+		}
+	}
+	else {
+		$c->stash->{json} = ["$id", 0, "Invalid arguments to check script."];
+	}
+	$c->forward('View::JSON');
+}
+
+=head2 access_denied
+
+Standard 403 error page
+
+=cut
+
+sub access_denied :Private {
+	my ($self, $c) = @_;
+	$c->res->body('Access denied.');
+	$c->res->status(403);
+}
+
+=head2 missing
+
+Standard 404 error page
+
+=cut
+
+sub missing :Private {
+	my ($self, $c) = @_;
+	$c->res->body('Page not found.');
+	$c->res->status(404);
 }
 
 =head2 default
@@ -80,8 +182,7 @@ Standard 404 error page
 
 sub default :Path {
 	my ($self, $c) = @_;
-	$c->response->body('Page not found.');
-	$c->response->status(404);
+	$c->detach('missing');
 }
 
 =head2 end