blob: 7e373a0c370b1f9915b0a0f2f8761259f7f82662 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
#!/usr/bin/perl
use FS::Daemon::Preforking qw( freeside_init1 freeside_init2 daemon_run );
use FS::XMLRPC_Lite; #XMLRPC::Lite for XMLRPC::Serializer
#and XMLRPC::Transport::HTTP
use FS::Conf;
use FS::ClientAPI qw( load_clientapi_modules );
use FS::ClientAPI_XMLRPC; #FS::SelfService::XMLRPC;
#freeside xmlrpc.cgi
my %typelookup = (
#not utf-8 safe# 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'],
);
use constant ME => 'selfservice-xmlrpcd';
freeside_init1(ME);
load_clientapi_modules;
freeside_init2(ME);
FS::ClientAPI::Signup::clear_cache();
my $conf = new FS::Conf;
die "not running; selfservice-xmlrpc conf option is off\n"
unless $conf->exists('selfservice-xmlrpc');
daemon_run( 'port' => 8080, 'handle_request' =>
sub {
my $request = shift;
my $serializer = new XMLRPC::Serializer(typelookup => \%typelookup);
#my $soap = SOAP::Transport::HTTP::Server
my $soap = XMLRPC::Transport::HTTP::Server
-> new
-> dispatch_to('FS::ClientAPI_XMLRPC')
-> serializer($serializer);
$soap->request($request);
$soap->handle;
$FS::UID::dbh->commit() if $FS::UID::dbh; #XXX handle commit error
return $soap->response;
}
);
1;
|