#! /usr/bin/env perl

use v5.10.1;
use strict;
use warnings;

use lib "../../";

use ACU::API::Base;
use ACU::API::Projects;


if ($#ARGV == 0 or $#ARGV == 1)
{
    API::Projects::gen_groups($ARGV[0], $ARGV[1]);
}
else
{
    say "$0 <project_id> [year]";
}