Remove some obsolete JSON APIs

src/lib/Hydra/Controller/API.pm

@@ -15,8 +15,6 @@ use Digest::SHA qw(sha256_hex);
 use Text::Diff;
 use File::Slurp;
 
-# !!! Rewrite this to use View::JSON.
-
 
 sub api : Chained('/') PathPart('api') CaptureArgs(0) {
     my ($self, $c) = @_;
@@ -24,32 +22,6 @@ sub api : Chained('/') PathPart('api') CaptureArgs(0) {
 }
 
 
-sub projectToHash {
-    my ($project) = @_;
-    return {
-        name => $project->name,
-        description => $project->description
-    };
-}
-
-
-sub projects : Chained('api') PathPart('projects') Args(0) {
-    my ($self, $c) = @_;
-
-    my @projects = $c->model('DB::Projects')->search({hidden => 0}, {order_by => 'name'});
-
-    my @list;
-    foreach my $p (@projects) {
-      push @list, projectToHash($p);
-    }
-
-    $c->stash->{'plain'} = {
-        data => scalar (JSON::Any->objToJson(\@list))
-    };
-    $c->forward('Hydra::View::Plain');
-}
-
-
 sub buildToHash {
     my ($build) = @_;
     my $result = {

src/lib/Hydra/Controller/Build.pm

@@ -613,17 +613,6 @@ sub clone_submit : Chained('buildChain') PathPart('clone/submit') Args(0) {
 }
 
 
-sub get_info : Chained('buildChain') PathPart('api/get-info') Args(0) {
-    my ($self, $c) = @_;
-    my $build = $c->stash->{build};
-    $c->stash->{json}->{buildId} = $build->id;
-    $c->stash->{json}->{drvPath} = $build->drvpath;
-    my $out = getMainOutput($build);
-    $c->stash->{json}->{outPath} = $out->path if defined $out;
-    $c->forward('View::JSON');
-}
-
-
 sub evals : Chained('buildChain') PathPart('evals') Args(0) {
     my ($self, $c) = @_;
 

src/lib/Hydra/Controller/Root.pm

@@ -55,11 +55,10 @@ sub index :Path :Args(0) {
     $c->stash->{template} = 'overview.tt';
     $c->stash->{projects} = [$c->model('DB::Projects')->search(isAdmin($c) ? {} : {hidden => 0}, {order_by => 'name'})];
     $c->stash->{newsItems} = [$c->model('DB::NewsItems')->search({}, { order_by => ['createtime DESC'], rows => 5 })];
-    $self->status_ok(
-        $c,
+    $self->status_ok($c,
         entity => [$c->model('DB::Projects')->search(isAdmin($c) ? {} : {hidden => 0}, {
                     order_by => 'name',
-                    columns => [ 'name', 'displayname' ]
+                    columns => [ 'name', 'displayname', 'description' ]
                 })]
     );
 }