#!/usr/bin/perl
+=head1 NAME
+
+freeside-selfservice-xmlrpcd
+
+=cut
+
use FS::Daemon::Preforking qw( freeside_init1 freeside_init2 daemon_run );
use FS::XMLRPC_Lite; #XMLRPC::Lite for XMLRPC::Serializer
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;