diff options
Diffstat (limited to 'FS/FS/ClientAPI/PrepaidPhone.pm')
| -rw-r--r-- | FS/FS/ClientAPI/PrepaidPhone.pm | 253 |
1 files changed, 253 insertions, 0 deletions
diff --git a/FS/FS/ClientAPI/PrepaidPhone.pm b/FS/FS/ClientAPI/PrepaidPhone.pm new file mode 100644 index 0000000..00bc0ff --- /dev/null +++ b/FS/FS/ClientAPI/PrepaidPhone.pm @@ -0,0 +1,253 @@ +package FS::ClientAPI::PrepaidPhone; + +use strict; +use vars qw($DEBUG $me); +use FS::Record qw(qsearchs); +use FS::rate; +use FS::svc_phone; + +$DEBUG = 0; +$me = '[FS::ClientAPI::PrepaidPhone]'; + +#TODO: +# - shared-secret auth? (set a conf value) + +=item call_time HASHREF + +HASHREF contains the following parameters: + +=over 4 + +=item src + +Source number (with countrycode) + +=item dst + +Destination number (with countrycode) + +=back + +Always returns a hashref. If there is an error, the hashref contains a single +"error" key with the error message as a value. Otherwise, returns a hashref +with the following keys: + +=over 4 + +=item custnum + +Empty if no customer is found associated with the number, customer number +otherwise. + +=item seconds + +Number of seconds remaining for a call to destination number + +=back + +=cut + +sub call_time { + my $packet = shift; + + my $src = $packet->{'src'}; + my $dst = $packet->{'dst'}; + + my $chargeto; + my $rateby; + #my $conf = new FS::Conf; + #if ( #XXX toll-free? collect? + # $phonenum = $dst; + #} else { #use the src to find the customer + $chargeto = $src; + $rateby = $dst; + #} + + my( $countrycode, $phonenum ); + if ( $chargeto #an interesting regex to parse out 1&2 digit countrycodes + =~ /^(2[078]|3[0-469]|4[013-9]|5[1-8]|6[0-6]|7|8[1-469]|9[0-58])(\d*)$/ + || $chargeto =~ /^(\d{3})(\d*)$/ + ) + { + $countrycode = $1; + $phonenum = $2; + } else { + return { 'error' => "unparsable billing number: $chargeto" }; + } + + + my $svc_phone = qsearchs('svc_phone', { 'countrycode' => $countrycode, + 'phonenum' => $phonenum, + } + ); + + unless ( $svc_phone ) { + return { 'error' => "can't find customer for +$countrycode $phonenum" }; +# return { 'custnum' => '', +# 'seconds' => 0, +# #'balance' => 0, +# }; + }; + + my $cust_pkg = $svc_phone->cust_svc->cust_pkg; + my $cust_main = $cust_pkg->cust_main; + + my $part_pkg = $cust_pkg->part_pkg; + my @part_pkg = ( $part_pkg, map $_->dst_pkg, $part_pkg->bill_part_pkg_link ); + #XXX uuh, behavior indeterminate if you have more than one voip_cdr+prefix + #add-on, i guess. + warn "$me ". scalar(@part_pkg). ': '. + join('/', map { $_->plan. $_->option('rating_method') } @part_pkg ) + if $DEBUG; + @part_pkg = + grep { $_->plan eq 'voip_cdr' && $_->option('rating_method') eq 'prefix' } + @part_pkg; + + my %return = ( + 'custnum' => $cust_pkg->custnum, + #'balance' => $cust_pkg->cust_main->balance, + ); + + warn "$me: ". scalar(@part_pkg). ': '. + join('/', map { $_->plan. $_->option('rating_method') } @part_pkg ) + if $DEBUG; + return \%return unless @part_pkg; + + warn "$me searching for rate ". $part_pkg[0]->option('ratenum') + if $DEBUG; + + my $rate = qsearchs('rate', { 'ratenum'=>$part_pkg[0]->option('ratenum') } ); + + unless ( $rate ) { + my $error = 'ratenum '. $part_pkg[0]->option('ratenum'). ' not found'; + warn "$me $error" + if $DEBUG; + return { 'error'=>$error }; + } + + warn "$me found rate ". $rate->ratenum + if $DEBUG; + + #rate the call and arrive at a max # of seconds for the customer's balance + + my( $rate_countrycode, $rate_phonenum ); + if ( $rateby #this is an interesting regex to parse out 1&2 digit countrycodes + =~ /^(2[078]|3[0-469]|4[013-9]|5[1-8]|6[0-6]|7|8[1-469]|9[0-58])(\d*)$/ + || $rateby =~ /^(\d{3})(\d*)$/ + ) + { + $rate_countrycode = $1; + $rate_phonenum = $2; + } else { + return { 'error' => "unparsable rating number: $rateby" }; + } + + my $rate_detail = $rate->dest_detail({ 'countrycode' => $rate_countrycode, + 'phonenum' => $rate_phonenum, + }); + unless ( $rate_detail ) { + return { 'error'=>"can't find rate for +$rate_countrycode $rate_phonenum"}; + } + + unless ( $rate_detail->min_charge > 0 ) { + #XXX no charge?? return lots of seconds, a default, 0 or what? + #return { 'error' => '0 rate for +$rate_countrycode $rate_phonenum; prepaid service not available" }; + #customer wants no default for now# $return{'seconds'} = 1800; #half hour?! + return \%return; + } + + #XXX granularity? included minutes? another day... + if ( $cust_main->balance >= 0 ) { + return { 'error'=>'No balance' }; + } else { + $return{'seconds'} = int(60 * abs($cust_main->balance) / $rate_detail->min_charge); + } + + warn "$me returning seconds: ". $return{'seconds'}; + + return \%return; + +} + +=item call_time_nanpa + +Like I<call_time>, except countrycode 1 is not required, and all other +countrycodes must be prefixed with 011. + +=cut + +# - everything is assumed to be countrycode 1 unless it starts with 011(ccode) +sub call_time_nanpa { + my $packet = shift; + + foreach (qw( src dst )) { + if ( $packet->{$_} =~ /^011(\d+)/ ) { + $packet->{$_} = $1; + } elsif ( $packet->{$_} !~ /^1/ ) { + $packet->{$_} = '1'.$packet->{$_}; + } + } + + call_time($packet); + +} + +=item phonenum_balance HASHREF + +HASHREF contains the following parameters: + +=over 4 + +=item countrycode + +Optional countrycode. Defaults to 1. + +=item phonenum + +Phone number. + +=back + +Always returns a hashref. If there is an error, the hashref contains a single +"error" key with the error message as a value. Otherwise, returns a hashref +with the following keys: + +=over 4 + +=item custnum + +Empty if no customer is found associated with the number, customer number +otherwise. + +=item balance + +Customer balance. + +=back + +=cut + +sub phonenum_balance { + my $packet = shift; + + my $svc_phone = qsearchs('svc_phone', { + 'countrycode' => ( $packet->{'countrycode'} || 1 ), + 'phonenum' => $packet->{'phonenum'}, + }); + + unless ( $svc_phone ) { + return { 'custnum' => '', + 'balance' => 0, + }; + }; + + my $cust_pkg = $svc_phone->cust_svc->cust_pkg; + + return { + 'custnum' => $cust_pkg->custnum, + 'balance' => $cust_pkg->cust_main->balance, + }; + +} + +1; |