Add command to generate project groups
This commit is contained in:
parent
a9f4a62c9d
commit
43a1b1b518
20
commands/project/gen_groups.pl
Normal file
20
commands/project/gen_groups.pl
Normal file
@ -0,0 +1,20 @@
|
|||||||
|
#! /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)
|
||||||
|
{
|
||||||
|
API::Projects::gen_groups($ARGV[0]);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
say "$0 <project_id>";
|
||||||
|
}
|
Reference in New Issue
Block a user