ahuston-0/hydra
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

hydra: added some user admin

Browse Source
This commit is contained in:
Rob Vermaas
2010-12-03 09:40:25 +00:00
parent 6d6f43fa0c
commit cd7742f610
7 changed files with 268 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
src/lib/Hydra/Controller/Root.pm
View File

@ -5,7 +5,7 @@ use warnings;
use base 'Hydra::Base::Controller::ListBuilds';
use Hydra::Helper::Nix;
use Hydra::Helper::CatalystUtils;
use Digest::SHA1 qw(sha1_hex);
# Put this controller at top-level.
__PACKAGE__->config->{namespace} = '';
@ -196,5 +196,29 @@ sub nar :Local :Args(1) {
$c->stash->{storePath} = $path;
}
sub change_password : Path('change-password') : Args(0) {
my ($self, $c) = @_;
requireLogin($c) if !$c->user_exists;
$c->stash->{template} = 'change-password.tt';
}
sub change_password_submit : Path('change-password/submit') : Args(0) {
my ($self, $c) = @_;
requireLogin($c) if !$c->user_exists;
my $password = $c->request->params->{"password"};
my $password_check = $c->request->params->{"password_check"};
print STDERR "$password \n";
print STDERR "$password_check \n";
error($c, "Passwords did not match, go back and try again!") if $password ne $password_check;
my $hashed = sha1_hex($password);
$c->user->update({ password => $hashed}) ;
$c->res->redirect("/");
}
1;