From b6151358251aba000fbe0350cfcbdd19e20f2490 Mon Sep 17 00:00:00 2001
From: Rob Vermaas <rob.vermaas@gmail.com>
Date: Fri, 22 Jan 2010 13:31:59 +0000
Subject: [PATCH]  * hydra: add dependency list with links to logfiles

---
 src/lib/Hydra/Controller/Build.pm | 41 ++++++++++++++++++++++++++-
 src/root/build.tt                 |  4 +--
 src/root/deps.tt                  | 46 +++++++++++++++++++++++++++++++
 3 files changed, 88 insertions(+), 3 deletions(-)
 create mode 100644 src/root/deps.tt

diff --git a/src/lib/Hydra/Controller/Build.pm b/src/lib/Hydra/Controller/Build.pm
index fcd85dce..72e84280 100644
--- a/src/lib/Hydra/Controller/Build.pm
+++ b/src/lib/Hydra/Controller/Build.pm
@@ -7,7 +7,7 @@ use Hydra::Helper::Nix;
 use Hydra::Helper::CatalystUtils;
 use Hydra::Helper::AddBuilds;
 use File::stat;
-
+use Data::Dump qw(dump);
 
 sub build : Chained('/') PathPart CaptureArgs(1) {
     my ($self, $c, $id) = @_;
@@ -253,6 +253,45 @@ sub buildtimedeps : Chained('build') PathPart('buildtime-deps') {
     $c->res->content_type('image/png'); # !!!
 }
 
+sub deps : Chained('build') PathPart('deps') {
+    my ($self, $c) = @_;
+    
+    my $build = $c->stash->{build};
+    $c->stash->{available} = isValidPath $build->outpath;
+    $c->stash->{drvAvailable} = isValidPath $build->drvpath;
+
+    my $drvpath = $build->drvpath;
+    my $outpath = $build->outpath;
+    
+    my @buildtimepaths = ();
+    my @buildtimedeps = ();
+    @buildtimepaths = split '\n', `nix-store --query --requisites --include-outputs $drvpath` if isValidPath($build->drvpath);
+    
+    my @runtimepaths = ();
+    my @runtimedeps = ();
+    @runtimepaths = split '\n', `nix-store --query --requisites --include-outputs $outpath` if isValidPath($build->outpath);
+    
+    foreach my $p (@buildtimepaths) {
+    	my $buildStep;
+    	($buildStep) = $c->model('DB::BuildSteps')->search({ outpath => $p }, {}) ;
+    	my %dep = ( buildstep => $buildStep,  path => $p ) ;
+    	push(@buildtimedeps, \%dep);
+    }
+
+    foreach my $p (@runtimepaths) {
+    	my $buildStep;
+    	($buildStep) = $c->model('DB::BuildSteps')->search({ outpath => $p }, {}) ;
+    	my %dep = ( buildstep => $buildStep,  path => $p ) ;
+    	push(@runtimedeps, \%dep);
+    }
+
+    
+    $c->stash->{buildtimedeps} = \@buildtimedeps;
+    $c->stash->{runtimedeps} = \@runtimedeps;
+    
+    $c->stash->{template} = 'deps.tt';
+}
+
 
 sub nix : Chained('build') PathPart('nix') CaptureArgs(0) {
     my ($self, $c) = @_;
diff --git a/src/root/build.tt b/src/root/build.tt
index 8a279ddb..ab448acb 100644
--- a/src/root/build.tt
+++ b/src/root/build.tt
@@ -132,7 +132,7 @@
     <td>
       <tt>[% build.drvpath %]</tt>
       [% IF drvAvailable %]
-        (<a href="[% c.uri_for('/build' build.id 'buildtime-deps') %]">build-time dependencies</a>)
+        (build-time dependencies: <a href="[% c.uri_for('/build' build.id 'buildtime-deps') %]">graph</a> | <a href="[% c.uri_for('/build' build.id 'deps') %]#buildtime">list</a>)
       [% END %]
     </td>
   </tr>
@@ -141,7 +141,7 @@
     <td>
       <tt>[% build.outpath %]</tt>
       [% IF available %]
-        (<a href="[% c.uri_for('/build' build.id 'runtime-deps') %]">runtime dependencies</a>)
+        (runtime dependencies: <a href="[% c.uri_for('/build' build.id 'runtime-deps') %]">graph</a> | <a href="[% c.uri_for('/build' build.id 'deps') %]#runtime">list</a>)
       [% END %]
     </td>
   </tr>
diff --git a/src/root/deps.tt b/src/root/deps.tt
new file mode 100644
index 00000000..0e56f04a
--- /dev/null
+++ b/src/root/deps.tt
@@ -0,0 +1,46 @@
+[% WRAPPER layout.tt title="Job ‘$project.name:$jobset.name:$job.name’ build $id" %]
+[% PROCESS common.tt %]
+[% USE HTML %]
+
+[% project = build.project %]
+[% jobset = build.jobset %]
+[% job = build.job %]
+
+<a name="runtime"></a>
+[% IF available %]
+<h1>Runtime dependencies for [% build.outpath %]</h1>
+<ul>
+[% FOREACH dep IN runtimedeps -%]
+  <li>
+    [% IF dep.buildstep %] 
+      <a href="[% c.uri_for('/build' dep.buildstep.get_column('build') 'nixlog' dep.buildstep.stepnr) %]">[% dep.path %]</a>
+    [% ELSE %]
+      [% dep.path %]
+    [% END %]
+  </li>
+[% END %]
+</ul>
+[% ELSE %]
+Path not available anymore!<br />
+[% END %]
+
+<a name="buildtime"></a>
+[% IF drvAvailable %]
+<h1>Build time dependencies for [% build.drvpath %]</h1>
+<ul>
+[% FOREACH dep IN buildtimedeps -%]
+  <li>
+    [% IF dep.buildstep %] 
+      <a href="[% c.uri_for('/build' dep.buildstep.get_column('build') 'nixlog' dep.buildstep.stepnr) %]">[% dep.path %]</a>
+    [% ELSE %]
+      [% dep.path %]
+    [% END %]
+  </li>
+[% END %]
+</ul>
+[% ELSE %]
+Derivation not available anymore!<br />
+[% END %]
+
+[% END %]
+