Foro - Perl en Español

por **torrm17** » 2013-01-14 20:47 @908

Buenas tardes.

Me gustaría que me ayudaras con un tema de SOAP con Perl.

Fíjate que tengo que enviar un xml hacia un servidor web usando SOAP. Este script, al enviar la información debe de abrir un reporte de falla en el servidor.

Ya tengo todo, y al ejecutarlo me aparece un error.

Este es mi script.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

###################################### SCRIPT
#!/usr/bin/perl -w
 
use <span class="posthilit">SOAP</span>::Lite +trace=> 'debug';
 
my $message="<soapenv:Envelope xmlns:soapenv=\"http://schemas.xmlsoap.org/<span class="posthilit">soap</span>/envelope/\" xmlns:sch=\"http://www.tibco.com/schemas/Inventory_root/SharedResources/Schema.xsd2\" xmlns:amd=\"amdXml\"><soapenv:Header/><soapenv:Body><sch:IncidentInput><sch:serviceClasification/><sch:Impact>2000</sch:Impact><sch:urgency>1000</sch:urgency><sch:eventType>1</sch:eventType><sch:Status>1</sch:Status><sch:sourceReported>17000</sch:sourceReported><sch:useServiceType>true</sch:useServiceType><sch:user>GIATUSER</sch:user><sch:password>GIATUSER</sch:password><sch:hasChilds>true</sch:hasChilds><sch:CI><sch:CILevel1>Requerimiento</sch:CILevel1><sch:CILevel2>Requerimiento</sch:CILevel2><sch:CILevel3>Validar Red y Enlaces.</sch:CILevel3></sch:CI><sch:CP><sch:CPLevel1>Servicios</sch:CPLevel1><sch:CPLevel2>Servicios de la red</sch:CPLevel2><sch:CPLevel3>RED VPN</sch:CPLevel3></sch:CP><sch:repeatCustomer>true</sch:repeatCustomer><sch:posibleProblem>true</sch:posibleProblem><sch:informationType>5000</sch:informationType><sch:contactInfo><sch:contactId>9cfbbb4d</sch:contactId><sch:contactName>Stephany</sch:contactName><sch:lastName>Bernabe</sch:lastName><sch:maidenName>Rojas</sch:maidenName><sch:ocuppation>Administrador</sch:ocuppation><sch:contactType>Principal</sch:contactType><sch:contactRol>Facilitador</sch:contactRol><sch:phone>9299</sch:phone><sch:mobile>9484</sch:mobile><sch:officeTime>4pm-9pm</sch:officeTime><sch:mobileTime>4am-4pm</sch:mobileTime><sch:redPhone>53354</sch:redPhone><sch:timeScaling>09 horas</sch:timeScaling><sch:Comments>Ninguno</sch:Comments><sch:email>sb\@alestra.com.mx</sch:email></sch:contactInfo><sch:serviceAccountInfo><sch:serviceAccountId>8d3d30a5</sch:serviceAccountId><sch:serviceAccountNumber>3786</sch:serviceAccountNumber><sch:serviceAccount/><sch:customerType>Platino premier</sch:customerType><sch:customerCategory>Premier Plus</sch:customerCategory><sch:city>Durango</sch:city><sch:street>Esmeralda</sch:street><sch:number>302257</sch:number><sch:state>Angostura</sch:state><sch:country>Dinamarca</sch:country><sch:zipCode>995</sch:zipCode><sch:sensitiveCustomer>true</sch:sensitiveCustomer><sch:importantSite>true</sch:importantSite><sch:eCustomer>true</sch:eCustomer><sch:razonSocial>COSTOS EMPRESARIALES</sch:razonSocial><sch:serviceAccountGroup>DESARROLLO</sch:serviceAccountGroup></sch:serviceAccountInfo><sch:ServiceInstance><sch:serviceKey>1-10I2GS0</sch:serviceKey><sch:serviceInstance>DENL-305394</sch:serviceInstance><sch:instanceType>Enlace</sch:instanceType><sch:businessPlan>Bien</sch:businessPlan><sch:activationDate>2012-04-18T18:46:12Z</sch:activationDate><sch:serviceStatus>Activado</sch:serviceStatus><sch:offer>Extra</sch:offer><sch:managedService>true</sch:managedService></sch:ServiceInstance><sch:Equipment><sch:equipment>Base 594929</sch:equipment><sch:Port>64</sch:Port><sch:supplierId>ID-3a6b0dd0</sch:supplierId><sch:workDetail>9004</sch:workDetail></sch:Equipment></sch:IncidentInput></soapenv:Body></soapenv:Envelope>";
 
my $client = <span class="posthilit">SOAP</span>::Lite->new();
$client=$client->service('http://tibuat01:11266/ServicesIncidentService.serviceagent?wsdl');
$result=$client->generateIncident($message);
print "$result\n";
###################################### SCRIPT
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Y este es el resultado que me sale al momento de ejecutar el script.

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

###################################### RESULTADO

user@home# ./soap7.pl 

<span class="posthilit">SOAP</span>::Transport::HTTP::Client::send_receive: POST http://tibuat01:11266/Services/IncidentService.serviceagent/IncidentsEndpoint1 HTTP/1.1

Accept: text/xml

Accept: multipart/*

Accept: application/<span class="posthilit">soap</span>

Content-Length: 4639

Content-Type: text/xml; charset=utf-8

SOAPAction: "/Services/IncidentService.serviceagent/IncidentsEndpoint1/generateIncident"

<?xml version="1.0" encoding="UTF-8"?><<span class="posthilit">soap</span>:Envelope xmlns:ns3="amdXml" xmlns:ns1="http://www.tibco.com/schemas/Inventory_root_root/SharedResources/Schema.xsd" xmlns:ns2="http://www.tibco.com/schemas/Inventory_root/SharedResources/Schema.xsd" <span class="posthilit">soap</span>:encodingStyle="http://schemas.xmlsoap.org/<span class="posthilit">soap</span>/encoding/" xmlns:ns0="http://www.tibco.com/schemas/Inventory_root/SharedResources/Schema.xsd2" xmlns:<span class="posthilit">soap</span>="http://schemas.xmlsoap.org/wsdl/<span class="posthilit">soap</span>/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:soapenc="http://schemas.xmlsoap.org/<span class="posthilit">soap</span>/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:tns="http://xmlns.example.com/1335219893681"><<span class="posthilit">soap</span>:Body><tns:generateIncident><incidentID xsi:type="xs:string">&lt;soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/<span class="posthilit">soap</span>/envelope/" xmlns:sch="http://www.tibco.com/schemas/Inventory_root/SharedResources/Schema.xsd2" xmlns:amd="amdXml"&gt;&lt;soapenv:Header/&gt;&lt;soapenv:Body&gt;&lt;sch:IncidentInput&gt;&lt;sch:serviceClasification/&gt;&lt;sch:Impact&gt;2000&lt;/sch:Impact&gt;&lt;sch:urgency&gt;1000&lt;/sch:urgency&gt;&lt;sch:eventType&gt;1&lt;/sch:eventType&gt;&lt;sch:Status&gt;1&lt;/sch:Status&gt;&lt;sch:sourceReported&gt;17000&lt;/sch:sourceReported&gt;&lt;sch:useServiceType&gt;true&lt;/sch:useServiceType&gt;&lt;sch:user&gt;GIATUSER&lt;/sch:user&gt;&lt;sch:password&gt;GIATUSER&lt;/sch:password&gt;&lt;sch:hasChilds&gt;true&lt;/sch:hasChilds&gt;&lt;sch:CI&gt;&lt;sch:CILevel1&gt;Requerimiento&lt;/sch:CILevel1&gt;&lt;sch:CILevel2&gt;Requerimiento&lt;/sch:CILevel2&gt;&lt;sch:CILevel3&gt;Validar Red y Enlaces.&lt;/sch:CILevel3&gt;&lt;/sch:CI&gt;&lt;sch:CP&gt;&lt;sch:CPLevel1&gt;Servicios&lt;/sch:CPLevel1&gt;&lt;sch:CPLevel2&gt;Servicios de la red&lt;/sch:CPLevel2&gt;&lt;sch:CPLevel3&gt;RED VPN&lt;/sch:CPLevel3&gt;&lt;/sch:CP&gt;&lt;sch:repeatCustomer&gt;true&lt;/sch:repeatCustomer&gt;&lt;sch:posibleProblem&gt;true&lt;/sch:posibleProblem&gt;&lt;sch:informationType&gt;5000&lt;/sch:informationType&gt;&lt;sch:contactInfo&gt;&lt;sch:contactId&gt;9cfbbb4d&lt;/sch:contactId&gt;&lt;sch:contactName&gt;Stephany&lt;/sch:contactName&gt;&lt;sch:lastName&gt;Bernabe&lt;/sch:lastName&gt;&lt;sch:maidenName&gt;Rojas&lt;/sch:maidenName&gt;&lt;sch:ocuppation&gt;Administrador&lt;/sch:ocuppation&gt;&lt;sch:contactType&gt;Principal&lt;/sch:contactType&gt;&lt;sch:contactRol&gt;Facilitador&lt;/sch:contactRol&gt;&lt;sch:phone&gt;9299&lt;/sch:phone&gt;&lt;sch:mobile&gt;9484&lt;/sch:mobile&gt;&lt;sch:officeTime&gt;4pm-9pm&lt;/sch:officeTime&gt;&lt;sch:mobileTime&gt;4am-4pm&lt;/sch:mobileTime&gt;&lt;sch:redPhone&gt;53354&lt;/sch:redPhone&gt;&lt;sch:timeScaling&gt;09 horas&lt;/sch:timeScaling&gt;&lt;sch:Comments&gt;Ninguno&lt;/sch:Comments&gt;&lt;sch:email&gt;[email protected]&lt;/sch:email&gt;&lt;/sch:contactInfo&gt;&lt;sch:serviceAccountInfo&gt;&lt;sch:serviceAccountId&gt;8d3d30a5&lt;/sch:serviceAccountId&gt;&lt;sch:serviceAccountNumber&gt;3786&lt;/sch:serviceAccountNumber&gt;&lt;sch:serviceAccount/&gt;&lt;sch:customerType&gt;Platino premier&lt;/sch:customerType&gt;&lt;sch:customerCategory&gt;Premier Plus&lt;/sch:customerCategory&gt;&lt;sch:city&gt;Durango&lt;/sch:city&gt;&lt;sch:street&gt;Esmeralda&lt;/sch:street&gt;&lt;sch:number&gt;302257&lt;/sch:number&gt;&lt;sch:state&gt;Angostura&lt;/sch:state&gt;&lt;sch:country&gt;Dinamarca&lt;/sch:country&gt;&lt;sch:zipCode&gt;995&lt;/sch:zipCode&gt;&lt;sch:sensitiveCustomer&gt;true&lt;/sch:sensitiveCustomer&gt;&lt;sch:importantSite&gt;true&lt;/sch:importantSite&gt;&lt;sch:eCustomer&gt;true&lt;/sch:eCustomer&gt;&lt;sch:razonSocial&gt;COSTOS EMPRESARIALES&lt;/sch:razonSocial&gt;&lt;sch:serviceAccountGroup&gt;DESARROLLO&lt;/sch:serviceAccountGroup&gt;&lt;/sch:serviceAccountInfo&gt;&lt;sch:ServiceInstance&gt;&lt;sch:serviceKey&gt;1-10I2GS0&lt;/sch:serviceKey&gt;&lt;sch:serviceInstance&gt;DENL-305394&lt;/sch:serviceInstance&gt;&lt;sch:instanceType&gt;Enlace&lt;/sch:instanceType&gt;&lt;sch:businessPlan&gt;Bien&lt;/sch:businessPlan&gt;&lt;sch:activationDate&gt;2012-04-18T18:46:12Z&lt;/sch:activationDate&gt;&lt;sch:serviceStatus&gt;Activado&lt;/sch:serviceStatus&gt;&lt;sch:offer&gt;Extra&lt;/sch:offer&gt;&lt;sch:managedService&gt;true&lt;/sch:managedService&gt;&lt;/sch:ServiceInstance&gt;&lt;sch:Equipment&gt;&lt;sch:equipment&gt;Base 594929&lt;/sch:equipment&gt;&lt;sch:Port&gt;64&lt;/sch:Port&gt;&lt;sch:supplierId&gt;ID-3a6b0dd0&lt;/sch:supplierId&gt;&lt;sch:workDetail&gt;9004&lt;/sch:workDetail&gt;&lt;/sch:Equipment&gt;&lt;/sch:IncidentInput&gt;&lt;/soapenv:Body&gt;&lt;/soapenv:Envelope&gt;</incidentID></tns:generateIncident></<span class="posthilit">soap</span>:Body></<span class="posthilit">soap</span>:Envelope>

<span class="posthilit">SOAP</span>::Transport::HTTP::Client::send_receive: HTTP/1.1 500 Internal Server Error

Connection: close

Date: Tue, 15 Jan 2013 01:41:48 GMT

Server: Apache-Coyote/1.1

Content-Length: 357

Content-Type: text/xml;charset=utf-8

Client-Date: Tue, 15 Jan 2013 01:40:27 GMT

Client-Peer: 10.1.50.85:11266

Client-Response-Num: 1

<?xml version="1.0" encoding="UTF-8"?><<span class="posthilit">SOAP</span>-ENV:Envelope xmlns:<span class="posthilit">SOAP</span>-ENV="http://schemas.xmlsoap.org/<span class="posthilit">soap</span>/envelope/"><<span class="posthilit">SOAP</span>-ENV:Body><<span class="posthilit">SOAP</span>-ENV:Fault><faultcode xmlns=""><span class="posthilit">SOAP</span>-ENV:Server.InternalServerError</faultcode><faultstring xmlns="">[Ljava.lang.String; cannot be cast to java.lang.String</faultstring></<span class="posthilit">SOAP</span>-ENV:Fault></<span class="posthilit">SOAP</span>-ENV:Body></<span class="posthilit">SOAP</span>-ENV:Envelope>

###################################### RESULTADOColoreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Qué crees que pueda ser?

Ahora tengo otro script en el cual uso lo siguiente.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

###################################### script 2
#!/usr/bin/perl -w
 
use LWP::UserAgent;
use HTTP::Request;
 
my $message="<soapenv:Envelope xmlns:soapenv=\"http://schemas.xmlsoap.org/<span class="posthilit">soap</span>/envelope/\" xmlns:sch=\"http://www.tibco.com/schemas/Inventory_root/SharedResources/Schema.xsd2\" xmlns:amd=\"amdXml\"><soapenv:Header/><soapenv:Body><sch:IncidentInput><sch:serviceClasification/><sch:Impact>2000</sch:Impact><sch:urgency>1000</sch:urgency><sch:eventType>1</sch:eventType><sch:Status>1</sch:Status><sch:sourceReported>17000</sch:sourceReported><sch:useServiceType>true</sch:useServiceType><sch:user>GIATUSER</sch:user><sch:password>GIATUSER</sch:password><sch:hasChilds>true</sch:hasChilds><sch:CI><sch:CILevel1>Requerimiento</sch:CILevel1><sch:CILevel2>Requerimiento</sch:CILevel2><sch:CILevel3>Validar Red y Enlaces.</sch:CILevel3></sch:CI><sch:CP><sch:CPLevel1>Servicios</sch:CPLevel1><sch:CPLevel2>Servicios de la red</sch:CPLevel2><sch:CPLevel3>RED VPN</sch:CPLevel3></sch:CP><sch:repeatCustomer>true</sch:repeatCustomer><sch:posibleProblem>true</sch:posibleProblem><sch:informationType>5000</sch:informationType><sch:contactInfo><sch:contactId>9cfbbb4d</sch:contactId><sch:contactName>Stephany</sch:contactName><sch:lastName>Bernabe</sch:lastName><sch:maidenName>Rojas</sch:maidenName><sch:ocuppation>Administrador</sch:ocuppation><sch:contactType>Principal</sch:contactType><sch:contactRol>Facilitador</sch:contactRol><sch:phone>9299</sch:phone><sch:mobile>9484</sch:mobile><sch:officeTime>4pm-9pm</sch:officeTime><sch:mobileTime>4am-4pm</sch:mobileTime><sch:redPhone>53354</sch:redPhone><sch:timeScaling>09 horas</sch:timeScaling><sch:Comments>Ninguno</sch:Comments><sch:email>sb\@alestra.com.mx</sch:email></sch:contactInfo><sch:serviceAccountInfo><sch:serviceAccountId>8d3d30a5</sch:serviceAccountId><sch:serviceAccountNumber>3786</sch:serviceAccountNumber><sch:serviceAccount/><sch:customerType>Platino premier</sch:customerType><sch:customerCategory>Premier Plus</sch:customerCategory><sch:city>Durango</sch:city><sch:street>Esmeralda</sch:street><sch:number>302257</sch:number><sch:state>Angostura</sch:state><sch:country>Dinamarca</sch:country><sch:zipCode>995</sch:zipCode><sch:sensitiveCustomer>true</sch:sensitiveCustomer><sch:importantSite>true</sch:importantSite><sch:eCustomer>true</sch:eCustomer><sch:razonSocial>COSTOS EMPRESARIALES</sch:razonSocial><sch:serviceAccountGroup>DESARROLLO</sch:serviceAccountGroup></sch:serviceAccountInfo><sch:ServiceInstance><sch:serviceKey>1-10I2GS0</sch:serviceKey><sch:serviceInstance>DENL-305394</sch:serviceInstance><sch:instanceType>Enlace</sch:instanceType><sch:businessPlan>Bien</sch:businessPlan><sch:activationDate>2012-04-18T18:46:12Z</sch:activationDate><sch:serviceStatus>Activado</sch:serviceStatus><sch:offer>Extra</sch:offer><sch:managedService>true</sch:managedService></sch:ServiceInstance><sch:Equipment><sch:equipment>Base 594929</sch:equipment><sch:Port>64</sch:Port><sch:supplierId>ID-3a6b0dd0</sch:supplierId><sch:workDetail>9004</sch:workDetail></sch:Equipment></sch:IncidentInput></soapenv:Body></soapenv:Envelope>";
 
my $userAgent = LWP::UserAgent->new();
my $request = HTTP::Request->new(POST => 'http://tibuat01:11266/Services/IncidentService.serviceagent?wsdl');
$request->header(SOAPAction => '"http://tibuat01:11266/Services/IncidentService.serviceagent"');
$request->content($message);
$request->content_type("text/xml; charset=utf-8");
my $response = $userAgent->request($request);
 
my %resultado = %{$response};
 
while (( $campo, $valor) = each(%resultado )){
       print "CAMPO : $campo - $valor\n";
}
###################################### script 2
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y este no me marca error, pero no crea el reporte en el servidor web final

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

###################################### este es el resultado del secript 2

root@sao-app-db-01:/var/www/cgi-bin/<span class="posthilit">soap</span># ./<span class="posthilit">soap</span>.pl 

CAMPO : _content - <?xml version="1.0" encoding="UTF-8"?>

<!--Created by TIBCO WSDL-->

<wsdl:definitions xmlns:ns2="http://www.tibco.com/schemas/Inventory_root/SharedResources/Schema.xsd" xmlns:ns1="http://www.tibco.com/schemas/Inventory_root_root/SharedResources/Schema.xsd" xmlns:ns3="amdXml" xmlns:tns="http://xmlns.example.com/1335219893681" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:ns0="http://www.tibco.com/schemas/Inventory_root/SharedResources/Schema.xsd2" xmlns:<span class="posthilit">soap</span>="http://schemas.xmlsoap.org/wsdl/<span class="posthilit">soap</span>/" name="Untitled" targetNamespace="http://xmlns.example.com/1335219893681">

    <wsdl:types>

.......... amiti aqui la salida, por que es muy grande, pero al final aparece

</wsdl:definitions>

CAMPO : _protocol - HTTP/1.1

CAMPO : _headers - HTTP::Headers=HASH(0x1a6af18)

CAMPO : _rc - 200

CAMPO : _msg - OK

CAMPO : _request - HTTP::Request=HASH(0x182e880)

###################################### este es el resultado del secript 2Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Por qué con el primer script marca error y con el segundo no marca error pero no crea el reporte? Es como si no enviara la informacion.

Gracias por tu ayuda.

Saludos
Marco

Bienvenido a los foros de Perl en Español, Marco.

El mensaje de error es:

<faultstring xmlns="">[Ljava.lang.String; cannot be cast to java.lang.String</faultstring>

Lo que me llama la atención es el '[L' que hay al principio, así que, o bien el WSDL está mal, o hay alguna cadena de texto que se envía mal, en la petición.

Con respecto al segundo caso, sí que da la sensación de que no se ha enviado nada, porque debería aparecer alguna respuesta.

Mejor que

my %resultado = %{$response};

usa

print $response->_as_string();

o

print $response->content();

o

print $response->decoded_content();

Tienes más detalles en lwpcook, HTTP::Request y HTTP::Response.

por **torrm17** » 2013-01-16 18:47 @824

Muy amable en contestar. Seguí tu recomendación y agregué print $response->content(); y en la línea donde está la liga con ?wsdl le quité esta parte, ejecuté el script y ya me envío información distinta.

Me comentaron que debo de utilizar generateIncident para que se pueda crear el reporte, pero no sé cómo utilizar esta, no sé cómo llamarle, si función, recurso o qué sera.

¿Dónde debería agregar generateIncident?

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" encoding="UTF-8"?>
<serviceResource xmlns:ns2="http://xmlns.tibco.com/encodings/mime" xmlns:ns1="http://www.tibco.com/schemas/Inventory_root/SharedResources/Schema.xsd2" xmlns:ns="http://xmlns.tibco.com/<span class="posthilit">soap</span>/context" xmlns:ns3="http://www.tibco.com/schemas/Inventory_root_root/SharedResources/Schema.xsd" xmlns:wsdl="http://www.alestra.com/tibco/AutomaticIncidentService">
    <ns0:import xmlns:ns0="http://schemas.xmlsoap.org/wsdl/" namespace="http://www.alestra.com/tibco/AutomaticIncidentService" location="/SharedResources/AutomaticIncidentService.wsdl"/>
    <config>
        <wsdl namespace="http://xmlns.example.com/1335219893681" embedWsdlComponents="true" embedSchemaComponents="true" embedJndiProperties="false"/>
        <class>com.tibco.bw.service.serviceAgent.ServiceServiceAgent</class>
        <implType>bw</implType>
        <groups>
            <row isDefault="true" groupName="Default"/>
        </groups>
        <serviceChange>Tue Nov 27 10:21:13 CST 2012</serviceChange>
        <name>IncidentService</name>
        <resourceType>service.definition</resourceType>
        <interfaceImpl>
            <tab>
                <tabName>Incidents</tabName>
                <tabType>bw</tabType>
                <config>
                    <wsdlDetail location="/SharedResources/AutomaticIncidentService.wsdl" portType="Incidents" ns="http://www.alestra.com/tibco/AutomaticIncidentService"/>
                    <detail>
                        <tab>
                            <tabName>service.definition.impl.tab.label</tabName>
                            <tabType>impl</tabType>
                            <config>
                                <operations>
                                    <row opName="generateIncident" opImpl="/ProcessDefinitions/StarterProcesses/RMYAutomaticIncident.process"/>
                                    <row opName="getInfoAmdocs" opImpl="/ProcessDefinitions/StarterProcesses/AMDConsultInfo.process"/>
                                </operations>
                            </config>
                        </tab>
                        <tab>
                            <tabName>service.definition.ep.tab.label</tabName>
                            <tabType>ep</tabType>
                            <config>
                                <epBindings>
                                    <row epName="IncidentsEndpoint1" epType="<span class="posthilit">soap</span>">
                                        <config>
                                            <epDetail>
                                                <tab>
                                                    <tabName><span class="posthilit">soap</span>.service.transport.ui.transport.tab.label</tabName>
                                                    <tabType>transport</tabType>
                                                    <config>
                                                        <sharedChannel>/SharedConfigurations/TIBHttpConnection.sharedhttp</sharedChannel>
                                                        <transport>
                                                            <config>
                                                                <useBasicAuthentication>false</useBasicAuthentication>
                                                                <httpURI>/Services/IncidentService.serviceagent/IncidentsEndpoint1</httpURI>
                                                            </config>
                                                        </transport>
                                                    </config>
                                                </tab>
                                                <tab>
                                                    <tabName><span class="posthilit">soap</span>.service.transport.ui.details.tab.label</tabName>
                                                    <tabType>details</tabType>
                                                    <config>
                                                        <operationStyle>document</operationStyle>
                                                        <soapVersion><span class="posthilit">SOAP</span> 1.1</soapVersion>
                                                        <<span class="posthilit">soap</span>>
                                                            <operation name="generateIncident">
                                                                <general>
                                                                    <config>
                                                                        <soapAction>/Services/IncidentService.serviceagent/IncidentsEndpoint1/generateIncident</soapAction>
                                                                        <operationStyle>document</operationStyle>
                                                                        <soapUse>literal</soapUse>
                                                                        <inputNamespace/>
                                                                        <outputNamespace/>
                                                                        <faultNamespace/>
                                                                        <portAddressPrefix/>
                                                                    </config>
                                                                </general>
                                                                <advanced>
                                                                    <config>
                                                                        <opDetail>
                                                                            <tab>
                                                                                <tabName><span class="posthilit">soap</span>.service.transport.ui.inputAttachments.tab.label</tabName>
                                                                                <tabType>inputAttachments</tabType>
                                                                                <config>
                                                                                    <inputAttachmentBindings/>
                                                                                    <writeToFile>false</writeToFile>
                                                                                    <inputPolicy/>
                                                                                </config>
                                                                            </tab>
                                                                            <tab>
                                                                                <tabName><span class="posthilit">soap</span>.service.transport.ui.inputHeaders.tab.label</tabName>
                                                                                <tabType>inputHeaders</tabType>
                                                                                <config>
                                                                                    <inputHeadersMessage/>
                                                                                </config>
                                                                            </tab>
                                                                            <tab>
                                                                                <tabName><span class="posthilit">soap</span>.service.transport.ui.outputAttachments.tab.label</tabName>
                                                                                <tabType>outputAttachments</tabType>
                                                                                <config>
                                                                                    <soapAttachmentStyle>SwA</soapAttachmentStyle>
                                                                                    <outputAttachmentBindings/>
                                                                                </config>
                                                                            </tab>
                                                                            <tab>
                                                                                <tabName><span class="posthilit">soap</span>.service.transport.ui.outputHeaders.tab.label</tabName>
                                                                                <tabType>outputHeaders</tabType>
                                                                                <config>
                                                                                    <outputHeadersMessage/>
                                                                                </config>
                                                                            </tab>
                                                                            <tab>
                                                                                <tabName><span class="posthilit">soap</span>.service.transport.ui.faultHeaders.tab.label</tabName>
                                                                                <tabType>faultHeaders</tabType>
                                                                                <config>
                                                                                    <soapFaults>
                                                                                        <faultMessage name="fault1">
                                                                                            <general>
                                                                                                <config>
                                                                                                    <faultHeadersMessage/>
                                                                                                </config>
                                                                                            </general>
                                                                                        </faultMessage>
                                                                                    </soapFaults>
                                                                                </config>
                                                                            </tab>
                                                                            <tab>
                                                                                <tabName><span class="posthilit">soap</span>.service.transport.ui.inputContext.tab.label</tabName>
                                                                                <tabType>inputContext</tabType>
                                                                                <config>
                                                                                    <context>
                                                                                        <ref>/SharedConfigurations/Context Resource.contextResource</ref>
                                                                                        <exposeSecurityContext>true</exposeSecurityContext>
                                                                                        <bindings>
                                                                                            <RemoteHost>
                                                                                                <xsl:value-of xmlns:xsl="http://www.w3.org/1999/XSL/Transform" select="$inputMessage/inputMessage/ns:Context/ns:RemoteAddress"/>
                                                                                            </RemoteHost>
                                                                                        </bindings>
                                                                                    </context>
                                                                                </config>
                                                                            </tab>
                                                                            <tab>
                                                                                <tabName><span class="posthilit">soap</span>.service.transport.ui.outputContext.tab.label</tabName>
                                                                                <tabType>outputContext</tabType>
                                                                                <config>
                                                                                    <context>
                                                                                        <ref/>
                                                                                    </context>
                                                                                </config>
                                                                            </tab>
                                                                            <tab>
                                                                                <tabName><span class="posthilit">soap</span>.service.transport.ui.faultContext.tab.label</tabName>
                                                                                <tabType>faultContext</tabType>
                                                                                <config>
                                                                                    <context>
                                                                                        <ref/>
                                                                                    </context>
                                                                                </config>
                                                                            </tab>
                                                                        </opDetail>
                                                                    </config>
                                                                </advanced>
                                                            </operation>
                                                            <operation name="getInfoAmdocs">
                                                                <general>
                                                                    <config>
                                                                        <soapAction>/Services/IncidentService.serviceagent//getInfoAmdocs</soapAction>
                                                                        <operationStyle/>
                                                                        <soapUse>literal</soapUse>
                                                                        <inputNamespace/>
                                                                        <outputNamespace/>
                                                                        <faultNamespace/>
                                                                        <portAddressPrefix/>
                                                                    </config>
                                                                </general>
                                                                <advanced>
                                                                    <config>
                                                                        <opDetail>
                                                                            <tab>
                                                                                <tabName><span class="posthilit">soap</span>.service.transport.ui.inputAttachments.tab.label</tabName>
                                                                                <tabType>inputAttachments</tabType>
                                                                                <config>
                                                                                    <inputAttachmentBindings/>
                                                                                    <writeToFile>false</writeToFile>
                                                                                    <inputPolicy/>
                                                                                </config>
                                                                            </tab>
                                                                            <tab>
                                                                                <tabName><span class="posthilit">soap</span>.service.transport.ui.inputHeaders.tab.label</tabName>
                                                                                <tabType>inputHeaders</tabType>
                                                                                <config>
                                                                                    <inputHeadersMessage/>
                                                                                </config>
                                                                            </tab>
                                                                            <tab>
                                                                                <tabName><span class="posthilit">soap</span>.service.transport.ui.outputAttachments.tab.label</tabName>
                                                                                <tabType>outputAttachments</tabType>
                                                                                <config>
                                                                                    <soapAttachmentStyle>SwA</soapAttachmentStyle>
                                                                                    <outputAttachmentBindings/>
                                                                                </config>
                                                                            </tab>
                                                                            <tab>
                                                                                <tabName><span class="posthilit">soap</span>.service.transport.ui.outputHeaders.tab.label</tabName>
                                                                                <tabType>outputHeaders</tabType>
                                                                                <config>
                                                                                    <outputHeadersMessage/>
                                                                                </config>
                                                                            </tab>
                                                                            <tab>
                                                                                <tabName><span class="posthilit">soap</span>.service.transport.ui.faultHeaders.tab.label</tabName>
                                                                                <tabType>faultHeaders</tabType>
                                                                                <config>
                                                                                    <soapFaults>
                                                                                        <faultMessage name="fault1">
                                                                                            <general>
                                                                                                <config>
                                                                                                    <faultHeadersMessage/>
                                                                                                </config>
                                                                                            </general>
                                                                                        </faultMessage>
                                                                                    </soapFaults>
                                                                                </config>
                                                                            </tab>
                                                                            <tab>
                                                                                <tabName><span class="posthilit">soap</span>.service.transport.ui.inputContext.tab.label</tabName>
                                                                                <tabType>inputContext</tabType>
                                                                                <config>
                                                                                    <context>
                                                                                        <ref>/SharedConfigurations/Context Resource.contextResource</ref>
                                                                                        <exposeSecurityContext>true</exposeSecurityContext>
                                                                                        <bindings>
                                                                                            <RemoteHost>
                                                                                                <xsl:value-of xmlns:xsl="http://www.w3.org/1999/XSL/Transform" select="$inputMessage/inputMessage/ns:Context/ns:RemoteAddress"/>
                                                                                            </RemoteHost>
                                                                                        </bindings>
                                                                                    </context>
                                                                                </config>
                                                                            </tab>
                                                                            <tab>
                                                                                <tabName><span class="posthilit">soap</span>.service.transport.ui.outputContext.tab.label</tabName>
                                                                                <tabType>outputContext</tabType>
                                                                                <config>
                                                                                    <context>
                                                                                        <ref/>
                                                                                    </context>
                                                                                </config>
                                                                            </tab>
                                                                            <tab>
                                                                                <tabName><span class="posthilit">soap</span>.service.transport.ui.faultContext.tab.label</tabName>
                                                                                <tabType>faultContext</tabType>
                                                                                <config>
                                                                                    <context>
                                                                                        <ref/>
                                                                                    </context>
                                                                                </config>
                                                                            </tab>
                                                                        </opDetail>
                                                                    </config>
                                                                </advanced>
                                                            </operation>
                                                        </<span class="posthilit">soap</span>>
                                                    </config>
                                                </tab>
                                            </epDetail>
                                        </config>
                                    </row>
                                </epBindings>
                            </config>
                        </tab>
                    </detail>
                </config>
            </tab>
        </interfaceImpl>
    </config>
Coloreado en 0.007 segundos,  usando GeSHi 1.0.8.4

Gracias

Saludos
Marco Torres

por **explorer** » 2013-01-16 22:04 @961

Yo no soy ningún experto en SOAP en Perl, pero por estos foros hay algunos hilos en los cuales puedes ver ejemplos de llamadas a servicios, con programas escritos con SOAP::Lite.

Usa el sistema de búsqueda para encontrarlos.

Por ejemplo:

Cliente webservice en Perl
Acceso a Web Services usando SOAP y WSDL
Cliente Perl consumiendo servicio Java usando WSDL (este tiene código muy parecido a lo que quieres hacer)

Me temo que vas a tener que poner de nuevo lo del '?wsdl', porque seguramente eso hará que el SOAP::Lite se baje el archivo de definiciones de servicios WSDL desde el servidor, y allí, conocer el nombre de los servicios, y de allí, saber que puede ejecutar un método llamado 'generateIncident'.

Vamos, algo parecido a lo que ya tienes escrito en el primer programa que pusiste en el primer mensaje de este hilo.

De todas maneras, tu tienes metido todo el informe en una única y monstruosa variable, cuando el resto de ejemplos con SOAP::Lite reducen el paso de parámetros con sendas llamadas a SOAP::Data (mira último mensaje de la primera página de Cómo leer un SOAP) No sé, a lo mejor es más cómodo como lo estás haciendo tú. El caso es que el servidor responda

Foro - Perl en Español

Fallo al usar SOAP en Perl

Fallo al usar SOAP en Perl

Publicidad

Re: Fallo al usar SOAP en Perl

Re: Fallo al usar SOAP en Perl

Re: Fallo al usar SOAP en Perl

¿Quién está conectado?