[Moscow.pm] perl soap

[Николай Мишин]

исправил , чтобы файлы отображались в браузере,а не просили скачиваться
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 вполне себе  работается (хоть и не так просто).
>
> Спасибо

--
Николай Мишин