view release on metacpan or  search on metacpan

lib/Hopkins/Plugin/HMI/Catalyst/Controller/Root.pm  view on Meta::CPAN

	my $c		= shift;

	$c->stash->{template} = 'login.tt';
}

sub login_POST : Private
{
	my $self	= shift;
	my $c		= shift;

	my $credentials = {};

	$credentials->{username} = scalar $c->req->params->{username};
	$credentials->{password} = scalar $c->req->params->{password};

	$c->detach('/default') if $c->authenticate($credentials);

	$c->stash->{error} = 'login incorrect';

	$c->detach('/login_GET');
}

sub status : Local
{
	my $self	= shift;
	my $c		= shift;