X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fchatty;a=blobdiff_plain;f=lib%2FChatty%2FController%2FRoot.pm;h=3b7fa3ddbaeca90f5f118ff509bef2966fe612be;hp=644a861a2d074191130835ef6296a4a3b4d1d7ac;hb=65447d848567b9383f01ab73d8d7eb42b9d8844d;hpb=6d0804a199f1cae7be898b771829c0dfbf2de7f1

diff --git a/lib/Chatty/Controller/Root.pm b/lib/Chatty/Controller/Root.pm
index 644a861..3b7fa3d 100644
--- a/lib/Chatty/Controller/Root.pm
+++ b/lib/Chatty/Controller/Root.pm
@@ -10,6 +10,25 @@ BEGIN { extends 'Catalyst::Controller' }
 #
 __PACKAGE__->config(namespace => '');
 
+use JSON 'encode_json';
+
+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 +46,137 @@ 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
+
+Allow a user to login.
+
+=cut
+
+sub login :Local :Args(0) {
+	my ($self, $c) = @_;
+
+	$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
+
+Log the user out.
+
+=cut
+
+sub logout :Local :Args(0) {
+	my ($self, $c) = @_;
+	if ($c->user_exists) {
+		$c->logout;
+		$c->flash->{message} = "Goodbye! You have been logged out.";
+	}
+	$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');
+
+	my $json_arr = [];
+
+	if ($username) {
+		my $account = $c->model('DB::Account')->find({username => $username});
+		if (!$account) {
+			$json_arr = ["$id", 1, "This username is available. Nice!"];
+		}
+		else {
+			$json_arr = ["$id", 0, "This username is taken."];
+		}
+	}
+	else {
+		$json_arr = ["$id", 0, "Invalid arguments to check script."];
+	}
+	$c->res->content_type("application/json");
+	$c->res->body(encode_json($json_arr));
+}
+
+=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
@@ -37,9 +186,8 @@ Standard 404 error page
 =cut
 
 sub default :Path {
-	my ( $self, $c ) = @_;
-	$c->response->body( 'Page not found' );
-	$c->response->status(404);
+	my ($self, $c) = @_;
+	$c->detach('missing');
 }
 
 =head2 end