X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2Fbin%2Ffreeside-xmlrpcd;h=b6f15ce89ebbeda17f324240add13ffe9fa05853;hb=51c0d6572357ba4d7c11a11e7ff506428c1cc045;hp=e22d0f06380b8256b9298106809afd8897c768e7;hpb=7a7a0c736e3cfbd10b06151a93bf499d185d37d3;p=freeside.git

diff --git a/FS/bin/freeside-xmlrpcd b/FS/bin/freeside-xmlrpcd
old mode 100644
new mode 100755
index e22d0f063..b6f15ce89
--- a/FS/bin/freeside-xmlrpcd
+++ b/FS/bin/freeside-xmlrpcd
@@ -1,14 +1,17 @@
 #!/usr/bin/perl
 
+=head1 NAME
+
+freeside-xmlrpcd
+
+=cut
+
 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 FS::API;
 
 #freeside xmlrpc.cgi
@@ -19,17 +22,9 @@ my %typelookup = (
 );
 
 use constant ME => 'xmlrpcd';
-
-#
-
 freeside_init1(ME);
-
-#load_clientapi_modules;
-
 freeside_init2(ME);
 
-#FS::ClientAPI::Signup::clear_cache();
-
 my $conf = new FS::Conf;
 die "not running; xmlrpc_api conf option is off\n"
   unless $conf->exists('xmlrpc_api');
@@ -51,6 +46,8 @@ daemon_run( 'port' => 8008, 'handle_request' =>
     $soap->request($request);
     $soap->handle;
 
+    $FS::UID::dbh->commit() if $FS::UID::dbh; #XXX handle commit error
+
     return $soap->response;
   }
 );