grahamc/hydra2 - Change WYN733STK5DUQSWHSS6EYZK32KPZII64HLX4NS7TYUSFZ6AAFLGAC

* Store build duration, handle cached builds.

Created by Eelco Dolstra on October 28, 2008

WYN733STK5DUQSWHSS6EYZK32KPZII64HLX4NS7TYUSFZ6AAFLGAC

Dependencies

In channels

main

Change contents

Replacement in src/HydraFrontend/lib/HydraFrontend/Controller/Root.pm at line 34 [5.804]

B:BD[4.109] → [4.109:397]

    # select * from builds as x where timestamp == (select max(timestamp) from builds where name == x.name);
    $c->stash->{latestBuilds} = [$c->model('DB::Builds')->search(undef, {order_by => "name", where => "timestamp == (select max(timestamp) from builds where name == me.name)"})];

[4.109]

[3.0]

    # select * from builds as x where timestamp == (select max(timestamp) from builds where jobName == x.jobName);
    $c->stash->{latestBuilds} = [$c->model('DB::Builds')->search(undef, {order_by => "jobName", where => "timestamp == (select max(timestamp) from builds where jobName == me.jobName)"})];

Replacement in src/HydraFrontend/lib/HydraFrontend/Controller/Root.pm at line 43 [5.804]

B:BD[3.133] → [3.133:246]

    $c->stash->{builds} = [$c->model('DB::Builds')->search({name => $jobName}, {order_by => "timestamp DESC"})];

[3.133]

[5.1507]

    $c->stash->{builds} = [$c->model('DB::Builds')->search({jobName => $jobName}, {order_by => "timestamp DESC"})];

Replacement in src/HydraFrontend/lib/HydraFrontend/Schema/Buildlogs.pm at line 28 [5.3352]

B:BD[5.3992] → [5.3992:4134]

# Created by DBIx::Class::Schema::Loader v0.04005 @ 2008-10-25 22:23:27
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:01Br5qFsV84USpzqnjk7cw

[5.3992]

[5.4134]

# Created by DBIx::Class::Schema::Loader v0.04005 @ 2008-10-28 17:59:29
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:xXiHLBKW5fHl7ukdYeIsTw

Replacement in src/HydraFrontend/lib/HydraFrontend/Schema/Buildproducts.pm at line 28 [5.4268]

B:BD[5.4922] → [5.4922:5064]

# Created by DBIx::Class::Schema::Loader v0.04005 @ 2008-10-25 22:23:27
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:jYe9p4xG2Ujnf6TsfeE7tA

[5.4922]

[5.5064]

# Created by DBIx::Class::Schema::Loader v0.04005 @ 2008-10-28 17:59:29
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:5SPq4at2/NRvbax49TwfDw

Replacement in src/HydraFrontend/lib/HydraFrontend/Schema/Builds.pm at line 15 [5.5202]
B:BD[5.5538] → [5.5538:5548]
```
  "name",
```
[5.5538]
[5.5548]
```
  "jobname",
```
Insertion in src/HydraFrontend/lib/HydraFrontend/Schema/Builds.pm at line 23 [5.5202]
[5.5831]
[5.5831]
```
  "iscachedbuild",
  { data_type => "integer", is_nullable => 0, size => undef },
```

Insertion in src/HydraFrontend/lib/HydraFrontend/Schema/Builds.pm at line 27 [5.5202]

[5.5911]

  "errormsg",
  { data_type => "text", is_nullable => 0, size => undef },
  "starttime",
  { data_type => "integer", is_nullable => 0, size => undef },
  "stoptime",
  { data_type => "integer", is_nullable => 0, size => undef },

Replacement in src/HydraFrontend/lib/HydraFrontend/Schema/Builds.pm at line 36 [5.5202]
B:BD[5.5973] → [5.5973:6026]
```
  "buildlogs",
  "HydraFrontend::Schema::Buildlogs",
```
[5.5973]
[5.6026]
```
  "buildproducts",
  "HydraFrontend::Schema::Buildproducts",
```
Replacement in src/HydraFrontend/lib/HydraFrontend/Schema/Builds.pm at line 41 [5.5202]
B:BD[5.6090] → [5.6090:6151]
```
  "buildproducts",
  "HydraFrontend::Schema::Buildproducts",
```
[5.6090]
[5.6151]
```
  "buildlogs",
  "HydraFrontend::Schema::Buildlogs",
```

Replacement in src/HydraFrontend/lib/HydraFrontend/Schema/Builds.pm at line 47 [5.5202]

B:BD[5.6194] → [5.6194:6336]

# Created by DBIx::Class::Schema::Loader v0.04005 @ 2008-10-25 22:23:27
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:gxVH+2KWcgU41JOl9BbHFA

[5.6194]

[5.6336]

# Created by DBIx::Class::Schema::Loader v0.04005 @ 2008-10-28 17:59:29
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:gp6ZZpDA2VzgnNE9NX99dA

Replacement in src/HydraFrontend/lib/HydraFrontend/Schema.pm at line 11 [5.6376]

B:BD[5.6498] → [5.6498:6640]

# Created by DBIx::Class::Schema::Loader v0.04005 @ 2008-10-25 22:23:27
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:iW1lrJQVyiDiAYhJBy9/iQ

[5.6498]

[5.6640]

# Created by DBIx::Class::Schema::Loader v0.04005 @ 2008-10-28 17:59:29
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Fayli8dtSdcAYhfKSZnJwg

Replacement in src/HydraFrontend/root/build.tt at line 15 [5.7350]
B:BD[5.7565] → [5.7565:7595]
```
    <td>[% build.name %]</td>
```
[5.7565]
[5.7595]
```
    <td>[% build.jobname %]</td>
```

Insertion in src/HydraFrontend/root/build.tt at line 24 [5.7350]

[5.7782]

  </tr>
  <tr>
    <th>Duration (seconds):</th>
    <td>
      [% IF build.iscachedbuild %]
        <em>(cached build)</em>
      [% ELSE %]
        [% build.stoptime - build.starttime %]
      [% END %]
    </td>

Insertion in src/HydraFrontend/root/index.tt at line 4 [5.10713]
[4.421]
[4.421]
```
<p>Below are the latest builds for each job.</p>
```

Replacement in src/HydraFrontend/root/short-build-info.tt at line 12 [3.2074]

B:BD[3.2345] → [3.2345:2431]

  <td><a href="[% c.uri_for('/job' build.name) %]"><tt>[% build.name %]</tt></a></td>

[3.2345]

[3.2431]

  <td><a href="[% c.uri_for('/job' build.jobname) %]"><tt>[% build.jobname %]</tt></a></td>

Replacement in src/hydra.schema at line 4 [2.1]
B:BD[2.176] → [2.176:209]
```
    name          text not null,
```
[2.176]
[2.209]
```
    jobName       text not null,
```

Replacement in src/hydra.schema at line 8 [2.1]

B:BD[2.299] → [2.299:360]

    buildStatus   integer -- 0 = succeeded, 1 = failure, ...

[2.299]

[2.360]

    isCachedBuild integer not null, -- boolean
    buildStatus   integer, -- 0 = succeeded, 1 = Nix build failure, 2 = positive build failure
    errorMsg      text, -- error message in case of a Nix failure
    startTime     integer, -- in Unix time, 0 = used cached build result
    stopTime      integer

Replacement in src/scheduler.pl at line 33 [2.1319]

B:BD[2.2133] → [2.2133:2263]

    if (scalar(@{$dbh->selectall_arrayref("select * from builds where name = ? and outPath = ?", {}, $jobName, $outPath)}) > 0) {

[2.2133]

[2.2263]

    if (scalar(@{$dbh->selectall_arrayref("select * from builds where jobName = ? and outPath = ?", {}, $jobName, $outPath)}) > 0) {

Insertion in src/scheduler.pl at line 37 [2.1319]

[2.2317]


    my $isCachedBuild = 1;
    my $buildStatus = 0;
    my $startTime = 0;
    my $stopTime = 0;
    
    if (system("nix-store --check-validity $outPath 2> /dev/null") != 0) {
        $isCachedBuild = 0;

Replacement in src/scheduler.pl at line 46 [2.1319]

B:BD[2.2318] → [2.2318:2379]

    my $res = system("nix-build $jobsFile --attr $jobName");

[2.2318]

[2.2379]

        $startTime = time();
        my $res = system("nix-build $jobsFile --attr $jobName");
        $stopTime = time();

Replacement in src/scheduler.pl at line 52 [2.1319]

B:BD[2.2380] → [2.2380:2421]

    my $buildStatus = $res == 0 ? 0 : 1;

[2.2380]

[2.2421]

        $buildStatus = $res == 0 ? 0 : 1;
    }

Replacement in src/scheduler.pl at line 57 [2.1319]

B:BD[2.2445] → [2.2445:2656]

    $dbh->prepare("insert into builds(timestamp, name, description, drvPath, outPath, buildStatus) values(?, ?, ?, ?, ?, ?)")
        ->execute(time(), $jobName, $description, $drvPath, $outPath, $buildStatus);

[2.2445]

[2.2656]

    $dbh->prepare("insert into builds(timestamp, jobName, description, drvPath, outPath, isCachedBuild, buildStatus, errorMsg, startTime, stopTime) values(?, ?, ?, ?, ?, ?, ?, ?, ?, ?)")
        ->execute(time(), $jobName, $description, $drvPath, $outPath, $isCachedBuild, $buildStatus, "", $startTime, $stopTime);

Insertion in src/scheduler.pl at line 62 [2.1319]

[2.2763]


    my $logPath = "/nix/var/log/nix/drvs/" . basename $drvPath;
    if (-e $logPath) {
        print "  LOG $logPath\n";
        $dbh->prepare("insert into buildLogs(buildId, logPhase, path, type) values(?, ?, ?, ?)")
            ->execute($buildId, "full", $logPath, "raw");
    }

Deletion in src/scheduler.pl at line 75 [2.1319]

B:BD[2.2963] → [2.2963:3270]

        my $logPath = "/nix/var/log/nix/drvs/" . basename $drvPath;
        if (-e $logPath) {
            print "  LOG $logPath\n";
            $dbh->prepare("insert into buildLogs(buildId, logPhase, path, type) values(?, ?, ?, ?)")
                ->execute($buildId, "full", $logPath, "raw");
        }