The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

SOAP::Transport::ActiveWorks::HTTP::Apache - Forward SOAP requests from Apache to an ActiveWorks broker

SYNOPSIS

package Apache::SOAPServer;
use strict;
use Apache;
use SOAP::Transport::HTTP::Apache;
use SOAP::Transport::ActiveWorks::HTTP::Apache;

sub handler {

    my $http_safe_classes = {
        ClassA => undef,
        ClassB => undef,
    };

    my $aw_safe_classes = {
        ClassC     => undef,
        Calculator => undef,
    };

    my $r = Apache->request();

    my %args = $r->args();

    if ( $http_safe_classes->{$args{class}} ) {
         #
         #  Handle requests here and now.
         #
         SOAP::Transport::HTTP::Apache->handler($http_safe_classes);
    }
    else {
         #
         #  Forward to an adapter for handling. 
         #
         SOAP::Transport::ActiveWorks::HTTP::Apache->handler($aw_safe_classes);
    }

}

DESCRIPTION

This package is a minor rewrite of the SOAP::Transport::HTTP::Apache. The difference is that it uses a proxy handler to forward requests to an ActiveWorks broker instead the HTTP server handler.

DEPENDENCIES

SOAP::Transport::HTTP::Server;

AUTHOR

Daniel Yacob, yacob@rcn.com

SEE ALSO

perl(1). SOAP(3). SOAP::Transport::ActiveWorks::HTTP::Proxy(3).