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