Provide the nix-cache-info file required by the binary cache substituter

This commit is contained in:
Eelco Dolstra 2012-07-30 20:26:34 +00:00
parent d15dd6bac9
commit fad2a084fa

View file

@ -7,6 +7,7 @@ use Hydra::Helper::Nix;
use Hydra::Helper::CatalystUtils; use Hydra::Helper::CatalystUtils;
use Digest::SHA1 qw(sha1_hex); use Digest::SHA1 qw(sha1_hex);
use Nix::Store; use Nix::Store;
use Nix::Config;
# Put this controller at top-level. # Put this controller at top-level.
__PACKAGE__->config->{namespace} = ''; __PACKAGE__->config->{namespace} = '';
@ -195,6 +196,17 @@ sub nar :Local :Args(1) {
} }
sub nix_cache_info :Path('nix-cache-info') :Args(0) {
my ($self, $c) = @_;
$c->stash->{'plain'} = { data =>
#"StoreDir: $Nix::Config::storeDir\n" . # FIXME
"StoreDir: /nix/store\n" .
"WantMassQuery: 0\n"
};
$c->forward('Hydra::View::Plain');
}
sub hashToPath { sub hashToPath {
my ($c, $hash) = @_; my ($c, $hash) = @_;
die if length($hash) != 32; die if length($hash) != 32;
@ -212,7 +224,7 @@ sub narinfo :LocalRegex('^([a-z0-9]+).narinfo$') :Args(0) {
} }
sub change_password : Path('change-password') : Args(0) { sub change_password : Path('change-password') :Args(0) {
my ($self, $c) = @_; my ($self, $c) = @_;
requireLogin($c) if !$c->user_exists; requireLogin($c) if !$c->user_exists;