SOAP::Lite debugging (gelöst) (Fragen zu Perl-Modulen)

[thread]15056[/thread]

SOAP::Lite debugging [gelöst]

Leser: 19

Articles: hide open all | hide show old branches

Teilbaum:
SOAP::Lite debugging (20 Artikel) 2010-05-26 17:45

+21 replies
esskar

2010-05-22 10:05
User since
2003-08-04
7321 Artikel
ModeratorIn
ich hab jetzt mal angefangen, mir den SOAP::Lite code anzuschauen.
zeile 3241ff. (sub generate_stub ...)
wird eine methode _call erzeugt.
und parameter ausgewertet
Code (perl): (dl )

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

foreach my $param (@_) { if (@templates) { my $template = shift @templates; my ($prefix,$typename) = SOAP::Utils::splitqname($template->type); my $method = 'as_'.$typename; # TODO - if can('as_'.$typename) {...} my $result = $self->serializer->$method($param, $template->name, $template->type, $template->attr); push(@parameters, $template->value($result->[2])); } else { push(@parameters, $param); } }
hab ich mal abgeändert in
Code (perl): (dl )

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

foreach my $param (@_) { if (@templates) { warn "Adding parameter: $param"; my $template = shift @templates; my ($prefix,$typename) = SOAP::Utils::splitqname($template->type); my $method = 'as_'.$typename; # TODO - if can('as_'.$typename) {...} warn "Method name: $method"; my $result = $self->serializer->$method($param, $template->name, $template->type, $template->attr); push(@parameters, my$ v = $template->value($result->[2])); warn "Adding parameter with value: " . Dumper($v); } else { push(@parameters, $param); } }
erzeugt dann folgende ausgabe
Adding parameter: ARRAY(0x32820bc) at (eval 103) line 92. Method name: as_Map at (eval 103) line 97. Adding parameter with value: $VAR1 = bless( { '_name' => 'params', '_type' => 'tns:Map', '_signature' => [], '_value' => [ undef ], '_attr' => {} }, 'SOAP::Data' ); Adding parameter: foo at (eval 103) line 92. Method name: as_string at (eval 103) line 97. Adding parameter with value: $VAR1 = bless( { '_name' => 'user', '_type' => 'xsd:string', '_signature' => [], '_value' => [ 'foo' ], '_attr' => {} }, 'SOAP::Data' ); Adding parameter: bar at (eval 103) line 92. Method name: as_string at (eval 103) line 97. Adding parameter with value: $VAR1 = bless( { '_name' => 'password', '_type' => 'xsd:string', '_signature' => [], '_value' => [ 'bar' ], '_attr' => {} }, 'SOAP::Data' );

man sieht also, dass er zwar den Map typ erkennt, aber die werte nicht richtig setzt.

PS: der aufruf ging über
my $rc = $service->get_form([{ key => 'country', value => 'DE' }, { key => 'language', value => 0 }], 'foo', 'bar');

mod-edit pq: teilbaum SOAP::Lite debugging
Last edited: 2010-05-22 15:46:53 +0200 (CEST)
- +15 replies
- bianca
  
  2010-05-22 12:15
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  2010-05-22T08:05:53 esskar
  hab ich mal abgeändert in
  
  Hast Du das direkt im Modul auf CPAN geändert oder bei Dir?
  
  @rainer14: Würde das dann so passen?
  10 print "Hallo"
  20 goto 10
  - +14 replies
  - esskar
    
    2010-05-22 15:44
    
    User since
    2003-08-04
    7321 Artikel
    ModeratorIn
    
    ich hab das in meinem code geändert.
    es sind nur debug ausgaben, die zeigen, dass SOAP::Lite den DatenTyp nicht füllt., egal was man mitgibt.
    
    ist wohl ein problem in dem modul
    - +12 replies
    - bianca
      
      2010-05-22 15:49
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2010-05-22T13:44:41 esskar
      ich hab das in meinem code geändert.
      es sind nur debug ausgaben, die zeigen, dass SOAP::Lite den DatenTyp nicht füllt., egal was man mitgibt.
      
      ist wohl ein problem in dem modul
      
      Das ist unschön.
      Bist Du denn jetzt (ungewollt) schon so tief drin, dass eine Lösung im Modul näher wäre als nach Alternativen zu suchen?
      Oder wie würdest Du an der Stelle weiter machen?
      10 print "Hallo"
      20 goto 10
      - +11 replies
      - esskar
        
        2010-05-22 15:56
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        Bug report erzeugen oder mal den autor anschreiben.
        
        hab schon SOAP::WSDL ausprobiert. das sieht nicht besser aus.
        
        bianca
        
        2010-05-22 17:46
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2010-05-22T13:56:26 esskar
        Bug report erzeugen oder mal den autor anschreiben.
        
        Was genau müsste ich denn mitteilen?
        Ich fühle mich derzeit nicht in der Lage, zu benennen, was genau der Fehler ist :(
        10 print "Hallo"
        20 goto 10
        
        +9 replies
        
        bianca
        
        2010-05-23 09:19
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Hab Martin Kutter unter der im CPAN angegebenen Mail mal kontaktet mit Verlinkung auf diese Threads hier. Schauen wir mal.
        
        Ich möchte Euch - auch im Namen von rainer14 - bis hierher nochmal ganz recht herzlich danken!!! Der nächste Kasten geht auf meine Rechnung :)
        10 print "Hallo"
        20 goto 10
        
        +8 replies
        
        bianca
        
        2010-05-24 06:14
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Guten Morgen esskar, topeg und rainer14 und alle anderen!
        
        Habe von Martin Kutter Antwort :)
        
        Quote
        Hi,
        
        aus dem thread werde ich leider nicht schlau - funktioniert's jetzt schon oder nicht?
        
        Wenn nicht: Zum Fehlersuchen brauche ich die WSDL-Datei und eine Beschreibung mit welchen Schritten was (nicht) passiert.
        
        Leider ist der SOAP::Lite Code-Generator alles andere als perfekt - ohne den generierten Code anzupassen wird's fast nie funktionieren.
        
        Schöne Grüße,
        
        Martin
        
        Ehrlich gesagt traue ich mir nicht zu, das Problem fachgerecht zu beschreiben, damit Martin das richtige ändert. Außerdem weiß ich nicht, ob die WSDL jetzt aktuell auf dem Server so ist, wie gewünscht.
        
        Würdet Ihr mir bitte nochmal unter die Arme greifen bei der Formulierung.
        Oder kann ich ihm einfach nochmal die von rainer14 gepostete Wunschausgabe aus dem PHP Modul schicken? Ist die SOAP "Standard"? Kann er sich daran halten?
        Danke Euch vielmals
        10 print "Hallo"
        20 goto 10
        
        +7 replies
        
        esskar
        
        2010-05-24 08:46
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        er soll dir mal zeigen, wie man an den generierten code rankommt.
        dann kann man schonmal selber nach schauen.
        
        Gast wer
        
        2010-05-24 13:03
        
        bzw. Was bei "SOAP::Serializer::as_Map" raus kommen muss und wo das wie weiter verarbeitet wird.
        Last edited: 2010-05-24 13:25:08 +0200 (CEST)
        
        +5 replies
        
        bianca
        
        2010-05-24 13:28
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2010-05-24T06:46:47 esskar
        er soll dir mal zeigen, wie man an den generierten code rankommt.
        
        Hab gemailt. Mal schauen.
        Danke
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        bianca
        
        2010-05-26 08:31
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Habe Antwort von Martin:
        
        Quote
        Ich würde empfehlen, den Request "von Hand" zusammenzubauen:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
        
        use SOAP::Lite +trace; my $soap = SOAP::Lite->new(); $soap->proxy('http://dev.iban-bic.com/Riban/soap2/'); my @params = ( SOAP::Data->name('params')->value( \SOAP::Data->name('item')->value([ SOAP::Data->name('key')->value('country'), SOAP::Data->name('value')->value('DE'), ]) ), SOAP::Data->name('user')->value('foo'), SOAP::Data->name('password')->value('bar') ); my $result = $soap->call('get_form', @params);
        
        Das liefert wenigstens ein Ergebnis.
        
        Zu beachten für weiter
        - die meisten SOAP::Lite-Objekte (wie SOAP::Data) haben automatische
        Konstruktoren und geben immer $self zurück. D.h.
        
        my $param = SOAP::Data->name('foo')->value('bar)
        
        ist das gleiche wie
        
        my $param = SOAP::Data->new();
        $param->name('foo');
        $param->value('bar');
        
        ... fand der ursprüngliche Autor damals cool.
        
        - Der Parameter für SOAP::Data->value($param) muss immer eine
        Referenz sein - entweder eine Array-Referenz [] oder eine Referenz auf
        ein Objekt (daher die komische Schreibweise \SOAP::Data->name(...)
        oben).
        
        Teste ich heute Abend mal ausführlich.
        10 print "Hallo"
        20 goto 10
        
        esskar
        
        2010-05-26 08:55
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        das erklärt einiges, also das mit der referenz
        
        esskar
        
        2010-05-26 09:50
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        geht!
        
        bianca
        
        2010-05-26 17:45
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ja, klappt gut.
        
        Auch hier nochmal: Ganz recht herzlichen Dank für die viele Hilfe!!
        10 print "Hallo"
        20 goto 10
    - topeg
      
      2010-05-22 17:30
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Gerade ein wenig ausprobiert. In der Methode SOAP::Serializer::as_Map kommen die Daten an. Der Code soll wohl zur Laufzeit erzeugt werden, doch mir scheint er existiert nicht, oder ist eine leere Hülle (B::Deparse liefert nichts).
- +5 replies
- bianca
  
  2010-05-22 12:19
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  2010-05-22T08:05:53 esskar
  
  Code (perl): (dl )
  
  push(@parameters, my$ v = $template->value($result->[2]));
  
  Sehe ich gerade, ist dieses my$ v mit bem Blank zwischen $ und v so korrekt?
  Etwas ungewohnte Syntax für mich.
  10 print "Hallo"
  20 goto 10
  - +4 replies
  - GwenDragon
    
    2010-05-22 12:22
    
    User since
    2005-01-17
    14848 Artikel
    Admin1
    
    Ist wohl ein Tippfehler. Es sollte $v heißen.
    Last edited: 2010-05-22 12:24:37 +0200 (CEST)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +3 replies
    - MatthiasW
      
      2010-05-22 12:26
      
      User since
      2008-01-27
      367 Artikel
      BenutzerIn
      
      Naja, auf jeden Fall funktioniert es ;)
      
      Ansonsten sollte es wohl $v heißen, oder aber esskar wollte diese Zuweisung besonders hervorheben?
      
      MfG
      perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
      - +2 replies
      - GwenDragon
        
        2010-05-22 12:35
        
        User since
        2005-01-17
        14848 Artikel
        Admin1
        
        Es funktioniert, weil der Perl-Interpreter die Whitespaces zwischen $ und dem Variablennamen ignoriert.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        MatthiasW
        
        2010-05-22 14:05
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        Jetzt komme ich mir ein bisschen blöd vor.
        
        bianca hatte gefragt ob es korrekt ist. Ich meinte:
        
        Quote
        Naja, auf jeden Fall funktioniert es ;)
        
        In dem Sinne: "Zwar ist es unüblich, aber ja, das ist so korrekt."
        
        Klar sieht es hier so aus, als sei das Leerzeichen zwischen my $v eins weiter gerutscht, aber vielleicht sollte die Zuweisung ja tatsächlich hervorgehoben werden?
        Diese Frage von mir war ernst gemeint.
        
        Als ich den Code gelesen habe, ist mir das my$ v auch aufgefallen und da habe ich gedacht esskar wollte es eventuell edit:so dort stehen haben, damit es sich vom restlichen Code abhebt, ebenso wie die Testausgaben.
        
        MfG
        
        edit: Gedankenstütze gestrichen. War das falsche Wort.
        Last edited: 2010-05-22 14:10:11 +0200 (CEST)
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'

View all threads created 2010-05-22 16:12.