epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Interact with new intranet group API

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-10-30 02:38:50 +01:00
parent 27f7b7c9ce
commit 1f61b7a144
3 changed files with 135 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

35
commands/project/gen_git_str.pl Normal file
View file

@ -0,0 +1,35 @@
#!/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";
} @{ $res->{groups} };