root/trunk/hotstuff/dxs/hotstuff-dxs

#!/usr/bin/perl
#
# Web service handler for the DXS backend service
# Copyright (C) 2005 Josef Spillner <josef@kstuff.org>
# Published under 'GNU AGPLv3 or later' conditions

use strict;
use SOAP::Transport::HTTP;

SOAP::Transport::HTTP::CGI
        #->dispatch_to("DXS::(?:methodname)")
        -> dispatch_to("DXS")
        #-> serializer(DXSSerializer->new)
        #-> options({site => $site})
        -> handle;

### Serializer code
### We need this when we want to have custom response names
#
#BEGIN{
#
#package DXSSerializer;
#@DXSSerializer::ISA = 'SOAP::Serializer';
#
#sub envelope{
#       UNIVERSAL::isa($_[2] => 'SOAP::Data')
#               ? do{
#                       (my $method = $_[2]->name) =~ s/Response$//;
#                       $_[2]->name($method);
#               } : $_[2] =~ s/Response$//
#               if $_[1] =~ /^(?:method|response)$/;
#       shift->SUPER::envelope(@_);
#}
#
#}