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

Make negative narinfo responses much smaller

Browse source
This commit is contained in:
Eelco Dolstra 2013-04-23 15:33:58 +02:00
parent 54b03527cb
commit 72a44cfcaa
1 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/lib/Hydra/Controller/Root.pm
View file

@ -215,19 +215,20 @@ sub nix_cache_info :Path('nix-cache-info') :Args(0) {
} }
sub hashToPath {
my ($c, $hash) = @_;
die if length($hash) != 32;
my $path = queryPathFromHashPart($hash);
notFound($c, "Store path with hash ‘$hash’ does not exist.") unless $path;
return $path;
}
sub narinfo :LocalRegex('^([a-z0-9]+).narinfo$') :Args(0) { sub narinfo :LocalRegex('^([a-z0-9]+).narinfo$') :Args(0) {
my ($self, $c) = @_; my ($self, $c) = @_;
my $hash = $c->req->captures->[0]; my $hash = $c->req->captures->[0];
$c->stash->{storePath} = hashToPath($c, $hash);
die if length($hash) != 32;
my $path = queryPathFromHashPart($hash);
if (!$path) {
$c->response->content_type('text/plain');
$c->stash->{'plain'}->{'data'} = "does not exist\n";
$c->forward('Hydra::View::Plain');
}
$c->stash->{storePath} = $path;
$c->stash->{current_view} = 'NARInfo'; $c->stash->{current_view} = 'NARInfo';
} }