#!/usr/bin/perl -w

use SOAP::Transport::HTTP;

use MOBY::Async::WSRF;

use AsyncService; # 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.'#sayHello'        => 'AsyncService',
         $WSRF::Constants::MOBY.'#sayHello_submit' => 'AsyncService',
         $WSRF::Constants::MOBY.'#sayGoodbye'        => 'AsyncService',
         $WSRF::Constants::MOBY.'#sayGoodbye_submit' => 'AsyncService',
         $WSRF::Constants::WSRPW.'/GetResourceProperty/GetResourcePropertyRequest' => 'AsyncService',
	 $WSRF::Constants::WSRPW.'/GetMultipleResourceProperties/GetMultipleResourcePropertiesRequest' => 'AsyncService',
	 $WSRF::Constants::WSRLW.'/ImmediateResourceTermination/DestroyRequest' => 'AsyncService',
});
$server->handle();