grahamc/hydra2 - Change GXRKOXQJWOBXNHUYT5D7NX2JHEOY2CWZFLSFOW2BLG6GGNM2SRZAC

Add cancel-build role

Created by Andreas Rammhold on November 5, 2019

GXRKOXQJWOBXNHUYT5D7NX2JHEOY2CWZFLSFOW2BLG6GGNM2SRZAC

Dependencies

In channels

main

Change contents

Replacement in src/lib/Hydra/Controller/Build.pm at line 507 [4.1]

B:BD[3.572] → [3.572:618]

    requireProjectOwner($c, $build->project);

[3.571]

[5.248]

    requireCancelBuildPrivileges($c, $build->project);

Replacement in src/lib/Hydra/Controller/JobsetEval.pm at line 182 [6.1302]

B:BD[5.751] → [5.751:808]

    requireProjectOwner($c, $c->stash->{eval}->project);

[5.751]

[5.808]

    requireCancelBuildPrivileges($c, $c->stash->{eval}->project);

Insertion in src/lib/Hydra/Helper/CatalystUtils.pm at line 17 [4.3469]
[2.159]
[7.9771]
```
    requireCancelBuildPrivileges
```

Insertion in src/lib/Hydra/Helper/CatalystUtils.pm at line 184 [4.3469]

[8.794]

[2.160]

}
sub hasCancelBuildRole {
    my ($c) = @_;
    return $c->user_exists && $c->check_user_roles('cancel-build');
}
sub mayCancelBuild {
    my ($c, $project) = @_;
    return
        $c->user_exists &&
        (isAdmin($c) ||
         hasCancelBuildRole($c) ||
         isProjectOwner($c, $project));

Insertion in src/lib/Hydra/Helper/CatalystUtils.pm at line 200 [4.3469]

[2.163]

sub requireCancelBuildPrivileges {
    my ($c, $project) = @_;
    requireUser($c);
    accessDenied($c, "Only the project members, administrators, and accounts with cancel-build privileges can perform this operation.")
        unless mayCancelBuild($c, $project);
}

Insertion in src/root/user.tt at line 85 [10.4561]

[2.774]

[9.6750]

            [% INCLUDE roleoption role="cancel-build" %]