Poe :: Component :: Server :: SoapPublicar manipuladores de eventos PoE via Soap sobre HTTP | |
Baixe Agora |
Poe :: Component :: Server :: Soap Classificação e resumo
Propaganda
- Licença:
- Perl Artistic License
- Preço:
- FREE
- Nome do editor:
- Apocalypse
- Site do editor:
- http://search.cpan.org/~apocal/
Poe :: Component :: Server :: Soap Tag
Poe :: Component :: Server :: Soap Descrição
Publicar manipuladores de eventos PoE via Soap sobre HTTP Poe :: Componente :: Servidor :: SOAP é um módulo Perl que faz servindo Soap / 1.1 solicita uma brisa em Poe.A coisa mais difícil de entender neste módulo é o corpo do sabão. É isso! A maneira padrão de usar este módulo é fazer isso: Use PoE; Use PoE :: Component :: Server :: Soap; Poe :: Component :: Server :: Soap-> Novo (...); Poe :: Session-> Criar (...); Poe :: Kernel-> Executar (); PoE :: Componente :: Server :: SOAP é um componente parafusos que pode publicar manipuladores de eventos via SOAP sobre HTTP. Atualmente, este módulo suporta apenas solicitações SOAP / 1.1, o trabalho será feito no futuro para suportar solicitações SOAP / 1.2. O servidor HTTP é feito via PoE :: Component :: Server :: Simplehttp.synopsis Use PoE; Use PoE :: Component :: Server :: Soap; Poe :: Componente :: Servidor :: Soap-> Novo ('Alias' => 'Mysoap', 'Endereço' => 'localhost', 'Port' => 32080, 'hostname' => 'myhost.com' => 'myhost.com ); Poe :: Session-> Criar ('inline_states' => {'_start' => setup_service, '_stop' => shutdown_service, 'sum_things' => do_sum,},); $ poe_kernel-> correr; saída 0; sub setup_service {meu kernel $ _ ; $ kernel-> alias_set ('myserver'); $ kernel-> post ('mysoap', 'addmethod', 'myserver', 'sum_things'); } Sub shutdown_service {$ _ -> Post ('mysoap', 'delmethod', 'myserver', 'sum_things'); } sub do_sum {My $ Response = $ _ ; Meus $ params = $ Response-> Soapbody; minha soma $ = 0; while (meu (campo $, $ valor) = cada (% $ params)) {$ sum + = valor $; } # Falsa um erro se ($ soma <100) {$ _ -> post ('mysoap', 'falha', $ resposta, 'cliente.add.error', 'a soma deve estar acima de 100') ; } else {# Adicione o conteúdo $ Response-> Conteúdo ("Obrigado. Sum é: $ Sum"); $ _ -> Post ('mysoap', 'feito', $ Response); }} Requisitos: · Perl.
Poe :: Component :: Server :: Soap Software Relacionado