4 use XMLRPC::Transport::HTTP;
5 use XMLRPC::Lite; # for XMLRPC::Serializer
6 use FS::SelfService::XMLRPC;
9 base64 => [10, sub {$_[0] =~ /[^\x09\x0a\x0d\x20-\x7f]/}, 'as_base64'],
10 dateTime => [35, sub {$_[0] =~ /^\d{8}T\d\d:\d\d:\d\d$/}, 'as_dateTime'],
11 string => [40, sub {1}, 'as_string'],
13 my $serializer = new XMLRPC::Serializer(typelookup => \%typelookup);
15 XMLRPC::Transport::HTTP::CGI->dispatch_to('FS::SelfService::XMLRPC')
16 ->serializer($serializer)