From 8a84bdd24ab863b34a62bef0dfb6c925322fefcf Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Mon, 6 Aug 2007 08:46:06 +0000
Subject: add selfservice xmlrpc facilities (#591)

---
 fs_selfservice/FS-SelfService/cgi/xmlrpc.cgi | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 fs_selfservice/FS-SelfService/cgi/xmlrpc.cgi

(limited to 'fs_selfservice/FS-SelfService/cgi')

diff --git a/fs_selfservice/FS-SelfService/cgi/xmlrpc.cgi b/fs_selfservice/FS-SelfService/cgi/xmlrpc.cgi
new file mode 100644
index 000000000..559ae04d8
--- /dev/null
+++ b/fs_selfservice/FS-SelfService/cgi/xmlrpc.cgi
@@ -0,0 +1,18 @@
+#!/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;
+
-- 
cgit v1.2.1