36 lines
735 B
Perl
36 lines
735 B
Perl
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use v5.10;
|
|
use Data::Dumper;
|
|
|
|
use ACU::API::Projects;
|
|
|
|
my $projid = $ARGV[0];
|
|
my $year = $ARGV[1] // LDAP::get_year;
|
|
|
|
my $res = API::Projects::get_groups($projid, $year);
|
|
my $tag = "rendu-1";
|
|
|
|
map {
|
|
my $chief;
|
|
|
|
# First, found the chief
|
|
for my $member (@{ $_->{stds} })
|
|
{
|
|
if ($member->{chief} eq "true" or $member->{chief} eq "1" or $member->{chief} eq "chief")
|
|
{
|
|
$chief = $member;
|
|
last;
|
|
}
|
|
}
|
|
|
|
say "repo $year/$projid/$chief->{login}";
|
|
print ' RW+ = @admins';
|
|
for my $member (@{ $_->{stds} }) {
|
|
print ' '.$member->{login};
|
|
}
|
|
say "\n R = \@chefs \@resp-$year-$projid \@soutenance-$year-$projid";
|
|
} @{ $res->{groups} };
|