721c764951
To quote the function's comment: Awful hack to handle timeouts in SQLite: just retry the transaction. DBD::SQLite *has* a 30 second retry window, but apparently it doesn't work. Since SQLite is now dropped entirely, this wrapper can be removed completely.
104 lines
2.9 KiB
Perl
104 lines
2.9 KiB
Perl
package Hydra::Controller::Admin;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use base 'Catalyst::Controller';
|
|
use Hydra::Helper::Nix;
|
|
use Hydra::Helper::CatalystUtils;
|
|
use Data::Dump qw(dump);
|
|
use Digest::SHA1 qw(sha1_hex);
|
|
use Config::General;
|
|
|
|
|
|
sub admin : Chained('/') PathPart('admin') CaptureArgs(0) {
|
|
my ($self, $c) = @_;
|
|
requireAdmin($c);
|
|
$c->stash->{admin} = 1;
|
|
}
|
|
|
|
|
|
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 machines : Chained('admin') PathPart('machines') Args(0) {
|
|
my ($self, $c) = @_;
|
|
$c->stash->{machines} = getMachines;
|
|
$c->stash->{template} = 'machines.tt';
|
|
}
|
|
|
|
|
|
sub clear_queue_non_current : Chained('admin') PathPart('clear-queue-non-current') Args(0) {
|
|
my ($self, $c) = @_;
|
|
my $builds = $c->model('DB::Builds')->search(
|
|
{ id => { -in => \ "select id from Builds where id in ((select id from Builds where finished = 0) except (select build from JobsetEvalMembers where eval in (select max(id) from JobsetEvals where hasNewBuilds = 1 group by project, jobset)))" }
|
|
});
|
|
my $n = cancelBuilds($c->model('DB')->schema, $builds);
|
|
$c->flash->{successMsg} = "$n builds have been cancelled.";
|
|
$c->res->redirect($c->request->referer // "/");
|
|
}
|
|
|
|
|
|
sub clearfailedcache : Chained('admin') PathPart('clear-failed-cache') Args(0) {
|
|
my ($self, $c) = @_;
|
|
$c->model('DB::FailedPaths')->delete;
|
|
$c->res->redirect($c->request->referer // "/");
|
|
}
|
|
|
|
|
|
sub clearvcscache : Chained('admin') PathPart('clear-vcs-cache') Args(0) {
|
|
my ($self, $c) = @_;
|
|
$c->model('DB::CachedPathInputs')->delete;
|
|
$c->model('DB::CachedGitInputs')->delete;
|
|
$c->model('DB::CachedSubversionInputs')->delete;
|
|
$c->model('DB::CachedBazaarInputs')->delete;
|
|
$c->flash->{successMsg} = "VCS caches have been cleared.";
|
|
$c->res->redirect($c->request->referer // "/");
|
|
}
|
|
|
|
|
|
sub managenews : Chained('admin') PathPart('news') Args(0) {
|
|
my ($self, $c) = @_;
|
|
|
|
$c->stash->{newsItems} = [$c->model('DB::NewsItems')->search({}, {order_by => 'createtime DESC'})];
|
|
|
|
$c->stash->{template} = 'news.tt';
|
|
}
|
|
|
|
|
|
sub news_submit : Chained('admin') PathPart('news/submit') Args(0) {
|
|
my ($self, $c) = @_;
|
|
|
|
requirePost($c);
|
|
|
|
my $contents = trim $c->request->params->{"contents"};
|
|
my $createtime = time;
|
|
|
|
$c->model('DB::NewsItems')->create({
|
|
createtime => $createtime,
|
|
contents => $contents,
|
|
author => $c->user->username
|
|
});
|
|
|
|
$c->res->redirect("/admin/news");
|
|
}
|
|
|
|
|
|
sub news_delete : Chained('admin') PathPart('news/delete') Args(1) {
|
|
my ($self, $c, $id) = @_;
|
|
|
|
$c->model('DB')->schema->txn_do(sub {
|
|
my $newsItem = $c->model('DB::NewsItems')->find($id)
|
|
or notFound($c, "Newsitem with id $id doesn't exist.");
|
|
$newsItem->delete;
|
|
});
|
|
|
|
$c->res->redirect("/admin/news");
|
|
}
|
|
|
|
|
|
1;
|