在Perl中更新JIRA :: Client中的自定义字段

时间:2013-11-26 09:45:56

标签: perl jira

我想在Perl中使用JIRA::Client创建新问题;但它抛出一个例外 “soapenv:Server.userException,java.lang.reflect.InvocationTargetException在D:\ ji.pl第20行“

use JIRA::Client;
use SOAP::Lite;
use Data::Dumper;
use Win32;

$adminuser = $ENV{USERNAME};
$adminpwd  = $ARGV[0];

eval { $jira = JIRA::Client->new('http://jira.com/',$adminuser,$adminpwd) }
  or die "Invalid Credentials";

my $newissue = $jira->create_issue(
  {
    project => 'VVSPL29',
    summary => 'UTP_ARR',
    type    => 'Work Product',
    customFieldValues =>  [
      {
       'customfieldId' => 'customfield_11380',
       'values'=>[SOAP::Data->type('string','747-8')]
      },
      {
       'customfieldId' => 'customfield_10727',
       'values' =>[SOAP::Data->type('string','UIL_EDS')]
      },
      {
       'customfieldId' => 'customfield_11086',
       'values' => [SOAP::Data->type('string','8')]
      },
      {
       'customfieldId' => 'customfield_10200',
       'values' => [SOAP::Data->type('string',"5/Nov/13")]
      },
      {
       'customfieldId' => 'customfield_11572',
       'values' => [SOAP::Data->type('string','Init Dev')]
      }
    ]
  }
);

请帮我弄清楚哪里出错了。

0 个答案:

没有答案