SOAP::Lite: GET ?wsdl auswerten - #118703 (Netzwerkprogrammierung und Netzwerke mit Perl)

Gast Gast

2009-02-07 22:26

Hallo,
ich habe nach langem Testen jetzt meinen SOAP-Server laufen.
Nun machen es viele Seiten so, dass hinter der URL des Dienstes mit dem Parameter ?wsdl die wsdl-Datei abgefragt werden kann.

Im Moment habe ich eine hello.pl in meinem CGI-Bin Verzeichnis liegen:

Code (perl): (dl )

use strict;
use SOAP::Transport::HTTP;
use lib 'C:\Inetpub\cgi-bin\soap';
use Demo;
SOAP::Transport::HTTP::CGI
        -> dispatch_to(  'C:\Inetpub\cgi-bin\soap','Demo')
        -> handle;

In der Demo.pm habe ich dann folgendes:

Code (perl): (dl )

use strict;
use warnings;

package Demo;

use vars qw(@ISA);
@ISA = qw(SOAP::Server::Parameters);

sub echo {
        my $self = shift;
        my $envelope = pop;
        my $str = $envelope->dataof("//echo/echoData")->value; # Parameter auslesen     
        return SOAP::Data->name("echoResult" => "Hallo $str"); # Tagname mit  Rückgabewert
}

sub hi {
        my $CTIME_String = localtime(time);
        my $str = "Hallo Welt. Aktuelle Zeit: $CTIME_String";
        return SOAP::Data->name("hiResult" => "$str");     
}

1;

Nun müsste ich in meinem Demo-Modul irgendwie auswerten ob jemand die wsdl-Datei anfragt und diese dann zurückliefern (heißt im Moment hello.pl.wsdl).

Hat jemand einen Tip für mich? Die SOAP::Lite Dokumentation ist sehr konfus.

Danke und Gruß
Thomas