1 package FS::SelfService::XMLRPC;
5 FS::SelfService::XMLRPC - Freeside XMLRPC accessible self-service API
11 Use this API to implement your own client "self-service" module vi XMLRPC.
13 Each routine described in L<FS::SelfService> is available vi XMLRPC as the
14 method FS.SelfService.XMLRPC.B<method>. All values are passed to the
15 selfservice-server in a struct of strings. The return values are in a
16 struct as strings, arrays, or structs as appropriate for the values
17 described in L<FS::SelfService>.
23 L<freeside-selfservice-clientd>, L<freeside-selfservice-server>,L<FS::SelfService>
28 use vars qw($DEBUG $AUTOLOAD);
29 use XMLRPC::Lite; # for XMLRPC::Data
33 $FS::SelfService::DEBUG = $DEBUG;
35 #false laziness w/FS::ClientAPI_XMLRPC.pm
36 our %typefix_skin_info = (
38 'title_left_image' => 'base64',
39 'title_right_image' => 'base64',
40 'menu_top_image' => 'base64',
41 'menu_body_image' => 'base64',
42 'menu_bottom_image' => 'base64',
45 'invoice_pdf' => { 'invoice_pdf' => 'base64', },
46 'legacy_invoice_pdf' => { 'invoice_pdf' => 'base64', },
47 'skin_info' => \%typefix_skin_info,
48 'login_info' => \%typefix_skin_info,
49 'logout' => \%typefix_skin_info,
50 'access_info' => \%typefix_skin_info,
51 'reset_passwd' => \%typefix_skin_info,
52 'check_reset_passwd' => \%typefix_skin_info,
53 'process_reset_passwd' => \%typefix_skin_info,
54 'invoice_logo' => { 'logo' => 'base64', },
55 'login_banner_image' => { 'image' => 'base64', },
56 'quotation_print' => { 'document' => 'base64' },
61 $call =~ s/^FS::SelfService::XMLRPC:://;
63 if (exists($FS::SelfService::autoload{$call})) {
65 shift; #discard package name;
67 $call = "FS::SelfService::$call";
71 my $return = &{$call}(@_);
73 if ( exists($typefix{$call}) ) {
74 my $typefix = $typefix{$call};
75 foreach my $field ( grep exists($return->{$_}), keys %$typefix ) {
76 my $type = $typefix->{$field};
77 $return->{$field} = XMLRPC::Data->value($return->{$field})
85 die "No such procedure: $call";
89 package SOAP::Transport::HTTP::Daemon; # yuck
91 use POSIX qw(:sys_wait_h);
93 no warnings 'redefine';
96 my $self = shift->new;
98 local $SIG{CHLD} = 'IGNORE';
101 while (my $c = $self->accept) {
105 $kid = waitpid(-1, WNOHANG);
106 warn "found kid $kid";
112 if ( not defined $pid ) {
113 warn "fork() failed: $!";
116 while (my $r = $c->get_request) {
118 $self->SUPER::handle;
119 $c->send_response($self->response);
121 # replaced ->close, thanks to Sean Meisner <Sean.Meisner@VerizonWireless.com>
122 # shutdown() doesn't work on AIX. close() is used in this case. Thanks to Jos Clijmans <jos.clijmans@recyfin.be>
123 UNIVERSAL::isa($c, 'shutdown') ? $c->shutdown(2) : $c->close();