FS/FS/ClientAPI/Freeside.pm

   1 package FS::ClientAPI::Freeside;
   2
   3 use strict;
   4 #use vars qw($DEBUG $me);
   5 use FS::Record qw(qsearchs);
   6 use FS::Conf;
   7 use FS::svc_external;
   8 use FS::webservice_log;
   9
  10 #$DEBUG = 0;
  11 #$me = '[FS::ClientAPI::PrepaidPhone]';
  12
  13 # inputs:
  14 #   support-key
  15 #   method
  16 #   quantity (i.e. pages) - defaults to 1
  17 #
  18 # returns:
  19 #   error (empty, or error message)
  20
  21 sub freesideinc_service {
  22   my $packet = shift;
  23
  24   my $svcpart = FS::Conf->new->config('freesideinc-webservice-svcpart')
  25     or return { 'error' => 'guru meditation #pow' };
  26   die 'no' unless $svcpart =~ /^\d+$/;
  27
  28   ( my $support_key = $packet->{'support-key'} ) =~ /^\s*([^:]+):(.+)\s*$/
  29     or return { 'error' => 'bad support-key' };
  30   my($username, $_password) = ($1,$2);
  31
  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,
  37                    },
  38     'extra_sql' => " AND svcpart = $svcpart",
  39   })
  40     or return { 'error' => 'bad support-key' };
  41
  42   #XXX check if some customers can use some API calls, rate-limiting, etc.
  43   # but for now, everybody can use everything
  44
  45   #record it happened
  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,
  51   };
  52   my $error = $webservice_log->insert;
  53   return { 'error' => $error } if $error;
  54
  55   return { 'error' => '' };
  56
  57 }
  58
  59 1;