summaryrefslogtreecommitdiff
path: root/fs_selfservice/FS-SelfService/cgi/xmlrpc.cgi
diff options
context:
space:
mode:
authorcvs2git <cvs2git>2010-12-27 00:04:45 +0000
committercvs2git <cvs2git>2010-12-27 00:04:45 +0000
commitc82d349f864e6bd9f96fd1156903bc1f7193a203 (patch)
treee117a87533656110b6acd56fc0ca64289892a9f5 /fs_selfservice/FS-SelfService/cgi/xmlrpc.cgi
parent74e058c8a010ef6feb539248a550d0bb169c1e94 (diff)
This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'.TORRUS_1_0_9
Diffstat (limited to 'fs_selfservice/FS-SelfService/cgi/xmlrpc.cgi')
-rw-r--r--fs_selfservice/FS-SelfService/cgi/xmlrpc.cgi18
1 files changed, 0 insertions, 18 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/xmlrpc.cgi b/fs_selfservice/FS-SelfService/cgi/xmlrpc.cgi
deleted file mode 100644
index 559ae04d8..000000000
--- a/fs_selfservice/FS-SelfService/cgi/xmlrpc.cgi
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/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;
-