3 use FS::Daemon::Preforking qw( freeside_init1 freeside_init2 daemon_run );
5 use XMLRPC::Transport::HTTP; #SOAP::Transport::HTTP;
6 use XMLRPC::Lite; # for XMLRPC::Serializer
9 use FS::ClientAPI qw( load_clientapi_modules );
10 use FS::ClientAPI_XMLRPC; #FS::SelfService::XMLRPC;
14 #not utf-8 safe# base64 => [10, sub {$_[0] =~ /[^\x09\x0a\x0d\x20-\x7f]/}, 'as_base64'],
15 dateTime => [35, sub {$_[0] =~ /^\d{8}T\d\d:\d\d:\d\d$/}, 'as_dateTime'],
16 string => [40, sub {1}, 'as_string'],
19 use constant ME => 'selfservice-xmlrpcd';
25 load_clientapi_modules;
29 FS::ClientAPI::Signup::clear_cache();
31 my $conf = new FS::Conf;
32 die "not running; selfservice-xmlrpc conf option is off\n"
33 unless $conf->exists('selfservice-xmlrpc');
35 daemon_run( 'port' => 8080, 'handle_request' =>
39 my $serializer = new XMLRPC::Serializer(typelookup => \%typelookup);
41 #my $soap = SOAP::Transport::HTTP::Server
42 my $soap = XMLRPC::Transport::HTTP::Server
44 -> dispatch_to('FS::ClientAPI_XMLRPC')
45 -> serializer($serializer);
47 $soap->request($request);
50 return $soap->response;