hydra: added some user admin
This commit is contained in:
Rob Vermaas
parent
6d6f43fa0c
commit
cd7742f610
2
deps.nix
2
deps.nix
|
|
@ -37,5 +37,7 @@ in
|
|||
perlPackages.DataDump
|
||||
perlPackages.JSONXS
|
||||
perlPackages.DateTime
|
||||
perlPackages.DigestSHA1
|
||||
perlPackages.CryptRandPasswd
|
||||
nixPerl
|
||||
]
|
||||
|
|
|
|||
|
|
@ -7,6 +7,12 @@ use Hydra::Helper::Nix;
|
|||
use Hydra::Helper::CatalystUtils;
|
||||
use Hydra::Helper::AddBuilds;
|
||||
use Data::Dump qw(dump);
|
||||
use Digest::SHA1 qw(sha1_hex);
|
||||
use Crypt::RandPasswd;
|
||||
use Sys::Hostname::Long;
|
||||
use Email::Simple;
|
||||
use Email::Sender::Simple qw(sendmail);
|
||||
use Email::Sender::Transport::SMTP;
|
||||
|
||||
sub nixMachines {
|
||||
my ($c) = @_;
|
||||
|
|
@ -56,6 +62,111 @@ sub index : Chained('admin') PathPart('') Args(0) {
|
|||
} ) ];
|
||||
$c->stash->{template} = 'admin.tt';
|
||||
}
|
||||
|
||||
sub updateUser {
|
||||
my ($c, $user) = @_;
|
||||
|
||||
my $username = trim $c->request->params->{"username"};
|
||||
my $fullname = trim $c->request->params->{"fullname"};
|
||||
my $emailaddress = trim $c->request->params->{"emailaddress"};
|
||||
my $emailonerror = trim $c->request->params->{"emailonerror"};
|
||||
my $roles = $c->request->params->{"roles"} ;
|
||||
|
||||
error($c, "Invalid or empty username.") if $username eq "";
|
||||
|
||||
$user->update(
|
||||
{ username => $username
|
||||
, maxconcurrent => $fullname
|
||||
, emailaddress => $emailaddress
|
||||
, emailonerror => $emailonerror
|
||||
});
|
||||
$user->userroles->delete_all;
|
||||
if(ref($roles) eq 'ARRAY') {
|
||||
for my $s (@$roles) {
|
||||
$user->userroles->create({ role => $s}) ;
|
||||
}
|
||||
} else {
|
||||
$user->userroles->create({ role => $roles}) ;
|
||||
}
|
||||
}
|
||||
|
||||
sub user : Chained('admin') PathPart('user') CaptureArgs(1) {
|
||||
my ($self, $c, $username) = @_;
|
||||
|
||||
requireAdmin($c);
|
||||
|
||||
my $user = $c->model('DB::Users')->find($username)
|
||||
or notFound($c, "User $username doesn't exist.");
|
||||
|
||||
$c->stash->{user} = $user;
|
||||
}
|
||||
|
||||
sub users : Chained('admin') PathPart('users') Args(0) {
|
||||
my ($self, $c) = @_;
|
||||
$c->stash->{users} = [$c->model('DB::Users')->search({}, {order_by => "username"})];
|
||||
|
||||
$c->stash->{template} = 'users.tt';
|
||||
}
|
||||
|
||||
sub user_edit : Chained('user') PathPart('edit') Args(0) {
|
||||
my ($self, $c) = @_;
|
||||
|
||||
$c->stash->{template} = 'user.tt';
|
||||
$c->stash->{edit} = 1;
|
||||
}
|
||||
|
||||
sub user_edit_submit : Chained('user') PathPart('submit') Args(0) {
|
||||
my ($self, $c) = @_;
|
||||
requirePost($c);
|
||||
|
||||
txn_do($c->model('DB')->schema, sub {
|
||||
updateUser($c, $c->stash->{user}) ;
|
||||
});
|
||||
$c->res->redirect("/admin/users");
|
||||
}
|
||||
|
||||
sub sendemail {
|
||||
my ($to, $subject, $body) = @_;
|
||||
|
||||
my $url = hostname_long;
|
||||
my $sender = ($ENV{'USER'} || "hydra") . "@" . $url;
|
||||
|
||||
my $email = Email::Simple->create(
|
||||
header => [
|
||||
To => $to,
|
||||
From => "Hydra <$sender>",
|
||||
Subject => $subject
|
||||
],
|
||||
body => $body
|
||||
);
|
||||
|
||||
sendmail($email);
|
||||
}
|
||||
|
||||
sub reset_password : Chained('user') PathPart('reset-password') Args(0) {
|
||||
my ($self, $c) = @_;
|
||||
|
||||
# generate password
|
||||
my $password = Crypt::RandPasswd->word(8,10);
|
||||
|
||||
# calculate hash
|
||||
my $hashed = sha1_hex($password);
|
||||
|
||||
$c->stash->{user}-> update({ password => $hashed}) ;
|
||||
|
||||
# send email
|
||||
|
||||
sendemail(
|
||||
$c->user->emailaddress,
|
||||
"New password for Hydra",
|
||||
"Hi,\n\n".
|
||||
"Your password has been reset. Your new password is '$password'.\n".
|
||||
"You can change your password at http://".hostname_long." .\n".
|
||||
"With regards, Hydra\n"
|
||||
);
|
||||
|
||||
$c->res->redirect("/admin/users");
|
||||
}
|
||||
|
||||
sub machines : Chained('admin') PathPart('machines') Args(0) {
|
||||
my ($self, $c) = @_;
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
|
|||
23
src/root/change-password.tt
Normal file
23
src/root/change-password.tt
Normal file
|
|
@ -0,0 +1,23 @@
|
|||
[% WRAPPER layout.tt title="Change password" %]
|
||||
[% PROCESS common.tt %]
|
||||
|
||||
<form action="[% c.uri_for('/change-password/submit') %]" method="post">
|
||||
|
||||
<h2>Change password</h2>
|
||||
|
||||
<table class="layoutTable">
|
||||
<tr>
|
||||
<th>Enter password:</th>
|
||||
<td><input type="password" class="string" id="password" name="password" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<th>Enter password again:</th>
|
||||
<td><input type="password" class="string" id="password_check" name="password_check" /></td>
|
||||
</tr>
|
||||
</table>
|
||||
|
||||
<p><button type="submit"><img src="/static/images/success.gif" />Change</button></p>
|
||||
|
||||
</form>
|
||||
|
||||
[% END %]
|
||||
|
|
@ -82,6 +82,9 @@
|
|||
[% INCLUDE makeLink
|
||||
uri = c.uri_for(c.controller('Admin').action_for('managenews'))
|
||||
title = "News" %]
|
||||
[% INCLUDE makeLink
|
||||
uri = c.uri_for(c.controller('Admin').action_for('users'))
|
||||
title = "Users" %]
|
||||
[% END %]
|
||||
[% END %]
|
||||
|
||||
|
|
|
|||
70
src/root/user.tt
Normal file
70
src/root/user.tt
Normal file
|
|
@ -0,0 +1,70 @@
|
|||
[% WRAPPER layout.tt title=(create ? "New user" : "Editing user '$user.username'") %]
|
||||
[% PROCESS common.tt %]
|
||||
|
||||
[% BLOCK roleoption %]
|
||||
<option value="[% role %]"
|
||||
[% checked = false %]
|
||||
[% FOREACH r IN user.userroles %]
|
||||
[% checked = r.role == role %]
|
||||
[% BREAK IF checked %]
|
||||
[% END %]
|
||||
[% IF checked %]
|
||||
SELECTED
|
||||
[% END %]
|
||||
>[% role %]</option>
|
||||
[% END %]
|
||||
|
||||
<form action="[% IF create %][% c.uri_for('/admin/create-user/submit') %][% ELSE %][% c.uri_for('/admin/user' user.username 'submit') %][% END %]" method="post">
|
||||
|
||||
<h2>User[% IF ! create %] '[% user.username %]'[% END %]</h2>
|
||||
|
||||
<table class="layoutTable">
|
||||
[% IF create %]
|
||||
<tr>
|
||||
<th>Username:</th>
|
||||
<td>[% INCLUDE maybeEditString param="username" value=user.username %]</td>
|
||||
</tr>
|
||||
[% END %]
|
||||
<tr>
|
||||
<th>Full name:</th>
|
||||
<td>[% INCLUDE maybeEditString param="fullname" value=user.fullname %]</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<th>Email:</th>
|
||||
<td>[% INCLUDE maybeEditString param="emailaddress" value=user.emailaddress %]</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<th>Evaluation error notifications:</th>
|
||||
<td>
|
||||
[% INCLUDE renderSelection param="emailonerror" curValue=user.emailonerror options={"1" = "Yes", "0" = "No"} %]
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<th>Roles:</th>
|
||||
<td>
|
||||
<select multiple name="roles" style="width: 27em;">
|
||||
[% INCLUDE roleoption role="admin" %]
|
||||
[% INCLUDE roleoption role="create-project" %]
|
||||
</select>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
|
||||
<p><button type="submit"><img src="/static/images/success.gif" />[%IF create %]Create[% ELSE %]Apply changes[% END %]</button></p>
|
||||
|
||||
</form>
|
||||
|
||||
[% IF !create %]
|
||||
|
||||
<form action="[% c.uri_for('/admin/user' user.hostname 'delete') %]" method="post">
|
||||
<p><button id="delete-user" type="submit"><img src="/static/images/failure.gif" />Remove this user</button></p>
|
||||
</form>
|
||||
|
||||
<script type="text/javascript">
|
||||
$("#delete-user").click(function() {
|
||||
return confirm("Are you sure you want to delete this user?");
|
||||
});
|
||||
</script>
|
||||
[% END %]
|
||||
|
||||
[% END %]
|
||||
34
src/root/users.tt
Normal file
34
src/root/users.tt
Normal file
|
|
@ -0,0 +1,34 @@
|
|||
[% WRAPPER layout.tt title="Users" %]
|
||||
[% PROCESS common.tt %]
|
||||
|
||||
<h1>Users</h1>
|
||||
|
||||
<table>
|
||||
<thead>
|
||||
<tr>
|
||||
<th>Username</th>
|
||||
<th>Name</th>
|
||||
<th>Email</th>
|
||||
<th>Roles</th>
|
||||
<th>Eval. notifications</th>
|
||||
<th>Options</th>
|
||||
</tr>
|
||||
</thead>
|
||||
<tbody>
|
||||
[% FOREACH u IN users %]
|
||||
<tr>
|
||||
<td>[% INCLUDE maybeLink uri = c.uri_for(c.controller('Admin').action_for('user_edit'), [u.username]) content = u.username %]</td>
|
||||
<td>[% u.fullname %]</td>
|
||||
<td>[% u.emailaddress %]</td>
|
||||
<td>[% FOREACH r IN u.userroles %]<i>[% r.role %]</i> [% END %]</td>
|
||||
<td>[% IF u.emailonerror %]Yes[% ELSE %]No[% END %]</td>
|
||||
<td>[ [% INCLUDE maybeLink uri = c.uri_for(c.controller('Admin').action_for('reset_password'), [u.username]) content = "Reset password" confirmmsg = "Are you sure you want to reset the password for this user?" %] ]</td>
|
||||
</tr>
|
||||
[% END %]
|
||||
</tbody>
|
||||
|
||||
</table>
|
||||
|
||||
<p>[ <a href="[% c.uri_for(c.controller('Admin').action_for('create_user')) %]">Add a new user</a> ]</p>
|
||||
|
||||
[% END %]
|
||||
Loading…
Reference in a new issue