#!/usr/bin/perl -W

use SOAP::Transport::HTTP;

use MOBY::Async::WSRF;

use TwoAsyncService; # the name of your Service modules

my $server = new SOAP::Transport::HTTP::CGI;
$server->serializer(WSRF::Serializer->new);
$server->deserializer(WSRF::Deserializer->new);

# Magic! It works!
$server->on_action(sub{});

$server->dispatch_with({
         $WSRF::Constants::MOBY.'#serviceOne'        => 'TwoAsyncService',
         $WSRF::Constants::MOBY.'#serviceOne_submit' => 'TwoAsyncService',
         $WSRF::Constants::MOBY.'#serviceTwo'        => 'TwoAsyncService',
         $WSRF::Constants::MOBY.'#serviceTwo_submit' => 'TwoAsyncService',
         $WSRF::Constants::WSRPW.'/GetResourceProperty/GetResourcePropertyRequest' => 'TwoAsyncService',
	 $WSRF::Constants::WSRPW.'/GetMultipleResourceProperties/GetMultipleResourcePropertiesRequest' => 'TwoAsyncService',
	 $WSRF::Constants::WSRLW.'/ImmediateResourceTermination/DestroyRequest' => 'TwoAsyncService',
});
$server->handle();