forked from lix-project/hydra
Don't print to stdout
This commit is contained in:
parent
51f0185797
commit
afc90b36db
|
@ -50,16 +50,16 @@ sub clearfailedcache : Chained('admin') PathPart('clear-failed-cache') Args(0) {
|
||||||
sub clearvcscache : Chained('admin') PathPart('clear-vcs-cache') Args(0) {
|
sub clearvcscache : Chained('admin') PathPart('clear-vcs-cache') Args(0) {
|
||||||
my ($self, $c) = @_;
|
my ($self, $c) = @_;
|
||||||
|
|
||||||
print "Clearing path cache\n";
|
print STDERR "Clearing path cache\n";
|
||||||
$c->model('DB::CachedPathInputs')->delete_all;
|
$c->model('DB::CachedPathInputs')->delete_all;
|
||||||
|
|
||||||
print "Clearing git cache\n";
|
print STDERR "Clearing git cache\n";
|
||||||
$c->model('DB::CachedGitInputs')->delete_all;
|
$c->model('DB::CachedGitInputs')->delete_all;
|
||||||
|
|
||||||
print "Clearing subversion cache\n";
|
print STDERR "Clearing subversion cache\n";
|
||||||
$c->model('DB::CachedSubversionInputs')->delete_all;
|
$c->model('DB::CachedSubversionInputs')->delete_all;
|
||||||
|
|
||||||
print "Clearing bazaar cache\n";
|
print STDERR "Clearing bazaar cache\n";
|
||||||
$c->model('DB::CachedBazaarInputs')->delete_all;
|
$c->model('DB::CachedBazaarInputs')->delete_all;
|
||||||
|
|
||||||
$c->res->redirect($c->request->referer // "/admin");
|
$c->res->redirect($c->request->referer // "/admin");
|
||||||
|
|
Loading…
Reference in a new issue