use POSIX qw(strftime);

    print "$path\n";

    #print "$path\n";

    if (!-e $link) {

    if (!-l $link) {

            or die "cannot creating symlink in $gcRootsDir to $path";

            or die "cannot create symlink in $gcRootsDir to $path";

# Determine which builds to keep automatically.
my %pathsToKeep;

sub keepBuild {
    my ($build) = @_;
    print "keeping build ", $build->id, " (",
            strftime("%Y-%m-%d %H:%M:%S", localtime($build->timestamp)), ")\n";
    if (isValidPath($build->outpath)) {
        registerRoot $build->outpath;
    } else {
        print STDERR "warning: output ", $build->outpath, " has disappeared\n";
    }
}

# TODO

# Go over all jobs in all projects.

# For finished builds, we only keep the output path, not the derivation.
foreach my $build ($db->resultset('Builds')->search({finished => 1, buildStatus => 0}, {join => 'resultInfo'})) {
    if ($build->resultInfo->keep || defined $pathsToKeep{$build->outpath}) {
        if (isValidPath($build->outpath)) {
            registerRoot $build->outpath;
        } else {
            print STDERR "warning: output ", $build->outpath, " has disappeared\n";
        }

foreach my $project ($db->resultset('Projects')->all) {
    foreach my $job ($project->builds->search({},
        {select => [{distinct => 'attrname'}], as => ['attrname']}))
    {
        print "*** looking for builds to keep in ", $project->name, ":", $job->attrname, "\n";
        # Keep the N most recent successful builds for each job and
        # platform.
        my @recentBuilds = $project->builds->search(
            { attrname => $job->attrname
            , finished => 1
            , buildStatus => 0 # == success
            },
            { join => 'resultInfo'
            , order_by => 'timestamp DESC'
            , rows => 3 # !!! should make this configurable
            });
        keepBuild $_ foreach @recentBuilds;

# Keep all builds that have been marked as "keep".
print "*** looking for kept builds\n";
my @buildsToKeep = $db->resultset('Builds')->search({finished => 1, keep => 1}, {join => 'resultInfo'});
keepBuild $_ foreach @buildsToKeep;

print "*** looking for scheduled builds\n";

    -- !!! urgh: "release" is a reserved keyword in sqlite >= 3.6.8!