fs_selfservice/FS-SelfService/cgi/xmlrpc.cgi

   1 #!/usr/bin/perl -Tw
   2
   3 use strict;
   4 use XMLRPC::Transport::HTTP;
   5 use XMLRPC::Lite; # for XMLRPC::Serializer
   6 use FS::SelfService::XMLRPC;
   7
   8 my %typelookup = (
   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'],
  12 );
  13 my $serializer = new XMLRPC::Serializer(typelookup => \%typelookup);
  14
  15 XMLRPC::Transport::HTTP::CGI->dispatch_to('FS::SelfService::XMLRPC')
  16                             ->serializer($serializer)
  17                             ->handle;
  18