Thread SOAP::Lite ... wieso gehts nicht?: Hab hier ein Anfängerproblem (glaub ich) (3 answers)
Opened by Hopse at 2003-11-04 04:03

Hopse
 2003-11-04 04:03
#9350 #9350
User since
2003-11-04
2 Artikel
BenutzerIn
[default_avatar]
Hallo erstmal

Ich muss mich in SOAP::Lite einarbeiten und habe unter anderem diesen Beispielscode gefunden. Aber ich bring das nicht zum laufen, nun weiss ich nicht warum.

Echo.pm
#!/usr/bin/perl
# Dateiname: Echo.pm
# Echo-Web Service Perl-Modul - an dieses Modul werden
# Requests an den Echo-Web Service gesendet.
# Autor: Byrne Reese
package Echo;
use strict;
sub echo {
my ($self,@args) = @_;
return join(",",@args);
}
1;


Echo.cgi
#!/usr/bin/perl -w
# Dateiname: echo.cgi
# Echo-Web Service - dieser Web Service gibt jeden Input
# als Echo in seiner Antwort zurück.
# Autor: Byrne Reese
use Echo;
use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI
->dispatch_to(&′Echo&′)
->handle;

echo_client.pl
#!/usr/bin/perl -w
# Dateiname: echo_client.pl
# Client zum Versenden einer Nachricht an den Echo-Web Service
# Autor: Byrne Reese byrne@majordojo.com
# Verwendung:
# echo_client.pl
###########################################
use SOAP::Lite; # +trace => &′debug&′;
$HOST = "http://offline.myserver.de/cgi-bin/Echo/Echo.cgi";
$NS = "urn:echo";
$PHRASE = "seppl" . shift; # von der Kommandozeile lesen
my $soap = SOAP::Lite
->readable(1)
->uri($NS)
->proxy($HOST);
my $som = $soap->echo(
SOAP::Data->name("whatToEcho" => "$PHRASE"));
print "Die Antwort vom Server:\n".$som->result."\n";
1;

bei my $som =$soap->echo... , also wenn ich echo aus der Echo.pm aufrufen will fängt er an zu meckern mit 400 URL missing.
Der code ist auf einem Linux-Rechner im cgi-bin installiert.
Was kann/muss ich machen, daß der Aufruf funktioniert?

Vielen Dank schon mal im voraus

View full thread SOAP::Lite ... wieso gehts nicht?: Hab hier ein Anfängerproblem (glaub ich)