#!/usr/bin/perl
-use FS::Daemon::Preforking qw( freeside_init1 freeside_init2 daemon_run );
+=head1 NAME
+
+freeside-selfservice-xmlrpcd
+
+=cut
-use XMLRPC::Transport::HTTP; #SOAP::Transport::HTTP;
-use XMLRPC::Lite; # for XMLRPC::Serializer
+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;
use constant ME => 'selfservice-xmlrpcd';
-#
-
freeside_init1(ME);
load_clientapi_modules;
$soap->request($request);
$soap->handle;
+ $FS::UID::dbh->commit() if $FS::UID::dbh; #XXX handle commit error
+
return $soap->response;
}
);