1 package FS::ClientAPI::Freeside;
4 #use vars qw($DEBUG $me);
5 use FS::Record qw(qsearchs);
8 use FS::webservice_log;
11 #$me = '[FS::ClientAPI::PrepaidPhone]';
16 # quantity (i.e. pages) - defaults to 1
19 # error (empty, or error message)
21 sub freesideinc_service {
24 my $svcpart = FS::Conf->new->config('freesideinc-webservice-svcpart')
25 or return { 'error' => 'guru meditation #pow' };
26 die 'no' unless $svcpart =~ /^\d+$/;
28 ( my $support_key = $packet->{'support-key'} ) =~ /^\s*([^:]+):(.+)\s*$/
29 or return { 'error' => 'bad support-key' };
30 my($username, $_password) = ($1,$2);
32 my $svc_external = qsearchs({
33 'table' => 'svc_external',
34 'addl_from' => 'LEFT JOIN cust_svc USING ( svcnum )',
35 'hashref' => { 'username' => $username,
36 '_password' => $_password,
38 'extra_sql' => " AND svcpart = $svcpart",
40 or return { 'error' => 'bad support-key' };
42 #XXX check if some customers can use some API calls, rate-limiting, etc.
43 # but for now, everybody can use everything
46 my $webservice_log = new FS::webservice_log {
47 'custnum' => $svc_external->cust_svc->cust_pkg->custnum,
48 'svcnum' => $svc_external->svcnum,
49 'method' => $packet->{'method'},
50 'quantity' => $packet->{'quantity'} || 1,
52 my $error = $webservice_log->insert;
53 return { 'error' => $error } if $error;
55 return { 'error' => '' };