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