sub createCardOnProjectName { my ($username, $password, $projectName ) = @_; my $method = 'addCard'; my $soap_action = sub {return 'https://login.swift-kanban.com/axis2/services/KanbanCardService?wsdl' . '/' . $method}; my $SoapClient = SOAP::Lite ->uri('https://login.swift-kanban.com/axis2/services/KanbanCardService?wsdl') ->proxy('https://login.swift-kanban.com/axis2/services/KanbanCardService') ->autotype(0) ->on_action( $soap_action ); my $Security = getHeader($SoapClient, $username, $password); my $projectId = returnProjectIdFromName($username, $password, $projectName, $Security ); my $cardType = returnCardListFromProjectDetail($username, $password, $projectId, $Security ); #my $cardMetaData = returnCardMetaData ($username, $password, $cardType, $Security ); #my $method_name = SOAP::Data->name($method)->attr({'xmlns' => $self->xmlns()}); my $beamlineName = SOAP::Data->name('addCardDetails' => \SOAP::Data->value( SOAP::Data->name("projectId")->value($projectId)->type("")->prefix('kan'), SOAP::Data->name("cardType")->value($cardType)->type("")->prefix('kan'), SOAP::Data->name("userLoginId")->value($username)->type("")->prefix('kan'), SOAP::Data->name('fields' => \SOAP::Data->value( SOAP::Data->name('field')->value('teste de criacao')->type("")->attr({"name" => "name"})->prefix('kan'), SOAP::Data->name('field')->value('M')->type("")->attr({"name" => "cardSize"})->prefix('kan'), SOAP::Data->name('field')->value('Expedite')->type("")->attr({"name" => "classOfService"})->prefix('kan'), SOAP::Data->name('field')->value('PM')->type("")->attr({"name" => "Category"})->prefix('kan'), ), )->prefix('kan'), )->prefix('kan'), )->prefix('kan'); my $xml = $SoapClient->call($method, $Security, $beamlineName)->result; return $xml; } #### IntegrationUser_1078957 005L8FM# 1 KanbanIssue IntegrationUser_1078957 teste de criacao M Expedite PM