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

added newsitems, added some admin options to clear various caches.

Browse Source
This commit is contained in:
Rob Vermaas
2010-04-27 13:29:08 +00:00
parent e18fe1078a
commit 7a79d17a36
13 changed files with 503 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

92
src/lib/Hydra/Controller/Admin.pm Normal file
View File

@ -0,0 +1,92 @@
package Hydra::Controller::Admin;
use strict;
use warnings;
use base 'Catalyst::Controller';
use Hydra::Helper::Nix;
use Hydra::Helper::CatalystUtils;
sub admin : Path('/admin') Args(0) {
my ($self, $c) = @_;
requireAdmin($c);
$c->stash->{template} = 'admin.tt';
}
sub clearfailedcache : Path('/admin/clear-failed-cache') Args(0) {
my ($self, $c) = @_;
requireAdmin($c);
my $r = `nix-store --clear-failed-paths '*'`;
$c->res->redirect("/admin");
}
sub clearevalcache : Path('/admin/clear-eval-cache') Args(0) {
my ($self, $c) = @_;
requireAdmin($c);
print "Clearing evaluation cache\n";
$c->model('DB::JobsetInputHashes')->delete_all;
$c->res->redirect("/admin");
}
sub clearvcscache : Path('/admin/clear-vcs-cache') Args(0) {
my ($self, $c) = @_;
requireAdmin($c);
print "Clearing path cache\n";
$c->model('DB::CachedPathInputs')->delete_all;
print "Clearing git cache\n";
$c->model('DB::CachedGitInputs')->delete_all;
print "Clearing subversion cache\n";
$c->model('DB::CachedSubversionInputs')->delete_all;
$c->res->redirect("/admin");
}
sub managenews : Path('/admin/news') Args(0) {
my ($self, $c) = @_;
requireAdmin($c);
$c->stash->{newsItems} = [$c->model('DB::NewsItems')->search({}, {order_by => 'createtime DESC'})];
$c->stash->{template} = 'news.tt';
}
sub news_submit : Path('/admin/news/submit') Args(0) {
my ($self, $c) = @_;
requireAdmin($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 : Path('/admin/news/delete') Args(1) {
my ($self, $c, $id) = @_;
requireAdmin($c);
txn_do($c->model('DB')->schema, 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;

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

@ -16,7 +16,7 @@ sub begin :Private {
$c->stash->{curUri} = $c->request->uri;
$c->stash->{version} = $ENV{"HYDRA_RELEASE"} || "<devel>";
$c->stash->{nixVersion} = $ENV{"NIX_RELEASE"} || "<devel>";
$c->stash->{nrRunningBuilds} = $c->model('DB::BuildSchedulingInfo')->search({ busy => 1 }, {})->count();
$c->stash->{nrQueuedBuilds} = $c->model('DB::BuildSchedulingInfo')->count();
@ -27,6 +27,7 @@ sub index :Path :Args(0) {
my ($self, $c) = @_;
$c->stash->{template} = 'overview.tt';
$c->stash->{projects} = [$c->model('DB::Projects')->search({}, {order_by => 'name'})];
$c->stash->{newsItems} = [$c->model('DB::NewsItems')->search({}, { order_by => ['createtime DESC'], rows => 5 })];
}