Perl-Modul für SOAP (Fragen zu Perl-Modulen)

[thread]16430[/thread]

Perl-Modul für SOAP

Tags: perl5 SOAP Ähnliche Threads

Leser: 25

Articles: hide open all | hide show old branches

+8 replies

Gast Aendy

2011-06-18 21:33

Hallo zusammen,

ich möchte an einen Webservice einen SOAP-Request senden.

Der Request liegt bereits vollständig vor und muss nicht aus einem WSDL-File erstellt werden.
Um genau zu sein möchte ich die Erstellung eines WSDL-Files vermeiden.

Kennt jemand ein Modul das ich verwenden kann um den Request abzusenden?
Bei SOAP::Lite muss der Request aus einem WSDL-File generiert werden. (Zumindest habe ich das so verstanden)

Danke für eure Hilfe
Aendy
Last edited: 2011-06-18 22:36:44 +0200 (CEST)

+2 replies

bianca

2011-06-19 06:20

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Guest Aendy
Der Request liegt bereits vollständig vor

Zeig mal bitte, was du da hast.

10 print "Hallo"
20 goto 10

Gast Aendy

2011-06-19 09:47

Hallo bianca,

der Soap-Request sieht ungefähr so aus:

Code: (dl )

<?xml version="1.0" ?>
<S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/">
<S:Body>
  <CheckForSoftwareUpdates>
    <InstalledSoftware>
      <SoftwareName>
        SampleSoftware1
      </SoftwareName>
      <Version>
        1.2.3
      </Version>
      <OperatingSystem>
        Windows_XP
      </OperatingSystem>
    </InstalledSoftware>
    <InstalledSoftware>
      <SoftwareName>
        SampleSoftware2
      </SoftwareName>
      <Version>
        2.3.4
      </Version>
      <OperatingSystem>
        Windows_XP
      </OperatingSystem>
    </InstalledSoftware>
  </CheckForSoftwareUpdates>
</S:Body>
</S:Envelope>

Ich hab es bereits mit SOAP::Lite und einem WSDL-File probiert, allerdings hab ich es nicht geschafft das WSDL-File so anzupassen, dass die Struktur passt:

Code (perl): (dl )

#!perl -w

use SOAP::Lite;

my $service = SOAP::Lite
   -> service('http://192.168.0.214/update.wsdl');

my $test = $service->CheckForSoftwareUpdates('SampleSoftware1');

Code: (dl )

<?xml version ="1.0" ?>
<definitions name="StockQuote"
 targetNamespace="http://example.org/StockQuote"
 xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
 xmlns:tns="http://schemas.xmlsoap.org/wsdl/soap/"
 xmlns="http://schemas.xmlsoap.org/wsdl/">

<message name="CheckForSoftwareUpdatesRequest">
 <part name="InstalledSoftware" type=""/>
</message>
<message name="CheckForSoftwareUpdatesResponse">
 <part name="Result" type=""/>
</message>

<portType name="StockQuotePortType">
 <operation name="CheckForSoftwareUpdates">
  <input message="tns:CheckForSoftwareUpdatesRequest"/>
  <output message="tns:CheckForSoftwareUpdatesResponse"/>
 </operation>
</portType>

<binding name="StockQuoteBinding" type="tns:StockQuotePortType">
 <soap:binding style="rpc"
  transport="http://schemas.xmlsoap.org/soap/http"/>
 <operation name="CheckForSoftwareUpdates">
  <soap:operation soapAction="http://192.168.0.214/update/CheckForSoftwareUpdate"/>
  <input>
   <soap:body use="encoded" namespace="urn:xmethods-delayed-quotes"
    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"/>
  </input>
  <output>
   <soap:body use="encoded" namespace="urn:xmethods-delayed-quotes"
    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"/>
  </output>
 </operation>
</binding>

<service name="StockQuoteService">
 <port name="StockQuotePort" binding="StockQuoteBinding">
  <soap:address location="http://192.168.0.214/stockquote.php"/>
 </port>
</service>
</definitions>

Da der Request schon fertig ist würde ich in am liebsten gleich so versenden.
Dann könnte ich mir das WSDL-File sparen.

Freue mich über jede Idee

Gruß
Aendy

Last edited: 2011-06-19 10:12:34 +0200 (CEST)

+5 replies

renee

2011-06-19 09:57

User since
2003-08-04
14371 Artikel
ModeratorIn

Wenn Du die notwendigen Informationen wir URI, Funktionsname, Parameter etc. hast, dann brauchst Du kein WSDL.

Code (perl): (dl )

use SOAP::Lite;

my $client = SOAP::Lite->new(
    proxy => 'URL der Gegenstelle',
    uri   => 'Klasse der Funktion',
);

print $client->Funktionsaufruf( Parameter )->result;

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

+4 replies

Gast Aendy

2011-06-19 13:40

ich hab es nun noch einmal mit SOAP::Lite probiert, leider ohne Erfolg

Code: (dl )

use SOAP::Lite;
my $soap = SOAP::Lite->new( proxy => 'http://192.168.0.214/stockquote1.php');

$soap->on_action( sub { "urn:HelloWorld#sayHello" });
$soap->autotype(0)->readable(1);

my $som = $soap->call(
                 'CheckForSoftwareUpdates',
                 SOAP::Data->name('InstalledSoftware')->value(
                             \SOAP::Data->value([
                                          SOAP::Data->name('SoftwareName')->value('SampleSoftware1'),
                                          SOAP::Data->name('Version')->value('1.2.3'),
                                          SOAP::Data->name('OperatingSystem')->value('Windows_XP'),
                                          ])
                             )
                 );

if ($som->fault)
{
  die $som->fault->{ faultstring };
}
print $som->result, "\n";

Das Resultat:

Code: (dl )

<?xml version="1.0" encoding="UTF-8"?>
<soap:Envelope
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
    xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
    soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
    xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Body>
    <CheckForSoftwareUpdates>
      <InstalledSoftware>
        <soapenc:Array>
          <SoftwareName>SampleSoftware1</SoftwareName>
          <Version>1.2.3</Version>
          <OperatingSystem>Windows_XP</OperatingSystem>
        </soapenc:Array>
      </InstalledSoftware>
    </CheckForSoftwareUpdates>
  </soap:Body>
</soap:Envelope>

Der Teil '<soapenc:Array>' zu viel :(

Last edited: 2011-06-19 13:53:18 +0200 (CEST)

+3 replies

renee

2011-06-19 14:36

User since
2003-08-04
14371 Artikel
ModeratorIn

Mach mal aus

Code (perl): (dl )

my $som = $soap->call(
    'CheckForSoftwareUpdates',
    SOAP::Data->name('InstalledSoftware')->value(
        \SOAP::Data->value([
            SOAP::Data->name('SoftwareName')->value('SampleSoftware1'),
            SOAP::Data->name('Version')->value('1.2.3'),
            SOAP::Data->name('OperatingSystem')->value('Windows_XP'),
            ])
        )
    );

das hier:

Code (perl): (dl )

my $som = $soap->call(
    'CheckForSoftwareUpdates',
    SOAP::Data->name(
        'InstalledSoftware' => \SOAP::Data->value(
             SOAP::Data->name('SoftwareName')->value('SampleSoftware1'),
             SOAP::Data->name('Version')->value('1.2.3'),
             SOAP::Data->name('OperatingSystem')->value('Windows_XP'),
        )
    )
);

(ungetestet)

+2 replies
Gast Aendy

2011-06-19 15:47

Klasse, schaut viel besser aus.
Vielen Dank, dann werde ich mich mal an den Rest machen.

Ich melde mich später wieder.
Last edited: 2011-06-19 16:14:27 +0200 (CEST)
- Gast Aendy
  
  2011-06-20 02:32
  
  Guten Morgen zusammen,
  
  sieht super aus :)
  
  Vielen Dank für eure Hilfe!
  Last edited: 2011-06-20 03:02:40 +0200 (CEST)

View all threads created 2011-06-18 21:33.