raito/hydra
0
0
Fork 0
forked from lix-project/hydra
Code Pull requests Activity

Clear failed builds etc.: Redirect back to the referrer

Browse source 
Would be better to do this AJAX style though.
This commit is contained in:
Eelco Dolstra 2013-02-22 14:31:43 +01:00
parent 629fe6f998
commit 4343781181
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/lib/Hydra/Controller/Admin.pm
View file

@ -322,16 +322,14 @@ sub machine_disable : Chained('machine') PathPart('disable') Args(0) {
sub clear_queue_non_current : Chained('admin') Path('clear-queue-non-current') Args(0) { sub clear_queue_non_current : Chained('admin') Path('clear-queue-non-current') Args(0) {
my ($self, $c) = @_; my ($self, $c) = @_;
$c->model('DB::Builds')->search({finished => 0, iscurrent => 0, busy => 0})->update({ finished => 1, buildstatus => 4, timestamp => time}); $c->model('DB::Builds')->search({finished => 0, iscurrent => 0, busy => 0})->update({ finished => 1, buildstatus => 4, timestamp => time});
$c->res->redirect("/admin"); $c->res->redirect($c->request->referer // "/admin");
} }
sub clearfailedcache : Chained('admin') Path('clear-failed-cache') Args(0) { sub clearfailedcache : Chained('admin') Path('clear-failed-cache') Args(0) {
my ($self, $c) = @_; my ($self, $c) = @_;
my $r = `nix-store --clear-failed-paths '*'`; my $r = `nix-store --clear-failed-paths '*'`;
$c->res->redirect($c->request->referer // "/admin");
$c->res->redirect("/admin");
} }
@ -350,7 +348,7 @@ sub clearvcscache : Chained('admin') Path('clear-vcs-cache') Args(0) {
print "Clearing bazaar cache\n"; print "Clearing bazaar cache\n";
$c->model('DB::CachedBazaarInputs')->delete_all; $c->model('DB::CachedBazaarInputs')->delete_all;
$c->res->redirect("/admin"); $c->res->redirect($c->request->referer // "/admin");
} }