| POE :: Componente :: Servidor :: SOAP Publicar los manipuladores de eventos POE a través de SOAPE SOBRE HTTP |
Descargar ahora |
POE :: Componente :: Servidor :: SOAP Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Apocalypse
- Sitio web del editor:
- http://search.cpan.org/~apocal/
POE :: Componente :: Servidor :: SOAP Etiquetas
POE :: Componente :: Servidor :: SOAP Descripción
Publicar los manipuladores de eventos POE a través de SOAPE SOBRE HTTP POE :: Componente :: Servidor :: SOAP es un módulo PERL que hace que la frecuencia SAAP / 1.1 solicita una brisa en Poe. Lo más difícil de entender en este módulo es el cuerpo de jabón. ¡Eso es! La forma estándar de usar este módulo es hacer esto: Use PoE; Use PoE :: Componente :: Servidor :: SOAP; POE :: Componente :: Servidor :: SOAP-> Nuevo (...); Poe :: Sesión-> Crea (...); Poe :: Kernel-> RUN (); POE :: Componente :: Servidor :: SOAP es un componente de perno que puede publicar los manipuladores de eventos a través de SAPE sobre HTTP. Actualmente, este módulo solo admite solicitudes SOAP / 1.1, el trabajo se realizará en el futuro para admitir solicitudes de SOAP / 1.2. El servidor HTTP se realiza a través de POE :: Componente :: Server :: SimpleHttp.Synopsis usa POE; Use PoE :: Componente :: Servidor :: SOAP; PoE :: Componente :: Servidor :: SOAP-> Nuevo ('alias' => 'mysoap', 'Dirección' => 'localhost', 'Port' => 32080, 'hostName' = '' myhost.com ', ) PoE :: Session-> Crear ('inline_states' => {'_start' => setup_service, '_stop' => shutdown_service, 'sum_things' => do_sum,},); $ poe_kernel-> correr; Salida 0; Sub Setup_Service {My $ Kernel = $ _ ; $ kernel-> alias_set ('myserver'); $ Kernel-> Post ('Mysoap', 'AddMethod', 'MyServer', 'Sum_things'); } Sub Shutdown_Service {$ _ -> Publicar ('Mysoap', 'Delmethod', 'MyServer', 'Sum_things'); } Sub do_sum {My $ Respow = $ _ ; My $ params = $ respuesta-> jabón; My $ SUM = 0; mientras (mi (Field, $ valor) = cada uno (% $ params)) {$ suma + = $ valor; } # Falsifica un error si ($ suma <100) {$ _ -> Publicar ('Mysoap', 'Fallo', $ Respuesta, 'Client.Add.Error', 'La suma debe estar por encima de 100') ; } else {# agrega el contenido $ respuesta-> contenido ("Gracias. La suma es: $ suma"); $ _ -> publicar ('mysoap', 'hecho', $ respuesta); }} Requisitos: · Perl
POE :: Componente :: Servidor :: SOAP Software relacionado