002ac9ef63
The catalyst-action-rest branch from shlevy/hydra was an exploration of
using Catalyst::Action::REST to create a JSON API for hydra. This commit
merges in the best bits from that experiment, with the goal that further
API endpoints can be added incrementally.
In addition to migrating more endpoints, there is potential for
improvement in what's already been done:
* The web interface can be updated to use the same non-GET endpoints as
the JSON interface (using x-tunneled-method) instead of having a
separate endpoint
* The web rendering should use the $c->stash->{resource} data structure
where applicable rather than putting the same data in two places in
the stash
* Which columns to render for each endpoint is a completely debatable
question
* Hydra::Component::ToJSON should turn has_many relations that have
strings as their primary keys into objects instead of arrays
Fixes NixOS/hydra#98
Signed-off-by: Shea Levy <shea@shealevy.com>
125 lines
3.8 KiB
Perl
125 lines
3.8 KiB
Perl
package Hydra::Base::Controller::NixChannel;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use base 'Hydra::Base::Controller::REST';
|
|
use List::MoreUtils qw(all);
|
|
use Nix::Store;
|
|
use Hydra::Helper::Nix;
|
|
use Hydra::Helper::CatalystUtils;
|
|
|
|
|
|
sub getChannelData {
|
|
my ($c, $checkValidity) = @_;
|
|
|
|
my @storePaths = ();
|
|
$c->stash->{nixPkgs} = [];
|
|
foreach my $build ($c->stash->{channelBuilds}->all) {
|
|
my $outPath = $build->get_column("outpath");
|
|
my $outName = $build->get_column("outname");
|
|
next if $checkValidity && !isValidPath($outPath);
|
|
push @storePaths, $outPath;
|
|
my $pkgName = $build->nixname . "-" . $build->system . "-" . $build->id . ($outName ne "out" ? "-" . $outName : "");
|
|
push @{$c->stash->{nixPkgs}}, { build => $build, name => $pkgName, outPath => $outPath, outName => $outName };
|
|
# Put the system type in the manifest (for top-level paths) as
|
|
# a hint to the binary patch generator. (It shouldn't try to
|
|
# generate patches between builds for different systems.) It
|
|
# would be nice if Nix stored this info for every path but it
|
|
# doesn't.
|
|
$c->stash->{systemForPath}->{$outPath} = $build->system;
|
|
};
|
|
|
|
$c->stash->{storePaths} = [@storePaths];
|
|
}
|
|
|
|
|
|
sub closure : Chained('nix') PathPart {
|
|
my ($self, $c) = @_;
|
|
$c->stash->{current_view} = 'NixClosure';
|
|
|
|
getChannelData($c, 1);
|
|
|
|
# FIXME: get the closure of the selected path only.
|
|
|
|
# !!! quick hack; this is to make HEAD requests return the right
|
|
# MIME type. This is set in the view as well, but the view isn't
|
|
# called for HEAD requests. There should be a cleaner solution...
|
|
$c->response->content_type('application/x-nix-export');
|
|
}
|
|
|
|
|
|
sub manifest : Chained('nix') PathPart("MANIFEST") Args(0) {
|
|
my ($self, $c) = @_;
|
|
$c->stash->{current_view} = 'NixManifest';
|
|
$c->stash->{narBase} = $c->uri_for($c->controller('Root')->action_for("nar"));
|
|
getChannelData($c, 1);
|
|
}
|
|
|
|
|
|
sub pkg : Chained('nix') PathPart Args(1) {
|
|
my ($self, $c, $pkgName) = @_;
|
|
|
|
if (!$c->stash->{build}) {
|
|
$pkgName =~ /-(\d+)\.nixpkg$/ or notFound($c, "Bad package name.");
|
|
# FIXME: need to handle multiple outputs: channelBuilds is
|
|
# joined with the build outputs, so find() can return multiple
|
|
# results.
|
|
$c->stash->{build} = $c->stash->{channelBuilds}->find({ id => $1 })
|
|
|| notFound($c, "No such package in this channel.");
|
|
}
|
|
|
|
unless (all { isValidPath($_->path) } $c->stash->{build}->buildoutputs->all) {
|
|
$c->response->status(410); # "Gone"
|
|
error($c, "Build " . $c->stash->{build}->id . " is no longer available.");
|
|
}
|
|
|
|
$c->stash->{manifestUri} = $c->uri_for($self->action_for("manifest"), $c->req->captures);
|
|
|
|
$c->stash->{current_view} = 'NixPkg';
|
|
|
|
$c->response->content_type('application/nix-package');
|
|
}
|
|
|
|
|
|
sub nixexprs : Chained('nix') PathPart('nixexprs.tar.bz2') Args(0) {
|
|
my ($self, $c) = @_;
|
|
$c->stash->{current_view} = 'NixExprs';
|
|
getChannelData($c, 1);
|
|
}
|
|
|
|
|
|
sub binary_cache_url : Chained('nix') PathPart('binary-cache-url') Args(0) {
|
|
my ($self, $c) = @_;
|
|
$c->stash->{'plain'} = { data => $c->uri_for('/') };
|
|
$c->response->content_type('text/plain');
|
|
$c->forward('Hydra::View::Plain');
|
|
}
|
|
|
|
|
|
sub name {
|
|
my ($build) = @_;
|
|
return $build->releasename || $build->nixname;
|
|
}
|
|
|
|
|
|
sub sortPkgs {
|
|
# Sort by name, then id.
|
|
return sort
|
|
{ lc(name($a->{build})) cmp lc(name($b->{build}))
|
|
or $a->{build}->id <=> $b->{build}->id } @_;
|
|
}
|
|
|
|
|
|
sub channel_contents : Chained('nix') PathPart('') Args(0) {
|
|
my ($self, $c) = @_;
|
|
# Optimistically assume that none of the packages have been
|
|
# garbage-collected. That should be true for the "latest"
|
|
# channel.
|
|
getChannelData($c, 0);
|
|
$c->stash->{template} = 'channel-contents.tt';
|
|
$c->stash->{nixPkgs} = [sortPkgs @{$c->stash->{nixPkgs}}];
|
|
}
|
|
|
|
|
|
1;
|