Maximilian Bosch
e499509595
Implements support for Nix's new Perl bindings[1]. The current state basically does `openStore()`, but always uses `auto` and doesn't support stores at other URIs. Even though the stores are cached inside the Perl implementation, I decided to instantiate those once in the Nix helper module. That way store openings aren't cluttered across the entire codebase. Also, there are two stores used later on - MACHINE_LOCAL_STORE for `auto`, BINARY_CACHE_STORE for the one from `store_uri` in `hydra.conf` - and using consistent names should make the intent clearer then. This doesn't contain any behavioral changes, i.e. the build product availability issue from #1352 isn't fixed. This patch only contains the migration to the new API. [1] https://github.com/NixOS/nix/pull/9863
53 lines
1.5 KiB
Perl
53 lines
1.5 KiB
Perl
package Hydra::View::NARInfo;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use File::Basename;
|
|
use Hydra::Helper::CatalystUtils;
|
|
use MIME::Base64;
|
|
use Nix::Manifest;
|
|
use Hydra::Helper::Nix;
|
|
use base qw/Catalyst::View/;
|
|
|
|
sub process {
|
|
my ($self, $c) = @_;
|
|
|
|
my $storePath = $c->stash->{storePath};
|
|
|
|
$c->response->content_type('text/x-nix-narinfo'); # !!! check MIME type
|
|
|
|
my ($deriver, $narHash, $time, $narSize, $refs) = $MACHINE_LOCAL_STORE->queryPathInfo($storePath, 1);
|
|
|
|
my $info;
|
|
$info .= "StorePath: $storePath\n";
|
|
$info .= "URL: nar/" . basename $storePath. "\n";
|
|
$info .= "Compression: xz\n";
|
|
$info .= "NarHash: $narHash\n";
|
|
$info .= "NarSize: $narSize\n";
|
|
$info .= "References: " . join(" ", map { basename $_ } @{$refs}) . "\n";
|
|
if (defined $deriver) {
|
|
$info .= "Deriver: " . basename $deriver . "\n";
|
|
if ($MACHINE_LOCAL_STORE->isValidPath($deriver)) {
|
|
my $drv = $MACHINE_LOCAL_STORE->derivationFromPath($deriver);
|
|
$info .= "System: $drv->{platform}\n";
|
|
}
|
|
}
|
|
|
|
# Optionally, sign the NAR info file we just created.
|
|
my $secretKeyFile = $c->config->{binary_cache_secret_key_file};
|
|
if (defined $secretKeyFile) {
|
|
my $secretKey = readFile $secretKeyFile;
|
|
my $fingerprint = fingerprintPath($storePath, $narHash, $narSize, $refs);
|
|
my $sig = signString($secretKey, $fingerprint);
|
|
$info .= "Sig: $sig\n";
|
|
}
|
|
|
|
setCacheHeaders($c, 24 * 60 * 60);
|
|
|
|
$c->response->body($info);
|
|
|
|
return 1;
|
|
}
|
|
|
|
1;
|