Foro - Perl en Español

por **Sebosin** » 2013-11-27 06:07 @296

Buenos días.

Un saludo a todos los miembros de la lista.

Mi problema es que tengo estos dos ficheros:

Sintáxis: (marcas.psgi) [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use strict;
use warnings;
 
use WWW::Curl::easy;
use WWW::Curl;
 
use Data::Dumper qw(Dumper);
$Data::Dumper::Sortkeys = 1;
 
use Plack::Request;
 
my $app = sub {
 
        ### Pasándole los valores desde línea de comandos     
        #shift;
        #my $MARCA1 = shift;
        #my $MARCA2 = shift;
        #my $MARCA3 = shift;
        #my $MARCA4 = shift;
        #my $MARCA5 = shift;
 
        ### Pasándole los valores a pelo
        #my $MARCA1 = "00106";
        #my $MARCA2 = "00105";
        #my $MARCA3 = "40202";
 
        ### Pasándole los valores desde el $env
        my $env = shift;
        my $request = Plack::Request->new($env);
        
        my $MARCA1 = "";
        my $MARCA2 = "";
        my $MARCA3 = "";
        my $MARCA4 = "";
        my $MARCA5 = "";
 
        if ($request->param('MARCA1')) {
                $MARCA1 = $request->param('MARCA1');
        }
        if ($request->param('MARCA2')) {
                $MARCA2 = $request->param('MARCA2');
        }
        if ($request->param('MARCA3')) {
                $MARCA3 = $request->param('MARCA3');
        }
        if ($request->param('MARCA4')) {
                $MARCA4 = $request->param('MARCA4');
        }
        if ($request->param('MARCA5')) {
                $MARCA5 = $request->param('MARCA5');
        }
        
        #print system('php','-r','echo "Hola\n";');
        my $resultado = `php -r '
                        include_once "marcas.php";
                        prueba_curl("$MARCA1","$MARCA2","$MARCA3");
                '
        `;
        #print $resultado;
        
        return [
                '200',
                [ 'Content-Type' => 'text/plain' ],
                [ "<h1>".time()."</h1><br><br>".
                  "MARCA1: ".$MARCA1."<br>".
                  "MARCA2: ".$MARCA2."<br>".
                  "MARCA3: ".$MARCA3."<br><hr><br>".
                  $resultado."<br><hr><br>" ],
        ];
 
}
 
Coloreado en 0.007 segundos,  usando GeSHi 1.0.8.4

Sintáxis: (IFSoft.wsdl) [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" encoding="iso-8859-1" ?>
 
 
 
<wsdl:definitions name="IFSoft"
 targetNamespace="http://ip:5000/cgi-bin/psgi/wsdl/"
 xmlns:http="http://schemas.xmlsoap.org/wsdl/http/"
 xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/"
 xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
 xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/"
 xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
 xmlns:tns="http://ip:5000/cgi-bin/psgi/wsdl/"
 xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
 xmlns:xsd="http://www.w3.org/2001/XMLSchema" >
 
 
 
<wsdl:types>
 
  <xsd:schema elementFormDefault="qualified" 
              targetNamespace="http://ip:5000/cgi-bin/psgi/wsdl" >
 
    <xsd:element name="marcasConsulta">
      <xsd:complexType>
        <xsd:sequence>
          <xsd:element name="MARCA1" type="xsd:string" />
          <xsd:element name="MARCA2" type="xsd:string" />
          <xsd:element name="MARCA3" type="xsd:string" />
          <xsd:element name="MARCA4" type="xsd:string" />
          <xsd:element name="MARCA5" type="xsd:string" />
        </xsd:sequence>
      </xsd:complexType>
    </xsd:element>
 
    <xsd:element name="marcasRespuesta">
      <xsd:complexType>
        <xsd:sequence>
          <xsd:element name="TablaMarcas" type="xsd:string" />
        </xsd:sequence>
      </xsd:complexType>
    </xsd:element>
 
  </xsd:schema>
 
</wsdl:types>
 
 
 
<wsdl:message name="marcasIn">
  <wsdl:part element="tns:marcasConsulta" name="parameters" />
</wsdl:message>
 
<wsdl:message name="marcasOut">
  <wsdl:part element="tns:marcasRespuesta" name="parameters" />
</wsdl:message>
 
 
 
<wsdl:portType name="IMarcas" >
  <wsdl:operation name="ConsultaMarcas" parameterOrder="MARCA1 MARCA2 MARCA3 MARCA4 MARCA5" >
    <wsdl:input message="tns:marcasIn" name="marcasIn" />
    <wsdl:input message="tns:marcasOut" name="marcasOut" />
  </wsdl:operation>
</wsdl:portType>
 
 
 
<wsdl:binding name="IMarcas" type="tns:IMarcas">
  <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http" />
  <wsdl:operation name="ConsultaMarcas">
    <soap:operation soapAction="marcasIn" style="document" />
    <wsdl:input name="marcasIn" >
      <soap:body use="literal" />
    </wsdl:input>
    <wsdl:output name="marcasOut" >
      <soap:body use="literal" />
    </wsdl:output>
  </wsdl:operation>
</wsdl:binding>
 
 
 
 
<wsdl:service name="ConsultaMarcas">
  <wsdl:documentation>Consulta de Marcas IF-Software.</wsdl:documentation>
  <wsdl:port binding="tns:IMarcas" name="IMarcas" >
    <soap:Address location="http://ip:5000/cgi-bin/psgi/marcas.psgi" />
  </wsdl:port>
</wsdl:service>
 
 
 
</wsdl:definitions>
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Para poder ejecutar el marcas.psgi lo que hago es:

plackup marcas.psgi

¿Cómo puedo hacer para acceder a ese marcas.psgi a traves del WSDL? ¿Cómo "publico" ese WSDL?

Muchas gracias por todo.

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

Según entiendo, lo que quieres es poder solicitar una petición SOAP, y que esa petición ejecute el marcas.pgsi.

Quizás la solución sea SOAP::WSDL::Server::Plack. Con ello, puedes crear una aplicación basado en SOAP::WSDL, asociarle el wsdl, ejecutar el marcas.pgsi, y devolver el resultado.

Foro - Perl en Español

PSGI y WSDL

PSGI y WSDL

Publicidad

Re: PSGI y WSDL

¿Quién está conectado?