SOAP - Aufruf von Funktion mit Übergabe geht nicht (Fragen zu Perl-Modulen)

[thread]17302[/thread]

SOAP - Aufruf von Funktion mit Übergabe geht nicht

Tags: perl5 SOAP SOAP::Lite WSDL Similar Threads

Readers: 22

Articles: hide open all | hide show old branches

+9 replies
ArthurDent

2012-04-09 09:06
User since
2012-04-09
2 articles
BenutzerIn
Hallo zusammen,

mein erster Thread mit einem hoffentlich nicht völlig behämmerten Problem. Bisher habe ich nur Installationsscripte mit Perl geschrieben. Jetzt wollte ich mit den SOAP::Lite Modulen Daten von dem openligaDB WSDL Webservice abgreifen, was wunderbar funktioniert, solange es Funktionen sind die keine Übergabewerte erwarten.

Hier sind die verfügbaren Funktionen:
http://www.openligadb.de/Webservices/Sportsdata.as...
Die vierte Funktion z.B. funktioniert wunderbar. (GetAvailSports). Hier muss nichts übergeben werden:

Code:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13

use strict; use warnings; use Data::Dumper; use SOAP::Lite; my $client = SOAP::Lite ->new() ->soapversion('1.2') ->service('http://www.OpenLigaDB.de/Webservices/Sportsdata.asmx?WSDL') ; my $sports = Dumper($client->GetAvailLeagues()); print $sports;
Wenn ich jetzt versuche die Funktion "GetAvailLeagues" durch "GetAvailLeaguesBySports" austausche funktioniert es nicht. Der einzige Unterschied ist, dass die Funktion eine Übergabe der SportID erwartet, in meinem Fall Fußball mit der ID 1.
Code (perl): (dl )

my $sports = Dumper($client->GetAvailLeaguesBySports(1));
Das allerdings funktioniert nicht. Eventuell habe ich hier auch einfach etwas noch nicht ganz verstanden. Jemand Ideen?

Danke und viele Grüße

modedit Editiert von GwenDragon: Code anders eingerückt
Last edited: 2012-04-10 10:03:08 +0200 (CEST)
- +4 replies
- bianca
  
  2012-04-09 11:37
  
  User since
  2009-09-13
  6420 articles
  BenutzerIn
  
  2012-04-09T07:06:47 ArthurDent
  Das allerdings funktioniert nicht. Eventuell habe ich hier auch einfach etwas noch nicht ganz verstanden. Jemand Ideen?
  
  Kommt denn eine Fehlermeldung? Oder was genau funktioniert nicht?
  10 print "Hallo"
  20 goto 10
  - +3 replies
  - ArthurDent
    
    2012-04-09 11:51
    User since
    2012-04-09
    2 articles
    BenutzerIn
    
    Sorry, das hätte ich dazu schreiben sollen. Das Ergebnis ist einfach ein leerer XML Output ohne Fehlermeldung. Die Funktion gibt das zurück was sie soll, nur halt ohne Inhalt. Daher meine Vermutung, dass die Übergabe des Wertes 1 nicht funktioniet.
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8
    
    <?xml version="1.0" encoding="utf-8"?> <soap:Envelopexmlns:soap="http://rg/2003/05/soap-envelope"xmlns:xsi="http://www.w3.org/2001/XMLSchema-inxmlns:xsd="http://www.w3.org/2001/XMLSchema"> <soap:Body> <GetAvailLeaguesResponse xmlns="http://msiggi.de/Sportsdata/Webservices"> <GetAvailLeaguesResult /> </GetAvailLeaguesBySportsResponse> </soap:Body> </soap:Envelope>
    
    modedit Editiert von pq: code-tags hinzugefügt
    Last edited: 2012-04-09 12:40:12 +0200 (CEST)
    - +2 replies
    - TommyT007
      
      2015-03-17 16:59
      
      User since
      2015-03-17
      2 articles
      BenutzerIn
      
      Hallo Arthur,
      
      hast Du das Problem mittlerweile lösen können? Ich stehe zurzeit vor dem gleichen Problem. Sobald ein Parameter übergeben wird, ist die Rückgabestruktur leer.
      Last edited: 2015-03-17 17:05:58 +0100 (CET)
      - bianca
        
        2015-03-17 18:18
        
        User since
        2009-09-13
        6420 articles
        BenutzerIn
        
        Kannst du den Fehler etwas ausführlicher beschreiben und Code zeigen, womit man ihn reproduzieren kann?
        10 print "Hallo"
        20 goto 10
- bianca
  
  2015-03-17 18:17
  
  User since
  2009-09-13
  6420 articles
  BenutzerIn
  
  @Moderation: dies hier würde ich in "Fragen zu Modulen" schieben
  10 print "Hallo"
  20 goto 10
- GwenDragon
  
  2015-03-17 18:42
  
  User since
  2005-01-17
  13714 articles
  Admin1
  
  Verschoben von Netzwerkprogrammierung und Netzwerke mit Perl nach Fragen zu Perl-Modulen
  die Drachin, Gwendolyn.
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +2 replies
- rosti
  
  2015-03-17 19:46
  User since
  2011-03-19
  2491 articles
  BenutzerIn
  Guck Dir die zu sendende XML Datei an, ob die SportID an der Stelle steht, wo sie hinsoll. Vergleichsweise erstelle die zu sendende XML selbst, z.B. mit einer geeigneten Template-Engine und ersetze selbst die Platzhalter so, wie in der Doku beschrieben. Sende die XML-Datei und guck Dir die Response an.
  
  PS: Senden kannst du auch mit IO::Socket, prüfe, ob der Wert für den Content-Length Header eingetragen ist. Setze Connection: Close oder HTTP/1.0. Die Response erhältst Du, indem Du nach dem Schreiben in das Socket ebendieses ausliest, solange da noch Daten kommen.
  
  Gleich mal getestet:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
  
  binmode STDOUT; use strict; use warnings; use IO::Socket; my $data = do{ local $/ = undef, <DATA>}; my $length = length $data; my $host = "www.openligadb.de"; my $sock = IO::Socket::INET->new("$host:80") or die $@; print $sock <<EOT; POST /Webservices/Sportsdata.asmx HTTP/1.0 Host: $host Content-Type: text/xml; charset=utf-8 Content-Length: $length SOAPAction: "http://msiggi.de/Sportsdata/Webservices/GetAvailLeagues" $data EOT while( read($sock, my $buffer, 123) ){ print $buffer; } __DATA__ <?xml version="1.0" encoding="utf-8"?> <soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"> <soap:Body> <GetAvailLeagues xmlns="http://msiggi.de/Sportsdata/Webservices" /> </soap:Body> </soap:Envelope>
  
  Die Antwort kommt und so dürfte das mit den anderen XML-Templates auch funktionieren.
  
  PS/Edit: Also ich würde das bischen XML zum senden über ein Template erzeugen, die Datei senden mit LWP::UserAgent und zum Parsen der Response einen XML-Parser meiner Wahl einsetzen. Mit SOAP::Lite wird das ne ziemliche Akrobatik.
  Last edited: 2015-03-17 22:16:49 +0100 (CET)
  http://rolfrost.de/framework
  Postmodern MVC Framework für Perl5 mod_cgi, mod_fastcgi und mod_perl
  - TommyT007
    
    2015-03-18 18:39
    
    User since
    2015-03-17
    2 articles
    BenutzerIn
    
    Vielen Dank für das Beispiel, das scheint auch mit anderen Funktionen (z.B. GetLastMatch) zu funktionieren.
    
    Die SOAP Variante hat prinzipiell auch funktioniert, allerdings nur für Funktionen, die keine Parameter erwarten (z.B. GetAvailLeagues). Bei Funktionen mit Parametern kam auch eine korrekte Antwortstruktur, allerdings mit leeren Werten.
    
    Das scheint also tatsächlich ein Bug in der Kombination SOAP/Perl zu sein, denn der SOAP Zugriff mit .net funktioniert einwandfrei.
    
    Aber danke für die Hilfe, dann werde ich eben den Weg gehen, brauche nur noch einen geeigneten XML Parser.

View all threads created 2012-04-09 09:06.