Как создавать проблемы в Redmine с Perl - PullRequest
Новая
       77

Как создавать проблемы в Redmine с Perl

0 голосов
/ 26 апреля 2020

Я использую приведенный ниже код для создания проблем в Redmine, но он не работает 

use LWP::UserAgent;
use HTTP::Request;

my $ua = LWP::UserAgent->new;

$key='f4t3y2f4t3y2f4t23yfy4';

my $uri = 'http://localhost/redmine/issues/new';

my $json = '{
  "issue": {
  "project_id": 1,     // my project has different number.
  "subject": "Example111",
  "priority_id": 4,
  "commit": "Create"
 }
}';

my $req = HTTP::Request->new( 'POST', $uri );

$req->header( 'Content-Type' => 'application/json', 'X-Redmine-API-Key' =>  $key);

$req->content( $json );

 print Dumper $ua->request($req);

Код не создавал проблем в Redmine, но теперь этот код работает отлично.

Этот код правильный! *

Привет: @ HåkonHægland

...