e35f0005e6
drop the "/nix/store". I.e. instead of
http://hydra.nixos.org/jobset/nixpkgs/trunk/channel/latest/nar/nix/store/99djmii6l4yw9gn07zxqabh8z58pp84c-libmspack-0.0.20040308alpha.drv
we now have
http://hydra.nixos.org/nar/99djmii6l4yw9gn07zxqabh8z58pp84c-libmspack-0.0.20040308alpha.drv
The main reason is that this is much faster, since we don't need to
get all the channel data (which isn't used anyway for NAR
generation). This speeds up downloading a NAR from the Nixpkgs
channel by > 2 seconds.
* Drop "Hydra::View::" from view names to get rid of an ugly warning.
53 lines
1.2 KiB
Perl
53 lines
1.2 KiB
Perl
package Hydra::View::NixManifest;
|
|
|
|
use strict;
|
|
use base qw/Catalyst::View/;
|
|
use Hydra::Helper::Nix;
|
|
use Nix;
|
|
|
|
|
|
sub process {
|
|
my ($self, $c) = @_;
|
|
|
|
my @storePaths = @{$c->stash->{storePaths}};
|
|
|
|
$c->response->content_type('text/x-nix-manifest');
|
|
|
|
my @paths = Nix::computeFSClosure(0, 1, @storePaths);
|
|
|
|
my $manifest =
|
|
"version {\n" .
|
|
" ManifestVersion: 4\n" .
|
|
"}\n";
|
|
|
|
foreach my $path (@paths) {
|
|
my ($hash, $deriver, $refs) = queryPathInfo $path;
|
|
|
|
# Escape the characters that are allowed to appear in a Nix
|
|
# path name but have special meaning in a URI.
|
|
my $escaped = $path;
|
|
$escaped =~ s/^.*\///; # remove /nix/store/
|
|
$escaped =~ s/\+/%2b/g;
|
|
$escaped =~ s/\=/%3d/g;
|
|
$escaped =~ s/\?/%3f/g;
|
|
|
|
my $url = $c->stash->{narBase} . "/" . $escaped;
|
|
|
|
$manifest .=
|
|
"{\n" .
|
|
" StorePath: $path\n" .
|
|
(scalar @{$refs} > 0 ? " References: @{$refs}\n" : "") .
|
|
(defined $deriver ? " Deriver: $deriver\n" : "") .
|
|
" NarURL: $url\n" .
|
|
" NarHash: $hash\n" .
|
|
"}\n";
|
|
}
|
|
|
|
$c->response->body($manifest);
|
|
|
|
return 1;
|
|
}
|
|
|
|
|
|
1;
|