X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2Fbin%2Ffreeside-selfservice-xmlrpcd;h=e96f65a083c1b2b6fcd6f8823c006c47ecb6f7c6;hb=c13b6c8f4b9876aa8f91e1c14d3c208ac0d189e9;hp=6413b2b8ac653b3372e89a4c382a28af49ea6f57;hpb=e9e0cf0989259b94d9758eceff448666a2e5a5cc;p=freeside.git

diff --git a/FS/bin/freeside-selfservice-xmlrpcd b/FS/bin/freeside-selfservice-xmlrpcd
index 6413b2b8a..e96f65a08 100755
--- a/FS/bin/freeside-selfservice-xmlrpcd
+++ b/FS/bin/freeside-selfservice-xmlrpcd
@@ -2,9 +2,8 @@
 
 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;
@@ -18,8 +17,6 @@ my %typelookup = (
 
 use constant ME => 'selfservice-xmlrpcd';
 
-#
-
 freeside_init1(ME);
 
 load_clientapi_modules;
@@ -32,6 +29,11 @@ my $conf = new FS::Conf;
 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;
@@ -47,6 +49,8 @@ daemon_run( 'port' => 8080, 'handle_request' =>
     $soap->request($request);
     $soap->handle;
 
+    $FS::UID::dbh->commit() if $FS::UID::dbh; #XXX handle commit error
+
     return $soap->response;
   }
 );