[freeside-commits] freeside/fs_selfservice/FS-SelfService/cgi xmlrpc.cgi, NONE, 1.1.2.2

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi
In directory wavetail:/tmp/cvs-serv13522/cgi

Added Files:
      Tag: FREESIDE_1_7_BRANCH
	xmlrpc.cgi 
Log Message:
add selfservice xmlrpc facilities (#591) (backport)

--- NEW FILE: xmlrpc.cgi ---
#!/usr/bin/perl -Tw

use strict;
use XMLRPC::Transport::HTTP;
use XMLRPC::Lite; # for XMLRPC::Serializer
use FS::SelfService::XMLRPC;

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