18 lines
203 B
Perl
18 lines
203 B
Perl
#! /usr/bin/env perl
|
|
|
|
use v5.10.1;
|
|
use strict;
|
|
use warnings;
|
|
|
|
use ACU::API::Base;
|
|
use ACU::API::Projects;
|
|
|
|
|
|
if ($#ARGV == 0)
|
|
{
|
|
API::Projects::add($ARGV[0], "");
|
|
}
|
|
else
|
|
{
|
|
say "$0 <project_id>";
|
|
}
|