Poe :: Component :: Server :: Soap

Publicar manipuladores de eventos PoE via Soap sobre HTTP
Baixe Agora

Poe :: Component :: Server :: Soap Classificação e resumo

Propaganda

  • Rating:
  • 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

Poof.

Extensão Perl que fornece digitação, encapsulamento e herança mais fortes ...

410

Download