Allow passing a specific build as an input

Dependencies

• [2] Z52T2BC4 Support passing a jobset evaluation as an input
• [3] OOQ2D3KC * Refactoring: move fetchInput out of hydra_scheduler into a separate
• [4] PGSSRA7C Add an input type "nix" for passing arbitrary Nix expressions
• [5] EFWN7JBV * Added a status page that shows all the currently executing build steps.
• [6] HPEG2RHV Merge the BuildResultInfo table into the Builds table
• [7] JTRG7RDQ add support for git as jobinput
• [8] KQS7DSKJ * Clean up indentation.
• [9] 2WRTOU2Z Cleanup
• [10] JAH3UPWA Support revision control systems via plugins
• [*] 3HZY24CX * Make jobsets viewable under
• [*] J5UVLXOK * Start of a basic Catalyst web interface.

Change contents

• edit in src/lib/Hydra/Controller/Jobset.pm at line 178
  [3.2009]

  [2.41]
  +
• edit in src/lib/Hydra/Controller/Jobset.pm at line 181
  [3.2131]

  [2.152]
  +
• edit in src/lib/Hydra/Controller/Jobset.pm at line 188
  [2.615]

  [3.2131]
  +
• replacement in src/lib/Hydra/Controller/Root.pm at line 39
  [3.35]→[3.399:434](∅→∅),[3.399]→[3.399:434](∅→∅),[3.434]→[2.789:841](∅→∅)
  − 'build' => 'Build output',

  − 'sysbuild' => 'Build output (same system)',
  [3.35]

  [2.841]
  + 'build' => 'Previous Hydra build',

  + 'sysbuild' => 'Previous Hydra build (same system)',
• replacement in src/lib/Hydra/Helper/AddBuilds.pm at line 81
  [3.8708]→[3.3730:3879](∅→∅)
  − my ($projectName, $jobsetName, $jobName, $attrs) = parseJobName($value);

  − $projectName ||= $project->name;

  − $jobsetName ||= $jobset->name;
  [3.8708]

  [3.8900]
  + my $prevBuild;
• replacement in src/lib/Hydra/Helper/AddBuilds.pm at line 83
  [3.8901]→[3.3880:4121](∅→∅),[3.4121]→[3.4430:4476](∅→∅),[3.4476]→[3.4189:4242](∅→∅),[3.4189]→[3.4189:4242](∅→∅)
  − # Pick the most recent successful build of the specified job.

  − (my $prevBuild) = $db->resultset('Builds')->search(

  − { finished => 1, project => $projectName, jobset => $jobsetName

  − , job => $jobName, buildStatus => 0 },

  − { order_by => "me.id DESC", rows => 1

  − , where => \ attrsToSQL($attrs, "me.id") });
  [3.8901]

  [3.9287]
  + if ($value =~ /^\d+$/) {

  + $prevBuild = $db->resultset('Builds')->find({ id => int($value) });

  + } else {

  + my ($projectName, $jobsetName, $jobName, $attrs) = parseJobName($value);

  + $projectName ||= $project->name;

  + $jobsetName ||= $jobset->name;

  +

  + # Pick the most recent successful build of the specified job.

  + $prevBuild = $db->resultset('Builds')->search(

  + { finished => 1, project => $projectName, jobset => $jobsetName

  + , job => $jobName, buildStatus => 0 },

  + { order_by => "me.id DESC", rows => 1

  + , where => \ attrsToSQL($attrs, "me.id") })->single;

  + }