comment on

Here is my solution of the task. It isn't very graceful. But it works:

package My::Net::SOAP::Transport::HTTP::Daemon;

use SOAP::Transport::HTTP;
use My::Net::SOAP::Transport::HTTP::Server;

@SOAP::Transport::HTTP::Daemon::ISA = qw(
    My::Net::SOAP::Transport::HTTP::Server
);

@My::Net::SOAP::Transport::HTTP::Daemon::ISA = qw(
    SOAP::Transport::HTTP::Daemon
);

sub setWsdl($$) {
    my $self        = shift;
    my $wsdlUri     = shift;
    my $wsdlFile    = shift;

    $/ = undef;
    open FILE, $wsdlFile or die "Cannot open '$wsdlFile' ($!)";
    $My::Net::SOAP::Transport::HTTP::Server::WsdlFileContent = <FILE>;
    close FILE;
    $My::Net::SOAP::Transport::HTTP::Server::WsdlURI = $wsdlUri;
    return 1;
}

1;

package My::Net::SOAP::Transport::HTTP::Server;

use strict;

use SOAP::Transport::HTTP;
our @ISA = qw(
    SOAP::Transport::HTTP::Server
);

our $WsdlFileContent;
our $WsdlURI;

sub handle {
    my $class = shift;

    my $result;
    eval {
        my $self = $class->new;
        if ($self->request->method eq 'GET') {
            if( $self->request->uri eq $WsdlURI ) {
                my $response = $WsdlFileContent;
                print "FOO:\n";
                $result = $self->make_response(undef,$response) || 1;
            }
            else {
                print STDERR "Got GET request with wrong URI '".$self-
+>request->uri."'!='$WsdlURI', ignoring";
            }
        }
    };
    if( $@ ) {
        print STDERR "Runtime error ($@)";
        return undef;
    }
    return $result if $result;
    return $class->handle();
}

1;


# now use derived Daemon class regular way
use My::Net::SOAP::Transport::HTTP::Daemon;
my $daemon = My::Net::SOAP::Transport::HTTP::Daemon->new(
    LocalAddr   => 'myhostname',
    LocalPort   => 9999,
)
    or die "Cannot create My::Net::SOAP::Transport::HTTP::Daemon";

$daemon->setWsdl("/$service?WSDL",'/path/to/file.wsdl') 
    or die "Cannot set WSDL ($@)";
my $dispatcher = $daemon->dispatch_with({ 'urn:/'.$service => 'My::WS:
+:'.$service });

my $object = $dispatcher->objects_by_reference("My::WS::".$service);

$object->dispatch_to('/my/lib/My/WS', $service);
$object->handle;
[download]

In reply to Re^4: SOAP::Transport::HTTP::Daemon and XML by romanovsky
in thread SOAP::Transport::HTTP::Daemon and XML by rppowell

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


XP is just a number
	PerlMonks