—#!/usr/bin/perl -w
use
strict;
on_fault
=>
sub
{
my
(
$soap
,
$res
) =
@_
;
die
ref
$res
?
$res
->faultdetail :
$soap
->transport->status,
"\n"
;
}
;
my
%result
= %{ AdapterDevKit::timeRequest->SOAP::publish };
"Remote Time is $result{time}\n"
;
__END__
=head1 DESCRIPTION
This script is part of the SOAP::Transport::ActiveWorks::Lite testing suite.
This script uses the SOAP-Lite dispatching mechanism to publish an
ActiveWorks event to an ActiveWorks broker given in the 'proxy' parameter.
The companion 'soap-lite-adapter.pl' script is the intended recipient adapter.
Event pseudo classes are used. The SOAP dispatcher will directly publish
the pseudo class, 'AdapterDeveKit::timeRequest' as a native ActiveWorks
event. The ActiveWorks broker specified published to is specified in the
'proxy' dispatch parameter.
The receiving adapter will then republish the event
(AdapterDeveKit::timeRequest) to the ActiveWorks broker specified in
the dispatcher 'uri' parameter. The required 'time_adapter.pl' script
(included with the B<Aw> module) then becomes the target adapter.