Hallo Zusammen,bin gerade an meinem ersten Webservice:
Was ich bis jetzt habe:
#!/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, jedoch habe ich hierzu kein Beispiel gefunden.
Kann mir jemand helfen?
Viele Grüße
mat
Datum: 21.06.2006-18:13
SOAP::Lite
