use FS::Daemon::Preforking qw( freeside_init1 freeside_init2 daemon_run );
-use XMLRPC::Transport::HTTP; #SOAP::Transport::HTTP;
-use XMLRPC::Lite; # for XMLRPC::Serializer
-
+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;
die "not running; selfservice-xmlrpc conf option is off\n"
unless $conf->exists('selfservice-xmlrpc');
+if ( $conf->exists('selfservice-db_profile') ) {
+ eval "use DBIx::Profile";
+ warn $@ if $@;
+}
+
daemon_run( 'port' => 8080, 'handle_request' =>
sub {
my $request = shift;
$soap->request($request);
$soap->handle;
+ $FS::UID::dbh->commit() if $FS::UID::dbh; #XXX handle commit error
+
return $soap->response;
}
);