Webservice mit SOAP (Perl/CGI)

dadreamer

2006-02-23 09:48

User since
2006-01-26
6 Artikel
BenutzerIn
[default_avatar]

Hallo Zusammen,

ich brauche Eure Hilfe !

Folgende Problemstellung:
Es geht um eine Datenübertragung eines XML-Dokuments.

a) Übermittlung (http) mit POST.
Das habe ich fast gelöst.

b) Übermittlung mittels SOAP
Hier muss auch eine (fertige) XML Datei übertragen werden.

Leider habe ich noch keinen Ansatz.

Vielen Dank

GwenDragon

2006-02-23 10:36

User since
2005-01-17
14814 Artikel
Admin1

Schon mal dort geschaut: CPAN:

SOAP::Lite CPAN:

SOAP ;)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

p_metz

2006-02-23 10:43

User since
2006-02-18
1 Artikel
BenutzerIn
[default_avatar]

Moin.
Ein interessanter Artikel mit möglicher Alternative ->
http://www.perl.com/pub/a/2004/09/30/drop_the_soap.html

http://www.sloganizer.net/style3,p-unl-metz.png

renee

2006-02-23 10:47

User since
2003-08-04
14371 Artikel
ModeratorIn

SOAP::Lite ist besser als CPAN:

SOAP. Es wird noch aktiv weiterentwickelt! Die Beispiele dazu sind auch ganz gut.

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/

dadreamer

2006-02-28 08:50

User since
2006-01-26
6 Artikel
BenutzerIn
[default_avatar]

Vielen Dank,

es klappt zwar noch immer nicht ganz,
aber das schaffe ich schon.

dadreamer

2006-06-22 11:35

User since
2006-01-26
6 Artikel
BenutzerIn
[default_avatar]

Hallo Zusammen,

habe mich wieder ein bischen mit SOAP beschäftigt:

Aktuell habe ich folgenden Code

Code: (dl )

#!/usr/bin/perl -w
use strict;
use SOAP::Lite;

print "Content-Type: text/html\n\n";

my $ws=new SOAP::Lite
service => 'file:c:/pfad/zu/wsdl/ws.wsdl',
proxy => 'http://irgendwas.de:80';

my $method=SOAP::Data->name('mymethod');

my @params=(
SOAP::Data->name('p1'=>'1'),
SOAP::Data->name('p2'=>'2')
);

my $response=$ws->call($method => @params);

if ($response->fault) {
printf "A fault (%s) occurred: %s\n",
$response->faultcode, $response->faultstring;
} else {
print "result:" . $response->result . "\n";
}

Leider klappt das nicht, als Antwort bekomme ich nur "result:".

Die Anmeldung soll im Header mit Authorization: Basic erfolgen.
In der SOAP::Lite Doku steht das die Basic Auth. unterstützt wird, jedoch habe ich hierzu kein Beispiel gefunden.

Kann mir jemand helfen?

Viele Grüße

GwenDragon

2006-06-22 11:53

User since
2005-01-17
14814 Artikel
Admin1

Sollte es vielleicht statt file:///c:/pfad/zu/wsdl/ws.wsdl eher file:///c:/pfad/zu/wsdl/ws.wsdl sein?

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

renee

2006-06-22 14:55

User since
2003-08-04
14371 Artikel
ModeratorIn

Für Dich dürft das Kochbuch zu CPAN:

SOAP::Lite ganz nützlich sein. Dort gibt es auch ein Beispiel zu Basic Auth.

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/

dadreamer

2006-06-22 16:37

User since
2006-01-26
6 Artikel
BenutzerIn
[default_avatar]

Hallo GwenDragon,

bei der WSDL-Datei gebe ich einen absoluten Pfad an,
der anscheinend korrekt ist.

Hallo Renee,

danke für den Link,

hier gibt es für die Basic Auth. zwei möglichkeiten.
a) usr und pwd vor die URL hängen
b) get_basic_credentials()

=> a) funktioniert leider nicht
=> b) SW-Error: Unexpected Content-Type '' returned

Nun zu Plan B:

Könnt Ihr mir ein Beispiel nennen wie man den erzeugten SOAP-Text auf dem Bildschirm ausgeben kann ohne ihn wegzuschicken?

Viele Grüße