[Moscow.pm] perl soap

[Ruslan Zakirov]

Привет,

Есть XML::Compile::SOAP. Он поддерживает не все форматы протокола, но
если он зароботает для вас, то рекомендую. Если он не заработает за
30минут - 1 час, то лучше и не трогать больше.

В свое время рекомендовали выше привиденный модуль и я не стал
пробывать SOAP::Lite.

2011/6/20 Николай Мишин <mi на yandex.ru>:
> исправил , чтобы файлы отображались в браузере,а не просили скачиваться
> http://mishin.narod.ru/python/jira.py.html
> http://mishin.narod.ru/python/sl3.jira.home.py.html
>
> 20.06.2011, 09:04, "Николай Мишин" <mi на yandex.ru>:
>> Hi Moscow.pm
>>
>> Кто-нибудь смог подружиться с soap протоколом или с SOAP::Lite
>> по моему скромному мнению этот модуль совершенно не дописан,
>> например там не хватает функции, возвращающей список методов soap-сервера
>>
>> Складывается идиотская ситуация, как только мне нужно написать что-нибудь сложнее примера, показанного в модуле -
>> ничего не работает и не ясно как заставить это работать, например хочу в из Jira вытащить все заявки с помощью jql:
>>
>> #!/usr/bin/perl
>> use strict;
>> use warnings;
>> use SOAP::Lite;
>> use Data::Dumper;
>>
>> my $soap =
>>   SOAP::Lite->proxy("http://localhost:8080/rpc/soap/jirasoapservice-v2?wsdl");
>> my $auth = $soap->login( "login", "pw" );
>>
>> #ключ авторизации кладем в переменную
>> my $aur = $auth->result();
>>
>> my $jql = 'assignee = mishin';
>> my $issues = $soap->getIssuesFromJqlSearch( $aur, $jql );
>>
>> print Dumper($issues);
>>
>> # my $addComment = $soap->addComment(
>> # $aur, "AXIS-1",
>> # SOAP::Data->type(
>> # 'RemoteComment' => { 'body' => "Comment added via SOAP::Lite" }
>> # )
>> # );
>> #
>> # if ( defined $addComment->fault() ) {
>> # print $addComment->faultstring() . "\n";
>> # print Dumper($addComment);
>> # }
>> # else {
>> # print "Comment added:\n";
>> # print Dumper( $addComment->result() );
>> # }
>> $soap->logout( $auth->result() );
>>
>> а вот как то же самое легко делается на python
>> просто дам ссылку
>> http://mishin.narod.ru/python/jira.py
>> http://mishin.narod.ru/python/sl3.jira.home.py
>>
>> мне не удалось к сожалению разместить на https://github.com/mishin/scripts
>> (
>> $   git push -u origin master
>> The authenticity of host 'github.com (207.97.227.239)' can't be established.
>> RSA key fingerprint is 16:27:ac:a5:76:28:2d:36:63:1b:56:4d:eb:df:a6:48.
>> Are you sure you want to continue connecting (yes/no)? yes
>> Warning: Permanently added 'github.com,207.97.227.239' (RSA) to the list of known hosts.
>> Permission denied (publickey).
>> fatal: The remote end hung up unexpectedly
>>
>> kshunkov на Jet ~/scripts
>> $   git push -u origin master
>> Permission denied (publickey).
>> fatal: The remote end hung up unexpectedly
>>
>> )
>>
>> а так хотелось сделать это на перле
>> и еще, кто-нибудь имел опыт использования
>>  perthon http://perthon.sourceforge.net/ Дамиана Конвея
>> я вот подумал может с помощью это программы перенести код библиотеки suds (которая в свою очередь
>> была перенесена из java Axis) в perl6.
>> и на java Axis c soap вполне себе  работается (хоть и не так просто).
>>
>> Спасибо
>
> --
> Николай Мишин
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>



-- 
Best regards, Ruslan.